Further file organization

Further file organization

nwn/nwnprc/trunk/newspellbook/moi_mld_brssmnft.nss

@@ -0,0 +1,45 @@
+/*
+1/1/20 by Stratovarius
+
+Brass Mane Throat Bind 
+
+The hair of your brass mane extends down your neck, forming brassy scales that cover your throat and reach down to your breastbone. 
+Your voice gets louder unless you make a conscious effort to keep it quiet.
+
+Once per minute, you can loose a devastating roar. All creatures within 10 feet must succeed on a Will save or become fatigued. 
+The range of this effect is extended by 10 feet for every point of essentia invested in the soulmeld.
+*/
+
+#include "moi_inc_moifunc"
+
+void main()
+{
+    object oMeldshaper = OBJECT_SELF;
+    int nMeldshaperLevel = GetMeldshaperLevel(oMeldshaper, CLASS_TYPE_TOTEMIST, MELD_BRASS_MANE);
+    int nEssentia = GetEssentiaInvested(oMeldshaper, MELD_BRASS_MANE);
+    int nDC = GetMeldshaperDC(oMeldshaper, CLASS_TYPE_TOTEMIST, MELD_BRASS_MANE);
+    location lTarget = GetLocation(oMeldshaper);
+    float fRange = 10.0 + (10.0 * nEssentia);
+    effect eVis = EffectVisualEffect(VFX_IMP_SOUND_SYMBOL_STUNNING);
+
+    object oTarget = MyFirstObjectInShape(SHAPE_SPHERE, FeetToMeters(fRange), lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    //Cycle through the targets within the spell shape until an invalid object is captured.
+    while (GetIsObjectValid(oTarget))
+    {
+        if (spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, OBJECT_SELF) && oMeldshaper != oTarget)
+        {
+            //Fire cast spell at event for the specified target
+            SignalEvent(oTarget, EventSpellCastAt(oMeldshaper, MELD_BRASS_MANE));
+            if (!PRCDoResistSpell(oMeldshaper, oTarget, nMeldshaperLevel))
+            {
+				if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, nDC, SAVING_THROW_TYPE_SONIC))
+				{	
+					ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectFatigue(), oTarget, 9999.0);
+					ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+				}	
+            }
+        }
+       //Select the next target within the spell shape.
+       oTarget = MyNextObjectInShape(SHAPE_SPHERE, FeetToMeters(fRange), lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+}