kongming-quan.c

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

// kongming.c
#include <ansi.h>
inherit SKILL;
mapping *action = ({
([      "action" : "$N使出「空」字诀，单拳击出，拳式若有若无，似乎毫无着力处，却又径直袭向$n",
	"force" : 100,
	"dodge" : 5,
	"parry" : 1,
	"damage" : 100,
	"lvl" : 0,
	"skill_name" : "空字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「朦」字诀，拳招胡里胡涂，看似不成章法，但拳势却直指$n的$l",
	"force" : 120,
	"dodge" : -2,
	"parry" : 2,
	"damage" : 100,
	"lvl" : 0,
	"skill_name" : "朦字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「洞」字诀，单拳似乎由洞中穿出，劲道内敛，招式却咄咄逼人，狠狠地击向$n",
	"force" : 140,
	"dodge" : 3,
	"parry" : -2,
	"damage" : 100,
	"lvl" : 6,
	"skill_name" : "洞字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「松」字诀，出拳浑似无力，软绵绵地划出，轻飘飘地挥向$n的$l",
	"force" : 160,
	"dodge" : -5,
	"parry" : -1,
	"damage" : 100,
	"lvl" : 12,
	"skill_name" : "松字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「风」字诀，单拳击出，带起一股柔风，$n刚觉轻风拂体，拳招竟已袭到了面前",
	"force" : 180,
	"dodge" : -3,
	"parry" : 2,
	"damage" : 100,
	"lvl" : 20,
	"skill_name" : "风字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「通」字诀，拳力聚而不散，似有穿通之形，直击$n的$l",
	"force" : 200,
	"dodge" : 5,
	"parry" : -3,
	"damage" : 100,
	"lvl" : 28,
	"skill_name" : "通字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「容」字诀，拳走空明，外包内容，似轻实重，正对着$n当胸而去",
	"force" : 220,
	"dodge" : 1,
	"parry" : 1,
	"damage" : 100,
	"lvl" : 35,
	"skill_name" : "容字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「梦」字诀，拳势如梦，又在半梦半醒，$n一时神弛，拳风已然及体",
	"force" : 250,
	"dodge" : 4,
	"parry" : -1,
	"damage" : 100,
	"lvl" : 40,
	"skill_name" : "梦字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「冲」字诀，单拳直击，拳式举重若轻，向$n的$l打去",
	"force" : 280,
	"dodge" : 3,
	"parry" : 2,
	"damage" : 100,
	"lvl" : 46,
	"skill_name" : "冲字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「穷」字诀，正显潦倒之形，拳势虽然显出穷途末路，却暗含杀机，窥$n不备而猛施重拳",
	"force" : 310,
	"dodge" : -3,
	"parry" : 0,
	"damage" : 200,
	"lvl" : 53,
	"skill_name" : "穷字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「中」字诀，单拳缓缓击出，不偏不倚，虽是指向正中，拳力却将$n的周身笼住",
	"force" : 340,
	"dodge" : -3,
	"parry" : 4,
	"damage" : 200,
	"lvl" : 59,
	"skill_name" : "中字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「弄」字诀，拳招陡然花俏，似在作弄$n，却又暗伏后招",
	"force" : 370,
	"dodge" : 1,
	"parry" : 3,
	"damage" : 200,
	"lvl" : 65,
	"skill_name" : "弄字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「童」字诀，出拳如稚童般毫无章法，胡乱击向$n的$l",
	"force" : 400,
	"dodge" : 3,
	"parry" : 4,
	"damage" : 200,
	"lvl" : 72,
	"skill_name" : "童字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「庸」字诀，单拳击出时是最简单的招式，平平无奇，可是却阻住了$n的退路",
	"force" : 440,
	"dodge" : 3,
	"parry" : -2,
	"damage" : 200,
	"lvl" : 78,
	"skill_name" : "庸字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「弓」字诀，身体弯曲如弓，拳出似箭，迅捷地袭向$n",
	"force" : 480,
	"dodge" : 5,
	"parry" : 2,
	"damage" : 300,
	"lvl" : 85,
	"skill_name" : "弓字诀",
	"damage_type" : "瘀伤"
]),
([      "action" : "$N使出「虫」字诀，身子柔软如虫，拳招也随着蠕动，$n竟无法判断这一拳的来势",
	"force" : 530,
	"dodge" : 8,
	"parry" : -1,
	"damage" : 300,
	"lvl" : 95,
	"skill_name" : "虫字诀",
	"damage_type" : "瘀伤"
]),
    ([  "action":       "$N使一招「"+HIB+"空屋住人"+NOR+"」，双手轻飘飘地箍向$n$l",
        "force": 380,
        "damage" : 300,
        "damage_type": "瘀伤"
    ]),
    ([  "action":       "$N左掌一平,右掌一伸,一招「"+HIB+"空碗盛饭"+NOR+"」直拍$n的$l",
        "force": 320,
        "damage" : 300,
        "damage_type": "瘀伤"
    ]),
    ([  "action":       "$N身形绕$n一转，双手上撩,一招「"+HIB+"空钵装水"+NOR+"」击向$n$l",
        "force": 360,
        "damage" : 300,
        "damage_type": "瘀伤"
    ]),
    ([  "action":       "$N左掌一按,右掌一挥,一招「"+HIB+"虚怀若谷"+NOR+"」拍向$n的$l",
        "force": 330,
        "damage" : 300,
        "damage_type": "瘀伤"
    ]),
    ([  "action":       "$N使一招「"+HIB+"空山鸟语"+NOR+"」，$n的$l已围在$N的重重掌影之下",
        "force": 340,
        "damage" : 300,
        "damage_type": "瘀伤"
    ]),
    ([  "action":       "$N神色一敛，使出「"+HIB+"我心空明"+NOR+"」，围绕$n的$l接连出掌",
        "damage" : 300,
        "force": 380,
        "damage_type": "瘀伤"
    ]),
});
int valid_enable(string usage) { return usage=="unarmed" ||  usage=="parry"; }
int practice_level(){   return 60;  }
int valid_learn(object me)
{
    if (me->query_temp("weapon") || me->query_temp("secondary_weapon"))
        return notify_fail("练空明拳必须空手。\n");
    if ((int)me->query("max_neili") < 150)
        return notify_fail("你的内力太弱，无法练空明拳。\n");
    if (me->query_skill("unarmed", 1) <=me->query_skill("kongming-quan", 1))
        return notify_fail("你的基础不够，无法领会更高深的技巧。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("qixing-jian", 1) < 80 )
                return notify_fail("你的七星剑法火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("qixing-shou", 1) < 80 )
                return notify_fail("你的七星分天手火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("haotian-zhang", 1) < 80 )
                return notify_fail("你的昊天掌火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("jinyan-gong", 1) < 80 )
                return notify_fail("你的金雁功火候不到，无法学习全真剑法。\n");
    return 1;
}
mapping query_action(object me, object weapon)
{
    mapping a_action;
    int level   = (int) me->query_skill("kongming-quan",1);
    a_action = action[random(sizeof(action))];
    a_action["dodge"]  = level/5;
    a_action["attack"]  = level;
    a_action["force"]  = level;
    a_action["damage"] = 2*level;
    return a_action;

}
int practice_skill(object me)
{
    if (me->query_temp("weapon") || me->query_temp("secondary_weapon"))
        return notify_fail("练空明拳必须空手。\n");
    if ((int)me->query("qi") < 40)
        return notify_fail("你的体力太低了。\n");
    if ((int)me->query("neili") < 10)
        return notify_fail("你的内力不够了！休息一下再练吧。\n");
        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("qixing-jian", 1) < 80 )
                return notify_fail("你的七星剑法火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("qixing-shou", 1) < 80 )
                return notify_fail("你的七星分天手火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("haotian-zhang", 1) < 80 )
                return notify_fail("你的昊天掌火候不到，无法学习全真剑法。\n");

        if ((int)me->query_skill("xiantian-qigong", 1) >  1 &&
            (int)me->query_skill("jinyan-gong", 1) < 80 )
                return notify_fail("你的金雁功火候不到，无法学习全真剑法。\n");
    me->receive_damage("qi", 30);
    me->add("neili", -5);
    return 1;
}

int ob_hit(object ob, object me, int damage)
{
	object weapon = me->query_temp("weapon");
        string msg,dodge_skill,*limbs;
        int i, j, level,level2, p, q;
        
        limbs = ob->query("limbs");
        level = me->query_skill("kongming-quan", 1);
level2 = me->query_skill("kongming-quan", 1);

        if (  level2 > 100
        && random(3)==1){
             msg = HIY"$N虚虚实实，变化莫测，让$n一时难以捕捉!\n"NOR;
             if (!ob->is_busy())
             ob->start_busy(2+random(2));
               }

}

mixed hit_ob(object me, object victim, int damage_bonus, int factor, string limb)
{
	int level, jiali, time,level2;
	object weapon;
	weapon = me->query_temp("weapon");
level2= (int) me->query_skill("kongming-quan",1);             
	if (random(5)==1 && me->query_skill("kongming-quan",1)>100)
	{
	if( damage_bonus > 50 && random(level2)>100) {
	victim->receive_wound("qi", (random(damage_bonus)+150));
	return HIY"$n被一拳击中要害，登时呕出一大口鲜血！\n"NOR;
        }
}
}

string perform_action_file(string action)
{
	return __DIR__"kongming-quan/" + action;
}