forked from Jaysyn/PRC8
108 lines
3.6 KiB
Plaintext
108 lines
3.6 KiB
Plaintext
|
/*:://////////////////////////////////////////////
|
|||
|
|
//:: 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;
|
|||
|
|
}
|