Initial upload.

Adding base PRC 4.19a files to repository.

trunk/epicspellscripts/ss_ep_continreun.nss

@@ -0,0 +1,57 @@
+//:://////////////////////////////////////////////
+//:: FileName: "ss_ep_continreun"
+/*   Purpose: Contingent Reunion - upon casting this at a target, the caster
+        must choose a condition which will later trigger the teleportation to
+        the target.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Boneshank
+//:: Last Updated On: March 12, 2004
+//:://////////////////////////////////////////////
+
+#include "prc_alterations"
+#include "inc_epicspells"
+//#include "x2_inc_spellhook"
+
+void main()
+{
+    DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+    SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_TRANSMUTATION);
+
+    if (!X2PreSpellCastCode())
+    {
+        DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+        return;
+    }
+    if (GetCanCastSpell(OBJECT_SELF, SPELL_EPIC_CON_REU))
+    {
+        // Is the target a place, creature, or object?
+        object oTarget = PRCGetSpellTargetObject();
+        location lTarget = PRCGetSpellTargetLocation();
+        effect eVis = EffectVisualEffect(VFX_FNF_LOS_HOLY_20);
+        if (oTarget != OBJECT_INVALID)
+        {
+            if (oTarget == OBJECT_SELF) // If target is self, becomes location
+            {
+                SetLocalLocation(OBJECT_SELF, "lSpellTarget", lTarget);
+                SetLocalObject(OBJECT_SELF, "oSpellTarget", OBJECT_INVALID);
+            }
+            else
+            {
+                SetLocalObject(OBJECT_SELF, "oSpellTarget", oTarget);
+                if (GetObjectType(oTarget) == OBJECT_TYPE_CREATURE)
+                    SetLocalInt(OBJECT_SELF, "nMyTargetIsACreature", TRUE);
+            }
+        }
+        else
+        {
+            SetLocalLocation(OBJECT_SELF, "lSpellTarget", lTarget);
+            SetLocalObject(OBJECT_SELF, "oSpellTarget", OBJECT_INVALID);
+        }
+        ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lTarget);
+        AssignCommand(OBJECT_SELF, ActionStartConversation(OBJECT_SELF,
+            "ss_cont_reunion", TRUE, FALSE));
+    }
+    DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+}
+