48 lines
1.5 KiB
Plaintext
48 lines
1.5 KiB
Plaintext
/*:://////////////////////////////////////////////
|
|
//:: Spell Name Whirlwind: Move
|
|
//:: Spell FileName PHS_S_Whirlwindd
|
|
//:://////////////////////////////////////////////
|
|
//:: Spell Effects Applied / Notes
|
|
//:://////////////////////////////////////////////
|
|
A new spell.
|
|
|
|
On the caster item it is, and will allow the caster to select another location
|
|
to move the whirlwind too.
|
|
//:://////////////////////////////////////////////
|
|
//:: Created By: Jasperre
|
|
//::////////////////////////////////////////////*/
|
|
|
|
void main()
|
|
{
|
|
// Get director and target
|
|
object oCaster = OBJECT_SELF;
|
|
location lTarget = GetSpellTargetLocation();
|
|
|
|
// Get current whirlwind
|
|
object oWhirlwind = GetLocalObject(oCaster, "PHS_SPELL_WHIRLWIND_CURRENT");
|
|
|
|
// Check if valid
|
|
if(GetIsObjectValid(oWhirlwind))
|
|
{
|
|
// Need to check if it is still in control
|
|
if(GetLocalInt(oWhirlwind, "PHS_SPELL_WHIRLWIND_OUTOFCONTROL") == TRUE)
|
|
{
|
|
// Message mistake
|
|
FloatingTextStringOnCreature("*The whirlwind went out of range and is uncontrollable*", oCaster, FALSE);
|
|
}
|
|
else
|
|
{
|
|
// Message sucess
|
|
FloatingTextStringOnCreature("*You direct the whirlwind to a new location*", oCaster, FALSE);
|
|
|
|
// Set new location
|
|
SetLocalLocation(oWhirlwind, "PHS_SPELL_WHIRLWIND_LOCATION", lTarget);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
// Message mistake
|
|
FloatingTextStringOnCreature("*You have no whirlwind to control*", oCaster, FALSE);
|
|
}
|
|
}
|