Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_sorrow.nss

@@ -0,0 +1,63 @@
+//::///////////////////////////////////////////////
+//:: Name      Sorrow
+//:: FileName  sp_sorrow.nss
+//:://////////////////////////////////////////////
+/**@file Sorrow
+Enchantment [Evil, Mind-Affecting]
+Level: Brd 1, Clr 1
+Components: V, S, M
+Casting Time: 1 action
+Range: Close (25 ft. + 5 ft./2 levels)
+Target: One living creature
+Duration: 1 round/level
+Saving Throw: Will negates
+Spell Resistance: Yes
+
+Grief and sadness overcome the subject. She takes
+a -3 morale penalty on all attack rolls, saving
+throws, ability checks, and skill checks.
+
+Material Component: A tear.
+
+Author:    Tenjac
+Created:   05/02/06
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+void main()
+{
+    object oPC = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nCasterLvl = PRCGetCasterLevel(oPC);
+    int nDC = PRCGetSaveDC(oTarget, oPC);
+    float fDur = RoundsToSeconds(nCasterLvl);
+    effect eVis = EffectVisualEffect(VFX_DUR_GLOW_BLUE);
+
+    //spellhook
+    if(!X2PreSpellCastCode()) return;
+
+    PRCSetSchool(SPELL_SCHOOL_ENCHANTMENT);
+
+        PRCSignalSpellEvent(oTarget,TRUE, SPELL_SORROW, oPC);
+
+    if(!PRCDoResistSpell(oPC, oTarget, nCasterLvl + SPGetPenetr()) && PRCGetIsAliveCreature(oTarget))
+    {
+        //Save
+        if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_EVIL))
+        {
+            effect eLink = EffectAttackDecrease(3, ATTACK_BONUS_MISC);
+                   eLink = EffectLinkEffects(eLink, EffectSavingThrowDecrease(SAVING_THROW_ALL, 3, SAVING_THROW_TYPE_ALL));
+                   eLink = EffectLinkEffects(eLink, EffectSkillDecrease(SKILL_ALL_SKILLS, 3));
+                   eLink = EffectLinkEffects(eLink, eVis);
+                   //Can't do ability without modifying the ability score itself; skipping
+
+            SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget);
+        }
+    }
+
+    //SPEvilShift(oPC);
+    PRCSetSchool();
+}