baoer.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

{
  object me;
  string new_name,new_id;
  me=this_player();
if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

        if(me->is_busy())
{
command("say 主人，你太忙了，我帮不上你！");
        return notify_fail("你上一个动作还没有完成。\n");
return 1;
}

	 if(me->query("id")==query("host_id"))

           {
           command("nod "+ me->query("id"));
           command("say 下次战斗我一定小心出招！");
           change_combat_mode(me, 1);
 	   return 1;
           }		
else           command("say "+ me->query("name")+" 我不认识你啊？");
return 1;
}

int ask_fight2()
{
  object me;
  string new_name,new_id;
  me=this_player();
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");

        if(me->is_busy())
{
command("say 主人，你太忙了，我帮不上你！");
        return notify_fail("你上一个动作还没有完成。\n");
return 1;
}

	 if(me->query("id")==query("host_id"))

           {
           command("nod "+ me->query("id"));
           command("say 下次战斗我一定尽我的全力攻击对手！");
           change_combat_mode(me, 2);
 	   return 1;
           }		
else           command("say "+ me->query("name")+" 我不认识你啊？");
return 1;
}

int ask_fight3()
{
  object me;
  string new_name,new_id;
  me=this_player();
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");

        if(me->is_busy())
{
command("say 主人，你太忙了，我帮不上你！");
        return notify_fail("你上一个动作还没有完成。\n");
return 1;
}

	 if(me->query("id")==query("host_id"))

           {
           command("nod "+ me->query("id"));
           command("say 下次战斗我一定尽我的全力牵制对手！");
           change_combat_mode(me, 3);
 	   return 1;
           }		
else           command("say "+ me->query("name")+" 我不认识你啊？");
return 1;
}

