#include <ansi.h>#include <combat.h>#define NI "「" HIW "逆轉乾坤" NOR "」"inherit F_SSERVER;int perform(object me, object target){        object weapon;        string msg;        int ap, dp;        int damage;int skill;        if (! target) target = offensive_target(me);        if (! target || ! me->is_fighting(target))                return notify_fail(NI "只能對戰斗中的對手使用。\n");        if (! objectp(weapon = me->query_temp("weapon")) ||              (string)weapon->query("skill_type") != "sword")                return notify_fail("你使用的武器不對，難以施展" NI "。\n");        if (me->query_skill("force") < 300)                return notify_fail("你的內功的修為不夠，難以施展" NI "。\n");        if (me->query("neili") < 400)                return notify_fail("你的真氣不夠，難以施展" NI "。\n");skill=me->query_skill("qixian-jian",1);        if (skill < 180)                return notify_fail("你的七弦無形劍修為有限，現在無法使用" NI "。\n");        if (me->query("neili") < 500)                return notify_fail("你的真氣不夠，無法運用" NI "。\n");        weapon = me->query_temp("weapon");        if (weapon && weapon->query("skill_type") != "sword")                return notify_fail("你不能使用這種兵器施展" NI "。\n");        if (weapon && me->query_skill_mapped("sword") != "qixian-jian")                return notify_fail("你現在沒有準備使用七弦無形劍，無法施展" NI "。\n");        if (! living(target))                return notify_fail("對方都已經這樣了，用不著這么費力吧？\n");        msg = HIW "$N" HIW "一聲清嘯，手中" + weapon->name() +              HIW "一振，將乾坤劍法逆行施展，頓時劍影重重，萬"              "道光華直追$n" + HIW "而去！\n" NOR;        ap = me->query_skill("sword") + me->query_skill("force");        dp = target->query_skill("dodge") + target->query_skill("parry");        if (ap / 2 + random(ap) > dp)        {                damage = ap / 3 + random(ap / 3);                me->add("neili", -200);                me->start_busy(2);                        target->add("qi",-damage+100);                        target->add("qi",-damage+100);if (random(3)==0) target->start_bus(5);                        msg +=HIR "$n" HIR "完全無法看清招中虛實，微"                                           "微一楞間，發現" + weapon->name() + HIR                                           "竟已沒入自己胸口數寸。\n" NOR;        } else        {                me->add("neili", -80);                me->start_busy(2);                msg += CYN "可是$n" CYN "看破" CYN "$N" CYN                       "的招數，飛身一躍，閃開了這神鬼莫測"                       "的一擊。\n"NOR;        }        message_combatd(msg, me, target);        return 1;}