// qi.c 無形劍氣#include <ansi.h>#include <combat.h>inherit F_SSERVER;int perform(object me, object target){        object weapon;        int damage;        string msg;        int ap, dp;        if (! target) target = offensive_target(me);        if (! target || ! me->is_fighting(target))                return notify_fail("無形劍氣只能對戰(zhàn)斗中的對手使用。\n");        if ((int)me->query_skill("force") < 360)                return notify_fail("你的內(nèi)功火候不夠，使不出無形劍氣。\n");        if ((int)me->query_skill("six-finger", 1) < 180)                return notify_fail("你的六荬神劍不夠熟練，不會使用無形劍氣。\n");        if (me->query("max_neili") < 8000)                return notify_fail("你的內(nèi)力修為還不足以使出如此犀利的無形劍氣。\n");        if ((int)me->query_skill("kurong-changong",1) < 100)            return notify_fail("你的枯榮禪功太低。\n");        if ((int)me->query("neili") < 500)                return notify_fail("你的真氣不夠，無法使用無形劍氣。\n");        if (me->query_skill_mapped("finger") != "six-finger")                return notify_fail("你沒有激發(fā)六脈神劍，無法使用無形劍氣。\n");       if (! living(target))              return notify_fail("對方都已經(jīng)這樣了，用不著這么費力吧？\n");        msg = HIC "$N" HIC "中指一按，一股凌厲無倫的無形劍氣直奔$n" HIC "胸前射去。\n" NOR;          ap = me->query_skill("force");        dp = target->query_skill("force");        weapon = target->query_temp("weapon");        me->start_busy(2);        if (ap / 2 + random(ap) > dp)        {                 damage = ap + random(ap / 2);                me->add("neili", -400);                if (! objectp(weapon) || weapon->query("skill_type") == "pin"){                target->add("qi",-damage);		target->add("eff_qi",-damage);                msg +=HIR "只覺得胸前一陣劇痛，鮮血"                                                   "自創(chuàng)口激射而出，眼前頓時一黑！\n" NOR; }                else                if (weapon->query("ownmake") || weapon->query("damage") > 800 ||                    weapon->query("skill_type") == "hammer"){                target->add("qi",-damage);		target->add("eff_qi",-damage);                msg +=HIR "$p" HIR "橫" + weapon->name() + HIR "試圖招架，"                                                   HIR "怎奈這股劍氣如此犀利，透過" + weapon->name() +                                                   HIR "直震得$p" HIR "狂吐鮮血，五臟六腑都要翻轉(zhuǎn)過來！\n" NOR;}                else                {                target->add("qi",-damage);		target->add("eff_qi",-damage);                msg +=HIR "$p" HIR "橫轉(zhuǎn)" + weapon->name() + HIR "，擋在胸"                                                   "前，只聽啪啦一聲，" + weapon->name() +                                                   HIR "碎成數(shù)截，激飛上天！\n$n" HIR "連退"                                                   "幾步，“哇”的吐了一口鮮血，臉色變的慘白。\n" NOR;                        weapon->move(environment(me));                }        } else        {                msg += CYN "可是$p" CYN "內(nèi)功頗為深厚，輕輕將這道劍氣化解于無形。\n" NOR;        }        message_combatd(msg, me, target);        return 1;}