Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_shadspray.nss

@@ -0,0 +1,58 @@
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+//School: Illusion
+//Area of Effect / Target: Small
+//Save: Fortitude negates
+//Spell Resistance: Yes
+//You cause a multitude of ribbonlike shadows to explode outward in the
+//target area.  Creatures in the area take 2 points of strength
+//damage, are dazed for 1 round, and suffer a -2 penalty to saves vs.
+//fear effects.  The fear penalty lasts for 1 round / level.
+void main()
+{
+    // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
+    if (!X2PreSpellCastCode()) return;
+
+    PRCSetSchool(SPELL_SCHOOL_ILLUSION);
+
+    // Apply a burst visual effect at the target location.
+    location lTarget = PRCGetSpellTargetLocation();
+//TODO: NEED VFX
+    effect eImpact = EffectVisualEffect(VFX_FNF_GAS_EXPLOSION_GREASE);
+    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lTarget);
+
+    // Determine the spell's duration.
+    int nCasterLvl = PRCGetCasterLevel(OBJECT_SELF);
+    float fDuration = PRCGetMetaMagicDuration(RoundsToSeconds(nCasterLvl));
+
+    // Build all of the detrimental effectsd, any target that fails its save takes
+    // 2 points of strength damage, is dazed for 1 round, and has it's save against
+    // fear effects lowered by 2.
+    //effect eDamage = EffectAbilityDecrease(ABILITY_STRENGTH, 2);
+    effect eDaze = EffectDazed();
+    effect eFear = EffectSavingThrowDecrease(SAVING_THROW_ALL, 2, SAVING_THROW_TYPE_FEAR);
+
+    object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget);
+    while(GetIsObjectValid(oTarget))
+    {
+        if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF))
+        {
+            PRCSignalSpellEvent(oTarget);
+
+            // Let the creature make a fort save, if it fails it's apply the
+            // detrimental effects.
+            if (!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, PRCGetSaveDC(oTarget,OBJECT_SELF)))
+            {
+                SPApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DAZED_S), oTarget);
+                //SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDamage, oTarget);
+                ApplyAbilityDamage(oTarget, ABILITY_STRENGTH, 2, DURATION_TYPE_PERMANENT, TRUE);
+                SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eDaze, oTarget, RoundsToSeconds(1),TRUE,-1,nCasterLvl);
+                SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eFear, oTarget, fDuration,TRUE,-1,nCasterLvl);
+            }
+        }
+
+        oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_SMALL, lTarget);
+    }
+
+    PRCSetSchool();
+}