Further file organization

Further file organization

nwn/nwnprc/trunk/spells/sp_gutwrench.nss

@@ -0,0 +1,121 @@
+//::///////////////////////////////////////////////
+//:: Name      Gutwrench
+//:: FileName  sp_gutwrench.nss
+//:://////////////////////////////////////////////
+/**@file Gutwrench
+Necromancy [Evil, Death]
+Level: Sor/Wiz 8
+Components: V, S, Undead
+Casting Time: 1 action
+Range: Close (25 ft. + 5 ft./2 levels)
+Target: One living creature
+Duration: Instantaneous
+Saving Throw: Fortitude partial
+Spell Resistance: Yes
+
+The innards of the target creature roil. If the
+target fails its saving throw, its intestines burst
+forth, killing it. The intestines fly toward the
+caster and are absorbed into her form, granting her
+4d6 temporary hit points and a +4 enhancement bonus
+to Strength. If the target's save is successful, it
+takes 10d6 points of damage instead.
+
+A creature with no discernible anatomy is unaffected
+by this spell.
+
+Author:    Tenjac
+Created:   16.3.2006
+*/
+//:://////////////////////////////////////////////
+//:://////////////////////////////////////////////
+
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+
+void main()
+{
+    PRCSetSchool(SPELL_SCHOOL_NECROMANCY);
+
+    //Spellhook
+    if (!X2PreSpellCastCode()) return;
+
+    object oPC = OBJECT_SELF;
+    object oTarget = PRCGetSpellTargetObject();
+    int nCasterLvl = PRCGetCasterLevel(oPC);
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int nTargetType = MyPRCGetRacialType(oTarget);
+    int nDC = PRCGetSaveDC(oTarget, oPC);
+
+    PRCSignalSpellEvent(oTarget,TRUE, SPELL_GUTWRENCH, oPC);
+
+    //Caster must be undead.  If not, hit 'em with alignment change anyway.
+    //Try reading the description of the spell moron. =P
+
+    if(MyPRCGetRacialType(oPC) == RACIAL_TYPE_UNDEAD)
+    {
+        if(nTargetType != RACIAL_TYPE_OOZE &&
+           nTargetType != RACIAL_TYPE_CONSTRUCT &&
+           nTargetType != RACIAL_TYPE_UNDEAD &&
+           nTargetType != RACIAL_TYPE_ELEMENTAL)
+
+         {
+             if(!PRCDoResistSpell(OBJECT_SELF, oTarget, nCasterLvl + SPGetPenetr()))
+             {
+                 if(!PRCMySavingThrow(SAVING_THROW_FORT, oTarget, nDC, SAVING_THROW_TYPE_DEATH))
+                 {
+                     //define effects
+                     effect eDeath = EffectDeath();
+                     effect eGut = EffectBeam(VFX_BEAM_SILENT_EVIL, oTarget, BODY_NODE_CHEST);
+                     effect eVis = EffectVisualEffect(VFX_IMP_IMPROVE_ABILITY_SCORE);
+                     effect eBonus = EffectAbilityIncrease(ABILITY_STRENGTH, 4);
+                     effect eLink = EffectLinkEffects(eDeath, eGut);
+
+                     //Apply to target
+                            DeathlessFrenzyCheck(oTarget);
+                     SPApplyEffectToObject(DURATION_TYPE_INSTANT, eLink, oTarget);
+
+                     //PC
+                     SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC);
+                     SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eBonus, oPC, HoursToSeconds(24));
+                 }
+
+                 //Otherwise, take 10d6 damage, be thankful, and RUN.
+                 else
+                 {
+             if(!GetHasMettle(oTarget, SAVING_THROW_FORT))
+             {
+                 int nDam = d6(10);
+
+                 //evaluate metamagic
+                 if(nMetaMagic & METAMAGIC_MAXIMIZE)
+                 {
+                     nDam = 60;
+                 }
+
+                 if(nMetaMagic & METAMAGIC_EMPOWER)
+                 {
+                     nDam += (nDam/2);
+                 }
+				nDam += SpellDamagePerDice(oPC, 10);
+                 //define damage
+                 effect eDam = PRCEffectDamage(oTarget, nDam, DAMAGE_TYPE_MAGICAL);
+
+
+                 //Apply damage
+                 SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget);
+             }
+         }
+             }
+         }
+     }
+     else
+     {
+         FloatingTextStringOnCreature("Caster is not Undead! Spell failed.", oPC, FALSE);
+     }
+
+     //SPEvilShift(oPC);
+
+     PRCSetSchool();
+}
+