Further file organization

Further file organization

nwn/nwnprc/trunk/newspellbook/shd_myst_menag.nss

@@ -0,0 +1,69 @@
+/*
+12/12/19 by Stratovarius
+
+Menagerie of Darkness
+
+Master, Shadowscape
+Level/School: 8th/Transmutation
+Range: 30 ft.
+Area: 30-ft.-radius emanation centered on you
+Duration: 10 minutes/level
+Saving Throw: Will negates
+Spell Resistance: Yes
+
+Nearby animals and vermin abruptly shudder. Their mouths and eyes gape wide as a torrent of blackness flows into them from the surrounding gloom.
+
+Any animals or vermin within the emanation, or who enter it, must make a Will save or immediately take on the aspects of their shadow selves, temporarily gaining the dark creature template. 
+You gain control over these animals, as per the spell dominate animal. Menagerie of darkness does not affect animals or vermin with Hit Dice higher than your caster level.
+*/
+
+#include "shd_inc_shdfunc"
+#include "shd_mysthook"
+#include "prc_inc_template"
+
+void DoMenagerie(object oShadow, float fDur, int nDC, int nShadowcasterLevel);
+
+void main()
+{
+    if(!ShadPreMystCastCode()) return;
+
+    object oShadow      = OBJECT_SELF;
+    object oTarget      = PRCGetSpellTargetObject();
+    struct mystery myst = EvaluateMystery(oShadow, oTarget, METASHADOW_EXTEND);
+
+    if(myst.bCanMyst)
+    {
+        myst.fDur = 600.0 * myst.nShadowcasterLevel;
+        if(myst.bExtend) myst.fDur *= 2;   
+        int nDC = GetShadowcasterDC(oShadow);
+        
+		DoMenagerie(oShadow, myst.fDur, nDC, myst.nShadowcasterLevel);           
+    }
+}
+
+void DoMenagerie(object oShadow, float fDur, int nDC, int nShadowcasterLevel)  
+{
+	location lTarget = GetLocation(oShadow);
+	// Loop the allies to get the bonus
+    object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(30.0), lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    while(GetIsObjectValid(oTarget))
+    {
+    	int nRacialType = MyPRCGetRacialType(oTarget);
+
+		// Must be a vermin or animal and not already have the dark template and have HD less than or equal to caster level
+    	if((nRacialType == RACIAL_TYPE_VERMIN || nRacialType == RACIAL_TYPE_ANIMAL) && !GetHasTemplate(TEMPLATE_DARK, oTarget) && nShadowcasterLevel >= GetHitDice(oTarget))
+        {
+            if (!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SPELL))
+            {
+                effect eLink = EffectCutsceneDominated();
+                SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, fDur, TRUE, MYST_MENAGERIE_OF_DARKNESS, nShadowcasterLevel);  
+                ApplyTemplateToObject(TEMPLATE_DARK, oTarget);
+            }
+        }
+
+        //Select the next target within the spell shape.
+        oTarget = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(30.0), lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+    
+    if (fDur > 0.0) DelayCommand(3.0, DoMenagerie(oShadow, fDur-3.0, nDC, nShadowcasterLevel));
+}