//::///////////////////////////////////////////////
//:: Name      Shivering Touch
//:: FileName  sp_shiver_tch.nss
//:://////////////////////////////////////////////
/**@file Shivering Touch
Necromancy [cold]
Level: Cleric 3, Sorceror/Wizard 3
Components: V, S
Casting Time: 1 Standard Action
Range: Touch
Target: Creature Touched
Duration: 1 round/level
Saving Throw: None
Spell Resistance: Yes

On a succesful melee attack, you instantly suck the
heat from the target's body, rendering it numb. The
target takes 3d6 points of Dexterity damage.
Creatures with the cold subtype are immune to the
effects of Shivering Touch.

Author:    Tenjac
Created:   5/14/06
*/
//:://////////////////////////////////////////////
//:://////////////////////////////////////////////

#include "prc_inc_sp_tch"

void main()
{
    PRCSetSchool(SPELL_SCHOOL_NECROMANCY);

    // Run the spellhook.
    if (!X2PreSpellCastCode()) return;

    object oPC = OBJECT_SELF;
    object oTarget = PRCGetSpellTargetObject();
    int nCasterLvl = PRCGetCasterLevel(oPC);
    float fDuration = RoundsToSeconds(nCasterLvl);
    int nDam = d6(3);
    int nTouch = PRCDoMeleeTouchAttack(oTarget);
    int nMetaMagic = PRCGetMetaMagicFeat();

    PRCSignalSpellEvent(oTarget, TRUE, SPELL_SHIVERING_TOUCH, oPC);

    if (nMetaMagic & METAMAGIC_EXTEND)
    {
        fDuration += fDuration;
    }

    if (nMetaMagic & METAMAGIC_MAXIMIZE)
    {
        nDam = 6;
    }

    if(nMetaMagic & METAMAGIC_EMPOWER)
    {
        nDam += (nDam/2);
    }

    if(nTouch > 0)
    {
        //Check Spell Resistance
        if (!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()))
        {
            effect eDrain = EffectAbilityDecrease(ABILITY_DEXTERITY, nDam);
            effect eVis = EffectVisualEffect(VFX_IMP_FROST_L);

            SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
            SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDrain, oTarget, fDuration);
        }
    }
    PRCSetSchool();
}