Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_shiver_tch.nss

@@ -0,0 +1,75 @@
+//::///////////////////////////////////////////////
+//:: 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();
+}