// room: dong-1.c// zqbinherit ROOM;void create(){        set("short", "山洞");        set("long", @LONG    一個黑漆漆的山洞，黑沉沉的一眼望不到底。兩側的石壁上生滿的苔蘚，摸起來又濕又滑。這石洞似乎是人工開鑿的，從四周的石壁上仍能看出斧鑿的痕跡。你站在這里，一股恐懼由然而生，似乎身體隨時都會被這片黑暗吞噬掉。LONG        );        set("exits", ([            "out" : __DIR__"dezj",            "enter" : __DIR__"dong-2",]));        set("objects", ([                       ]));        set("no_clean_up", 0);        setup();        //replace_program(ROOM);}void init(){        add_action("do_use", "use");//        add_action("do_zuan", "zuan");}int do_use(string arg){        object me;        me = this_player();        if( !arg || arg=="" ) return 0;        if (!present("fire", me))  return 0;        if( arg=="fire" ) {             write(             "你點燃了火折，發現西面石壁上有一道裂縫，似乎可以鉆(zuan)出去。\n"             );             this_player()->set_temp("marks/鉆", 1);             return 1;       }}int do_zuan(string arg){        object me;        me = this_player();        if (me->query_temp("marks/鉆") ) {            message("vision", me->name() + "滋溜一下不知從什么地方鉆出去了。\n",                    environment(me), ({me}) );            me->move(__DIR__"cave2");            message("vision", me->name() + "從石縫里鉆了出來。\n",                    environment(me), ({me}) );            this_player()->set_temp("marks/鉆", 0);            return 1;        }        else {            write("你想往哪兒鉆?!\n");            return 1;        }}