Leashing Mobs

[KingMort]

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..

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?