xian.c

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

// xian.c 神龙再现

#include <ansi.h>
#include <combat.h>

inherit F_SSERVER;

int perform(object me, object target)
{
        object weapon;
        string msg;
        string skill;
        int ap, pp, dp, damage;


        if (! target)
        {
                me->clean_up_enemy();
                target = me->select_opponent();
        }

        if (! me->is_fighting(target))
                return notify_fail("「神龙再现」只能对战斗中的对手使用。\n");

        if (me->query_skill("shedao-qigong", 1) < 120)
                return notify_fail("你的蛇岛奇功修为有限，不能使用「神龙再现」！\n");
        if (me->query_skill("shenlong-xinfa", 1) < 50)
                return notify_fail("你的本门内功修为有限，不能使用「神龙再现」！\n");

        if (me->query("neili") < 200)
                return notify_fail("你的真气不够，无法运用「神龙再现」！\n");

        if (objectp(weapon = me->query_temp("weapon")) &&
            weapon->query("skill_type") != "staff" &&
            weapon->query("skill_type") != "sword")
                return notify_fail("你使用的兵器不对，怎么使用「神龙再现」！\n");

        if (weapon)
                skill = weapon->query("skill_type");
        else
                skill = "unarmed";


       if (! living(target))
              return notify_fail("对方都已经这样了，用不着这么费力吧？\n");

        switch (skill)
        {
        case "unarmed":
                msg = HIW "$N" HIW "轻身一跃，已然逼近$n" HIW "随即一掌向$p"
                      HIW "肩头按去，虚虚实实，暗藏千百变化。\n" NOR;
                break;

        case "sword":
                msg = HIW "$N" HIW "足不点地，飘然欺身上前，一剑刺出，" +
                      weapon->name() + HIW "直指$n" HIW "腰间。" NOR;
                break;

        case "staff":
                msg = HIW "$N" HIW "手中" + weapon->name() +
                      HIW "吞吞吐吐，虚虚实实，化作一团光影，斜斜扫向$n"
                      HIW "腰间。\n" NOR;
                break;
        }

        ap = me->query_skill(skill);
        pp = target->query_skill("parry");
        dp = target->query_skill("dodge");
        if (ap / 2 + random(ap) > pp)
        {
                me->add("neili", -150);
                me->start_busy(2);
                damage = ap + random(ap);
                msg += HIR "$n" HIR "欲架不能，欲躲不得，一个闪失"
                                           "，被$P" HIR "打了个正中，鲜血迸流。\n" NOR;
        if (target->query("qi") > damage)
        {
        target->add("qi",-damage);
        target->add("eff_qi",-damage);
        }
	target->apply_condition("ill_fashao",60);
	target->apply_condition("ill_kesou",60);
	target->apply_condition("ill_shanghan",60);
	target->apply_condition("ill_zhongshu",60);
	target->apply_condition("ill_dongshang",60);
        } else
        if (ap / 3 + random(ap) > dp)
        {
                me->add("neili", -180);
                me->start_busy(2);
                damage = ap + random(ap);
                msg += HIR "$n" HIR "见$P" HIR "这招极为精妙，不敢"
                                           "抵挡，慌忙后退跃开，却见$P" HIR "招式一变，竟然料敌在先，\n"
                                           "一招正中$p" HIR "，直打了个鲜血四下飞溅。\n" NOR;
        if (target->query("qi") > damage)
        {
        target->add("qi",-damage);
        target->add("eff_qi",-damage);
        }
	target->apply_condition("ill_fashao",60);
	target->apply_condition("ill_kesou",60);
	target->apply_condition("ill_shanghan",60);
	target->apply_condition("ill_zhongshu",60);
	target->apply_condition("ill_dongshang",60);
        } else
        {
                me->add("neili", -100);
                me->start_busy(2);
                msg += CYN "$n" CYN "不敢怠慢，见招拆招，接连破去$P"
                       CYN "后续三十六道变化，不漏半点破绽。\n" NOR;
        }
        message_combatd(msg, me, target);

        return 1;
}