inherit ROOM;void create(){        set("short", "東偏廳");        set("long", @LONG此廳無(wú)窗，盡以?xún)罕奂t燭照耀。廳中一張小木臺(tái)，臺(tái)上一壺酒，酒尚有余溫。右角一小方地毯，毯色鮮紅。左邊是支木架，架上有陳年老酒。還有一張小床，似乎有人長(zhǎng)年住在這里的樣子。LONG        );        set("exits", ([ /* sizeof() == 4 */  "west" : __DIR__"tading",]));        set("item_desc", ([                "carpet": "這塊小方地毯似乎可以拉開(kāi)(pull)。\n",                "ditan": "這塊小方地毯似乎可以拉開(kāi)(pull)。\n",                "地毯": "這塊小方地毯似乎可以拉開(kāi)(pull)。\n",        ]) );	set("NONPC",1);       set("objects", ([        __DIR__"npc/guard" : 1,                        ]) );        set("coor/x",-140);	set("coor/y",-10);	set("coor/z",0);	setup();}void init(){	add_action("do_pull", "pull");}int do_pull(string arg){object ob;object sect;if ( !arg && arg != "carpet" && arg != "ditan" && arg != "地毯")                return 0;        if( ob = present("guard", this_object()))        {        message_vision("$N對(duì)$n說(shuō)：來(lái)，別瞎忙，喝！\n", ob, this_player());        return 1;        }        if( !query("exits/down") ) {        message_vision("$N把地毯拉開(kāi)發(fā)現(xiàn)了一條密道．\n", this_player());        if(!this_player()->query("m_success/底艙"))        {                this_player()->set("m_success/底艙",1);                this_player()->add("score",550);                this_player()->add("shen",550);        }        set("exits/down", __DIR__"secret_room");	sect = find_object(__DIR__"secret_room");	if( ! sect)        sect = load_object(__DIR__"secret_room");	if( sect )        sect->set("exits/up", __FILE__);	call_out("close_path",15);        }        else        {       message_vision("$N把地毯拉過(guò)來(lái)掩蓋住密道．\n", this_player());        delete("exits/down");        sect = find_object(__DIR__"secret_room");        if( ! sect)        sect = load_object(__DIR__"secret_room");	if (sect)        sect->delete("exits/up");        }        return 1;}void close_path(){	object sect;        if( !query("exits/down") ) return;                delete("exits/down");        sect = find_object(__DIR__"secret_room");        if( ! sect)        sect = load_object(__DIR__"secret_room");        if (sect)        sect->delete("exits/up");}