The easiest solution would be to just iterate through the client list and move all clients that are within a certain distance of the spawned translocator NPC. Here are some list iterating examples:
http://code.google.com/p/projecteqem...stIteration.pl
Then, in your list search, run this:
Code:
my $ClientDist = $ent->CalculateDistance($x, $y, $z);
Then just check if the distance is within the desired range and do $ent->MovePC() if so.