#include <ansi.h>#include <room.h>inherit ROOM;void create(){        set("short", "山路");        set("long", @LONG你信步而行，舉步踏到的盡是矮樹(shù)長(zhǎng)草，這里沒(méi)有路,每走一步，荊棘都鉤刺到小腿,劃破你的身體。LONG        );        set("outdoors", "dali");        set("exits", ([           "south" : __DIR__"shanlu11",           "north" : __DIR__"shanlu11",           "west" : __DIR__"shanlu11",           "east" : __DIR__"shanlu11",        ]));        setup();}void init(){      object me = this_player();     if (random(me->query("kar")) <10 && me->query_con() < 30)            {     me->set_temp("last_damage_from", "在森林里筋疲力盡累");             me->add("qi", -30);             me->add("jing", -10);             me->receive_wound("jing", 20);             }else{             me->add("qi", -20);             }     add_action("do_look", "look");               }int do_look(){        object me = this_player();        mixed *local;        local = localtime(time() * 60);        if((local[2] < 3 || local[2] >= 21)&&random(6)<2) {        message("vision",BLU"天黑了,這里黑黝黝一片，伸手不見(jiàn)五指,你四處亂走著,心里充滿恐懼.\n"                           "突然傳來(lái)幾聲野獸的嚎叫,你嚇的哭了起來(lái).\n"NOR, me);        }}int valid_leave(object me, string dir){        mixed *local;        local = localtime(time() * 60);        if (dir == "west")          me->add_temp("mark/steps",1);        if (dir == "south")          me->add_temp("mark/step",-1);       if (dir == "east")          me->add_temp("mark/steps",-1);         if (dir == "north")          me->add_temp("mark/step",1);/**for 營(yíng)救段譽(yù) ***/         if (me->query_temp("duanyu/steps")            && me->query_temp("duanyu/step")             && random(me->query("kar")) > 20           && me->query_temp("duanyu/find2")            ){	call_out("kicking1", 0, me);//            me->move(__DIR__"gaoshan");            me->set("dali/pass", 1);            me->delete_temp("mark/steps");            me->delete_temp("mark/step");              return notify_fail("你走到了一個(gè)高山上。\n");         }// Modify By River 關(guān)于不能太簡(jiǎn)單獲得 lbwb ，只給四次機(jī)會(huì)          if (me->query_temp("mark/steps") < -8 || me->query_temp("mark/step") < -8 ){           if(me->query_temp("duanyu/find2")){             if(!me->query("dali/fail"))               me->set("dali/fail", 1);             else {               me->add("dali/fail", 1);               if( me->query("dali/fail") > 8)                me->set("dali/fail", 8);             }           }	call_out("kicking", 0, me);//           me->move(__DIR__"xiaoxi");           me->delete_temp("mark/steps");           me->delete_temp("mark/step");           if(me->query_temp("duanyu/find2") && me->query("dali/fail") > 3){//           me->delete_temp("duanyu/find2");              return notify_fail(HIW"\n你筋疲力盡地走出這段山路，沮喪地發(fā)現(xiàn)自己怎么也找不到四大惡人的行蹤。\n"NOR);           }           else               return notify_fail("你筋疲力盡，終于走出了這段山路。\n");        }                   return ::valid_leave(me, dir);}void kicking(object me){           me->move(__DIR__"xiaoxi");}void kicking1(object me){            me->move(__DIR__"gaoshan");}