// by mayue#include <ansi.h>inherit ROOM;void create(){	set("short", "密室");	set("long", @LONG這里是一座不大的石室，房間落滿灰塵，好象有多年沒人打掃似的。室內只有一床一案，一縷陽光從洞頂的巖縫中射入，室內光線明亮。墻邊有一個青石床(bed)，與旁邊石壁的色澤有很大不同。透過斜射的陽光，你看到石床對面墻壁上似乎刻著一些文字和圖形。一個寬大的石案上擺著一個石匣(xia)。LONG	);//      set("outdoors", "wudujiao");        set("sleep_room", 1);set("tanshe",1);//        set("no_fight", 1);	set("exits", ([		"eastup" : __DIR__"shixi",//            "down" : __DIR__"wandu3",//		"westdown" : __DIR__"wdsl3",//		"north" : __DIR__"wandu2",	]));//        set("objects", ([//                __DIR__"npc/wanduking": 1,//	]));       set("item_desc",([         "wall":"\n       只見石壁上刻著“千蛛萬毒”四個龍飛鳳舞的大字。\n       下面有三個盤膝而坐的人像，刻得栩栩如生，每個人姿勢都不相同。\n       旁邊還有許多小字,你不妨照著練習(lianxi)一下。\n ",         "墻壁":"\n       只見石壁上刻著“千蛛萬毒”四個龍飛鳳舞的大字。\n       下面有三個盤膝而坐的人像，刻得栩栩如生，每個人姿勢都不相同。\n       旁邊還有許多小字，你不妨照著練習(lianxi)一下。\n ",         "bed":"\n一個普普通通的石床。\n ",         "xia":"\n一只石匣，好象是和石案連在一起的，不知道敢不敢打開看看。\n ",]));       set("mishi_weapon",1);       set("mishi_book",1);	setup();//	replace_program(ROOM);}void init(){  add_action("do_lianxi", "lianxi");  add_action("do_jump", "jump");  add_action("do_open", "open");}int do_lianxi(string arg){  object me=this_player();  int forceskill=(int)me->query_skill("force", 1);  int wuduskill=(int)me->query_skill("wudu-shengong", 1);        int exp=(int)me->query("combat_exp");  if( me->query("jing") < (int)(me->query("max_jing")/5))    return notify_fail("你已經沒有精力練習了！\n");  if (!((string)me->query("family/family_name")=="五毒教")     || !(int)me->query_temp("wudu_onbed"))    {      message_vision("$N盤膝而坐，照著壁上的圖形練了幾次，只覺得一陣口干舌燥。\n", me);    }  else    {      message_vision("$N照著壁上圖形的姿勢盤膝坐下，很快就靜下心來。\n", me);      if (exp*10 <= (wuduskill*wuduskill*wuduskill))	{	  me->receive_damage("qi", 30);	  return notify_fail("但是你的經驗不夠，始終不能從圖中領悟到什么。\n");	}      if (wuduskill >150 && forceskill>150 )	{	  me->improve_skill("wudu-shengong", 2*(int)(me->query("int")                          +me->query_skill("literate")));	  tell_object(me, "你似乎從中領悟出一些五毒神功方面的竅門。\n");	}      else	{	  tell_object(me, "你的功夫太低了，還不能領會圖形所載的練功法門。\n");	}    }  me->receive_damage("jing", 20);  return 1;}int do_jump(string arg){object ob;  object me=this_player();  if( !arg ||! (arg =="bed" || arg =="up" || arg =="down"))       return 0;  if( arg =="up"||arg=="bed"){       if ((int)me->query_temp("wudu_onbed") )              return notify_fail("你已經在床上了，再跳就碰到洞頂了。\n");       me->set_temp("wudu_onbed",1);       message_vision("$P輕輕一縱跳上了石床，坐了下來。\n", me);	tell_object(me, "你只覺得一絲絲涼氣從身下傳來，頓絕精神一振。\n");if (query("tanshe") >0 && random(10) > 6){ob=new(__DIR__"npc/wanduking.c");ob->move(environment(me));message_vision(HIR "只聽一聲怪叫，從角落里鉆出一條騰蛇王。\n\n\n"NOR, me);ob->kill_ob(me);add("tanshe",-1);   }   }        if( arg =="down"){       if (!(int)me->query_temp("wudu_onbed") )              return notify_fail("你已經在地下了，亂蹦亂跳成何體統？\n");       me->delete_temp("wudu_onbed");       message_vision("$P從石床上跳了下來。\n", me);   }        return 1;}int valid_leave (object me, string dir){  if (me->query_temp("wudu_onbed"))      	 return notify_fail("先下床再走，連走路也不會嗎？\n");  return 1;}int do_open(string arg){  object me,ob;  me=this_player();  if( !arg || arg !="xia")       return 0;  if( query("mishi_book") < 1)              return notify_fail("你打開石匣。但見里面空空如也。\n");  add("mishi_book", -1);  message_vision("$P打開石匣，從里面取出一束絹冊。\n", me);  ob = new(__DIR__"obj/dujing2");  ob->move(me);  return 1;}