// gmlg5.c By River 98/08/30
#include <ansi.h>
#include <room.h>

inherit ROOM;

void create()
{
     set("short", HIC"石室"NOR);
     set("long", @LONG
這石室比之先前捉麻雀的石室長闊均約大了一倍，室中已有多只麻雀在內。
地方大了這麼多，捕捉麻雀自然遠為艱難。石室密閉，墻上兩只火把照得整個
石室燈火通明。
LONG
        );

     set("exits", ([        
         "north" : __DIR__"gmlg4",
     ]));

     setup();
}

void init()
{
     add_action("do_zhuo", "zhuo");
}

int do_zhuo(string arg)
{
          mapping fam;
          object me = this_player();          
          if (!living(me)) return 0;
          if (!(fam = me->query("family")) || fam["family_name"] != "古墓派")
           return notify_fail("你不是古墓傳人，如何能領悟古墓武功？\n");
          if ( arg == "maque") {
          if ( me->query("gender")=="女性")
            return notify_fail("古墓女弟子可以去修煉美女拳法。\n");
          if ((int)me->query_skill("dodge",1 ) < 20)
            return notify_fail("你輕功身法太低，捉不住這么多麻雀的。\n");
          if ((int)me->query_skill("strike", 1) < 20)
            return notify_fail("你的基本掌法還不夠嫻熟，可能抓不住麻雀。\n");
          if ((int)me->query_skill("tianluo-diwang", 1) > 10)
            return notify_fail("你已經學會天羅地網勢了，自己好好揣摩吧。\n");
          if ( (int)me->query("jing") < 30 )
            return notify_fail("你太累了, 先休息一下。\n");
          write("你雙掌這邊擋，那邊拍，麻雀盡數聚在你胸前三尺之內。\n");         
          me->receive_damage("jing", 5);
          me->receive_damage("jing",15);
          me->improve_skill("tianluo-diwang", 2);
          return 1;
          }
   return notify_fail("你要捉什么？\n");       
}