zhaigou4.c

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

// /d/tiezhang/zhaigou4.c

#include <ansi.h>
inherit ROOM;

void create()
{

          set("short","寨沟");
          set("long", @LONG
这是山门二边的寨栏，前面有一条深沟，寨栏是有一排粗木桩用粗麻绳捆
起来的，由于很长时间没有江湖门派和官府对铁掌帮的清剿或寻仇，所以寨栏
的木头有些已经腐烂了，有些已经松动了。
LONG
);

            set("exits",([
  "west": __DIR__"zhaigou3",
            ]));

            set("outdoors","tiezhang");
     
            setup();
//            replace_program(ROOM);
}
void init()
{
        add_action("do_repair","repair");
        add_action("do_repair","bu");
}

int do_repair(string arg)
{    
        mapping fam;
        object me,ob,weapon;
        int costj, costq;
        me = this_player();
        if(me->query_temp("job_name")!="补寨栏") 
             return notify_fail("你必须跟帮主领了这工作才能在这里干! \n");
        if (me->is_busy())
             return notify_fail("你现在正忙着呢!\n");
        if (me->is_fighting())
             return notify_fail("你正在战斗中,无法专心干活!\n");
        weapon = me->query_temp("weapon");
        if( !weapon || weapon->query("id") != "tie chui")
             return notify_fail("你想用什么来补？\n");
        if ( !arg ||!(arg == "寨栏" || arg == "zhailan"))
           return notify_fail("你想要干什么？\n");
             
        costj = random((int)me->query("con")/2);
        costq = random((int)me->query("str")/2);

        if ((int)me->query("jing") < costj || (int)me->query("qi") < costq)
          {
          message_vision(HIR"$N由于太疲倦了，一个不留神铁锤砸在自己的脚趾上。\n"NOR,me);
          me->unconcious();
          return 1;
          }        
          me->receive_damage("jing", costj);
          me->add("qi", -costq);       
        if (((int)me->query_temp("mark/补寨栏") > 8 + random(13)))
          {
          me->set_temp("mark/补完",1);
          write(HIG"你发现基本上已经把寨栏修补得差不多了，应该回去覆命了!!\n"NOR);
          return 1;
          }  
          write ("你挥起手中铁锤，修补起寨栏来。\n");
          me->start_busy(1);
          me->add_temp("mark/补寨栏",1);
          return 1;
}