/*
Channeling energy causes a burst that affects all creatures of one type (either undead or living) in a 30-foot radius centered on the cleric.
The amount of damage dealt or healed is equal to 1d6 points of damage plus 1d6 points of damage for every two cleric levels beyond 1st (2d6 at 3rd, 3d6 at 5th, and so on).
Creatures that take damage from channeled energy receive a Will save to halve the damage.
The DC of this save is equal to 10 + 1/2 the cleric’s level + the cleric’s Charisma modifier.
Creatures healed by channel energy cannot exceed their maximum hit point total—all excess healing is lost.
*/

#include "nwn2_inc_spells"
#include "NW_I0_SPELLS"
#include "x2_inc_spellhook"

void CureNearby(effect eVis, effect eVis2, int nCasterLvl, int nMetaMagic);

void main()
{
    if (!X2PreSpellCastCode())
        return;

    int nCasterLvl = GetCasterLevel(OBJECT_SELF);
    int nMetaMagic = GetMetaMagicFeat();
    effect eVis = EffectVisualEffect( VFX_IMP_SUNSTRIKE );
    effect eVis2 = EffectVisualEffect(VFX_IMP_HEALING_G);
    effect eImpact = EffectVisualEffect(VFX_HIT_CURE_AOE);

    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, GetSpellTargetLocation());

	CureNearby(eVis, eVis2, nCasterLvl, nMetaMagic);
}

void CureObject(object oTarget, effect eVis, effect eVis2, int nCasterLvl, int nMetaMagic, int nDC)
{
	object oSelf = OBJECT_SELF;
	int nDamagen, nModify, nHurt;
	effect eKill, eHeal;
	float fDelay = GetRandomDelay();

    if (GetRacialType(oTarget) == RACIAL_TYPE_UNDEAD )
    {
        if(GetIsEnemy(oSelf, oTarget) || GetIsReactionTypeHostile(oSelf, oTarget))
        {
            SignalEvent(oTarget, EventSpellCastAt(oSelf, GetSpellId()));
            if (!MyResistSpell(oSelf, oTarget, fDelay))
            {
                nModify = d6((nCasterLvl-1)/2);
                nModify = ApplyMetamagicVariableMods(nModify, 3 * (nCasterLvl-1));
                if(!GetIsObjectValid(GetSpellCastItem()))
                {
                    if(GetHasFeat(FEAT_AUGMENT_HEALING) > 0)
                    {
                        int nSpellLvl = GetSpellLevel(GetSpellId());
                        nModify = nModify + (2 * nSpellLvl);
                    }
                }
                if (MySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_NONE, oSelf, fDelay))
                {
                    nModify /= 2;
                }
                nHurt =  nModify;
                eKill = EffectDamage(nHurt, DAMAGE_TYPE_POSITIVE);
                DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eKill, oTarget));
                DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget));
            }
        }
    }
    else
    {
        if (GetIsNeutral(oSelf, oTarget) || GetIsReactionTypeNeutral(oSelf, oTarget) || GetIsFriend(oSelf, oTarget) || GetIsReactionTypeFriendly(oSelf, oTarget))
        {
            SignalEvent(oTarget, EventSpellCastAt(oSelf, GetSpellId(), FALSE));
            nModify = d6((nCasterLvl-1)/2);
            nModify = ApplyMetamagicVariableMods(nModify, 3 * (nCasterLvl-1));
            if(!GetIsObjectValid(GetSpellCastItem()))
            {
                if(GetHasFeat(FEAT_AUGMENT_HEALING) > 0)
                {
                    int nSpellLvl = GetSpellLevel(GetSpellId());
                    nModify = nModify + (2 * nSpellLvl);
                }
            }
            eHeal = EffectHeal(nModify);
            DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eHeal, oTarget));
            DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis2, oTarget));
        }
    }
}

void CureNearby(effect eVis, effect eVis2, int nCasterLvl, int nMetaMagic)
{
	location lTarget = GetSpellTargetLocation();
    int nDC = 10 + GetLevelByClass(CLASS_TYPE_CLERIC, OBJECT_SELF) + GetAbilityModifier(ABILITY_CHARISMA);
    object oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 30.0f, lTarget);
    while (GetIsObjectValid(oTarget))
    {
		if (!GetFactionEqual(oTarget, OBJECT_SELF) || GetRacialType(oTarget) == RACIAL_TYPE_UNDEAD)
		{
 			CureObject(oTarget, eVis, eVis2, nCasterLvl, nMetaMagic, nDC);
		}
        oTarget = GetNextObjectInShape(SHAPE_SPHERE, 30.0f, lTarget);
    }
}