Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_nec_term.nss

@@ -0,0 +1,141 @@
+//::///////////////////////////////////////////////
+//:: Name      Necrotic Termination
+//:: FileName  sp_nec_term.nss
+//:://////////////////////////////////////////////
+/** @file
+        Necrotic Termination
+    Necromancy [Evil]
+    Level: Clr 9, sor/wiz 9
+    Components: V, S, F, XP
+    Casting Time: 1 standard action
+    Range: Medium (100 ft. + 10 ft./level)
+    Target: Living creature with necrotic cyst
+    Duration: Instantaneous
+    Saving Throw: Fortitude partial
+    Spell Resistance: No
+
+    You cause the cyst of a subject already harboring a necrotic cyst
+    (see spell of the same name) to physically and spiritually enlarge
+    itself at the expense of the subject's body and soul. If the subject
+    succeeds on her saving throw, she takes 1d6 points of damage per level
+    (maximum 25d6), and half the damage is considered vile damage
+    (see necrotic bloat). The subject's cyst-derived saving throw penalty
+    against effects from the school of necromancy applies.
+
+    If the subject fails her saving throw, the cyst expands beyond control,
+    killing the subject and digesting her soul. Raise dead, resurrection,
+    true resurrection, wish, and miracle cannot return life to the subject
+    once her soul is digested-she is gone forever. On the round following
+    the subject's death, the cyst exits the flesh of the slain subject as
+    a free-willed undead called a skulking cyst.
+
+    XP Cost: 1,000 XP.
+
+    Author:    Tenjac
+    Created:   10/28/05
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_spells"
+#include "spinc_necro_cyst"
+#include "prc_inc_switch"
+#include "inc_utility"
+#include "prc_add_spell_dc"
+
+
+void main()
+{
+    // Set the spellschool
+    PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
+
+    // Run the spellhook.
+    if (!X2PreSpellCastCode()) return;
+
+    object oPC = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nLevel = min(PRCGetCasterLevel(oPC), 25);
+    int nMetaMagic = PRCGetMetaMagicFeat();
+
+    PRCSignalSpellEvent(oTarget, TRUE, SPELL_NECROTIC_TERMINATION, oPC);
+
+
+    if(!GetCanCastNecroticSpells(oPC))
+        return;
+
+    if(!GetHasNecroticCyst(oTarget))
+    {
+        // "Your target does not have a Necrotic Cyst."
+        SendMessageToPCByStrRef(oPC, nNoNecCyst);
+        return;
+    }
+    //Check for perma-death
+    if(GetPRCSwitch(PRC_NEC_TERM_PERMADEATH))
+    {
+          int nCost = 1000;
+        //Check XP if perma-death enabled
+        if(GetHasXPToSpend(oPC, nCost))
+            SpendXP(oPC, nCost);
+        else
+        {
+            SendMessageToPC(oPC, "You don't have enough experience to cast this spell");
+            return;
+        }
+    }
+    //SPEvilShift(oPC);
+
+
+    //Define nDC
+    int nDC = PRCGetSaveDC(oTarget, oPC);
+
+    //Resolve spell
+
+    if(PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_EVIL))
+    {
+        if(!GetHasMettle(oTarget, SAVING_THROW_FORT))
+            {
+            int nDam = d6(nLevel);
+
+            //Metmagic: Maximize
+            if (nMetaMagic & METAMAGIC_MAXIMIZE)
+            {
+                nDam = 6 * (nLevel);
+            }
+
+            //Metmagic: Empower
+            if (nMetaMagic & METAMAGIC_EMPOWER)
+            {
+                nDam += (nDam/2);
+            }
+			nDam += SpellDamagePerDice(oPC, nLevel);
+            int nVile = nDam/2;
+            int nNorm = (nDam - nVile);
+            //Vile damage is currently being applied as Positive damage
+            effect eVileDam = PRCEffectDamage(oTarget, nVile, DAMAGE_TYPE_POSITIVE);
+            effect eNormDam = PRCEffectDamage(oTarget, nNorm, DAMAGE_TYPE_MAGICAL);
+            SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVileDam, oTarget);
+            SPApplyEffectToObject(DURATION_TYPE_INSTANT, eNormDam, oTarget);
+        }
+    }
+
+
+    else
+    {
+        //Target SOL. Kill it.
+        DeathlessFrenzyCheck(oTarget);
+        effect eDeath = EffectDeath();
+        effect eVis = EffectVisualEffect(VFX_IMP_DEATH);
+        SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+        SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDeath, oTarget);
+
+        //Check for module perma-death
+        if(GetPRCSwitch(PRC_NEC_TERM_PERMADEATH))
+        {
+            //Prevent revive
+            SetLocalInt(oPC, "PERMA_DEAD", 1);
+        }
+
+        RemoveCyst(oTarget);
+    }
+    PRCSetSchool();
+}