Further file organization

Further file organization

nwn/nwnprc/trunk/smp/phs_s_melfsacida.nss

@@ -0,0 +1,149 @@
+/*:://////////////////////////////////////////////
+//:: Spell Name Melf's Acid Arrow
+//:: Spell FileName PHS_S_MelfsAcidA
+//:://////////////////////////////////////////////
+//:: In Game Spell desctiption
+//:://////////////////////////////////////////////
+    Conjuration (Creation) [Acid]
+    Level: Sor/Wiz 2
+    Components: V, S, M, F
+    Casting Time: 1 standard action
+    Range: Long (40M)
+    Effect: One arrow of acid
+    Duration: 1 round + 1 round per three levels
+    Saving Throw: None
+    Spell Resistance: No
+
+    A magical arrow of acid springs from your hand and speeds to its target. You
+    must succeed on a ranged touch attack to hit your target. The arrow deals 2d4
+    points of acid damage with no splash damage. For every three caster levels
+    (to a maximum of 18th), the acid, unless somehow neutralized, lasts for
+    another round, dealing another 2d4 points of damage in that round.
+
+    Material Component: Powdered rhubarb leaf and an adder<65>s stomach.
+
+    Focus: A dart.
+//:://////////////////////////////////////////////
+//:: Spell Effects Applied / Notes
+//:://////////////////////////////////////////////
+    Jasperre
+    I've changed it to the right duration, and damage - it now does 2d4 any time
+    damage should be inflicted.
+
+    Also made the impact thing work better (6 second delay commands, not each
+    one second).
+
+    Metamagic also works - extend.
+
+    Touch attack - no spell turning.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "PHS_INC_SPELLS"
+
+// Delayed for 6 seconds, this runs itself until oTarget is dead,
+// or they don't have the spell's effect anymore.
+void PHS_RunMelfAcidImpact(int nMetaMagic, object oTarget, object oCaster);
+
+void main()
+{
+    // Spell hook check.
+    if(!PHS_SpellHookCheck(PHS_SPELL_MELFS_ACID_ARROW)) return;
+
+    // Declare Major Variables
+    object oCaster = OBJECT_SELF;
+    object oTarget = GetSpellTargetObject();
+    int nMetaMagic = PHS_GetMetaMagicFeat();
+    int nCasterLevel = PHS_GetCasterLevel();
+    int nTouch = PHS_SpellTouchAttack(PHS_TOUCH_RANGED, oTarget, TRUE);
+    int nDam;
+
+    // Projectile timing.
+    float fDelay = GetDistanceToObject(oTarget)/25.0;
+
+    // Duration can be up to 7 rounds.
+    float fDuration = 0.5 + PHS_GetDuration(PHS_MINUTES, PHS_LimitInteger(nCasterLevel/3, 7, 1), nMetaMagic);
+
+    // Delcare Effects
+    effect eDur = EffectVisualEffect(VFX_DUR_CESSATE_NEGATIVE);
+    effect eVis = EffectVisualEffect(VFX_IMP_ACID_S);
+
+    // Apply arrow visual
+    PHS_ApplyTouchVisual(oTarget, VFX_DUR_MIRV_ACID, nTouch);
+
+    // Does this hit?
+    if(nTouch)
+    {
+        // PvP Check
+        if(!GetIsReactionTypeFriendly(oTarget) &&
+        // Make sure they are not immune to spells
+           !PHS_TotalSpellImmunity(oTarget))
+        {
+            //Fire spell cast at event for target
+            PHS_SignalSpellCastAt(oTarget, PHS_SPELL_MELFS_ACID_ARROW);
+
+            // Make an SR check - No turning, as it is a touch attack.
+            if(!PHS_SpellResistanceCheck(oCaster, oTarget, fDelay))
+            {
+                // Roll initial damage (this is the only part which uses nTouch)
+                nDam = PHS_MaximizeOrEmpower(4, 2, nMetaMagic, FALSE, nTouch);
+
+                // Do damage
+                DelayCommand(fDelay, PHS_ApplyDamageVFXToObject(oTarget, eVis, nDam, DAMAGE_TYPE_ACID));
+
+                // Duration effect. Cannot stack
+                if(!PHS_GetHasSpellEffectFromCaster(PHS_SPELL_MELFS_ACID_ARROW, oTarget, oCaster))
+                {
+                    // Apply new one
+                    PHS_ApplyDuration(oTarget, eDur, fDuration);
+
+                    // Apply the bonus damage - each 6 seconds, for nDurationRounds rounds.
+                    DelayCommand(6.0, PHS_RunMelfAcidImpact(nMetaMagic, oTarget, oCaster));
+                }
+                else
+                {
+                    // Cannot affect again. Only imact is done.
+                    FloatingTextStringOnCreature("*You cannot use more then one acidic arrow on a target at once*", oTarget, FALSE);
+                    return;
+                }
+            }
+        }
+    }
+}
+
+// Delayed for 6 seconds, this runs itself until oTarget is dead,
+// or they don't have the spell's effect anymore.
+void PHS_RunMelfAcidImpact(int nMetaMagic, object oTarget, object oCaster)
+{
+    // Check if dead or validity of oTarget.
+    if(!GetIsDead(oTarget) && GetIsObjectValid(oTarget))
+    {
+        // Check the caster.
+        if(GetIsObjectValid(oCaster))
+        {
+            // Check if they have the effect
+            if(PHS_GetHasSpellEffectFromCaster(PHS_SPELL_MELFS_ACID_ARROW, oTarget, oCaster))
+            {
+                // Fire spell cast at event for target
+                PHS_SignalSpellCastAt(oTarget, PHS_SPELL_MELFS_ACID_ARROW);
+
+                // Roll damage
+                int nDamage = PHS_MaximizeOrEmpower(4, 2, nMetaMagic);
+
+                // Visual
+                effect eVis = EffectVisualEffect(VFX_IMP_ACID_S);
+
+                PHS_ApplyDamageVFXToObject(oTarget, eVis, nDamage, DAMAGE_TYPE_ACID);
+
+                // Run it again
+                DelayCommand(6.0, PHS_RunMelfAcidImpact(nMetaMagic, oTarget, oCaster));
+            }
+        }
+        else
+        {
+            // Remove the spells effects
+            PHS_RemoveSpellEffects(PHS_SPELL_MELFS_ACID_ARROW, oCaster, oTarget);
+        }
+    }
+}