// mg-door.c 迷宮大門#include <ansi.h>inherit ROOM;string look_gate();void create(){	set("short", CYN "高昌迷宮" NOR);	set("long", @LONG轉過了一排樹木，只見對面一座石山上嵌著兩扇鐵鑄的大門(gate)，看來這里就是傳說中的是「高昌迷宮」了。LONG);	  set("no_sleep_room", 1);	  set("exits", ([	        "eastdown" : __DIR__"shulin1",	  ]));	  set("item_desc",([                           "gate" : "門上鐵銹斑駁，顯是歷時已久的舊物。你拉住門環(huan)，試著轉動(turn)它。\n", 	  ]));          set("outdoors", "西域回疆");	  setup();}void init(){	 add_action("do_turn", "turn");}int do_turn(string arg){          object room, me;        me = this_player();                if (query("exits/enter"))		  return notify_fail("鐵已經是打開了。\n");        if (!arg || arg == "")  return 0;        if (arg == "huan"){          if (!me->query_temp("turned")){             message_vision("$N使勁轉動著鐵環，發出吱吱的響聲，鐵門卻始終打不開。\n", me);             me->set_temp("turned", 1);             return 1;             }           message_vision("$N再向左轉動鐵環，突然鐵門轟的一聲打開了。\n$N一沒留神，差點摔進去。\n", me);           set("exits/enter", __DIR__"mg1");           me->delete_temp("turned");         if(room = load_object(__DIR__"mg1") ) {             room->set("exits/out", __FILE__);             message("vision", "里面傳來一陣吱吱的響聲，鐵門被人推開了。\n",room );             }            remove_call_out("close_door");           call_out("close_door", 8);           return 1;           }}void close_door(){        object room;        if( !query("exits/enter") ) return;        message("vision","轟的一聲，鐵門又自己合上了。\n", this_object() );        if( room = load_object(__DIR__"mg1") ) {                room->delete("exits/out");                message("vision", "鐵門又自己合上了。\n", room );                  }        delete("exits/out");}int valid_leave(object me){               me->delete_temp("turned");              return ::valid_leave(me);}