Initial upload.

Adding base PRC 4.19a files to repository.

trunk/smp/phs_s_fireseeds1.nss

@@ -0,0 +1,114 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Fire Seeds: Acorns
+//:: Spell FileName PHS_S_FireSeeds1
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    OK, simply put:
+
+    - We use Acorns (A misc. Small item), and add a new item property which
+      will cast a spell as if it was a grenade, and acts like one. Reflex saves
+      are put as a DC on the item when the property is added, along with the
+      caster level. SCRIPT: PHS_S_FIRESEEDS1
+
+    So, this is the impact script for the acorns.
+
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Based on the grenade thing.
+
+    // Declare major variables
+    object oTarget = GetSpellTargetObject();
+    object oDoNotDam;
+    object oItem = GetSpellCastItem();
+    location lTarget = GetSpellTargetLocation();
+    int nTouch, nDam;
+    effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S);
+    effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_FIRE);
+    effect eDam;
+    float fDelay;
+    float fExplosionRadius = 1.67;
+
+    // Get the random dice and spell saves from the item directly.
+    int nSpellSaveDC = GetLocalInt(oItem, "PHS_SPELL_FIRESEEDS_SAVEDC");
+    int nDice = GetLocalInt(oItem, "PHS_SPELL_FIRESEEDS_DICE");
+
+    // We do direct damage of d6 per nDice.
+    int nDirectDam = PHS_MaximizeOrEmpower(6, nDice, FALSE);
+
+    // We use nTouch as a result for if we do damage to oTarget. If oTarget
+    // is valid, nTouch is a ranged touch attack, else it is false anyway.
+    if(GetIsObjectValid(oTarget))
+    {
+        nTouch = TouchAttackRanged(oTarget);
+    }
+    // Check if we hit, or even have anything to hit!
+    if(nTouch >= 1)
+    {
+        // Get direct damage to do
+        nDam = nDirectDam;
+        // Critical hit?
+        if(nTouch == 2)
+        {
+            nDam *= 2;
+        }
+        // Set damage effect
+        eDam = EffectDamage(nDam, DAMAGE_TYPE_FIRE);
+
+        // Check reaction type
+        if(!GetIsReactionTypeFriendly(oTarget))
+        {
+            // Apply damage and VFX
+            PHS_ApplyInstantAndVFX(oTarget, eVis, eDam);
+
+            // Signal event spell cast at
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_FIRE_SEEDS);
+        }
+        // We set to not damage oTarget now, because we directly hit them!
+        oDoNotDam = oTarget;
+    }
+
+    // Even if we miss, it's going to end up near the persons feat, we can't
+    // be that bad a shot. So, we do AOE damage to everyone but oDoNotDam, which,
+    // if we hit them, will be oTarget.
+
+    // Apply AOE visual
+    PHS_ApplyLocationVFX(lTarget, eImpact);
+
+
+    // Cycle through the targets within the spell shape until an invalid object is captured.
+    oTarget = GetFirstObjectInShape(SHAPE_SPHERE, fExplosionRadius, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    while(GetIsObjectValid(oTarget))
+    {
+        // Check PvP and make sure it isn't the target
+        if(!GetIsReactionTypeFriendly(oTarget) &&
+            oDoNotDam != oTarget)
+        {
+            // Get short delay as fireball
+            fDelay = GetDistanceBetweenLocations(lTarget, GetLocation(oTarget))/20;
+
+            // Apply effects to the currently selected target.
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_FIRE_SEEDS);
+
+            // Get reflex adjusted damage
+            nDam = GetReflexAdjustedDamage(nDice, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_FIRE);
+
+            if(nDam > 0)
+            {
+                // Set the damage effect. It is now 1 per dice used.
+                eDam = EffectDamage(nDam, DAMAGE_TYPE_FIRE);
+
+                // Delay the damage and visual effects
+                DelayCommand(fDelay, PHS_ApplyInstantAndVFX(oTarget, eVis, eDam));
+            }
+        }
+        // Get the next target within the spell shape.
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, fExplosionRadius, lTarget, TRUE, OBJECT_TYPE_CREATURE);
+    }
+}