qiankun-danuoyi.c

C实现的MUD,对大家基本入门网络游戏很有帮助!

// qiankun-danuoyi.c 乾坤大挪移
// by King 97.05

inherit SKILL;
#include "/kungfu/skill/eff_msg.h";
string  *msg_weapon = ({
YEL"$N回手一挥，想掠斜$w"YEL"来势，哪料到这么轻轻一挥之力，回击的力量竟如此大得异乎寻常！\n"NOR,
RED"哪知$N的$W"RED"微转，平平的搭在$w"RED"之上，一股柔和的劲力送出，将$w"RED"直荡了开去！\n"NOR,
HIY"$N向左踏出两步，右手$W"HIY"挥出，一股劲风扑向$n的后心，方位时刻拿捏得恰到好处！\n"NOR,
HIC"$n攻出的这一招，原是极高明的招数，但被$N手指一拂，劲力又斜斜卸了开去！\n"NOR,
BLU"$N待$n的$w"BLU"将要触及心口时，左足突然踢出，压下$w"BLU"，一借力顺势踏落！\n"NOR,
HIB"$N双手同时施展挪移乾坤心法，一声清啸，拔身而起，在半空中轻轻一个转折，飘然落在$n身旁！\n"NOR,
HIW"$n武功虽高，但于$N刚猛掌力袭体而来，手中$w"HIW"再也难以拆解$N的$W"HIW"招式！\n"NOR,
YEL"$N右手五指犹如抚琴鼓瑟，忽挑忽捻，忽弹忽拨，上身半点不动，片刻间将$n的力道尽数卸了！\n"NOR,
GRN"$N右打出一招泰山剑法「来鹤清泉」，左手却已使出乾坤大挪移的手法，拂向$n手中$w"GRN"！\n"NOR,
CYN"$N单伸$W"CYN"，按在$n$w"CYN"边上，依照所练的乾坤大挪移心法，微一运劲，便将$n的劲力轻轻移开了！\n"NOR,
});

string  *msg_unarmed = ({
HIC"一刹那间$N化刚为柔的急剧转折，已使出属乾坤大挪移心法的第七层神功！\n"NOR,
HIW"$N动也不动，待他进到身前，乾坤大挪移内力斜引，将他力道挪移推卸了开去！\n"NOR,
GRN"岂知刚刚相触，突然一股柔和而厚重的劲力从$N身上发出，挡住了$n的劲力。同时，$N右手五指也已按在$n胸口膻中穴的周遭！\n"NOR,
RED"结果$N使出乾坤大挪移心法，依着八卦方位，倒反了$n这招的去势。\n"NOR,
CYN"$N运使乾坤大挪移，越奔越快，如风如火，似雷似电，跟着纵身而前，左手探出抓向$n！\n"NOR,
BLU"$N此时体内真气流转，一遇外力，自然而然而生反击，比之$n击来的力道又大得多了！\n"NOR,
BLU"$n右手一指戳向$N肩头，却不知如何被轻轻一带，噗的一响，竟戳到了自己手臂，只痛得眼前金星直冒！\n"NOR,
YEL"蓦地里好象旁边有一股力道飞来，将$n的力道一引，从$N身旁斜斜带过！\n"NOR,
YEL"$N当下潜运乾坤大挪移心法，使$n击向$N的一招莫名奇妙的溜滑向一旁。\n"NOR,
HIR"$N再使挪移乾坤心法，一牵一引，托的一响，将$n的力道引偏。\n"NOR,
YEL"$N右手五指犹如抚琴鼓瑟，忽挑忽捻，忽弹忽拔，上身半点不动，将$n此招化于无形！\n"NOR,
WHT"$N巧运乾坤大挪移心法，使$n这招莫名其妙的在中途转了方向，力道化于无形！\n"NOR,
CYN"乾坤大挪移神功变幻，何等奥妙，结果$N手指拂出，已点中了$n双腕穴道！\n"NOR,
GRN"$N使出挪移大乾坤，$n这招莫名其妙的在中途转了方向，打出的力量向自己飞了回来！\n"NOR,
});
string *parry_msg = ({
	"$N一招击在$n身上，却被$n暗运乾坤大挪移，将内力尽数移入地下。\n",
	"$n轻轻一带，$N发现自己招数回击过来，吓得往后倒退几步。\n",
        "$n手臂回转，在$N手肘下轻轻一推，$N招数落空。\n",
        "$n右手伸出，在$N手腕上轻轻一拉，$N收势不住，直往前扑去。\n",
        "$n身形不动，$N一招击下，有如石沉大海，不觉呆住了。\n",
	"$n左牵右引，$N如身处漩流，连续转了好几个圈。\n",
	"$n双手回圈，$N只觉得前面好象有一堵墙，再也攻不进去。\n",
	"$n轻轻一转，$N一招击在地上，只打得尘土飞扬。\n",
});

