Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_waves_fatg.nss

@@ -0,0 +1,53 @@
+//::///////////////////////////////////////////////
+//:: Name      Waves of Fatigue
+//:: FileName  sp_waves_fatg.nss
+//:://////////////////////////////////////////////
+/**@file Waves of Fatigue
+Necromancy
+Level:  Sor/Wiz 5
+Components:     V, S
+Casting Time:   1 standard action
+Range:  30 ft.
+Area:   Cone-shaped burst
+Duration:       Instantaneous
+Saving Throw:   No
+Spell Resistance:       Yes
+
+Waves of negative energy render all living creatures
+in the spell<6C>s area fatigued. This spell has no effect 
+on a creature that is already fatigued. 
+
+**/
+//::////////////////////////////////////////////////
+//:: Author: Tenjac
+//:: Date  : 29.9.06
+//::////////////////////////////////////////////////
+
+#include "prc_alterations"
+#include "prc_inc_spells"
+
+void main()
+{
+    if(!X2PreSpellCastCode()) return;
+
+    PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
+
+    object oPC = OBJECT_SELF;
+    location lLoc = PRCGetSpellTargetLocation();
+    object oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, 9.14f, lLoc, TRUE, OBJECT_TYPE_CREATURE);
+    int nCasterLevel = PRCGetCasterLevel(oPC);
+    int nPenetr = nCasterLevel + SPGetPenetr();
+
+    while(GetIsObjectValid(oTarget))
+    {
+        if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nPenetr) && PRCGetIsAliveCreature(oTarget))
+        {
+            effect eEff = EffectFatigue();
+
+            SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eEff, oTarget, HoursToSeconds(8));
+            ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_REDUCE_ABILITY_SCORE), oTarget);
+        }
+        oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, 9.14f, lLoc, TRUE, OBJECT_TYPE_CREATURE);
+    }
+    PRCSetSchool();
+}