Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_freezesphe.nss

@@ -0,0 +1,118 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Freezing Sphere
+//:: Spell FileName phs_s_freezesphe
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Freezing Sphere
+    Evocation [Cold]
+    Level: Sor/Wiz 6
+    Components: V, S, F
+    Casting Time: 1 standard action
+    Range: Long (40M)
+    Target, Effect, or Area: See text
+    Duration: Instantaneous or 1 round/level; see text
+    Saving Throw: Reflex half; see text
+    Spell Resistance: Yes
+
+    Freezing sphere creates a frigid globe of cold energy that streaks from your
+    fingertips to the location you select, where it explodes in a 10-foot-radius
+    burst, dealing 1d6 points of cold damage per caster level (maximum 15d6) to
+    each creature in the area. An elemental (water) creature instead takes 1d8
+    points of cold damage per caster level (maximum 15d8).
+
+    You can refrain from firing the globe after completing the spell, if you wish.
+    You can hold the charge for as long as 1 round per level, at the end of which
+    time the freezing sphere bursts centered on you (and you receive no saving
+    throw to resist its effect). Firing the globe in a later round is a standard
+    action usable from your class item.
+
+    Focus: A small crystal sphere.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Nearly the same as fireball. Note that it is possible to refrain from
+    firing (NOT IN YET)
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_FREEZING_SPHERE)) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget;
+    location lTarget = GetSpellTargetLocation();
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nSpellSaveDC = PHS_GetSpellSaveDC();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+    int nDamage;
+    int nAppearance;
+    float fDelay;
+
+    // Declare Effects
+    effect eVis = EffectVisualEffect(VFX_IMP_FROST_L);
+
+    // Are we holding it back or not?
+    //if(!NOT IN YET) return;
+
+    // Apply AOE visual
+    effect eImpact = EffectVisualEffect(PHS_VFX_FNF_FREEZING_SPHERE);
+    PHS_ApplyLocationVFX(lTarget, eImpact);
+
+    // Get all targets in a sphere, medium (3.3) radius, objects
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+    // Loop targets
+    while(GetIsObjectValid(oTarget))
+    {
+        // PvP Check
+        if(!GetIsReactionTypeFriendly(oTarget, oCaster))
+        {
+            // Fire cast spell at event for the specified target
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_FREEZING_SPHERE);
+
+            // 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))
+            {
+                // Damage - it is 1d8 for water elementals!
+                nAppearance = GetAppearanceType(oTarget);
+
+                // Elemental
+                if(GetObjectType(oTarget) == OBJECT_TYPE_CREATURE &&
+                  (nAppearance == APPEARANCE_TYPE_ELEMENTAL_WATER ||
+                   nAppearance == APPEARANCE_TYPE_ELEMENTAL_WATER_ELDER ||
+                   FindSubString(GetStringUpperCase(GetSubRace(oTarget)), "WATER ELEMENTAL") >= 0))
+                {
+                    // 1d8/level
+                    nDamage = PHS_MaximizeOrEmpower(8, nCasterLevel, nMetaMagic);
+                }
+                // Not an elemental
+                else
+                {
+                    // 1d6/level
+                    nDamage = PHS_MaximizeOrEmpower(6, nCasterLevel, nMetaMagic);
+                }
+
+                // Adjust the damage based on the Reflex Save, Evasion and Improved Evasion.
+                nDamage = PHS_GetAdjustedDamage(SAVING_THROW_REFLEX, nDamage, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_COLD);
+
+                // Need to do damage to apply visuals
+                if(nDamage > 0)
+                {
+                    // Apply effects to the currently selected target.
+                    DelayCommand(fDelay, PHS_ApplyDamageVFXToObject(oTarget, eVis, nDamage, DAMAGE_TYPE_COLD));
+                }
+            }
+        }
+        // Get Next Target
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_MEDIUM, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+    }
+}