Further file organization

Further file organization

nwn/nwnprc/trunk/smp/xxx_s_dirgeofdis.nss

@@ -0,0 +1,110 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Dirge of Discord
+//:: Spell FileName XXX_S_DirgeofDis
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Enchantment (Compulsion) [Chaos, Sonic]
+    Level: Clr 5
+    Components: V, S, F
+    Casting Time: 1 standard action
+    Range: Close (8M)
+    Area: 6.67M-radius spread (20-ft.)
+    Duration: 2d4 rounds + 1 round/level
+    Saving Throw: Will negates
+    Spell Resistance: Yes
+    Source: Various (WotC)
+
+    This spell creates an unholy, chaotic dirge that fills the subject's head
+    with the screams of the dying, the wailing of the damned, and the howling
+    of the mad. Affected creatures suffer a -4 profane penalty to attack rolls
+    and Concentration checks, a -8 enhancement penalty to effective Dexterity
+    (with Reflex saves reduced accordingly for the spell's duration), and halved
+    movement due to the subject's equilibrium being thrown off by the dirge.
+
+    Focus: A tiny urn containing some ashes of a destrachan.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    As the spell says.
+
+    Note that the urn focus isn't in yet.
+
+    Wizards spellbook spell.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "SMP_INC_SPELLS"
+
+void main()
+{
+    // Spell Hook Check.
+    if(!SMP_SpellHookCheck(SMP_SPELL_DIRGE_OF_DISCORD)) return;
+
+    // Declare major variables
+    object oCaster = OBJECT_SELF;
+    object oTarget;
+    location lTarget = GetSpellTargetLocation();
+    int nCasterLevel = SMP_GetCasterLevel();
+    int nSpellSaveDC = SMP_GetSpellSaveDC();
+    int nMetaMagic = SMP_GetMetaMagicFeat();
+
+    // Duration: 2d4 + 1 round/level
+    float fDuration;
+
+    // Declare Effects
+    effect eDex = EffectAbilityDecrease(ABILITY_DEXTERITY, 8);
+    effect eConcentration = EffectSkillDecrease(SKILL_CONCENTRATION, 4);
+    effect eAttack = EffectAttackDecrease(4);
+    effect eSlow = EffectMovementSpeedDecrease(50);
+    effect eDur = EffectVisualEffect(VFX_DUR_MIND_AFFECTING_DISABLED);
+    effect eCessate = EffectVisualEffect(VFX_DUR_CESSATE_POSITIVE);
+
+    // Link effects
+    effect eLink = EffectLinkEffects(eDex, eConcentration);
+    eLink = EffectLinkEffects(eLink, eAttack);
+    eLink = EffectLinkEffects(eLink, eSlow);
+    eLink = EffectLinkEffects(eLink, eDur);
+    eLink = EffectLinkEffects(eLink, eCessate);
+
+
+    // Apply AOE location explosion
+    effect eImpact = EffectVisualEffect(VFX_FNF_LOS_EVIL_20);
+    SMP_ApplyLocationVFX(lTarget, eImpact);
+
+    // Get all targets in a sphere, 6.67M radius, all creatures
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, 6.67, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    // Loop targets
+    while(GetIsObjectValid(oTarget))
+    {
+        // PvP Check
+        if(!GetIsReactionTypeFriendly(oTarget, oCaster) &&
+        // Make sure they are not immune to spells
+           !SMP_TotalSpellImmunity(oTarget))
+        {
+            //Fire cast spell at event for the specified target
+            SMP_SignalSpellCastAt(oTarget, SMP_SPELL_DIRGE_OF_DISCORD);
+
+            // Spell resistance And immunity checking.
+            if(!SMP_SpellResistanceCheck(oCaster, oTarget))
+            {
+                // Other immunities: Must be able to hear!
+                if(SMP_GetCanHear(oTarget))
+                {
+                    // Roll will save to negate
+                    if(!SMP_SavingThrow(SAVING_THROW_WILL, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_SONIC))
+                    {
+                        // Roll/get duration
+                        fDuration = SMP_GetRandomDuration(SMP_ROUNDS, 4, 2, nMetaMagic, nCasterLevel);
+
+                        // Apply effects for fDuration
+                        SMP_ApplyDuration(oTarget, eLink, fDuration);
+                    }
+                }
+            }
+        }
+        // Get Next Target
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, 6.67, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+}