Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/nw_s0_grplanar.nss

@@ -0,0 +1,113 @@
+//::///////////////////////////////////////////////
+//:: Greater Planar Binding
+//:: NW_S0_GrPlanar.nss
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    Summons an outsider dependant on alignment, or
+    holds an outsider if the creature fails a save.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: April 12, 2001
+//:://////////////////////////////////////////////
+
+//:: modified by mr_bumpkin Dec 4, 2003 for PRC stuff
+#include "prc_inc_spells"
+#include "prc_add_spell_dc"
+
+void main()
+{
+DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+SetLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR", SPELL_SCHOOL_CONJURATION);
+/*
+  Spellcast Hook Code
+  Added 2003-06-23 by GeorgZ
+  If you want to make changes to all spells,
+  check x2_inc_spellhook.nss to find out more
+
+*/
+
+    if (!X2PreSpellCastCode())
+    {
+    // If code within the PreSpellCastHook (i.e. UMD) reports FALSE, do not run this spell
+        return;
+    }
+
+// End of Spell Cast Hook
+
+
+    //Declare major variables
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int CasterLvl = PRCGetCasterLevel(OBJECT_SELF);
+    int nDuration = CasterLvl;
+    effect eSummon;
+    effect eGate;
+    effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
+    effect eDur2 = EffectVisualEffect(VFX_DUR_PARALYZED);
+    effect eDur3 = EffectVisualEffect(VFX_DUR_PARALYZE_HOLD);
+
+    effect eLink = EffectLinkEffects(eDur, EffectParalyze());
+    eLink = EffectLinkEffects(eLink, eDur2);
+    eLink = EffectLinkEffects(eLink, eDur3);
+
+    object oTarget = PRCGetSpellTargetObject();
+    int nRacial = MyPRCGetRacialType(oTarget);
+    //Check for metamagic extend
+    if ((nMetaMagic & METAMAGIC_EXTEND))
+    {
+        nDuration = nDuration *2;   //Duration is +100%
+    }
+    //Check to see if a valid target has been chosen
+    if (GetIsObjectValid(oTarget))
+    {
+        if(!GetIsReactionTypeFriendly(oTarget))
+        {
+            //Fire cast spell at event for the specified target
+            SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, SPELL_GREATER_PLANAR_BINDING));
+            //Check for racial type
+            if(nRacial == RACIAL_TYPE_OUTSIDER)
+            {
+                //Allow will save to negate hold effect
+                if(!PRCMySavingThrow(SAVING_THROW_WILL, oTarget, ((PRCGetSaveDC(oTarget,OBJECT_SELF))+5)))
+                {
+                    //Apply the hold effect
+                    SPApplyEffectToObject(DURATION_TYPE_TEMPORARY, eLink, oTarget, RoundsToSeconds(nDuration/2),TRUE,-1,CasterLvl);
+                }
+            }
+        }
+    }
+    else
+    {
+        //If the ground was clicked on summon an outsider based on alignment
+        int nAlign = GetAlignmentGoodEvil(OBJECT_SELF);
+        float fDelay = 3.0;
+        switch (nAlign)
+        {
+            case ALIGNMENT_EVIL:
+                eSummon = EffectSummonCreature("NW_S_VROCK", VFX_FNF_SUMMON_GATE, 3.0);
+                //eGate = EffectVisualEffect(VFX_FNF_SUMMON_GATE);
+            break;
+            case ALIGNMENT_GOOD:
+                eSummon = EffectSummonCreature("NW_S_CTRUMPET", VFX_FNF_SUMMON_CELESTIAL, 3.0);
+                //eGate = EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);
+            break;
+            case ALIGNMENT_NEUTRAL:
+                eSummon = EffectSummonCreature("NW_S_SLAADDETH", VFX_FNF_SUMMON_MONSTER_3, 1.0);
+                //eGate = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);
+                fDelay = 1.0;
+            break;
+        }
+        //Apply the VFX impact and summon effect
+    MultisummonPreSummon();
+        float fDuration = RoundsToSeconds(nDuration);
+        if(GetPRCSwitch(PRC_SUMMON_ROUND_PER_LEVEL))
+            fDuration = RoundsToSeconds(nDuration*GetPRCSwitch(PRC_SUMMON_ROUND_PER_LEVEL));
+        ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY, eSummon, PRCGetSpellTargetLocation(), fDuration);
+    }
+
+
+DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+// Getting rid of the local integer storing the spellschool name
+}
+