Further file organization

Further file organization

nwn/nwnprc/trunk/newspellbook/inv_castlament.nss

@@ -0,0 +1,47 @@
+//::///////////////////////////////////////////////
+//:: Name      Caster's Lament
+//:: FileName  inv_castlament.nss
+//::///////////////////////////////////////////////
+/*
+
+Dark Invocation
+8th Level Spell
+
+With a touch you can attempt to dispel all effects
+on a creature, as the break enchantment spell. The
+maximum caster level for the dispel checks is 15.
+
+*/
+//::///////////////////////////////////////////////
+
+#include "inc_dispel"
+#include "inv_inc_invfunc"
+#include "inv_invokehook"
+
+void main()
+{
+    if(!PreInvocationCastCode()) return;
+
+    object oTarget = PRCGetSpellTargetObject();
+    int nCasterLevel = GetInvokerLevel(OBJECT_SELF, GetInvokingClass());
+    int iTypeDispel = GetLocalInt(GetModule(), "BIODispel");
+    effect eVis = EffectVisualEffect(VFX_IMP_BREACH);
+    effect eImpact = EffectVisualEffect(VFX_FNF_DISPEL_GREATER);
+
+    //--------------------------------------------------------------------------
+    // Break Enchantment is capped at caster level 15
+    //--------------------------------------------------------------------------
+    if(nCasterLevel > 15)
+        nCasterLevel = 15;
+
+    if (GetIsObjectValid(oTarget))
+    {
+        //----------------------------------------------------------------------
+        // Targeted Dispel - Dispel all
+        //----------------------------------------------------------------------
+          if(iTypeDispel)
+             spellsDispelMagic(oTarget, nCasterLevel, eVis, eImpact);
+          else
+             spellsDispelMagicMod(oTarget, nCasterLevel, eVis, eImpact);
+    }
+}