Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_spikestonc.nss

@@ -0,0 +1,127 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Spike Stones - On Heartbeat
+//:: Spell FileName PHS_S_SpikeStonC
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    On Heartbeat.
+
+    Gets the distance traveled, and must be over 1M to do damage, at 1d4 damage
+    per meter.
+
+    If any damage is done, they will have to have 50% speed deduction for 24
+    hours. Note: This doesn't overlap.
+
+    The any remaining/old locations are deleted On Exit.
+
+    As Spike Growth, but 1d8 damage.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+void main()
+{
+    // Check AOE
+    if(!PHS_CheckAOECreator()) return;
+
+    // Declare major variables
+    object oTarget;
+    object oCaster = GetAreaOfEffectCreator();
+    int nMetaMagic = PHS_GetAOEMetaMagic();
+    int nSpellSaveDC = PHS_GetAOESpellSaveDC();
+    int nDamage, nDice;
+    float fDelay, fDistance;
+    string sLocal = "PHS_SPIKE_STONES_LOCATION";
+    location lPrevious, lNew;
+    object oArea = GetArea(OBJECT_SELF);
+
+    // Get duration of speed decrease - 24 hours
+    float fDuration = PHS_GetDuration(PHS_HOURS, 24, nMetaMagic);
+
+    // Declare effects
+    effect eDur = EffectVisualEffect(VFX_DUR_ENTANGLE);
+    effect eSpeed = EffectMovementSpeedDecrease(50);
+
+    // Link eDur and eSpeed
+    effect eLink = EffectLinkEffects(eDur, eSpeed);
+
+    // Note: Make eLink supernatural. Dispel cannot affect it (but as it is only
+    // 24 hours, rest should remove it).
+    eLink = SupernaturalEffect(eLink);
+
+    // Start cycling through the AOE Object for viable targets
+    oTarget = GetFirstInPersistentObject(OBJECT_SELF, OBJECT_TYPE_CREATURE);
+    while(GetIsObjectValid(oTarget))
+    {
+        // PvP check
+        if(!GetIsReactionTypeFriendly(oTarget, oCaster))
+        {
+            // Get the distance traveled.
+            lPrevious = GetLocalLocation(oTarget, sLocal);
+            // Get current location
+            lNew = GetLocation(oTarget);
+
+            // Must be same area, this location and what is set.
+            if(GetAreaFromLocation(lPrevious) != oArea)
+            {
+                // Not same area - we set new location on them
+                SetLocalLocation(oTarget, sLocal, lNew);
+            }
+            else
+            {
+                // Same area - we can do damage
+
+                // Check distance.
+                fDistance = GetDistanceBetweenLocations(lPrevious, lNew);
+
+                // Must be at least 1M distance, else, we will just keep old
+                // location.
+                if(fDistance >= 1.0)
+                {
+                    // Fire cast spell at event for the affected target
+                    PHS_SignalSpellCastAt(oTarget, PHS_SPELL_SPIKE_STONES);
+
+                    // Set new location
+                    SetLocalLocation(oTarget, sLocal, lNew);
+
+                    // Change the distance to an integer (so it will round)
+                    nDice = FloatToInt(fDistance);
+
+                    // Get a very small delay
+                    fDelay = PHS_GetRandomDelay(0.1, 0.5);
+
+                    // This is one of the very few AOE spells which allow Spell Resistance.
+                    if(!PHS_SpellResistanceCheck(oCaster, oTarget, fDelay))
+                    {
+                        // Get damage
+                        nDamage = PHS_MaximizeOrEmpower(8, nDice, nMetaMagic);
+
+                        // Reflex Save
+                        nDamage = PHS_GetAdjustedDamage(SAVING_THROW_REFLEX, nDamage, oTarget, nSpellSaveDC, SAVING_THROW_TYPE_NONE, oCaster, fDelay);
+
+                        if(nDamage > 0)
+                        {
+                            // Apply damage and visuals
+                            DelayCommand(fDelay, PHS_ApplyDamageToObject(oTarget, nDamage, DAMAGE_TYPE_PIERCING));
+
+                            // Apply reduction in speed for 24 hours
+                            // * Remove previous too
+                            // * Also note: Applied instantly, to prevent errors.
+                            PHS_RemoveSpecificEffectFromSpell(EFFECT_TYPE_MOVEMENT_SPEED_DECREASE, PHS_SPELL_SPIKE_GROWTH, oTarget, SUBTYPE_IGNORE);
+                            PHS_ApplyDuration(oTarget, eLink, fDuration);
+                        }
+                    }
+                }
+                //else
+                //{
+                    // There is NOT 1M difference between locations, so we
+                    // just use old location, and set nothing.
+                //}
+            }
+        }
+        //Get next target.
+        oTarget = GetNextInPersistentObject(OBJECT_SELF, OBJECT_TYPE_CREATURE);
+    }
+}