// Modify By River 98/08/29
#include <ansi.h>
#include <room.h>

inherit ROOM;

void create()
{
     set("short", HIR"練功房"NOR);
     set("long", @LONG
里面又是一室，卻和先一間處處對稱，而又處處相反，乃是后窄前寬，西圓東
角，室頂也是刻滿了無數符號。此處乃是古墓派祖師林朝英的武功之秘。
LONG
     );      
     set("exits", ([
         "north" : __DIR__"gmlg2",          
         "south" : __DIR__"gmlg4",          
     ]));

     setup();
}

void init()
{
         add_action("do_xiulian", "xiulian");
         add_action("do_yanxi", "yanxi");
         add_action("do_tui","tui");
}

int do_yanxi(string arg)
{
          mapping fam;
          object me = this_player();
          if (!(fam = me->query("family")) || fam["family_name"] != "古墓派")
           return notify_fail("你不是古墓傳人，如何能領悟古墓武功？\n");
          if (me->is_busy() || me->is_fighting())
               return notify_fail("你正忙著哪！\n");
          if ((int)me->query_skill("literate", 1) < 30)
          return notify_fail("你丫斗字不識,領悟個啥? \n");            
          if (arg == "top"){
          if (me->query("gender") == "男性")
             return notify_fail("玉女劍法呈陰柔之氣，不適合男子練習。\n");
          if ((int)me->query_skill("sword", 1) < 20)
            return notify_fail("你基本劍法太差，無法研習玉女劍法。\n"); 
          if (me->query_skill("yunv-jian", 1) >= 1)
             return notify_fail("你已經學會玉女劍法，自己好好練吧。\n");      
          message_vision("$N仰視室頂的圖紋，心中揣摩玉女劍法的精妙之處。\n", me);
          me->receive_damage("jing", 5);
          me->receive_damage("jing",15);
          me->improve_skill("yunv-jian", 2);
          return 1;
         }
       return 1;
}

int do_xiulian(string arg)
{
          mapping fam;
          object me = this_player();
          if (!(fam = me->query("family")) || fam["family_name"] != "古墓派")
               return notify_fail("你不是古墓傳人，如何能領悟古墓武功？\n");
          if (me->is_busy() || me->is_fighting())
               return notify_fail("你正忙著哪！\n");          
          if (me->query("jing") < 40)
               return notify_fail("你精力不能集中,去稍作歇息吧. \n");
          if ((int)me->query_skill("literate", 1) < 30)
          return notify_fail("你丫斗字不識,領悟個啥? \n");
          if (arg == "backwall"){
          write("你掄掌劈向后方窄窄的石壁，蓬一聲被震退數步，手臂一陣酸麻。\n");
          if (me->query_skill("strike", 1) < 50)
          return notify_fail("你看了半天只覺莫測高深，什么也沒有學會。\n");
          if (me->query_skill("strike", 1) > 100)
          return notify_fail("你掌力雄渾，不該再死練蠻力了。\n");          
          me->receive_damage("jing", 10 + random(20));
          me->improve_skill("strike", (int)(me->query_int()/3) +
              (int)(me->query_skill("strike")/4));
          return 1;
          }
          if (arg == "frontwall"){
          write("你揮拳直擊弧型前壁，石粉四濺,你也被自己的猛勁震退數步。\n");
          if (me->query_skill("cuff", 1) < 50)
          return notify_fail("你看了半天只覺莫測高深，什么也沒有學會。\n");
          if (me->query_skill("cuff", 1) > 100)
          return notify_fail("你拳力已剛猛無比，卻無甚招數。\n");
          me->receive_damage("jing",10 + random(20));
          me->improve_skill("cuff", (int)(me->query_int()/3) +
               (int)(me->query_skill("cuff",1)/ 4));
          return 1;
          }
          if (arg == "westwall"){
          write("你繞西面石壁踏著劍步，用心揣摩壁上劍法精髓。\n");
          if (me->query_skill("sword", 1) < 50)
          return notify_fail("你看了半天只覺莫測高深，什么也沒有學會。\n");
          if (me->query_skill("sword", 1) > 100)
          return notify_fail("你對石壁上所述劍法已全然掌握,無須再費力了. \n");
          me->receive_damage("jing", 10 + random(20));
          me->improve_skill("sword", (int)(me->query_int()/3) +
               (int)(me->query_skill("sword", 1)/4) );
          return 1;
          }
          if (arg == "eastwall"){
          write("你虛拈手指,對著東面的三角形石壁,細心操練暗器的收發手勢. \n");
          if (me->query_skill("throwing", 1) < 50)
          return notify_fail("你看了半天只覺莫測高深，什么也沒有學會。\n");
          if (me->query_skill("throwing", 1) > 100 )
          return notify_fail("你暗器收發隨心,再不能提高于此. \n");
          me->receive_damage("jing", 10 + random(20));
          me->improve_skill("throwing", (int)(me->query_int()/3) +
                 (int)(me->query_skill("throwing", 1)/4 ));
          return 1;
          }
     return 0;
}

int do_tui(string arg)
{          
          object me=this_player();
          if (me->is_busy() || me->is_fighting())
               return notify_fail("你正忙著哪！\n");
          if ( arg == "westwall"){  
           message_vision(YEL"$N伸手到半圓的弧底推了幾下，一塊大石緩緩移開，現出一扇洞門。\n"NOR,me);
           set("exits/out", __DIR__"gmlg2");            
          me->receive_damage("qi", 30); 
           remove_call_out("close");
           call_out("close", 5, this_object());    
           return 1;
           }
        return notify_fail("你要推什么？\n");
}

void close(object room)
{
        message("vision",HIY"大石慢慢退回了原位，又擋住了出口。\n"NOR, room);
        room->delete("exits/out");
}