// This is a room made by wsl.inherit ROOM;void create(){    set("short", "大殿");    set("long",@LONG沿著"水銀"河，走到了大殿的盡頭，這里更是金碧輝煌，迎面是一個龍頭寶座，用純金鑄造而成，寶座上囊嵌無數的寶石，上方有個碩大的龍頭，也是由金玉所成，巍是壯觀。東面有扇巨大的石門，但卻是關著的。LONG);        set("exits", ([                "south" :__DIR__"dadian2",]));    set("qiao",1);    setup();}void init(){        add_action("do_look","look");        add_action("do_climb","climb");        add_action("do_qiao","qiao");        add_action("do_jump","jump");}int do_look(string arg){        object me=this_player();        if (!arg)       return 0;//        if (!me->query_temp("killer")) return 0;//        if (!me->query_temp("climb")) return 0;        switch (arg){                case "龍頭":    if (query("qiao"))                                write("細看這個龍頭，兩眼炯炯有神，似乎有些異處。\n");                                else                                write("細看這個龍頭，才發現龍頭少了兩個龍珠子。\n");                        return 1;                case "石門":    write("石門上有兩個門環，卻看不到一絲縫隙，門環上有\n兩個洞，不知道是做什么用的。\n");                        me->set_temp("look",1);                 return 1;        }        return 0;}int do_climb(string arg){        object me=this_player();        object weapon;        if(!arg)        return 0;        if(!me->query_temp("look")) return 0;        if(arg != "龍角")       return notify_fail("你要往那爬呀？\n");        if(me->query_temp("chan")) return notify_fail("你已經在龍頭上了。\n");        if (!objectp(weapon = me->query_temp("weapon"))) return notify_fail("這里光溜溜的，你怎么爬呀。\n");        if (weapon->query("skill_type")!="whip")        return notify_fail("你還是找條繩子什么的，也許會爬得上去哦。\n");        message_vision("$N使出"+weapon->query("name")+"，往上一拋，纏在龍角上。\n然后$N施展輕功，爬到了龍頭上。\n",me);        me->set_temp("chan",1);                return 1;}int do_qiao(string arg){        object me=this_player();        object weapon,ob;        if(!arg)        return 0;        if(!me->query_temp("chan")) return notify_fail("你夠不著。\n");        if(!query("qiao")) return notify_fail("你還要橇什么？\n");        if(arg != "龍眼")       return notify_fail("你想撬什么嘛？\n");        if (!objectp(weapon = me->query_temp("weapon"))) return notify_fail("用手啊，也許找些什么工具來會好點哦。\n");        if (weapon->query("skill_type")!="throwing")      return notify_fail("你舉起手中"+weapon->query("name")+"揮舞了幾下，才發現這樣東西不好使也。\n");        message_vision("$N掏出一把"+weapon->query("name")+",使勁地撬了起來。\n$N連吃奶的力氣都用上了，終于撬起了兩個碩大的龍眼。\n",me);        message_vision("龍眼好像可以放(pushin)到什么地方去。\n",me);        ob=new(__DIR__"obj/longzhu.c");        if (!ob->move(me))                ob->move(this_object());        ob=new(__DIR__"obj/longzhu.c");        if (!ob->move(me))                ob->move(this_object());        set("qiao",0);        return 1;}int do_jump(string arg){        object me=this_player();        if(!arg)        return 0;        if(!me->query_temp("chan")) return 0;        message_vision("$N一個縱身，跳了下了來。\n",me);        me->delete_temp("chan");        return 1;}void open_door(object ob,int i){    object room;    if (!ob || environment(ob)!=this_object())  return;    if (i<10)    {    tell_room(this_object(),"石門激烈地震動了一下，“咯...咯...咯...”\n");    call_out("open_door",10,ob,i+1);    return;    }    tell_room(this_object(),"門上的石環轉動了一圈，只見石門猛地向兩邊分開。");    if (!room=find_object(__DIR__"shidao2"))        room=load_object(__DIR__"shidao2");    message_vision("$N站立不穩，被一股強大的吸力拉了進去。\n",ob);    ob->move(room);    ob->unconcious();}