// /u/beyond/mr/hc.c // this is made by beyond// update 1997.6.20#include <ansi.h>#include <room.h>inherit ROOM;void create(){         set("short",HIW"花叢中"NOR);         set("long",@long你信步觀賞, 只見花林中除山茶花外更無別樣花卉, 連最常見的牽牛花,月月紅, 薔薇之類也是一朵都無。走出數(shù)十丈后, 只見山茶品種漸多, 偶而也有一兩本還算不錯, 卻也栽種不得其法。東面就是莊門了。long);         set("outdoors","mr");         set("exits",([             "north" : __DIR__"anbian",             "east" : __DIR__"zhuangmen",             "west" : __DIR__"hc3",]));         setup();//         replace_program(ROOM);}void init(){        add_action("do_dig","jiaoshui");}int do_dig(string arg){            mapping fam;        object me,ob,weapon;        int costj, costq;        me = this_player();        if(me->query_temp("mr_job")!="澆花")              return notify_fail("這事與你和干? \n");        if (me->is_busy())             return notify_fail("你現(xiàn)在正忙著呢!\n");        if (me->is_fighting())             return notify_fail("你正在戰(zhàn)斗中,無法專心干活!\n");        weapon = me->query_temp("weapon");        if( !weapon || weapon->query("id") != "shui hu")             return notify_fail("你想用什么來澆花啊？\n");        if ( !arg || !(arg == "花" || arg == "hua"))           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一個不小心昏了過去。\n"NOR,me);          me->unconcious();          return 1;          }                  me->receive_damage("jing", costj);          me->add("qi", -costq);               if (((int)me->query_temp("mark/澆花") > 10 + 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;}