// jiushi.c 九式合一

#include <ansi.h>
#include <skill.h>
#include <weapon.h>
#include <combat.h>

inherit F_SSERVER;

int perform(object me, object target)
{
    int damage , zhao;
    string msg;
    object weapon;
    int extra;
    int i;
    
string  *pfattack_msg = ({
                       HIG"「倒劍式」$N突然將所有劍式倒轉(zhuǎn)為施，但見$n頓時被逼得手忙腳亂，自己向$N的長劍撞將上來。\n"NOR,
                       HIR"「逆劍式」$N將長劍交到左手，劍招變的左右顛倒，$n一時沒有弄懂被刺個正著。\n"NOR,
                       HIC"「落劍式」$N騰身而起，成頭下腳上勢，從空中攻向$n，$n防備不及結(jié)果被$N的刺中。\n"NOR,
                       HIY"「搖劍式」只見$N的長劍有如靈蛇一般左右迂回著，$n不知劍要攻向自己的什么位置，站在原地發(fā)呆，結(jié)果被刺中。\n"NOR,
                       HIW"「蕩劍式」$N的劍招突然變得猶如風(fēng)中柳絮，飄忽不定，$n只覺眼前一花，胸口已被刺中。\n"NOR,
                       HIB"「浪劍式」猶如大海狂濤，又四面向$n壓去，$n只覺置身于$N的劍招的狂風(fēng)暴雨之中，不知不覺已經(jīng)被刺中。\n"NOR,
                       YEL"「挫劍式」$n與$N互相一搓身，只見$N將長劍輕輕一帶，$n的小腹已中了$N的一劍。\n"NOR,
                       HIG"「離劍式」只見$N將手中長劍隨手拋向空中，長劍劍光暴長，急若流星飛向$n，$n躲避不及被長劍刺中。\n"NOR,
                       HIW"$N手中長劍虛空一點(diǎn)，"+HIR"「劍氣式」"+HIW"應(yīng)手而出，三丈之內(nèi)劍氣縱橫連綿不絕襲向$n，$n急忙騰空而起但已經(jīng)太晚，劍氣已經(jīng)貫胸而過。\n"NOR
                       });

string *pfparry_msg = ({
                      HIG"$p看破了$P的企圖，挺劍而上，一圈一點(diǎn)破解了$P的這招。\n"NOR,
                      HIB"$p騰身而起，$P的劍招險險從腳下擦過。\n"NOR,
                      HIY"$P突然從左方攻去一劍，早以被$p料到，身體輕輕向右飄出丈余，化解了這招。\n"NOR,
                      });

    if (!target ) target = offensive_target(me);

    if (!objectp(weapon = me->query_temp("weapon"))
        || (string)weapon->query("skill_type") != "sword")
        return notify_fail(RED"開什么玩笑，沒裝備劍就想使「九式合一」？\n"NOR);

//        if(me->query("family/master_id") != "feng qingyang"
//        && userp(me))
//           return notify_fail("你不是風(fēng)清揚(yáng)的弟子，不能使用絕招！\n");

    if (!target || !target->is_character() || !me->is_fighting(target) )
        return notify_fail("「九式和一」只能對戰(zhàn)斗中的對手使用。\n");

    if ((int)me->query_skill("lonely-sword", 1) < 250 )
        return notify_fail(WHT"你獨(dú)孤九劍不夠嫻熟，使不出「九式合一」。\n"NOR);

    if ((int)me->query("max_neili")<2000)
        return notify_fail(RED"你內(nèi)力修為不足，無法運(yùn)足內(nèi)力。\n"NOR);

     if( (int)me->query_skill("zixia-shengong",1)<100)
            return notify_fail("獨(dú)孤九劍必須配合紫霞神功。\n");

    if ((int)me->query("neili")<800)
    {
        return notify_fail(HIC"你現(xiàn)在內(nèi)力不夠，沒能將「九式合一」使完！\n"NOR);
    }

//    msg += HIR"「九式合一」"+HIW+"劍光左右飄忽，上下不定，直向$n卷去！\n\n"NOR;
//if ((int)me->query_skill("zixia-shengong",1) > (int)me->query_skill("lonely-sword",1))
//if (random(2)==0)
if ((int)me->query_skill("zixia-shengong",1) >= (int)me->query_skill("lonely-sword",1))
{
    msg = HIW "$N以氣御劍手中長劍劍芒躍動，劍光暴長，劍尖顫動使出獨(dú)孤九劍的，獨(dú)門絕技\n"NOR;
    msg += HIR"「九式合一」"+HIW+"劍光左右飄忽，上下不定，直向$n卷去！\n\n"NOR;

for (zhao=0;zhao<9;zhao++)
{ 

    if (random(me->query("combat_exp")) > (int)target->query("combat_exp")/3)
    {
        me->start_busy(3);
  if( !target->is_busy() )
{
        target->start_busy(random(2));
}
        damage = (int)me->query_skill("lonely-sword", 1) + (int)me->query_skill("sword", 1);
        damage = 100 + damage + random(damage);
        target->receive_damage("qi", damage/2);
        target->receive_wound("qi", damage/4);
      msg += pfattack_msg[random(sizeof(pfattack_msg))];
        me->add("neili", -damage/5);
    } else
    {
    me->start_busy(3);
 
      msg += pfparry_msg[random(sizeof(pfparry_msg))];
   }
}
    message_combatd(msg, me, target);
}
else
{
	extra = me->query_skill("lonely-sword",1) / 20;
	extra += me->query_skill("zixia-shengong",1) /20;
	me->add_temp("apply/attack", extra);	
	me->add_temp("apply/damage", extra);
      msg = HIW "$N劍氣沖霄，使出「"HIG"獨(dú)孤九劍"HIW"」絕技，身法陡然加快，猛地連出9招！\n"NOR;
        message_vision(msg, me, target);
        me->add("neili", -500);
        msg = HIC"第一劍！「"HIG"獨(dú)孤九劍"HIY"飛星式"HIC"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = HIW"第二劍！「"HIG"獨(dú)孤九劍"HIC"落沙式"HIW"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = HIY"第三劍！「"HIG"獨(dú)孤九劍"HIW"奔流式"HIY"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = HIR"第四劍！「"HIG"獨(dú)孤九劍"BBLU+HIW"行空式"NOR+HIR"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = BLU"第五劍！"HIB"「"HIG"獨(dú)孤九劍"HIR"橫掃式"BLU"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = HIG"第六劍！「"HIG"獨(dú)孤九劍"RED"直刺式"HIG"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = CYN"第七劍！「"HIG"獨(dú)孤九劍"HIY"絕情式"NOR+CYN"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = HIW+BLK"\n第八劍！「"HIG"獨(dú)孤九劍"HIB"斜劈式"HIW+BLK"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
        msg = MAG"第九劍！"HIR"「"HIG"獨(dú)孤九劍"HIY"之"U+HIG"九"HIW"天"HIY"御"HIW+BLK"劍"HIR"術(shù)"NOR+HIR"」"NOR;
        COMBAT_D->do_attack(me,target, weapon, TYPE_REGULAR,msg);
           msg = HIW"\n結(jié)果$n被$N攻了個措手不及。\n"NOR;
           message_vision(msg, me, target);
        me->start_busy(3);
	me->add_temp("apply/attack", -extra);	
	me->add_temp("apply/damage", -extra);
}        	
	
    if(!target->is_fighting(me)) target->fight_ob(me);
    return 1;
}