// xuan.c  落英神掌「玄」字訣// modified by Venus Oct.1997#include <ansi.h>inherit F_SSERVER;int perform(object me, object target){    int damage;    string msg;    if( !target ) target = offensive_target(me);    if( !target || !target->is_character() || !me->is_fighting(target) )        return notify_fail("神掌襲敵只能對戰斗中的對手使用。\n");    if( (int)me->query_skill("luoying-zhang", 1) < 30 )        return notify_fail("你的落英神掌不夠嫻熟，不會使用「玄」字訣。\n");    if( (int)me->query_skill("bibo-shengong", 1) < 30 )        return notify_fail("你的內功心法不夠高，不能用來襲擊敵人。\n");        if( (int)me->query("neili", 1) < 200 )                return notify_fail("你現在內力不足！\n");         msg = HIG "$N默運落英心法，使出落英神掌「玄」字訣，從半空中撒出一片掌影逼向$n。\n"NOR;    if (random(me->query("combat_exp")) > target->query("combat_exp")/3 )    {        me->start_busy(2);        target->start_busy(random(3)+2);        damage = (int)me->query_skill("bibo-shengong", 1);         damage = damage/2 + random(damage);        target->receive_damage("qi", damage);        target->receive_wound("qi", damage);        me->add("neili", -200);        if ( damage < 40 ) msg += HIY"結果$N受到$n的內力反震，雖然擊中$N，自己卻悶哼一聲向后退了兩步。\n"NOR;        else if( damage < 80 ) msg += RED"結果$N被$n以內力反震，胸口有如受到一記重錘，連退了五六步！\n"NOR;        else msg += HIR"$n茫然不知所措，結果被$N一掌擊中前胸，$n眼前一黑，被擊飛出兩丈許！！！\n"NOR;	message_combatd(msg, me, target);	COMBAT_D->report_status(target);    } else    {        me->start_busy(1);        msg += HIG"可是$p看破了$P的企圖，早就閃在了一邊。\n"NOR;	message_combatd(msg, me, target);    }    return 1;}