#include "nw_i0_spells"
#include "x2_i0_spells"
#include "x2_inc_spellhook"

void main()
{

    if (!X2PreSpellCastCode())      return; //for spellhooking

    int nDamType = IP_CONST_DAMAGETYPE_FIRE;
    int nItemEffect = ITEM_VISUAL_FIRE;
    int nVisEffect2 = VFX_IMP_PULSE_FIRE;
    int nVisEffect1 = VFX_IMP_FLAME_M;

    effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
    int nCasterLvl = GetCasterLevel(OBJECT_SELF);
    int nDuration = 2 * nCasterLvl;
    int nMetaMagic = GetMetaMagicFeat();
    object oTarget = GetSpellTargetObject();

    if(nCasterLvl > 10)     //cap at lv 10, was intended so from beginning on
        nCasterLvl = 10;

    //iprp_damagecost.2da -> 16=6 damage, 17=7 damage, ... 30=20 damage
    int nDamConst = 13 + nCasterLvl; //10 for dam const, 3 for "variable" damage (1d6), lv for add damage

    if (GetLastSpellCastClass() != CLASS_TYPE_CLERIC)   //if sorc/wiz -> flameweapon
    {
        nDamConst -= 1;   //if wiz/sorc (1d4) -> 2 (1 less than cleric (1d6))
        //iprp_damagecost.2da -> 15=2d12 damage, but 5=5 damage (variable damage from value 6 to 15)
        if (nCasterLvl == 3)   nDamConst = 5;  //if lv3 wiz -> 3+2=5 damage
    }
    if (nMetaMagic == METAMAGIC_EXTEND)     nDuration = nDuration * 2; //Duration is +100%
    float fDuration = TurnsToSeconds(nDuration);


    object oMyWeapon;   //replaced original for my little improved check
    if (IPGetIsMeleeWeapon(oTarget))    //is weapon
        oMyWeapon = oTarget;

    else if (GetCreatureSize(oTarget) != CREATURE_SIZE_INVALID)     //is creature
    {
        object oRightWeapon = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oTarget);

        if (IPGetIsMeleeWeapon(oRightWeapon))   //has melee weapon in hand
            oMyWeapon = oRightWeapon;

        else    //sometimes players unequip weapon just before spell is cast at, this is a fix
        {
            oMyWeapon = GetLastWeaponUsed(oTarget);
            if (!IPGetIsMeleeWeapon(oMyWeapon))     //last weapon is no melee weapon (blinded caster?)
                oMyWeapon = OBJECT_INVALID;
        }
    }
    else     //is no creature or player
        oMyWeapon = OBJECT_INVALID;


    if(GetIsObjectValid(oMyWeapon) )
    {
        itemproperty ipLoop=GetFirstItemProperty(oMyWeapon);
        while (GetIsItemPropertyValid(ipLoop))  //because same damage types don`t stack
        {
          if (GetItemPropertyType(ipLoop) == ITEM_PROPERTY_DAMAGE_BONUS)
          {
            if (GetItemPropertyDurationType(ipLoop) == DURATION_TYPE_PERMANENT)
            {
                int nSubType = GetItemPropertySubType(ipLoop);
                if (nSubType == nDamType)   //apply different damage if weapon already has the same
                {
                    nDamType = IP_CONST_DAMAGETYPE_ELECTRICAL;
                    nItemEffect = ITEM_VISUAL_ELECTRICAL;
                    nVisEffect2 = VFX_IMP_PULSE_WIND;
                    nVisEffect1 = VFX_IMP_LIGHTNING_S;
                }//if subtype
            }//if permanent
          }//if bonus
        ipLoop=GetNextItemProperty(oMyWeapon);
        }//while

        effect eVis1 = EffectVisualEffect(nVisEffect1);
        effect eVis2 = EffectVisualEffect(nVisEffect2);
        effect eVis = EffectLinkEffects(eVis1 ,eVis2);
        SignalEvent(GetItemPossessor(oMyWeapon), EventSpellCastAt(OBJECT_SELF, GetSpellId(), FALSE));

        if (nDuration>0)
        {
            ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, GetItemPossessor(oMyWeapon));
            ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDur, GetItemPossessor(oMyWeapon), fDuration);

            itemproperty ipElemDam = ItemPropertyDamageBonus(nDamType, nDamConst);
            IPSafeAddItemProperty(oMyWeapon, ipElemDam, fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING);

            itemproperty ipElemVis = ItemPropertyVisualEffect(nItemEffect);
            IPSafeAddItemProperty(oMyWeapon, ipElemVis, fDuration, X2_IP_ADDPROP_POLICY_REPLACE_EXISTING,FALSE,TRUE);
        }//if duration
    }//if valid
    else
        FloatingTextStrRefOnCreature(83615, OBJECT_SELF);
}