Initial upload.

Adding base PRC 4.19a files to repository.

trunk/spells/nw_s0_delfirea.nss

@@ -0,0 +1,97 @@
+//::///////////////////////////////////////////////
+//:: Delayed Blast Fireball: On Enter
+//:: NW_S0_DelFireA.nss
+//:: Copyright (c) 2001 Bioware Corp.
+//:://////////////////////////////////////////////
+/*
+    The caster creates a trapped area which detects
+    the entrance of enemy creatures into 3 m area
+    around the spell location.  When tripped it
+    causes a fiery explosion that does 1d6 per
+    caster level up to a max of 20d6 damage.
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Preston Watamaniuk
+//:: Created On: July 27, 2001
+//:://////////////////////////////////////////////
+//:: modified by mr_bumpkin Dec 4, 2003
+#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_EVOCATION);
+
+    //Declare major variables
+    object oTarget = GetEnteringObject();
+    object oCaster = GetAreaOfEffectCreator();
+    location lTarget = GetLocation(OBJECT_SELF);
+    int nDamage;
+    int nMetaMagic = PRCGetMetaMagicFeat();
+    int CasterLvl = GetLocalInt(OBJECT_SELF, "X2_AoE_Caster_Level");
+
+    int nCasterLevel = CasterLvl;
+    //Limit caster level
+    if (nCasterLevel > 20)
+        nCasterLevel = 20;
+    
+    CasterLvl += SPGetPenetr();
+    
+    int EleDmg = GetLocalInt(OBJECT_SELF, "DelayedBlastFireballDamage");
+    int nSaveType = ChangedSaveType(EleDmg);
+
+    effect eDam;
+    effect eExplode = EffectVisualEffect(VFX_FNF_FIREBALL);
+    effect eVis = EffectVisualEffect(VFX_IMP_FLAME_M);
+    //Check the faction of the entering object to make sure the entering object is not in the casters faction
+    if(!GetLocalInt(OBJECT_SELF, "NW_SPELL_DELAY_BLAST_FIREBALL") && spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster))
+    {
+        SetLocalInt(OBJECT_SELF, "NW_SPELL_DELAY_BLAST_FIREBALL",TRUE);
+        ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eExplode, lTarget);
+        //Cycle through the targets in the explosion area
+        oTarget = MyFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+        while(GetIsObjectValid(oTarget))
+        {
+            if(spellsIsTarget(oTarget, SPELL_TARGET_STANDARDHOSTILE, oCaster))
+            {
+                //Fire cast spell at event for the specified target
+                SignalEvent(oTarget, EventSpellCastAt(oCaster, SPELL_DELAYED_BLAST_FIREBALL));
+                //Make SR check
+                if (!PRCDoResistSpell(oCaster, oTarget,CasterLvl))
+                {                        
+                    //Enter Metamagic conditions
+                    if(nMetaMagic & METAMAGIC_MAXIMIZE)
+                        nDamage = 6 * nCasterLevel;//Damage is at max
+                    else
+                        nDamage = d6(nCasterLevel);
+
+                    if(nMetaMagic & METAMAGIC_EMPOWER)
+                        nDamage += nDamage/2;//Damage/Healing is +50%
+
+                    nDamage += SpellDamagePerDice(OBJECT_SELF, nCasterLevel);
+                    //Change damage according to Reflex, Evasion and Improved Evasion
+                    int nDC = PRCGetSaveDC(oTarget, oCaster, -1);
+                    nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, nSaveType, GetAreaOfEffectCreator());
+                    if(nDamage > 0)
+                    {
+                        //Set up the damage effect
+                        eDam = PRCEffectDamage(oTarget, nDamage, EleDmg);
+                        
+                        //Apply VFX impact and damage effect
+                        SPApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+                        DelayCommand(0.01, SPApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget));
+                        PRCBonusDamage(oTarget);
+                    }
+                }
+            }
+            //Get next target in the sequence
+            oTarget = MyNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_HUGE, lTarget, TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+        }
+        DestroyObject(OBJECT_SELF, 1.0);
+    }
+
+
+DeleteLocalInt(OBJECT_SELF, "X2_L_LAST_SPELLSCHOOL_VAR");
+// Getting rid of the local integer storing the spellschool name
+}