Further file organization

Further file organization

nwn/nwnprc/trunk/smp/smp_ail_turning.nss

@@ -0,0 +1,107 @@
+/*:://////////////////////////////////////////////
+//:: Name Turning Heartbeat
+//:: FileName SMP_ail_turning
+//:://////////////////////////////////////////////
+    This runs on an creature with the effect EffectTurned().
+
+    Effect and Duration of Turning: Turned undead flee from you by the best and
+    fastest means available to them. They flee for 10 rounds (1 minute). If they
+    cannot flee, they cower (giving any attack rolls against them a +2 bonus).
+    If you approach within 10 feet of them, however, they overcome being turned
+    and act normally. (You can stand within 10 feet without breaking the turning
+    effect-you just can<61>t approach them.)
+
+    Ok, in NwN:
+
+    Effect and Duration of Turning: Turned undead flee from you by the best and
+    fastest means available to them. They flee for 10 rounds (1 minute). If they
+    cannot flee, they cower, having -2 AC. If you approach within 10 feet of them,
+    however, they overcome being turned and act normally. You can attack them
+    with ranged attacks, and others can attack them in any fashion.
+//:://////////////////////////////////////////////
+//:: Created By: Jasperre
+//::////////////////////////////////////////////*/
+
+#include "SMP_INC_AILMENT"
+//#include "SMP_INC_SPELLS"
+
+// Get the nearest valid creator of fear in the area.
+// Checks for turning. No checks for seen/heard - its clerical abilties, so
+// the cleric forces them away.
+object GetNearestPersonWhoCreatedFear(object oSelf);
+
+void main()
+{
+    // Declare us
+    object oSelf = OBJECT_SELF;
+
+    // Get the nearest person who turned us
+    object oTurner = GetNearestPersonWhoCreatedFear(oSelf);
+
+    // Are they valid?
+    if(GetIsObjectValid(oTurner))
+    {
+        // If they are within 10ft, we will remove all turning from that creator
+        if(GetDistanceToObject(oTurner) <= RADIUS_SIZE_FEET_10)
+        {
+            // If nearby, we remove turning
+            SetCommandable(TRUE);
+            SMP_RemoveSpecificEffect(EFFECT_TYPE_TURNED, oSelf);
+
+        }
+        else
+        {
+            //Allow the target to recieve commands for the round
+            SetCommandable(TRUE);
+
+            // Flee from the turner - run if possible
+            ClearAllActions();
+            ActionMoveAwayFromObject(oTurner, TRUE, 60.0);
+
+            //Disable the ability to recieve commands.
+            SetCommandable(FALSE);
+        }
+    }
+    else
+    {
+        // If not valid, we remove turning
+        SetCommandable(TRUE);
+        SMP_RemoveSpecificEffect(EFFECT_TYPE_TURNED, oSelf);
+    }
+
+}
+
+// Get the nearest valid creator of fear in the area.
+object GetNearestPersonWhoCreatedFear(object oSelf)
+{
+    // Get fear creators
+    effect eCheck = GetFirstEffect(oSelf);
+    object oCreator, oFearReturn;
+    object oArea = GetArea(oSelf);
+    float fLowestDistance = 300.0;
+    float fDistance;
+    // Loop effects
+    while(GetIsEffectValid(eCheck))
+    {
+        // Check for creators of fear
+        if(GetEffectType(eCheck) == EFFECT_TYPE_FRIGHTENED)
+        {
+            // Get the creator
+            oCreator = GetEffectCreator(eCheck);
+            // Check if valid, and same area, but no seen/heard check
+            if(GetIsObjectValid(oCreator) && GetArea(oCreator) == oArea &&
+               GetObjectType(oCreator) == OBJECT_TYPE_CREATURE)
+            {
+                // Get distance to them
+                fDistance = GetDistanceBetween(oCreator, oSelf);
+                if(fDistance < fLowestDistance)
+                {
+                    // Now this is the one we fear most
+                    oFearReturn = oCreator;
+                    fLowestDistance = fDistance;
+                }
+            }
+        }
+    }
+    return oFearReturn;
+}