//::///////////////////////////////////////////////
//:: Cloudkill: On Enter
//:: NW_S0_CloudKillA.nss
//:: Copyright (c) 2001 Bioware Corp.
//:://////////////////////////////////////////////
/*
    All creatures with 3 or less HD die, those with
    4 to 6 HD must make a save Fortitude Save or die.
    Those with more than 6 HD take 1d10 Poison damage
    every round.
*/
//:://////////////////////////////////////////////
//:: Created By: Preston Watamaniuk
//:: Created On: May 17, 2001
//:://////////////////////////////////////////////


//:: modified by mr_bumpkin Dec 4, 2003
//:: modified by Ornedan Dec 22, 2004 to PnP rules
#include "prc_inc_spells"

#include "prc_add_spell_dc"


void main()
{
DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION);


    //Declare major variables
    object oTarget  = GetEnteringObject();
    int nHD         = GetHitDice(oTarget);
    effect eDeath   = EffectDeath();
    effect eVis     = EffectVisualEffect(VFX_IMP_DEATH);
    effect eNeg     = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY);
    effect eConceal = EffectConcealment(20);
    effect eVis2    = EffectVisualEffect(VFX_DUR_GHOST_TRANSPARENT);
    effect eLink    = EffectLinkEffects(eConceal, eVis2);

    //effect eDam;
    int nDam = d4();
    int nMetaMagic = PRCGetMetaMagicFeat();

    object aoeCreator = GetAreaOfEffectCreator();
    int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level");

    //int nPenetr = SPGetPenetrAOE(aoeCreator,CasterLvl);

    //Enter Metamagic conditions
    if(nMetaMagic & METAMAGIC_MAXIMIZE)
    {
        nDam = 4;//Damage is at max
    }
    if(nMetaMagic & METAMAGIC_EMPOWER)
    {
        nDam =  nDam + (nDam/2); //Damage/Healing is +50%
    }

    if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, aoeCreator))
    {
        //Fire cast spell at event for the specified target
        SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_CLOUDKILL));

        //Concealement by fog happens no matter what
        SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eConceal, oTarget, 0.0f, FALSE);

        //Determine spell effect based on the targets HD
        if (nHD <= 3)
        {
            if(!GetIsImmune(oTarget, IMMUNITY_TYPE_DEATH))
            {
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget);
            }
        }
        else if (nHD >= 4 && nHD <= 6)
        {
            //Make a save or die
            if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, aoeCreator), SAVING_THROW_TYPE_DEATH, OBJECT_SELF))
            {
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget);
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
            }
            else
            {
			if (GetHasMettle(oTarget, SAVING_THROW_FORT))
			// This script does nothing if it has Mettle, bail
				return;            
                AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam, DURATION_TYPE_TEMPORARY, TRUE, -1.0f));
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget);
            }
        }
        else
        {
            if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget, aoeCreator), SAVING_THROW_TYPE_SPELL, OBJECT_SELF))
            {
                AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam, DURATION_TYPE_TEMPORARY, TRUE, -1.0f));
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget);
            }
            else
            {
			if (GetHasMettle(oTarget, SAVING_THROW_FORT))
			// This script does nothing if it has Mettle, bail
				return;            
                // Halve the damage on succesfull save.
                AssignCommand(aoeCreator, ApplyAbilityDamage(oTarget, ABILITY_CONSTITUTION, nDam / 2, DURATION_TYPE_TEMPORARY, TRUE, -1.0f));
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNeg, oTarget);
            }
        }
    }

DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
// Getting rid of the local integer storing the spellschool name
}