Further file organization

Further file organization

nwn/nwnprc/trunk/spells/nw_s0_evards.nss

@@ -0,0 +1,59 @@
+//::///////////////////////////////////////////////
+//:: Evards Black Tentacles
+//:: NW_S0_Evards.nss
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+This spell conjures a field of rubbery black tentacles, each 10 feet long.
+These waving members seem to spring forth from the earth, floor, or whatever
+surface is underfoot<6F>including water. They grasp and entwine around creatures
+that enter the area, holding them fast and crushing them with great strength.
+Every creature within the area of the spell must make a grapple check, opposed
+by the grapple check of the tentacles. Treat the tentacles attacking a particular
+target as a Large creature with a base attack bonus equal to your caster level
+and a Strength score of 19. Thus, its grapple check modifier is equal to your
+caster level +8. The tentacles are immune to all types of damage.
+Once the tentacles grapple an opponent, they may make a grapple check each round
+on your turn to deal 1d6+4 points of bludgeoning damage. The tentacles continue
+to crush the opponent until the spell ends or the opponent escapes.
+Any creature that enters the area of the spell is immediately attacked by the
+tentacles. Even creatures who aren<65>t grappling with the tentacles may move
+through the area at only half normal speed.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: Nov 23, 2001
+//:://////////////////////////////////////////////
+//:: GZ: Removed SR, its not there by the book
+//:: Primogenitor: Implemented 3.5ed rules
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+
+void main()
+{
+    if(!X2PreSpellCastCode()) return;
+
+    PRCSetSchool(SPELL_SCHOOL_CONJURATION);
+
+    //Declare major variables including Area of Effect Object
+    effect eAOE = EffectAreaOfEffect(AOE_PER_EVARDS_BLACK_TENTACLES,
+        "nw_s0_evardsa", "nw_s0_evardsc", "nw_s0_evardsb");
+    location lTarget = PRCGetSpellTargetLocation();
+    int CasterLvl = PRCGetCasterLevel();
+    int nDuration = CasterLvl;
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    //Make sure duration does no equal 0
+    if (nDuration < 1)
+        nDuration = 1;
+    //Check Extend metamagic feat.
+    if(nMetaMagic & METAMAGIC_EXTEND)
+       nDuration *= 2;    //Duration is +100%
+
+    //Create an instance of the AOE Object using the Apply Effect function
+    ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eAOE, lTarget, RoundsToSeconds(nDuration));
+
+    object oAoE = GetAreaOfEffectObject(lTarget, "VFX_PER_EVARDS_BLACK_TENTACLES");
+    SetAllAoEInts(SPELL_EVARDS_BLACK_TENTACLES, oAoE, PRCGetSpellSaveDC(SPELL_EVARDS_BLACK_TENTACLES, SPELL_SCHOOL_CONJURATION), 0, CasterLvl);
+
+    PRCSetSchool();
+}