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

#include <ansi.h>

inherit ROOM;

void create()
{
	set("short", "松樹林");
	set("long", @LONG
你眼前驟然一黑，朦朧中，只見左右前后，到處都是鋪天蓋
地的松樹林。幾十丈高的大松樹簇在一塊，密實的枝葉象一蓬蓬
巨傘般伸向天空，把陽光遮得絲毫也無。尺把厚的松針積在地上，
一腳踩下去，半天拔不出來。你似乎迷失了方向，象沒頭蒼蠅般
到處亂闖。
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_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一不小心，走進了僧兵們設下的陷阱！
$N只覺得腳下一陣巨痛，原來是踩上了埋在地下的竹簽。\n\n" NOR, ob);

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

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

}

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

	message_vision(HIY "\n僧兵們把$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));
}