// Room: /d/shaolin/shulin11.c
// Date: YZC 96/01/19

#include <ansi.h>

inherit ROOM;

void create()
{
	set("short", "松樹(shù)林");
	set("long", @LONG
你眼前驟然一黑，朦朧中，只見(jiàn)左右前后，到處都是鋪天蓋
地的松樹(shù)林。幾十丈高的大松樹(shù)簇在一塊，密實(shí)的枝葉象一蓬蓬
巨傘般伸向天空，把陽(yáng)光遮得絲毫也無(wú)。尺把厚的松針?lè)e在地上，
一腳踩下去，半天拔不出來(lái)。你似乎迷失了方向，象沒(méi)頭蒼蠅般
到處亂闖。
LONG );
	set("exits", ([
		"east" : __DIR__"shulin"+(random(8)+6),
		"south" : __DIR__"shulin"+(random(8)+6),
		"west" : __DIR__"shulin"+(random(8)+6),
		"north" : __DIR__"shulin"+(random(8)+6),
	]));
        set("no_acc_drop",1);
	set("no_clean_up", 0);
	set("outdoors", "shaolin");
	setup();
}

void init()
{
	object ob, room;
	mapping fam;

	int i = random(2);
	if( i == 0) return;

	ob = this_player();
	room = this_object();

	if (ob->query("id") == "seng bing" || !living(ob)) return;

	room->delete("exits");

	if ( (fam = ob->query("family"))
	&& fam["family_name"] == "少林派" 
	&& ob->query("guilty") != 1 )  
	ob->set("guilty",3);

	ob->set("startroom", "/d/shaolin/jlyuan");

	message_vision(HIR "\n$N一不小心，走進(jìn)了僧兵們?cè)O(shè)下的陷阱！
$N只覺(jué)得腳下一陣巨痛，原來(lái)是踩上了埋在地下的竹簽。\n\n" NOR, ob);

	message_vision(HIR "\n$N痛得幾乎失去了知覺(jué)......\n\n" NOR, ob);

	call_out("trapping", 1, ob, room);

}

void trapping(object ob, object room)
{
        if (!ob) return;
	if ( !living(ob) ) return;

	message_vision(HIY "\n僧兵們把$N從陷井里起了出來(lái)，送進(jìn)了戒律院！\n\n\n" NOR, ob);
     	ob->move(__DIR__"jlyuan"); 

	room->set("exits/south", __DIR__"shulin"+(random(8)+6));
	room->set("exits/north", __DIR__"shulin"+(random(8)+6));
	room->set("exits/east", __DIR__"shulin"+(random(8)+6));
	room->set("exits/west", __DIR__"shulin"+(random(8)+6));
}