//::///////////////////////////////////////////////
//:: Name      Apocalypse from the Sky
//:: FileName  sp_apoc_sky.nss
//:://////////////////////////////////////////////
/**@file Apocalypse from the Sky
Conjuration (Creation) [Evil]
Level: Corrupt 9
Components: V, S, M, Corrupt
Casting Time: 1 day
Range: Personal
Area: 10-mile radius/level, centered on caster
Duration: Instantaneous
Saving Throw: None
Spell Resistance: Yes 

The caster calls upon the darkest forces in all 
existence to rain destruction down upon the land. 
All creatures and objects in the spell's area take
10d6 points of fire, acid, or sonic damage 
(caster's choice). This damage typically levels 
forests, sends mountains tumbling, and wipes out 
entire populations of living creatures. The caster 
is subject to the damage as well as the corruption 
cost.

Material Component: An artifact, usually one of good 
perverted to this corrupt use.

Corruption Cost: 3d6 points of Constitution damage 
and 4d6 points of Wisdom drain. Just preparing this 
spell deals 1d3 points of wisdom damage, with another
1d3 points of Wisdom damage for each day it remains 
among the caster's prepared spells.

Author:    Tenjac
Created:   
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////

#include "prc_alterations"
#include "prc_inc_spells"
#include "prc_spell_const"
#include "prc_add_spell_dc"

void main()
{
        PRCSetSchool(SPELL_SCHOOL_CONJURATION);
        
        // Run the spellhook. 
        if (!X2PreSpellCastCode()) return;
        
        //define vars
        object oPC = OBJECT_SELF;
        object oArea = GetArea(oPC);
        int nDam;
        int nDamType;
        int nSpell = GetSpellId();
        effect eVis;
        
        //Handle damage types
        if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_FIRE)
        {
                nDamType = DAMAGE_TYPE_FIRE;
                eVis = EffectVisualEffect(VFX_FNF_METEOR_SWARM);
        }
        
        if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_ACID)
        {
                nDamType = DAMAGE_TYPE_ACID;
                eVis = EffectVisualEffect(VFX_FNF_STORM);
        }
        
        if(nSpell == SPELL_APOCALYPSE_FROM_THE_SKY_SONIC)
        {
                nDamType = DAMAGE_TYPE_SONIC;
                eVis = EffectVisualEffect(VFX_FNF_SOUND_BURST);
        }
        
        ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC);
        
        object oObject = GetFirstObjectInArea(oArea);
        
        //Loop
        while(GetIsObjectValid(oObject))
        {
                nDam = d6(10);
                
                //if extra damage switch set, ndam=d4(40)
                if(GetPRCSwitch("PRC_AFTS_EXTRA_DAMAGE"))
                {
                        nDam = d4(40);
                }
                nDam += SpellDamagePerDice(oPC, 10);
                effect eDam = PRCEffectDamage(oObject, nDam, nDamType);
                
                //Apply
                SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oObject);
                
                oObject = GetNextObjectInArea();
        }       
        
        //SPEvilShift(oPC);
        
        //Corruption cost
        int nDam1 = d6(3);
        int nDam2 = d6(4);
        
        DoCorruptionCost(oPC, ABILITY_CONSTITUTION, nDam1, 0);
        DoCorruptionCost(oPC, ABILITY_WISDOM, nDam2, 1);
        
        //Corrupt spells get mandatory 10 pt evil adjustment, regardless of switch
        AdjustAlignment(oPC, ALIGNMENT_EVIL, 10, FALSE);
        
        PRCSetSchool();
}