// cui.c 摧心斷腸#include <ansi.h>#include <combat.h>inherit F_SSERVER;int perform(object me, object target){        object weapon;        string msg;        string skill;        int ap, fp, dp, damage;        if (! target)        {                me->clean_up_enemy();                target = me->select_opponent();        }        if (! me->is_fighting(target))                return notify_fail("「摧心斷腸」只能對(duì)戰(zhàn)斗中的對(duì)手使用。\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èi)功修為有限，不能使用「神龍?jiān)佻F(xiàn)」！\n");        if (me->query("neili") < 250)                return notify_fail("你的真氣不夠，無法運(yùn)用「摧心斷腸」！\n");        if (objectp(weapon = me->query_temp("weapon")) &&            weapon->query("skill_type") != "staff" &&            weapon->query("skill_type") != "sword")                return notify_fail("你使用的兵器不對(duì)，怎么使用「摧心斷腸」！\n");        if (weapon)                skill = weapon->query("skill_type");        else                skill = "unarmed";       if (! living(target))              return notify_fail("對(duì)方都已經(jīng)這樣了，用不著這么費(fèi)力吧？\n");        switch (skill)        {        case "unarmed":                msg = HIW "$N" HIW "一聲暴喝，雙掌一起擊出，霎時(shí)間飛砂走石，$n"                      HIW "只覺得幾乎窒息。\n" NOR;                break;        case "sword":                msg = HIW "$N" HIW "一聲暴喝，手中" + weapon->name() +                      HIW "直劈而下，只聽呼嘯聲大作，地上的塵土受內(nèi)力所激紛紛飛揚(yáng)而起。\n" NOR;                break;        case "staff":                msg = HIW "$N" HIW "一聲暴喝，手中" + weapon->name() +                      HIW "橫掃蕩出，一時(shí)間塵土飛揚(yáng)，$n"                      HIW "登時(shí)覺得呼吸不暢。\n" NOR;                break;        }        ap = me->query_skill(skill);        fp = target->query_skill("force");        dp = target->query_skill("dodge");        if (ap / 2 + random(ap) < fp)        {                me->add("neili", -200);                msg += CYN "可是$n" CYN "內(nèi)功深厚，奮力接下$N"                       CYN "這一招，絲毫無損。\n" NOR;                me->start_busy(2);        } else        if (ap / 2 + random(ap) < dp)        {                me->add("neili", -50);                msg += CYN "$n" CYN "哈哈一笑，飄身躍開，讓$N"                       CYN "這一招全然落空。\n" NOR;                me->start_busy(2);        } else        {                me->add("neili", -220);                me->start_busy(2);                damage = 150 + ap + random(ap);        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);                msg +=HIR "$n" HIR "只覺得$N" HIR "內(nèi)力猶如"                                           "排山倒海一般，怎能抵擋？“哇”的一下吐出一大口鮮血。\n" NOR;        }        message_combatd(msg, me, target);        return 1;}