// 侠客台
// for Xiake dao
// modified by aiai  98/10/27

#include <ansi.h>

inherit ROOM;

string look_shibi();
void create()
{
    set("short",HIC"俠客岛石室"NOR);
    set("long", HIY @LONG

    这是一间石室，东面是块打磨光滑的大"石壁"，石壁旁点
燃着八根大火把，照耀明亮。壁上刻得有图有字。石室中已有
十多人，有的注目凝思，有的打坐练功，有的闭着双目喃喃自
语，更有三四人在大声争辩。

　　┌─────────────────────┐
　　│						│	
　  │　					│
　　│	      银鞍照白马，疯沓如流星。		│
　　│						│
　　│						│	
    └─────────────────────┚


LONG NOR
    );

    set("exits", ([
	"south"  : __DIR__"shishi1",
	"west"   : __DIR__"shishi3",
    ]));

    set("objects",([
        
    ]));

    set("item_desc", ([ /* sizeof() == 2 */

	"石壁" :	(: look_shibi : ),

]));
    setup();
}

string look_shibi()
{
    object me;
    me = this_player();
    me->set_temp("石壁2/看",1);
    return HIB"壁上绘的是个青年书生，左手执扇，右手飞掌，神态甚是优雅潇洒。\n"NOR;
}

void init()
{
        add_action("do_watch","watch");
}

int do_watch(string arg)
{

   object me;

   me = this_player();

   if ( (!arg) || ( arg != "石壁" ) || ( ! me->query_temp("石壁2/看") ))
	return 0;

   message_vision("$N正专心观看石壁。\n", me);

   if ( me->query_int() < 35 )
   {
	write("你面对于这‘侠客行’的古诗图解，竭尽心智，试图理解其中包蕴的古往今来最最博大精深的武学秘奥，怎奈终究不能参悟其中十之一二 \n");
	return 1;
   }
   if ( me->query_skill("dodge",1) <150 )
   {
	write("你的基本技能太低，无法理解图中的深意。\n");
	return 1;

   }
   if( (int)me->query("max_jingli")<500)
   {
        write("你精力不够，无法领悟石壁。\n");
        return 1;
   }
   if(  ((int)me->query("jing")<150) || ((int)me->query("qi")<150 ) )
   {
        write("你已经累了，还是休息一会吧。\n");
        return 1;
   }
 
   message_vision("$N对着石壁研究了一会,似乎有些心得。\n", me);
   me->add("jing",-50);
   me->add("qi",-50);
   me->improve_skill("dodge",(int)(me->query_skill("literate")/5+1));
   return 1;      

}
