Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_scare.nss

@@ -0,0 +1,120 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Scare
+//:: Spell FileName PHS_S_Scare
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Necromancy [Fear, Mind-Affecting]
+    Range: Medium (20M)
+    Targets: One living enemy per three levels in a 5M-radius sphere
+    Duration: 1 round/level or 1 round; see text
+    Saving Throw: Will partial
+    Spell Resistance: Yes
+
+    The affected creatures becomes frightened. If each subject succeeds on a Will
+    save, they are shaken for 1 round. Creatures with 6 or more Hit Dice are
+    immune to this effect.
+
+    Scare counters and dispels remove fear.
+
+    Material Component: A bit of bone from an undead skeleton, zombie, ghoul,
+    ghast, or mummy.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    As spell description. Stronger (and AOE) version of Cause Fear.
+
+    Shaken effect for 1 round like many others.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_SCARE)) 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();
+    float fDelay;
+
+    // What are the maximum enemies we can affect?
+    int nMaxEnemies = PHS_LimitInteger(nCasterLevel/3);
+    int nEnemiesCounter = 0;
+
+    // Get duration in rounds. Can extend the 1 round too.
+    float fDuration = PHS_GetDuration(PHS_ROUNDS, nCasterLevel, nMetaMagic);
+    float f1Round = PHS_GetDuration(PHS_ROUNDS, 1, nMetaMagic);
+
+    // Declare effects
+    effect eFear = EffectFrightened();
+    effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S);
+    effect eDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR);
+    effect eDispelVFX = EffectVisualEffect(VFX_IMP_DISPEL);
+
+    // Link effects
+    effect eLink = EffectLinkEffects(eFear, eDur);
+
+    // Get all in a 5M sphere. 30ft diameter = 15ft radius
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_FEET_15, lTarget, TRUE);
+    while(GetIsObjectValid(oTarget) && nEnemiesCounter < nMaxEnemies)
+    {
+        // Reaction type check
+        if(GetIsReactionTypeHostile(oTarget))
+        {
+            // We chose this one to affect - add one to total we chose
+            nEnemiesCounter++;
+
+            // Signal Spell cast at event.
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_SCARE);
+
+            // Get delay
+            fDelay = GetDistanceBetween(oCaster, oTarget)/20;
+
+            // Check hit dice
+            if(GetHitDice(oTarget) <= 5)
+            {
+                // Check spell resistance
+                if(!PHS_SpellResistanceCheck(oCaster, oTarget))
+                {
+                    // Check against mind spells and Fear
+                    if(!PHS_ImmunityCheck(oTarget, IMMUNITY_TYPE_MIND_SPELLS) &&
+                       !PHS_ImmunityCheck(oTarget, IMMUNITY_TYPE_FEAR))
+                    {
+                        // If we remove Remove Fear, via. dispelling, we do not
+                        // do the save
+                        if(PHS_RemoveSpellEffectsFromTarget(PHS_SPELL_REMOVE_FEAR, oTarget, fDelay))
+                        {
+                            // Removed - apply vispel VFX
+                            DelayCommand(fDelay, PHS_ApplyVFX(oTarget, eDispelVFX));
+                        }
+                        else
+                        {
+                            // Will Saving throw versus fear negates
+                            if(!PHS_SavingThrow(SAVING_THROW_WILL, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_FEAR))
+                            {
+                                // Impact and duration effects applied
+                                SetLocalInt(oTarget, "PHS_SPELL_SCARE_FEAR", TRUE);
+                                DelayCommand(fDelay, PHS_ApplyDurationAndVFX(oTarget, eVis, eLink, fDuration));
+                            }
+                            else
+                            {
+                                // Pass, do shaken
+                                SetLocalInt(oTarget, "PHS_SPELL_SCARE_FEAR", TRUE);
+                                DelayCommand(fDelay, PHS_ApplyDurationAndVFX(oTarget, eVis, eLink, f1Round));
+                            }
+                        }
+                    }
+                }
+            }
+        }
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_FEET_15, lTarget, TRUE);
+    }
+}