target random player and port there group?

[trevius]

LOL, apparently I was making the MoveGroup quest object up. I don't see it in the list of quest objects. Try MovePC(152,0,0,-31) and verify that it works to move single characters with that script.

I thought that there was a quest object to move groups, but it looks like there are only normal quest:: commands for it. You could try quest::movegrp(152,0,0,-31), but I am not sure that will work if you are using quest objects to get the client. Worth a shot though.

Edit: After looking at the quest objects some more, maybe this one will work:

$client_search->TeleportGroup($npc, 152, 0, 0, -31);

I haven't messed with the group quest objects much, so you probably need to get the client's group first. If so, maybe something like this would work:

my $clientgroup = $client_search->GetGroup();
quest::say("I found that client $client_search is in group $clientgroup");
$clientgroup->TeleportGroup($npc, 152, 0, 0, -31);

If that works, let me know, because I have been wanting to figure out how to do that group stuff for a while lol. I just haven't had much time to look into it and didn't really think about doing it this way before. If the above doesn't work for players who aren't in a group, maybe you could do something like this:

my $clientgroup = $client_search->GetGroup();
if($clientgroup) {
  quest::say("I found that client $client_search is in group $clientgroup");
  $clientgroup->TeleportGroup($npc, 152, 0, 0, -31);
}
else {
  quest::say("I found client $client_search, but they are not grouped");
  $client_search->MovePC(152,0,0,-31);
}

And, if none of the above works, you may need to cast it to client first. So, maybe something like this would work:

my $gotclient = $client_search->CastToClient();
quest::say("I found client $client_search and cast them to client, which outputs this: $gotclient");

my $clientgroup = $gotclient->GetGroup();
if($clientgroup) {
  quest::say("I found that client $client_search is in group $clientgroup");
  $clientgroup->TeleportGroup($npc, 152, 0, 0, -31);
}
else {
  quest::say("I found client $client_search, but they are not grouped");
  $gotclient->MovePC(152,0,0,-31);
}