Initial upload.

Adding base PRC 4.19a files to repository.

trunk/newspellbook/inv_causticmire.nss

@@ -0,0 +1,48 @@
+//::///////////////////////////////////////////////
+//:: Name      Caustic Mire
+//:: FileName  inv_causticmire.nss
+//::///////////////////////////////////////////////
+/*
+
+Greater Invocation
+4th Level Spell
+
+You can create an area of acidic sludge on the
+ground. Any creature who steps into it is slowed by
+about a third, and each 5' they move deals 1d6 acid
+damage to them. If a creature stands still in it
+they still take 1d6 acid damage each round. The
+sludge lasts one round per level, and you can only
+create one area at any given time.
+
+*/
+//::///////////////////////////////////////////////
+
+#include "inv_inc_invfunc"
+#include "inv_invokehook"
+
+void main()
+{
+    if(!PreInvocationCastCode()) return;
+
+    object oCaster = OBJECT_SELF;
+    if(GetLocalInt(oCaster, "CausticMireLock"))
+    {
+        FloatingTextStringOnCreature("You must wait for the previous casting to expire.", oCaster, FALSE);
+        return;
+    }
+
+    //Declare major variables including Area of Effect Object
+    location lTarget = PRCGetSpellTargetLocation();
+    float fDuration = RoundsToSeconds(GetInvokerLevel(oCaster, GetInvokingClass()));
+    effect eAOE = EffectAreaOfEffect(INVOKE_AOE_CAUSTIC_MIRE);
+    effect eImpact = EffectVisualEffect(VFX_FNF_GAS_EXPLOSION_GREASE);
+    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lTarget);
+
+    //Create an instance of the AOE Object using the Apply Effect function
+    ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eAOE, lTarget, fDuration);
+
+    SetLocalInt(oCaster, "CausticMireLock", TRUE);
+    DelayCommand(fDuration, DeleteLocalInt(oCaster, "CausticMireLock"));
+}
+