string *dodge_msg = ({
	"$N一招击在$n身上，却被$n暗运乾坤大挪移，将内力尽数移入地下。\n",
	"$n轻轻一带，$N发现自己招数回击过来，吓得往后倒退几步。\n",
        "$n手臂回转，在$N手肘下轻轻一推，$N招数落空。\n",
        "$n右手伸出，在$N手腕上轻轻一拉，$N收势不住，直往前扑去。\n",
        "$n身形不动，$N一招击下，有如石沉大海，不觉呆住了。\n",
	"$n左牵右引，$N如身处漩流，连续转了好几个圈。\n",
	"$n双手回圈，$N只觉得前面好象有一堵墙，再也攻不进去。\n",
	"$n轻轻一转，$N一招击在地上，只打得尘土飞扬。\n",
});

int valid_enable(string usage) 
{ 
    return (usage == "parry") || (usage == "dodge");
}

string query_parry_msg(string limb)
{
       return parry_msg[random(sizeof(parry_msg))];
}

string query_dodge_msg(string limb)
{
        return dodge_msg[random(sizeof(dodge_msg))];
}


int valid_learn(object me)
{
	int lvl = (int)me->query_skill("qiankun-danuoyi", 1);

	if ( me->query("gender") == "无性" && lvl > 99)
		return notify_fail("你先天不足，再学下去难免走火入魔。\n");

	if ((int)me->query_skill("force", 1) < 100)
		return notify_fail("就这么点基本内功还想学乾坤大挪移？\n");

	if (lvl > 150 && me->query("family/family_name") != "明教" )
		return notify_fail("乾坤大挪移只能通过读<<乾坤大挪移>>心法提高。\n");


	if ((int)me->query("max_neili", 1) < 1500)
		return notify_fail("就这么点内力还想学乾坤大挪移？\n");

        if ((int)me->query_skill("force", 1) < lvl)
                return notify_fail("你的基本内功火候还不够，小心走火入魔！\n");

        if ((int)me->query_skill("jiuyang-shengong", 1) < lvl)
                return notify_fail("你的九阳神功火候还不够，小心走火入魔！\n");

	if ((int)(me->query("max_neili")/15) < lvl)
		return notify_fail("你的内力火候还不够，小心走火入魔！\n");

       if( me->query("family/family_name") != "明教")
           return notify_fail("你非明教弟子！只能通过读<<乾坤大挪移>>心法提高。\n");

        if ((int)me->query_skill("force", 1) < lvl)
                return notify_fail("你的基本内功火候还不够，小心走火入魔！\n");

        if ((int)me->query_skill("qingfu-shenfa", 1) < 80)
		return notify_fail("你的青蝠身法火候太浅。\n");
		
        if ((int)me->query_skill("jiuyang-shengong", 1) < lvl)
                return notify_fail("你的九阳神功火候还不够，小心走火入魔！\n");

	if ((int)(me->query("max_neili")/15) < lvl)
		return notify_fail("你的内力火候还不够，小心走火入魔！\n");

        if ((int)me->query("qi") < lvl)
           return notify_fail("你的体力不够练乾坤大挪移。\n");

        if ((int)me->query("jing") < lvl)
           return notify_fail("你的精力不够练乾坤大挪移。\n");

        if ((int)me->query("neili") < lvl)
           return notify_fail("你的精力不够练乾坤大挪移。\n");

if ( lvl > 149)
{
        me->receive_damage("jing", lvl/2);
        me->receive_damage("qi", lvl);
        me->add("neili", -lvl);
}
        return 1;
}


