Initial upload.

Adding base PRC 4.19a files to repository.

trunk/newspellbook/inv_causticmirea.nss

@@ -0,0 +1,35 @@
+//::///////////////////////////////////////////////
+//:: Name      Caustic Mire - OnEnter
+//:: FileName  inv_causticmirea.nss
+//::///////////////////////////////////////////////
+
+#include "inv_inc_invfunc"
+#include "inv_invokehook"
+
+void main()
+{
+
+    //Declare major variables
+    object oCaster = GetAreaOfEffectCreator();
+    object oTarget = GetEnteringObject();
+
+    int nCasterLvl = GetInvokerLevel(oCaster, CLASS_TYPE_WARLOCK);
+    int nPenetr = SPGetPenetrAOE(oCaster, nCasterLvl);
+
+    effect eSlow = EffectMovementSpeedDecrease(33);
+    if((spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster)) && oTarget != oCaster)
+    {
+        if(!GetCreatureFlag(oTarget, CREATURE_VAR_IS_INCORPOREAL))
+        {
+            //Fire cast spell at event for the target
+            SignalEvent(oTarget, EventSpellCastAt(oCaster, INVOKE_CAUSTIC_MIRE));
+            //Spell resistance check
+            if(!PRCDoResistSpell(oCaster, oTarget,nPenetr))
+            {
+                //Slow down the creature within the mire
+                SPApplyEffectToObject(DURATION_TYPE_PERMANENT, eSlow, oTarget);
+            }
+            SetLocalLocation(oTarget, "LastMirePos", GetLocation(oTarget));
+        }
+    }
+}