#include <ansi.h>inherit F_SSERVER;#define XUAN "「" HIW "太玄激勁" NOR "」" int perform(object me, object target){        string msg;        int count;        int lvl;        int i, ap, dp,t;        object weapon;        if (! target) target = offensive_target(me);        if (! target || ! me->is_fighting(target))                return notify_fail(XUAN "只能對戰斗中的對手使用。\n");        	if ((int)me->query("neili") < 800)		return notify_fail("你的真氣不夠，無法施展" XUAN "！\n");        if (me->query("max_neili") < 5000)                return notify_fail("你的內力修為還不足以使出" XUAN "。\n");	if ((int)me->query_skill("force") < 300)		return notify_fail("你的內功火候不夠，難以施展" XUAN "！\n");	if ((lvl = (int)me->query_skill("taixuan-gong", 1)) < 240)		return notify_fail("你的太玄功還不夠熟練，無法使用" XUAN "！\n");        if ((int)me->query_skill("literate", 1)> 5 )                return notify_fail("你覺得太玄神功深奧之極，一時間難以領會。\n");                             weapon = me->query_temp("weapon");	if( objectp(me->query_temp("weapon")) )		return notify_fail("你必須空手才能使用！\n");	             if (me->query_skill_mapped("unarmed") != "taixuan-gong"                 || me->query_skill_prepared("unarmed" != "taixuan-gong"))                       return notify_fail("你沒有準備太玄功，無法使用" XUAN "。\n");        if (! living(target))              return notify_fail("對方都已經這樣了，用不著這么費力吧？\n");	msg = HIW "\n霎時間$N" HIW "只覺思緒狂涌，當即閉上雙眼，再不理睬$n"              HIW "如何招架，只管施招攻出！\n此時俠客島石壁上的千百種招"              "式，轉眼已從$N" HIW "心底傳向手足，盡數向$n" HIW "襲去！\n" NOR;	message_vision(msg, me, target);	me->add("neili", -600);        ap = me->query_skill("taixuan-gong, 1");        dp = target->query_skill("dodge", 1);               if (ap / 3 + random(ap) > dp)                  count = ap / 8;          else count = 0;t=8;if (me->query("double_attack"))t=4;        me->add_temp("apply/attack", 50);        for (i = 0; i < t; i++)        {                if (! me->is_fighting(target))                        break;                if (random(2) == 1 && ! target->is_busy())                        target->start_busy(1);        	COMBAT_D->do_attack(me, target, 0, i * 2);        }        me->add_temp("apply/attack", -50);	me->start_busy(3);	return 1;}