Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_horridwilt.nss

@@ -0,0 +1,105 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Horrid Wilting
+//:: Spell FileName PHS_S_HorridWilt
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Range: Long (40M)
+    Targets: Living enemy creatures, within a 10-M-radius sphere
+    Duration: Instantaneous
+    Saving Throw: Fortitude half
+    Spell Resistance: Yes
+
+    This spell evaporates moisture from the body of each subject living creature,
+    dealing 1d6 points of damage per caster level (maximum 20d6). This spell is
+    especially devastating to water elementals and plant creatures, which instead
+    take 1d8 points of damage per caster level (maximum 20d8).
+
+    Arcane Material Component: A bit of sponge.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Plant and water elementals are easily added extra damage - more power
+    to the necromancers, eh?
+
+    Damage is magical, as Bioware's spell. Massive radius, however!
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_HORRID_WILTING)) 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 nDam;
+    float fDelay;
+
+    // Limit dice to 20d6/8
+    int nDice = PHS_LimitInteger(nCasterLevel, 20);
+
+    // Declare Effects
+    effect eVis = EffectVisualEffect(VFX_IMP_NEGATIVE_ENERGY);
+
+    // Apply AOE visual
+    effect eImpact = EffectVisualEffect(VFX_FNF_HORRID_WILTING);
+    PHS_ApplyLocationVFX(lTarget, eImpact);
+
+    // Get all targets in a sphere, 10.0M radius, objects - Creatures
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    // Loop targets
+    while(GetIsObjectValid(oTarget))
+    {
+        // Enemy only PvP Check and spell immunity check
+        if(GetIsReactionTypeHostile(oTarget, oCaster) &&
+           !PHS_GeneralEverythingImmunity(oTarget))
+        {
+            //Fire cast spell at event for the specified target
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_HORRID_WILTING);
+
+            // Make sure they are living
+            if(PHS_GetIsAliveCreature(oTarget))
+            {
+                // 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))
+                {
+                    // If they are a plant, or water elemental, do d8 not d6 damage.
+                    if(PHS_GetIsPlant(oTarget) || PHS_GetIsWaterElemental(oTarget))
+                    {
+                        // Roll damage - d8
+                        nDam = PHS_MaximizeOrEmpower(8, nDice, nMetaMagic);
+                    }
+                    else
+                    {
+                        // Roll damage - d6
+                        nDam = PHS_MaximizeOrEmpower(6, nDice, nMetaMagic);
+                    }
+
+                    // Adjust the damage based on the Fortitude Save.
+                    nDam = PHS_GetAdjustedDamage(SAVING_THROW_FORT, nDam, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_FIRE, oCaster, fDelay);
+
+                    // Need to do damage to apply visuals
+                    if(nDam > 0)
+                    {
+                        // Apply effects to the currently selected target.
+                        DelayCommand(fDelay, PHS_ApplyDamageVFXToObject(oTarget, eVis, nDam, DAMAGE_TYPE_MAGICAL));
+                    }
+                }
+            }
+        }
+        // Get Next Target
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, 10.0, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+}