[spider661]

according to this, this should be working but its not the shout works but the port does nothing

    my $list_check = 0;
    #You may need to increase 2000 below if you have alot of mobs in the zone
    for ($list_check = 0; $list_check < 2000; $list_check++) 
	{ 
      $client_search = $entity_list->GetClientByID($list_check);
     if ($client_search) 
	 {
       quest::say("I found client $client_search");
          $client_search->MoveGroup(152,0,0,-31);

	 }

   }