// shibi.c 石壁// By River 99.5.25inherit ROOM;#include <room.h>#include <ansi.h>void create(){       set("short","石壁");       set("long",@LONG你約莫爬了六七十丈，仗著輕功卓絕，一路化險為夷，但爬到離洞穴七八丈時，石壁不但光滑異常，再無可容手足之處，而且向內傾斜，除非是壁虎、蒼蠅，方能附壁不落。LONG);       set("no_sleep_room", 1);       set("no_fight", 1);       setup();}void init(){       add_action("do_shuai","shuai");       add_action("do_pa",({"pa", "climb"}));}int do_shuai(string arg){       object ob1,me;       me=this_player();       if ( !arg || arg !="shugan") return 0;       if ( me->is_busy() || me->is_fighting())            return notify_fail("你正忙著呢\n");       if (me->query_temp("jqg/shuai"))            return notify_fail("你已經把樹干摔出洞穴了。\n");       if (!ob1=(present("zao shugan",me)))            return notify_fail("你用什么東西摔啊？\n");       if (!me->query_temp("jqg/fu") || !ob1->query("jqg/fu"))            return notify_fail("你就這樣把樹干摔上去有何用？\n");       me->start_busy(2);       destruct(ob1);       me->set_temp("jqg/shuai", 1);       message_vision("$N雙足使出千斤墜功夫，牢牢踏在石壁之上，雙臂運勁，將樹干摔出洞穴。\n",me);       tell_object(me,"這一下勁力使得恰到好處，樹干落下時正好橫架在洞穴口上。\n");       return 1;}int do_pa(string arg){       object me,*ob;       int i;       me=this_player();       if ( !arg || (arg != "down" && arg != "up")) return 0;       if ( me->is_busy() || me->is_fighting())             return notify_fail("你正忙著呢\n");       if ( arg =="up"){       if (!me->query_temp("jqg/shuai"))             return notify_fail("石壁光滑異常，無可容手足之處，除非是壁虎、蒼蠅，方能附壁不落。\n");       ob = deep_inventory(me);       i = sizeof(ob);       while (i--)       if (ob[i]->is_character())             return notify_fail("你身上背負一個人，無法輕松爬上去。\n");       message_vision("$N雙手抓著繩索，交互上升，上升得更快了，不一會兒已然爬出洞穴。\n",me);       me->delete_temp("jqg");       me->move(__DIR__"shanlu6");       tell_room(environment(me), me->name() + "從下面的"HIW"石窟"NOR"攀爬上來。\n",me);       return 1;       }       if ( arg == "down"){       if (me->query_temp("jqg/shuai"))             return notify_fail("你已經把樹干都摔出去了，還不快點爬上去？\n");       ob = deep_inventory(me);       i = sizeof(ob);       while (i--)       if (ob[i]->is_character())             return notify_fail("你身上背負一個人，無法輕松爬下去。\n");       message_vision("$N察看周遭形勢，頭頂洞穴徑長丈許，足可出入而有余，又爬回石窟之底。\n",me);       me->move(__DIR__"shiyao");       tell_room(environment(me), me->name() + "從上面的石壁攀爬下來。\n",me);       return 1;       }}