Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_fear.nss

@@ -0,0 +1,93 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Fear
+//:: Spell FileName PHS_S_Fear
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    [Fear, Mind-Affecting] Range: 10M. Area: Cone-shaped burst
+    Duration: 1 round/level or 1 round; see text
+    Saving Throw: Will partial Spell Resistance: Yes
+
+    An invisible cone of terror causes each living creature in the area to become
+    panicked unless it succeeds on a Will save. If cornered, a panicked creature
+    begins cowering. If the Will save succeeds, the creature is shaken for 1 round.
+
+    Material Component: Either the heart of a hen or a white feather.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    As spell description.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_FEAR)) 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;
+
+    // Get duration in rounds
+    float fDuration = PHS_GetDuration(PHS_ROUNDS, nCasterLevel, nMetaMagic);
+    float f1Round = 6.0;
+
+    // Declare effects
+    effect eFear = EffectFrightened();
+    effect eVis = EffectVisualEffect(VFX_IMP_FEAR_S);
+    effect eDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_FEAR);
+
+    // Link effects
+    effect eLink = EffectLinkEffects(eFear, eDur);
+
+    // Get all in a 10.0M cone
+    oTarget = GetFirstObjectInShape(SHAPE_SPELLCONE, 10.0, lTarget, TRUE);
+    while(GetIsObjectValid(oTarget))
+    {
+        // Reaction type check
+        if(!GetIsReactionTypeFriendly(oTarget) &&
+        // Make sure they are not immune to spells
+           !PHS_TotalSpellImmunity(oTarget))
+        {
+            // Signal Spell cast at event.
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_FEAR);
+
+            // Get delay
+            fDelay = GetDistanceBetween(oCaster, oTarget)/20;
+
+            // Spell Resistance and immunity check
+            if(!PHS_SpellResistanceCheck(oCaster, oTarget, fDelay))
+            {
+                // Check against mind spells
+                if(!PHS_ImmunityCheck(oTarget, IMMUNITY_TYPE_MIND_SPELLS, fDelay))
+                {
+                    // Will Saving throw versus fear, for panic else shaken.
+                    if(!PHS_SavingThrow(SAVING_THROW_WILL, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_FEAR, oCaster, fDelay))
+                    {
+                        // Impact and duration effects applied
+                        DelayCommand(fDelay, PHS_ApplyVFX(oTarget, eVis));
+                        SetLocalInt(oTarget, "PHS_SPELL_FEAR_FEAR", TRUE);
+                        PHS_ApplyDuration(oTarget, eLink, fDuration);
+                    }
+                    else // Shaken only
+                    {
+                        // Impact and duration effects applied
+                        DelayCommand(fDelay, PHS_ApplyVFX(oTarget, eVis));
+                        SetLocalInt(oTarget, "PHS_SPELL_FEAR_FEAR", FALSE);
+                        PHS_ApplyDuration(oTarget, eLink, fDuration);
+                    }
+                }
+            }
+        }
+        oTarget = GetNextObjectInShape(SHAPE_SPELLCONE, 10.0, lTarget, TRUE);
+    }
+}