Initial module commit

Initial module commit.

_module/nss/j_ai_wingflying.nss

@@ -0,0 +1,128 @@
+/************************ [Dragon Flying] **************************************
+    Filename: J_AI_WingFlying
+************************* [Dragon Flying] **************************************
+    Hey, a dragon can fly (if we are set to, mind you!) this is executed from
+    the default AI, using local objects to "fly" to, a duration based on the
+    distance between the 2 places.
+
+    When we fly down, we apply knockdown to the targets in the area's affected
+    if not huge size, like wing buffet.
+
+    NOTE:
+
+    - Can be used with NPC's who are not dragons, but if they are not huge,
+      the damage is not done (only the pulses at thier location and the target
+      location)
+************************* [History] ********************************************
+    Version 1.3
+    - Added
+************************* [Workings] *******************************************
+    Executed via. ExecuteScript from the AI file, it is seperate because it is
+    almost a new AI ability.
+
+    It is a 6 second or more fly - note it adds 1/10 second more for each
+    1M between targets. Not too much, but enough.
+
+    Does damage to landing and taking off sites too :-)
+************************* [Arguments] ******************************************
+    Arguments: N/A
+************************* [Dragon Flying] *************************************/
+
+#include "j_inc_constants"
+
+// Damages area with blast of flying
+void DoDamageToArea(location lLocation);
+
+void main()
+{
+    // Get the target location
+    object oJumpTo = GetAIObject(AI_FLYING_TARGET);
+    location lJumpTo = GetLocation(oJumpTo);
+
+    DeleteAIObject(AI_FLYING_TARGET);
+
+    // Errors
+    if(!GetIsObjectValid(oJumpTo)) return;
+
+    ClearAllActions();// To rid errors.
+    SetFacingPoint(GetPosition(oJumpTo));
+
+    // Get location of ourselves, to damage those as we fly away.
+    location lSelf = GetLocation(OBJECT_SELF);
+    // Jump to the next location, using a delay of 3.0 seconds + Distance/10
+    float fDuration = 3.0 + (GetDistanceBetweenLocations(lSelf, lJumpTo)/10.0);
+
+    if(GetCreatureSize(OBJECT_SELF) == CREATURE_SIZE_HUGE)
+    {
+        // Damage instantly
+        DelayCommand(f1, DoDamageToArea(lSelf));
+        // Delay the jump down damage - a little extra delay mind you.
+        DelayCommand(fDuration + 1.2, DoDamageToArea(lJumpTo));
+    }
+    else
+    {
+        // Visual effects only
+        effect eImpact = EffectVisualEffect(VFX_IMP_PULSE_WIND);
+        // Pulse of wind applied...
+        DelayCommand(f1, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lSelf));
+        // Delay the new wind
+        DelayCommand(fDuration + 1.2, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eImpact, lJumpTo));
+    }
+    // New determine combat round - via. Action attacking.
+    DelayCommand(fDuration + 1.5, ActionAttack(oJumpTo));
+
+    effect eFly = EffectDisappearAppear(lJumpTo);
+    DelayCommand(f1, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eFly, OBJECT_SELF, fDuration - f1));
+}
+
+// Damages area with blast of flying
+void DoDamageToArea(location lLocation)
+{
+    // Declare effects
+    effect eKnockDown = EffectKnockdown();
+    int nDamage;
+    int nDC = GetHitDice(OBJECT_SELF);
+    effect eDam;
+    effect eVis = EffectVisualEffect(VFX_IMP_PULSE_WIND);
+    // Use a delay based on range,
+    float fDelay;
+
+    string sMessage = GetName(OBJECT_SELF) + " is flying!";
+    location lTarget;
+    float fRandomKnockdown;
+    // Pulse of wind applied...
+    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lLocation);
+    //Apply the VFX impact and effects
+    //Get first target in spell area
+    object oTarget = GetFirstObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lLocation);
+    while(GetIsObjectValid(oTarget))
+    {
+        lTarget = GetLocation(oTarget);
+        fDelay = GetDistanceBetweenLocations(lTarget, lLocation)/20.0;
+        // Visual wind pulse
+        DelayCommand(fDelay, ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eVis, lTarget));
+        //Get next target in spell area
+        // Do not effect allies.
+        if(!GetIsFriend(oTarget) && !GetFactionEqual(oTarget))
+        {
+            SendMessageToPC(oTarget, sMessage);
+            // Can't knock over huge things!
+            if(GetCreatureSize(oTarget) != CREATURE_SIZE_HUGE)
+            {
+                // Reflex save for damage
+                if(!ReflexSave(oTarget, nDC))
+                {
+                    // Randomise damage. (nDC = Hit dice)
+                    nDamage = Random(nDC) + 11;
+                    eDam = EffectDamage(nDamage, DAMAGE_TYPE_BLUDGEONING);
+                    // Randomise knockdown, to minimum of 6.0 (1.0/2 = 0.5. + 5.5 = 6.0)
+                    fRandomKnockdown = 5.5 + ((IntToFloat(Random(30)) + 1.0)/10.0);
+                    // We'll have a windy effect..depending on range
+                    DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oTarget));
+                    DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eKnockDown, oTarget, fRandomKnockdown));
+                }
+            }
+        }
+        oTarget = GetNextObjectInShape(SHAPE_SPHERE, RADIUS_SIZE_GARGANTUAN, lLocation);
+    }
+}