// bohu.c 搏虎訣#include <ansi.h>#include <combat.h>#define BOHU "「" HIY "搏虎訣" NOR "」"inherit F_SSERVER;int perform(object me, object target){        object weapon;        string msg;        int ap, dp;        int damage;         if (! target) target = offensive_target(me);        if (! target || ! me->is_fighting(target))                return notify_fail(BOHU "只能在戰斗中對對手使用。\n");        if (! objectp(weapon = me->query_temp("weapon")) ||              (string)weapon->query("skill_type") != "whip")                return notify_fail("你使用的武器不對，無法施展" BOHU "。\n");        if ((int)me->query_skill("ruanhong-zhusuo", 1) < 150)                return notify_fail("你的軟紅蛛索不夠嫻熟，無法施展" BOHU "。\n");         if( (int)me->query_skill("wudu-shengong",1) < 100 )                return notify_fail("你的五毒神功修為還不夠！\n");         if( (int)me->query_skill("poison",1) < 100 )                return notify_fail("你的基本毒功修為還不夠！\n");        if (me->query("neili") < 300)                return notify_fail("你的真氣不夠，無法施展" BOHU "。\n");        if (me->query_skill_mapped("whip") != "ruanhong-zhusuo")                return notify_fail("你沒有激發軟紅蛛索，無法施展" BOHU "。\n");        if (! living(target))                return notify_fail("對方都已經這樣了，用不著這么費力吧？\n");        msg = HIY "$N" HIY "一聲暴喝，使出「搏虎」訣，手中" + weapon->name() +              HIY "狂舞，漫天鞭影幻作無數小圈，鋪天蓋地罩向$n" + HIY "！\n" NOR;        ap = me->query_skill("whip") + me->query_skill("force");        dp = target->query_skill("force") + target->query_skill("parry");        if (random( (int)me->query("combat_exp",1))          > target->query("combat_exp")/3)        {                damage = ap / 4 + random(ap / 3);                me->add("neili", -300);                me->start_busy(1);target->add("qi",-damage);		target->add("eff_qi",-damage);                msg +=HIR "只聽$n" HIR "一聲慘叫，" + weapon->name() + HIR                                           "已在$p" + HIR "身上劃出數道深可見骨的傷口，皮肉"                                           "分離，鮮血飛濺，苦不堪言！\n" NOR;	       target->apply_condition("snake_poison",		        (int)target->query_condition("snake_poison") + 50 );	       target->apply_condition("wugong_poison",		        (int)target->query_condition("wugong_poison") + 50 );	       target->apply_condition("zhizhu_poison",		        (int)target->query_condition("zhizhu_poison") + 50 );	       target->apply_condition("xiezi_poison",		        (int)target->query_condition("xiezi_poison") + 50 );	       target->apply_condition("chanchu_poison",		        (int)target->query_condition("chanchu_poison") + 50 );	       target->apply_condition("wuhudu_poison",		        (int)target->query_condition("wuhudu_poison") + 50 );	       target->apply_condition("chilian_poison",		        (int)target->query_condition("chilian_poison") + 50 );        } else        {                me->add("neili", -100);                me->start_busy(3);                msg += CYN "可是$p" CYN "運足內力，奮力擋住了"                       CYN "$P" CYN "這神鬼莫測的一擊！\n"NOR;        }        message_combatd(msg, me, target);        return 1;}