int ask_eat() 
{
object me;
object wo;
object *obs;
int sizeinv;
object *inv;
  string new_name,new_id,host_id;
  me=this_player();
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");

        if(me->is_busy())
{
command("say 主人，你太忙了，我帮不上你！");
        return notify_fail("你上一个动作还没有完成。\n");
return 1;
}

        obs = filter_array(all_inventory(me), (: ! $1->query("equipped") :));
        if (sizeof(obs) >= 38            )
{
write( CYN "你身上的东西实在是太多了，没法再拿吃的东西了。"+"\n" NOR);
                return notify_fail("你身上的东西实在是太多了，没法再拿吃的东西了。\n");
}
if (inv)
{
		sizeinv=sizeof(inv);
		while (sizeinv--)
		{
       			if (inv[sizeinv]->query("guardfood"))
{
write( CYN "你身上还有吃的东西没吃完呢"+"\n" NOR);
     				return notify_fail("你身上不还有吃的吗？\n");
}    		
		}
}

//  if(query("id")!="bao er")
//        {
//	 sscanf(query("id"),"%s's bao er",host_id);
	 if(me->query("id")==query("host_id"))
           {
me = this_player();
message_vision("$N拿出了一些做饭材料，升起了火，为主人$n做起饭来．．．\n",this_object(),me);
       write( CYN ".................."+"\n" NOR);
       write( CYN "..............."+"\n" NOR);
       write( CYN "............"+"\n" NOR);
       write( CYN "........."+"\n" NOR);
       write( CYN "......"+"\n" NOR);
       write( CYN "...."+"\n" NOR);
       write( CYN "..."+"\n" NOR);
       write( CYN ".."+"\n" NOR);
       write( CYN "."+"\n" NOR);
       write( CYN " "+query("name")+"把做完的饭装在几个盘子里给了你。"+"\n" NOR);
       write( CYN " "+query("name")+"从怀中拿出几个冷馒头，站在你旁边吃了起来。"+"\n" NOR);
me->start_busy(6);
this_object()->start_busy(6);
            set ("food",170);
            set ("water",170);
if (random(30)>25)
create_water(HIW"羊奶"NOR, ({ "milk" }), CYN"青花碗"NOR );
else if (random(30)>20)
create_water(GRN"云雾茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
else if (random(30)>20)
create_water(GRN"碧螺春"NOR, ({ "tea" }), MAG"紫砂盏"NOR );
else if (random(30)>20)
create_water(HIG"君山银针"NOR, ({ "tea" }), RED"红泥盏"NOR );
else if (random(30)>20)
create_water(HIR"红毛尖"NOR, ({ "tea" }), CYN"青泥盏"NOR );
else if (random(30)>20)
create_water(GRN"云雾茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
else if (random(30)>20)
create_water(HIG"龙井茶"NOR, ({ "tea" }), MAG"紫砂茶盅"NOR );
else if (random(30)>20)
create_water(RED"普洱茶"NOR, ({ "tea" }), WHT"水晶盏"NOR );
else if (random(30)>20)
create_water(HIG"君山银针"NOR, ({ "tea" }), RED"红泥盏"NOR );
else 
create_water(HIW"鲜奶"NOR, ({ "milk" }), WHT"玻璃杯"NOR );
if (random(30)>25)
                create_wine(HIW"汾酒"NOR, ({ "wine" }), WHT"羊脂白玉杯"NOR );
else if (random(30)>20)
                create_wine(WHT"关外白酒"NOR, ({ "wine" }), YEL"犀角杯"NOR );
else if (random(30)>20)
                create_wine(RED"葡萄酒"NOR, ({ "wine" }), HIW"夜光杯"NOR );
else if (random(30)>20)
                create_wine(WHT"高粱酒"NOR, ({ "wine" }), CYN"青铜爵"NOR );
 else if (random(30)>20)
                create_wine(HIG"百草酒"NOR, ({ "wine" }), RED"古藤杯"NOR );
else if (random(30)>20)
                 create_wine(HIR"状元红"NOR, ({ "wine" }), WHT"古瓷杯"NOR );
else if (random(30)>20)
                 create_wine(GRN"梨花酒"NOR, ({ "wine" }), HIG"翡翠杯"NOR );
else if (random(30)>20)
                 create_wine(HIW"玉露酒"NOR, ({ "wine" }), WHT"琉璃杯"NOR );
else if (random(30)>20)
                 create_wine(RED"陈年花雕"NOR, ({ "wine" }), HIW"宋瓷杯"NOR  );
else if (random(30)>20)
                 create_wine(WHT"五粮液"NOR, ({ "wine" }), WHT"玻璃杯"NOR );
else if (random(30)>20)
                 create_wine(WHT"米酒"NOR, ({ "wine" }), HIW"搪瓷杯"NOR );
else if (random(30)>20)
                 create_wine(HIR"杜康酒"NOR, ({ "wine" }), HIG"青铜爵"NOR  );
else if (random(30)>20)
                 create_wine(HIW"透瓶香"NOR, ({ "wine" }), WHT"琉璃杯"NOR  );
else if (random(30)>20)
                 create_wine(WHT"米酒"NOR, ({ "wine" }), HIW"搪瓷杯"NOR );
else if (random(30)>20)
                 create_wine(GRN"竹叶青"NOR, ({ "wine" }), GRN"翡翠杯"NOR );
else if (random(30)>20)
                 create_wine(YEL"绍兴黄酒"NOR, ({ "wine" }), HIY"象牙杯"NOR );
else if (random(30)>20)
                 create_wine(HIR"女儿红"NOR, ({ "wine" }), MAG"紫檀杯"NOR );
else if (random(30)>20)
                 create_wine(WHT"茅台酒"NOR, ({ "wine" }), YEL"鎏金杯"NOR );
else if (random(30)>20)
                 create_wine(RED"桂花酒"NOR, ({ "wine" }), WHT"琉璃杯"NOR );
else if (random(30)>20)
                 create_food(YEL"香酥花生"NOR,({"peanut"}) );
else 

if (random(40)>35)
                create_food(HIR"酒糟红枣"NOR,({"jujube"}) );
if (random(40)>35)
                create_food(HIW"奶油瓜子"NOR,({"melon seeds","seeds"}) );
if (random(40)>35)
                create_food(HIG"碧螺春卷"NOR, ({ "spring roll","roll" }) );
if (random(40)>35)
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
if (random(40)>35)
                create_food(HIW"麻辣手撕鸡"NOR, ({"chicken"}) );
if (random(40)>35)
                create_food(HIR"干煸尤鱼"NOR, ({"fish"}) );
if (random(40)>35)
                create_food(HIY"东北水饺"NOR, ({ "dumpling" }) );
if (random(40)>35)
                create_food(RED"麻辣火锅"NOR, ({ "chafing dish","dish" }) );
if (random(40)>35)
                create_food(HIR"油煎螃蟹"NOR, ({ "crab" }) );
if (random(40)>35)
                create_food(HIY"粉蒸肉"NOR, ({ "meat" }) );
if (random(40)>35)
                create_food(YEL"家常豆腐"NOR, ({ "bean curd" }) );
if (random(40)>35)
                create_food(HIY"德州扒鸡"NOR, ({ "chicken" }) );
if (random(40)>35)
                create_food(HIG"碧螺春卷"NOR, ({ "spring roll","roll" }) );
if (random(40)>35)
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
if (random(40)>35)
                create_food(YEL"咖喱饭"NOR, ({"rice"}) );
if (random(40)>35)
                create_food(RED"蚝油肉片"NOR, ({"fish meat","meat"}) );
if (random(40)>35)
                create_food(RED"羊肉串"NOR, ({ "mutton" }) );
if (random(40)>35)
                create_food(HIR"重庆火锅"NOR, ({ "chafing dish","dish" }) );
if (random(40)>35)
                create_food(HIY"北京烤鸭"NOR, ({ "duck" }) );
if (random(40)>35)
                create_food(YEL"粉蒸肉"NOR, ({ "meat" }) );
if (random(40)>35)
                create_food(HIW"四喜豆腐"NOR, ({ "bean curd" }) );
if (random(40)>35)
                create_food(YEL"叫花鸡"NOR, ({ "chicken" }) );
if (random(40)>35)
                create_food(HIW"四喜豆腐"NOR, ({ "bean curd" }) );
if (random(40)>35)
                create_food(HIG"碧螺春卷"NOR, ({ "spring","roll" }) );
if (random(40)>35)
                create_food(HIC"香片蒸鱼"NOR, ({"fish"}) );
if (random(40)>35)
                create_food(RED"羊肉串"NOR, ({ "mutton" }) );
if (random(40)>35)
                create_food(HIY"花枝饭卷"NOR, ({"rice"}) );
if (random(40)>35)
                create_food(HIR"鱼香肉丝"NOR, ({"fish meat","meat"}) );
if (random(40)>35)
                create_food(HIY"德州扒鸡"NOR, ({ "chicken" }) );
if (random(40)>35)
                create_food(RED"麻辣火锅"NOR, ({ "chrafing dish","dish" }) );
if (random(40)>35)
                create_food(HIY"北京烤鸭"NOR, ({ "duck" }) );
if (random(40)>35)
                create_food(HIW"白斩鸡"NOR, ({ "chicken" }) );
if (random(40)>35)
                create_food(YEL"粉蒸肉"NOR, ({ "meat" }) );
if (random(40)>35)
                create_food(HIR"重庆火锅"NOR, ({ "chafing dish","dish" }) );
if (random(40)>35)
                create_food(HIR"麻婆豆腐"NOR, ({ "bean curd" }) );
if (random(40)>35)
                create_food(RED"蚝油肉片"NOR, ({"fish meat","meat"}) );
if (random(40)>35)
                create_food(YEL"咖喱饭"NOR, ({"rice"}) );
if (random(40)>35)
                create_food(HIW"麻辣手撕鸡"NOR, ({"chicken"}) );
if (random(40)>35)
                create_food(HIR"干煸尤鱼"NOR, ({"fish"}) );
if (random(40)>35)
                create_food(HIY"东北水饺"NOR, ({ "dumpling" }) );              return 1;
              return 1;

           }
//	}
//say(query("name")+"我恁什么为你做饭，你又不是我主人！！");
//command("kick "+ me->query("id") );
return 1;
}

int do_att(string arg)
{
  object ob; 
  string host_id;
  object me=this_player();
if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

//  if(query("id")=="bao er")
//   {say("你无权使用此命令。\n");
//    return 0;}
// sscanf(query("id"),"%s's bao er",host_id);
  if(me->query("id")!=query("host_id"))
  return notify_fail(" "+query("name")+"连理都不理你！\n");
        if(me->is_busy())
        return notify_fail("你上一个动作还没有完成。\n");

  if(!arg||!objectp(ob=present(arg,environment(me))))
	return notify_fail(" "+query("name")+"傻傻地望着你，不明白你的意思。\n");
  if(!living(ob)) 
	 return notify_fail(" "+query("name")+"说:"
              +ob->query("name")+"已经这样啦你还要...？？！！\n");
// 不能杀自己
	if (userp(ob) && ob == me->query("possessed"))
		return notify_fail("你疯了，想自杀么？\n");
// 不能 pk exp < 自己的玩家 (by xbd)
	if (userp(ob) && ob->query("combat_exp") < me->query("combat_exp"))
		return notify_fail("你不能欺负比自己弱小的玩家！\n");
        if (userp(ob)
         && ob->query_temp("nokill") )
        return notify_fail("那人启用了免战牌！\n");

        if (userp(ob)
         && me->query_temp("nokill") )
        return notify_fail("你启用了免战牌！\n");

    if(userp(ob) && ob->query_condition("nokill")
    && !ob->query_condition("killer"))
        return notify_fail("那个人刚被杀过，放过他吧！\n");	
  message_vision(name()+"对$N点头道: 嗯，好的。\n",this_player());
command("hit "+ob->query("id"));
//  fight_ob(ob);
  return 1;
}

int do_ting()
{
   string host_id;
  object me=this_player();
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");

//  if(query("id")=="bao er")
//   return notify_fail("你无权使用此命令。\n");
//  sscanf(query("id"),"%s's bao er",host_id);
  if(me->query("id")!=query("host_id"))
   return notify_fail(" "+query("name")+"连理都不理你！\n");
 if(!is_fighting())
	 return notify_fail(" "+query("name")+"现在没和人打斗。\n");
 message_vision(" "+query("name")+"对主人$N微微一笑，跳出了战圈。\n",me);
command("halt");
return 1;
}

int do_send(string arg)
{
  object ob; string host_id,new_name,new_id;
  object me=this_player();
if (this_player()->query("id")!=query("host_id"))
return notify_fail("你无权使用这个命令！\n");
	if( !living(this_object()) )
		return notify_fail("嗯....你得先把" + this_object()->name() + "弄醒再说。\n");

//  if(query("id")=="bao er")
//   return notify_fail("你无权使用此命令。\n");
//  sscanf(query("id"),"%s's bao er",host_id);
  if(me->query("id")!=query("host_id"))
   return notify_fail(" "+query("name")+"连理都不理你！\n");
        if(me->is_busy())
        return notify_fail("你上一个动作还没有完成。\n");

  if(!arg||!objectp(ob=present(arg,environment(me))))
	return notify_fail("你要把 "+query("name")+"送给谁？\n");
  if(!living(ob)) 
	 return notify_fail("你只能把"+query("name")+"给活人!\n");
 message_vision(" "+query("name")+"眼泪汪汪地望着主人$N，说:\n主人待我好,是我命好;主人待我不好,是我命苦罢了.\n",me);
 set_leader(ob);
 new_name = ob->query("name")+"的丫环"+query("name")+" ";
	   set("long","这是"+new_name+"。\n"
		"他是一个清纯绝俗的少女,大约十八,九岁年纪;\n"
	            "他长得极美，尤其是那双眼睛，清纯得像一潭碧水。\n"+
	            "其容色晶莹如玉，映照于红红烛光之下，娇美不可方物。\n"+
		"一张雪白的脸庞,眉弯嘴小,却象是刚受人欺负,眼泪汪汪地看着你。\n");
 new_id=ob->query("id")+"'s bao er