Further file organization

Further file organization

nwn/nwnprc/trunk/newspellbook/tob_dw_drgnflm.nss

@@ -0,0 +1,75 @@
+/*
+   ----------------
+   Dragon's Flame
+
+   tob_dw_drgnflm.nss
+   ----------------
+
+    31/08/07 by Stratovarius
+*/ /** @file
+
+    Dragon's Flame
+
+    Desert Wind (Strike)
+    Level: Swordsage 5
+    Prerequisite: Two Desert Wind Maneuvers
+    Initiation Action: 1 Standard Action
+    Range: 30ft.
+    Area: Cone
+    Duration: Instantaneous
+    Saving Throw: Reflex half
+
+    With a defiant roar, you summon your ki and unleash it,
+    igniting it with a combination of your meditative focus and seething fury.
+    
+    You create a cone of fire that does 6d6 damage.
+    This is a supernatural maneuver.
+*/
+
+#include "tob_inc_move"
+#include "tob_movehook"
+////#include "prc_alterations"
+
+void main()
+{
+    if (!PreManeuverCastCode())
+    {
+    // If code within the PreManeuverCastCode (i.e. UMD) reports FALSE, do not run this spell
+        return;
+    }
+
+// End of Spell Cast Hook
+
+    object oInitiator    = OBJECT_SELF;
+    object oTarget       = PRCGetSpellTargetObject();
+    struct maneuver move = EvaluateManeuver(oInitiator, oTarget);
+
+    if(move.bCanManeuver)
+    {
+        location lTarget = GetLocation(oInitiator);
+        int nDC = 15 + GetAbilityModifier(ABILITY_WISDOM, oInitiator);
+        effect eVis = EffectVisualEffect(VFX_IMP_FLAME_S);
+        //Get the first target in the radius around the caster
+        oTarget = MyFirstObjectInShape(SHAPE_SPELLCONE, FeetToMeters(30.0), PRCGetSpellTargetLocation(), TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+        while(GetIsObjectValid(oTarget))
+        {
+            if(oTarget != oInitiator)
+            {
+                SignalEvent(oTarget, EventSpellCastAt(OBJECT_SELF, GetSpellId()));
+                int nDamage = d6(2);
+                if (GetLocalInt(oInitiator, "DesertFire")) nDamage += d6();
+                //Run the damage through the various reflex save and evasion feats
+                nDamage = PRCGetReflexAdjustedDamage(nDamage, oTarget, nDC, SAVING_THROW_TYPE_FIRE);
+                if(nDamage > 0)
+                {
+                    effect eFire = EffectDamage(nDamage, DAMAGE_TYPE_FIRE);
+                    // Apply effects to the currently selected target. 
+                    SPApplyEffectToObject(DURATION_TYPE_INSTANT, eFire, oTarget);
+                    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oTarget);
+                }
+            }
+            //Get the next target in the specified area around the caster
+            oTarget = MyNextObjectInShape(SHAPE_SPELLCONE, FeetToMeters(30.0), PRCGetSpellTargetLocation(), TRUE, OBJECT_TYPE_CREATURE | OBJECT_TYPE_DOOR | OBJECT_TYPE_PLACEABLE);
+        }
+    }
+}