void skill_improved(object me)
{
   int skill, lit, med;
   skill = (int)me->query_skill("qiankun-danuoyi", 1);
   lit = (int)me->query_skill("literate", 1);
   med = me->query_skill("medicine", 1);
   if( skill == 50 && !me->query("qkdny") && lit > 50){
      tell_object(me, HIY"你按照羊皮上所书，运气导行、移宫使劲，竟是毫不费力的便做到了。\n"NOR);
      me->add("max_neili", 10+random(30));
      me->set("qkdny", 1);
//      me->add("qkdny", 1);
      }
else if(skill == 80 && me->query("qkdny") == 1 && lit > 80){
      tell_object(me, HIM"你修炼第二层心法，依法施为，片刻真气贯通，只觉十根手指之中，似乎有丝丝冷气射出。\n"NOR);
      me->add("max_neili", 10+random(30));
      me->add("qkdny", 1);
      }
else if(skill == 100 && me->query("qkdny") == 2 && lit > 100){
      tell_object(me, CYN"你按照羊皮上所书，边读边练，精神为之大振！\n"NOR);
      me->add("max_neili", 10+random(30));
      me->add("qkdny", 1);
      }
else  if(skill == 130 && me->query("qkdny") == 3 && lit > 120){
      message_vision(RED"$N半边脸孔胀得血红，半边脸颊却发铁青，但神完气足，双眼精光炯炯，料是无碍。\n"NOR, me);
      me->add("max_neili", 10+random(30));
      me->add("qkdny", 1);
      }
else if(skill == 150 && me->query("qkdny") == 4 && lit > 140){
      message_vision(HIW"$N脸上忽青忽红，脸上青时身子微颤，如堕寒冰；脸上红时额头汗如雨下。\n"NOR, me);
      me->add("max_neili", 10+random(30));
      me->add("qkdny", 1);
      }
else if(skill == 170 && me->query("qkdny") == 5 && lit > 160){
      tell_object(me, MAG"你觉得体内潜力便如山洪突发，沛然莫之能御。原来是乾坤大挪移心法发挥了你本身所蓄有的潜力！\n"NOR);
      me->add("max_neili", 20+random(30));
      me->add("qkdny", 1);
      }
else if(skill == 190 && me->query("qkdny") == 6 && lit > 180){
      tell_object(me, MAG"你猛地里气血翻涌，心跳加快，终于练成了乾坤大挪移神功！\n");      
      me->add("max_neili", 50+random(30));
      me->add("qkdny", 1);
      }
}

int practice_skill(object me)
{
	int lvl = (int)me->query_skill("qiankun-danuoyi", 1);

        if( me->query("family/family_name") != "明教")
           return notify_fail("你非明教弟子！只能通过读<<乾坤大挪移>>心法提高。\n");

        if ((int)me->query_skill("force", 1) < lvl)
                return notify_fail("你的基本内功火候还不够，小心走火入魔！\n");

        if ((int)me->query_skill("jiuyang-shengong", 1) < lvl)
                return notify_fail("你的九阳神功火候还不够，小心走火入魔！\n");

	if ((int)(me->query("max_neili")/15) < lvl)
		return notify_fail("你的内力火候还不够，小心走火入魔！\n");

        if ((int)me->query("qi") < lvl)