// tanan.c// By Riverinherit ROOM;#include <ansi.h>void create(){         set("short", HIY"水潭岸邊"NOR);         set("long", @LONG你站在一片山谷中的一處水潭(tan）岸邊。游目四顧，只見繁花青草，便如一個極大的花園。然而花影不動，幽谷無人，四下里十分安靜。草地上一條蜿蜒的小路鋪滿了鵝卵石(shi)，前方不遠處一所茅屋。LONG        );         set("item_desc", ([            "tan":HIC"你舉目向潭中望去，但見水潭里面水草晃動，幾條不知名的白魚游來游去。\n"NOR,            "shi":"一塊塊大大小小的鵝卵石，你忍不住想撿(jian)起來看看。\n",         ]));         set("outdoors", "絕情谷");         set("exits", ([               "north" : __DIR__"xiaolu",         ]));            setup();}void init(){      add_action("do_tiao", "tiao");      add_action("do_jian", "jian");      add_action("do_xiao", "xiao");}int do_tiao(string arg){        object me;        me=this_player();        if (me->is_busy() || me->is_fighting())                return notify_fail("你正忙著哪！\n");        if ( !arg || arg != "tan")                return notify_fail("你要往哪跳？\n");        message_vision(HIY"$N撲通一聲，涌身跳入了水潭。\n"NOR, me);        me->set("water", me->max_water_capacity()+ 100);        me->move(__DIR__"tanmian");        tell_room(environment(me), me->name() + "從岸邊跳了下來。\n", ({ me }));        return 1;}int do_jian(string arg){        object me,ob;        me=this_player();        if (me->is_busy() || me->is_fighting())                return notify_fail("你正忙著哪！\n");        if ( !arg || arg != "shi")                return notify_fail("你要撿起什么？\n");        if ((int)me->query_encumbrance() * 100 / (int)me->query_max_encumbrance() >= 100)                 return notify_fail("你的負荷過重了！\n");        switch  (random(3)){        case 0: ob = new(__DIR__"obj/shi1"); break;        case 1: ob = new(__DIR__"obj/shi2"); break;        case 2: ob = new(__DIR__"obj/shi3"); break;        }        ob->move(me);        message_vision("$N彎下腰，從地上撿起了一塊"+ob->name()+"。\n",me);        return 1;}int get_object(object ob){       return userp(ob);}int do_xiao(string arg,object *obj){        object me=this_player();        mapping fam;        object *inv = deep_inventory(me);                fam = me->query("family");        if (arg) return 0;        if( ! fam || fam["family_name"] != "古墓派") return 0;        if (me->is_busy() || me->is_fighting())                return notify_fail("你正忙著哪！\n");        obj = filter_array(inv,(:get_object:));        if(sizeof(obj)){          tell_object(me,HIR"你剛想偷偷背個人騎上白雕，結果負重太多，腳下一個絆拴，摔倒在地。\n"NOR);          me->unconcious();          return 1;        }        message_vision(HIW"\n$N當下作哨招雕，只見白雕雙翅一振，高飛入云，盤旋數圈，猛地里從空中疾沖而下。\n"+                          "$N騎上白雕后，那白雕厲聲長鳴，穿破云霧，沖上山崖。\n\n"NOR,me);        me->move(__DIR__"duanchang");        tell_room(environment(me), me->name() + "從白雕身上跳了下來，白雕雙翅一振，高飛入云。\n", ({ me }));        return 1;}