test_assign_raid.pl

sub ASSIGN_RAID_TO_INSTANCE {
  $NewInstance = quest::CreateInstance("mirb", 50, 10800);
  for ($count = 1; $count <= $raid->RaidCount(); $count++) {
    $temp_client = $raid->GetClientByIndex($count);
    if ($temp_client->KeyRingCheck(41000)) {
      $temp_client->AssignToInstance($NewInstance);
      $temp_client->MarkCompassLoc(-5460, -630, 190);
    } else {
      $ClientNotAdded++;
      $temp_client->Message(13,"Mysterious forces prevent you from being added to the expedition.");
    }
  }
}