Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_icestorm.nss

@@ -0,0 +1,93 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Ice Storm
+//:: Spell FileName PHS_S_IceStorm
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Evocation [Cold]
+    Range: Long (40M)
+    Area: Everything within a 6.67-M. radius sphere
+    Duration: 1 full round; see text
+    Saving Throw: None
+    Spell Resistance: Yes
+
+    Great magical hailstones pound down for 1 full round, dealing 3d6 points of
+    bludgeoning damage and 2d6 points of cold damage to every creature in the
+    area. A -4 penalty applies to each Listen check made within the ice storm<72>s
+    effect, and all land movement within its area is at half speed. At the end
+    of the duration, the hail disappears, leaving no aftereffects (other than
+    the damage dealt).
+
+    Arcane Material Component: A pinch of dust and a few drops of water.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    No save, so [Cold] doesn't apply to much
+
+    Rest is as normal. I did do this before the crash, oh well...*goes and backs
+    up now*
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_ICE_STORM)) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget;
+    location lTarget = GetSpellTargetLocation();
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+    int nDamCold, nDamBlud;
+    float fDelay;
+
+    // Declare Effects
+    effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
+    effect eSlow = EffectMovementSpeedDecrease(50);
+    effect eSkill = EffectSkillDecrease(SKILL_LISTEN, 4);
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
+
+    // Link effects
+    effect eSlowLink = EffectLinkEffects(eSlow, eCessate);
+    effect eSkillLink = EffectLinkEffects(eSkill, eCessate);
+
+    // Apply AOE visual
+    effect eImpact = EffectVisualEffect(VFX_FNF_ICESTORM);
+    PHS_ApplyLocationVFX(lTarget, eImpact);
+
+    // Get all targets in a sphere, 6.67M radius, objects - Creatures/doors/placeables
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 6.67, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+    // Loop targets
+    while(GetIsObjectValid(oTarget))
+    {
+        // PvP Check and spell immunity check
+        if(!GetIsReactionTypeFriendly(oTarget, oCaster) &&
+           !PHS_GeneralEverythingImmunity(oTarget))
+        {
+            // Fire cast spell at event for the specified target
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_ICE_STORM);
+
+            //Get the distance between the explosion and the target to calculate delay
+            fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20;
+
+            // Spell resistance And immunity checking.
+            if(!PHS_SpellResistanceCheck(oCaster, oTarget, fDelay))
+            {
+                // Roll damage for each target
+                nDamCold = PHS_MaximizeOrEmpower(6, 2, nMetaMagic);
+                nDamBlud = PHS_MaximizeOrEmpower(6, 3, nMetaMagic);
+
+                // Apply effects to the currently selected target.
+                DelayCommand(fDelay, PHS_ApplyDamageVFXToObject(oTarget, eVis, nDamCold, DAMAGE_TYPE_COLD));
+                DelayCommand(fDelay, PHS_ApplyDamageToObject(oTarget, nDamBlud, DAMAGE_TYPE_BLUDGEONING));
+            }
+        }
+        // Get Next Target
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, 6.67, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+    }
+}