// mg-room2.c 迷宮房舍#include <ansi.h>#include <command.h>#include <room.h>inherit ROOM;void create(){        set("short", CYN "迷宮房舍" NOR);        set("long", "這一座殿堂中供的都是漢人塑像，中間一個老人，匾上寫的是"HIY"「大成至圣先師孔子位」"NOR"，左右各有數(shù)十人，寫著「顏回」、「子路」、「子貢」、「子夏」、「子張」等名字。你悄聲悄氣地走了進來。\n");        set("no_sleep_room", 1);        set("exits", ([              "south" : __DIR__"mg-room1",                             ]));        setup();         set("tie_count", 1);}void init(){       this_player()->set_temp("ketou_times", 50);       add_action("do_ketou", "ketou");}int do_ketou(){       int i;       object me, ob, *inv;       me = this_player();                      if(me->query_temp("ketou_times") == 0 ){                 me->set_temp("ketou_times", 50);         message_vision("突然一團白色物事從黑暗中迅速異常的沖來，沖到離$N約莫一丈之處，猛地直立不動，看上去依稀是個人形，火光映照下，只見這鬼怪身披白色罩袍，滿臉都是鮮血，白袍上也是血跡淋漓，身形高大之極，至少比常人高了五尺。靜夜看來，恐怖無比。那鬼怪陡然間雙手前伸，十根指甲比手指還長，滿手也都是鮮血。\n", me);         message_vision(HIB"那鬼怪桀桀怪笑，尖聲道：「我在迷宮里已住了一千年，不許誰來打擾，誰叫你們這樣大膽？」那鬼怪慢慢轉(zhuǎn)身，雙手對著$N，叫道：「給我死！」\n"NOR, me);         me->start_busy(2);         if(random(10)>5){            tell_object(me, HIR "你感覺四肢一麻，不好！\n" NOR );            tell_room(environment(me), HIR +"只見"+me->name()+"雙膝跪倒，然后口吐白漠，翻身不動了！\n" NOR, ({ me }));                inv = all_inventory(me);            for (i = 0; i < sizeof(inv); i++){               if(inv[i]->query("armor_type")=="married") continue;               destruct(inv[i]);               }            me->unconcious();            message_vision("接著這鬼怪回過身來，抓起$N疾馳而去，片刻間走得無影無蹤！\n", me);                        me->move(__DIR__"shulin1");            return 1;            }         tell_object(me, HIR "你心念一動，馬上向后躍出丈遠！\n" NOR );         message_vision("接著這鬼怪回過身來，疾馳而去，片刻間走得無影無蹤！\n", me);                   }       me->add_temp("ketou_times", -1);               message_vision("$N跪下來，在孔子像前磕了一個頭。\n", me);       if ( random(100) == 30        && !present("kuaixueshiqing tie", me)       && query("tie_count") >= 1){          add("tie_count", -1);          ob=new(__DIR__"obj/tie")->move(environment(me));          message_vision("突然啪地一聲掉下一束紙卷，落在$N的面前！\n", me);       }              return 1;}int valid_leave(object me, string dir){       me->delete_temp("ketou_times");       return ::valid_leave();} int count = 1;void reset(){    if (--count == 0) {count = 40; set("tie_count", 1); ::reset();}}