// Room: /d/mingjiao/shandong.c
// Date: Java 97/04/9
#include <ansi.h>;
inherit ROOM;
void create()
{
	set("short", "明教密洞");
	set("long", @LONG
這里是一個小小土洞，周圍黑乎乎的很難看清楚。隱隱約約，可
以看到一扇大石門(men)。
LONG );
	set("exits", ([
		"out"  : __DIR__"huangtulu2",
	]));
	set("item_desc", ([
		"men"  : "一扇大石門，看來總有兩萬斤重吧。\n",
	]));
	set("no_clean_up", 0);
	set("outdoors", "mingjiao");
	setup();
}

void init()
{
        add_action("do_break","break");
}
int do_break(string arg)
{
        object *ob, me = this_player();
        int i;

        if (arg != "men") return notify_fail("你在干嗎? \n");
        if ( objectp(present("xiao zhao", environment(me))))
        {
            if ((me->query_skill("jiuyang-shengong",1)<50) || me->query("neili") < 500)
            {
                    message_vision(CYN"小昭沖著$N淡淡笑道：你的九陽神功還早著呢。\n"NOR,me);
                    return 1;
            }
            message_vision(CYN"小昭一聲驚呼，石門在$N一擊之下軋軋聲響，緩緩移開。\n"NOR,me);

            ob = all_inventory(environment(me));
            for(i=0; i<sizeof(ob); i++)
            {
                if( !living(ob[i]) || ob[i]==me || ob[i]->query("id")=="xiao zhao") continue;
                message_vision(CYN"巨大的氣浪把$N震出了密洞。\n"NOR,ob[i]);
                ob[i]->move(__DIR__"huangtulu2");
            }
            set("exits/enter",__DIR__"midao0");
            me->add("neili", -400);
            remove_call_out("close");
            call_out("close", 5, this_object());
        }
        else
        {
            message_vision(CYN"石門在$N一擊之下，落下一些粉塵。\n"NOR,me);
            me->add("neili", -100);
        }
        return 1;
}

void close(object room)
{
        message("vision","石門又在軋軋聲響，緩緩閉上。\n"NOR,room);
        room->delete("exits/enter");
}