Sorry I suck at perl some times... Does not seem to be working I put this script on an invis mob right where the named is..
Code:
sub EVENT_AGGRO
{
quest::settimer("LeashCheck",30);
}
sub EVENT_TIMER
{
if ($timer eq "LeashCheck") {
$LeashedID = $entity_list->GetMobByNpcTypeID(2701241);
$distanceCHK = $LeashedID->CalculateDistance($x, $y, $z);
#This will calculate the distance between this mob at current location
# and the mob that is leashed to it.
if ($distanceCHK >= 300) { #Whatever distance you want
$LeashedID->WipeHateList();
$LeashedID->GMMove($x, $y, $z, 1);
#Clears hate list of leashed mob and warps it back to first mob.
}
}
The raid mob being 2701241 as you can see above...
well he won't leash back to where the invis mob is that has this script...
What am I doing wrong?