// ren.c  兩儀劍法「天地同仁」#include <ansi.h>#include <combat.h>inherit F_SSERVER;int perform(object me, object target){    int damage,extra;    string msg;    object weapon;    if (!target ) target = offensive_target(me);    if (!objectp(weapon = me->query_temp("weapon"))        || (string)weapon->query("skill_type") != "sword")        return notify_fail("開什么玩笑，沒裝備劍就想使「天地同仁」？\n");    if (!target || !target->is_character() || !me->is_fighting(target) )        return notify_fail("「天地同仁」只能對戰斗中的對手使用。\n");    if ((int)me->query_skill("liangyi-jian", 1) < 50 )        return notify_fail("你兩儀劍法不夠嫻熟，使不出「天地同仁」。\n");    if ((int)me->query_skill("xuantian-wuji", 1) < 50 )        return notify_fail("你玄天無極功火候不夠，使不出「天地同仁」。\n");    if ((int)me->query("max_neili")<400)        return notify_fail("你內力修為不足，無法運足內力。\n");    if ((int)me->query("neili")<210)    {        return notify_fail("你現在內力不夠，沒能將「天地同仁」使完！\n");    }	extra = me->query_skill("liangyi-jian",1) / 20;	extra += me->query_skill("liangyi-jian",1) /20;	me->add_temp("apply/attack", extra);		me->add_temp("apply/damage", extra);    msg = HIC "$N手中長劍劍芒躍動，劍光暴長，劍尖顫動似乎分左右刺向$n，\n"NOR;    msg += HIC"$n看到劍光偏左，疾側身右轉，但只這一剎，劍光剎時襲向右首！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);    msg = HIG"$n看到劍光偏右，疾側身右轉，但只這一剎，劍光剎時襲向左首！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);    msg = HIR"$n看到劍光偏上，疾側身下行，但只這一剎，劍光剎時襲向上身！"NOR;       COMBAT_D->do_attack(me,target, me->query_temp("weapon"),TYPE_REGULAR,msg);	me->add_temp("apply/attack", -extra);	me->add_temp("apply/damage", -extra);      if(!target->is_fighting(me)) target->fight_ob(me);	me->start_busy(2);        me->add("neili", -200);    return 1;}