TacoServer/Classic/scripts/server.cs

$classicVersion = "1.5.2"; // z0dd - ZOD, 5/12/04. Set the version.

if($Host::TimeLimit $= "")
   $Host::TimeLimit = 20;

$SB::WODec = 0.004; // whiteout
$SB::DFDec = 0.02; // damageFlash

$Classic::gravSetting = -26.9; // z0dd - ZOD, 9/13/02. Classic Gravity setting
$Classic::cameraSpeed = 50;
$Camera::movementSpeed = $Classic::cameraSpeed; // z0dd - ZOD, 9/13/02. Classic camera speed.

// z0dd - ZOD, 12/7/02. Put server packet rate settings in ServerPrefs.cs
$pref::Net::PacketRateToClient = $Host::ClassicPacketRateToClient;
$pref::Net::PacketSize = $Host::ClassicPacketSize;
$ConnectCount = 0; // z0dd - ZOD, 7/17/03. Used for connection log.
$BackupPassword = $Host::Password; // z0dd - ZOD, 8/09/03. Backup the server pass

// -----------------------------------------------------
// z0dd - ZOD, 6/22/02. Addition.
// Alert players on server that a remote connection has
// been established to the server.
$TelnetSpam = 0;
function onTelnetConnect(%ip, %access)
{
   %level = %access == 1 ? "full" : "read";
   %snd = '~wfx/misc/diagnostic_on.wav';
   %msg = '\c1Remote telnet connection established.%1';
   if($Host::TournamentMode && $TelnetSpam == 0)
   {
      messageAll('MsgTelnetConnect', %msg, %snd);
      logEcho("Incomming telnet connection from: " @ %ip @ " with " @ %level @ " access privledges", 1);
      $TelnetSpam = 1;
      schedule(2000, 0, "clearTelnetSpam");
   }
}

function clearTelnetSpam()
{
   $TelnetSpam = 0;
}
// -----------------------------------------------------

function VerifyCDCheck(%func)
{
   if (!cdFileCheck())
      messageBoxOkCancel("TRIBES 2 CD CHECK", "You must have the Tribes 2 CD in the CD-ROM drive while playing Tribes 2.  Please insert the CD.", "schedule(0, 0, VerifyCDCheck, " @ %func @ ");", "quit();");
   else
      call(%func);
}

function logEcho(%msg, %export)
{
   // z0dd - ZOD, 5/19/03. Changed from $ClassicLogEchoEnabled, allow server owners to modify
   if($Host::ClassicLogEchoEnabled)
   {
      $AdminLog::new = formatTimeString("mm.dd.yy" SPC "h:nn" SPC "A") SPC %msg;
      %file = formatTimeString("mm.dd.yy") @ "Admin.log";
      echo("LOG: " @ $AdminLog::new);
      if(%export == 1)
         export("$AdminLog::*", $Host::ClassicAdminLogPath @"/"@ %file, true);
   }
}

//--------------------------------------------------------------------------
// z0dd - ZOD, 3/27/02. Auto restart server after specified time

function AutoRestart()
{
   if(!$Host::TournamentMode)
   {
      $AutoRestart = 1;
      centerPrintAll("<color:ff0000><font:Arial:12>SERVER WILL BE AUTO REBOOTING NEXT MISSION.", 5, 1);
      messageAll( 'MsgServerRestart', '\c2SERVER WILL BE AUTO REBOOTING NEXT MISSION.~wfx/misc/red_alert.wav');
      logEcho("Automatic server restart on mission end begining.");
   }
   else
      schedule(300000, 0, "AutoRestart"); // Check back in 5 minutes
}
//--------------------------------------------------------------------------

function CreateServer(%mission, %missionType)
{
   DestroyServer();

   // z0dd - ZOD, 3/27/02. Automatically reboot the server after a specified time.
   $AutoRestart = 0; // Paranoia
   if($Host::ClassicAutoRestartServer == 1)
      schedule($Host::ClassicRestartTime * 3600000, 0, "AutoRestart");

   if($Host::ClassicTelnet)
      telnetsetparameters($Host::ClassicTelnetPort, $Host::ClassicTelnetPassword, $Host::ClassicTelnetListenPass);

   // Load server data blocks
   exec("scripts/commanderMapIcons.cs");
   exec("scripts/markers.cs");
   exec("scripts/serverAudio.cs");
   exec("scripts/damageTypes.cs");
   exec("scripts/deathMessages.cs");
   exec("scripts/inventory.cs");
   exec("scripts/camera.cs");
   exec("scripts/particleEmitter.cs");    // Must exist before item.cs and explosion.cs
   exec("scripts/particleDummies.cs");
   exec("scripts/projectiles.cs");        // Must exist before item.cs
   exec("scripts/player.cs");
   exec("scripts/gameBase.cs");
   exec("scripts/staticShape.cs");
   exec("scripts/weapons.cs");
   exec("scripts/turret.cs");
   exec("scripts/weapTurretCode.cs");
   exec("scripts/pack.cs");
   exec("scripts/vehicles/vehicle_spec_fx.cs");    // Must exist before other vehicle files or CRASH BOOM
   exec("scripts/vehicles/serverVehicleHud.cs");
   exec("scripts/vehicles/vehicle_shrike.cs");
   exec("scripts/vehicles/vehicle_bomber.cs");
   exec("scripts/vehicles/vehicle_havoc.cs");
   exec("scripts/vehicles/vehicle_wildcat.cs");
   exec("scripts/vehicles/vehicle_tank.cs");
   exec("scripts/vehicles/vehicle_mpb.cs");
   exec("scripts/vehicles/vehicle.cs");            // Must be added after all other vehicle files or EVIL BAD THINGS
   exec("scripts/ai.cs");
   exec("scripts/item.cs");
   exec("scripts/station.cs");
   exec("scripts/simGroup.cs");
   exec("scripts/trigger.cs");
   exec("scripts/forceField.cs");
   exec("scripts/lightning.cs");
   exec("scripts/weather.cs");
   exec("scripts/deployables.cs");
   //exec("scripts/stationSetInv.cs"); // z0dd - ZOD, 5/18/03. Not used.
   exec("scripts/navGraph.cs");
   exec("scripts/targetManager.cs");
   exec("scripts/serverCommanderMap.cs");
   exec("scripts/environmentals.cs");
   exec("scripts/power.cs");
   exec("scripts/supportClassic.cs"); // z0dd - ZOD, 5/13/02. Execute the support functions.
   exec("scripts/practice.cs"); // z0dd - ZOD, 3/13/02. Execute practice mode server functions.
   exec("scripts/serverTasks.cs");
   exec("scripts/admin.cs");
   exec("prefs/dtBanlist.cs");

   // -------------------------------------------------------------------
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here.
   // z0dd - ZOD, 12/8/02. Explicit (base & classic) game type loading.
   exec("scripts/defaultGame.cs");
   exec("scripts/CTFGame.cs");
   exec("scripts/SCtFGame.cs");
   exec("scripts/PracticeCTFGame.cs");
   exec("scripts/TeamHuntersGame.cs");
   exec("scripts/SinglePlayerGame.cs");
   exec("scripts/SiegeGame.cs");
   exec("scripts/RabbitGame.cs");
   exec("scripts/HuntersGame.cs");
   exec("scripts/DnDGame.cs");
   exec("scripts/DMGame.cs");
   exec("scripts/CnHGame.cs");
   exec("scripts/BountyGame.cs");
   if($Host::ClassicLoadTR2Gametype)
   {
      exec("scripts/TR2Game.cs");
   }

   %search = "scripts/*Game.cs";
   for(%file = findFirstFile(%search); %file !$= ""; %file = findNextFile(%search))
   {
      %type = fileBase(%file); // get the name of the script
      if((%type !$= aiBountyGame)     &&
         (%type !$= BountyGame)       &&
         (%type !$= CnHGame)          &&
         (%type !$= CTFGame)          &&
         (%type !$= defaultGame)      &&
         (%type !$= DMGame)           &&
         (%type !$= DnDGame)          &&
         (%type !$= HuntersGame)      &&
         (%type !$= PracticeCTFGame)  &&
         (%type !$= RabbitGame)       &&
         (%type !$= SCtFGame)         &&
         (%type !$= SiegeGame)        &&
         (%type !$= SinglePlayerGame) &&
         (%type !$= TeamHuntersGame)  &&
         (%type !$= TR2Game))
      {
         exec("scripts/" @ %type @ ".cs");
      }
   }
   // -------------------------------------------------------------------

   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   $missionSequence = 0;
   $CurrentMissionType = %missionType;
   $HostGameBotCount = 0;
   $HostGamePlayerCount = 0;
   if ( $HostGameType !$= "SinglePlayer" )
      allowConnections(true);

   $ServerGroup = new SimGroup (ServerGroup);
   if(%mission $= "")
   {
      %mission = $HostMissionFile[$HostMission[0,0]];
      %missionType = $HostTypeName[0];
   }

   if ( ( $HostGameType $= "Online" && $pref::Net::DisplayOnMaster !$= "Never" ) ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      schedule(0,0,startHeartbeat);

   // setup the bots for this server
   if( $Host::BotsEnabled ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      initGameBots( %mission, %missionType );

   // z0dd - ZOD, 9/13/02. For TR2 compatability
   // This is a failsafe way of ensuring that default gravity is always restored
   // if a game type (such as TR2) changes it.  It is placed here so that listen
   // servers will work after opening and closing different gametypes.
   $DefaultGravity = getGravity();

   // z0dd - ZOD, 07/19/03. fix for stuttering dual processor servers.
   // Moved here because it seems server must be created first.
   if(($Host::ClassicUseHighPerformanceCounter $= "1") || ($Host::ClassicUseHighPerformanceCounter == 1))
      setPerfCounterEnable(1);
   else if(($Host::ClassicUseHighPerformanceCounter $= "2") || ($Host::ClassicUseHighPerformanceCounter == 2))
      setPerfCounterEnable(2);
   else if(($Host::ClassicUseHighPerformanceCounter $= "3") || ($Host::ClassicUseHighPerformanceCounter == 3))
      setPerfCounterEnable(3);
   else
	  setPerfCounterEnable(0);

   // Load Banlist
   ClassicLoadBanlist();

   // load the mission...
   loadMission(%mission, %missionType, true);

   // TraversalRoot Console spam fix
   if($Host::ClassicSuppressTraversalRootError)
      suppressTraversalRootPatch();

   // Set when server starts
   // Used to reset timelimit (if voted) when map changes
   $DefaultTimeLimit = $Host::TimeLimit;

   // Auto Daily Hard Server Restart at a specific time
   // getTimeDif from zDarkTigerStats.cs
   if($dtStats::version && $Host::ClassicDailyHardRestart)
      schedule(getTimeDif($Host::ClassicDailyHardRestartTime),0,"quit");
}

function initGameBots( %mission, %mType )
{
   echo( "adding bots..." );

   AISystemEnabled( false );
   if ( $Host::BotCount > 0 && %mType !$= "SinglePlayer" )
   {
      // Make sure this mission is bot enabled:
      for ( %idx = 0; %idx < $HostMissionCount; %idx++ )
      {
         if ( $HostMissionFile[%idx] $= %mission )
            break;
      }

      if ( $BotEnabled[%idx] )
      {
         if ( $Host::BotCount > 32 )
            $HostGameBotCount = 32;
         else
            $HostGameBotCount = $Host::BotCount;

         if ( $Host::BotCount > $Host::MaxPlayers - 1 )
            $HostGameBotCount = $Host::MaxPlayers - 1;

         //set the objective reassessment timeslice var
         $AITimeSliceReassess = 0;
         aiConnectMultiple( $HostGameBotCount, $Host::MinBotDifficulty, $Host::MaxBotDifficulty, -1 );
      }
      else
      {
         $HostGameBotCount = 0;
      }
   }
}

function getValidMap(%misType)
{
   // Find the index of the mission type and choose a random map of this type
   for ( %type = 0; %type < $HostTypeCount; %type++ )
   {
      if ( $HostTypeName[%type] $= %misType )
         break;
   }

   // Now get the mission count of this type
   for(%i = 0; $HostMission[%type, %i] !$=""; %i++)
      %count = %i;

   if ( $HostGameBotCount > 0 )
   {
      // Pick a mission from this type within its mission count
      for(%j = 0; $HostMissionFile[$HostMission[%type, %j]] !$= ""; %j++)
      {
         %file = $HostMissionFile[$HostMission[%type, %j]];
         for ( %mis = 0; %mis < $HostMissionCount; %mis++ )
         {
            if( $HostMissionFile[%mis] $= %file )
            {
               if($BotEnabled[%mis])
               {
                  %file = $HostMissionFile[$HostMission[%type, %j]];
                  break;
               }
            }
         }
      }
   }
   else
      %file = $HostMissionFile[$HostMission[%type, mFloor(getRandom(0, %count-1))]];

   return %file;
}

function findNextCycleMission(%type)
{
   %numPlayers = 1;
   if($Host::ClassicCycleMisTypes || $Host::ClassicRandomMisTypes)
   {
      %tempMission = getValidMap(%type);
      if(%tempMission $= "")
      {
         %tempMission = $CurrentMission;
         %type = $CurrentMissionType;
      }
   }
   else
      %tempMission = $CurrentMission;

   %failsafe = 0;
   while (1)
   {
      %nextMissionIndex = getNextMission(%tempMission, %type);
      %nextPotentialMission = $HostMissionFile[%nextMissionIndex];
      // Eolk
      $MapPlayed[%nextPotentialMission] = 1;
      $MapPlayedCount++;
//      error("SH: "@%type@", "@%nextPotentialMission);
//      error("POT MAP: "@%nextPotentialMission);

      //just cycle to the next if we've gone all the way around...
      if (%nextPotentialMission $= $CurrentMission || %failsafe >= 1000)
      {
         %nextMissionIndex = getNextMission($CurrentMission, %type);
         //return $HostMissionName[%nextMissionIndex]; // z0dd - ZOD - Founder, 10/06/02. Was trying to load a mission name instead of file.
         return $HostMissionFile[%nextMissionIndex];
      }

      %numPlayers = ClientGroup.getCount();
      %minPlayers = $MapCycleMinPlayers[%type, %nextPotentialMission];
      %maxPlayers = $MapCycleMaxPlayers[%type, %nextPotentialMission];
//      error("MINPLAYERS: "@%minPlayers@", MAXPLAYERS: "@%maxPlayers);
      if(%minPlayers $= "" || %maxPlayers $= "")
         return;

      if ((%minPlayers < 0 || %minPlayers == -1 || %numPlayers >= %minPlayers) && (%maxPlayers < 0 || %maxPlayers == -1 || %numPlayers <= %maxPlayers))
            return %nextPotentialMission;

      //since we didn't return the mission, we must not have an acceptable number of players - check the next
      error("SKIPPING MAP, player count unacceptable");
      %tempMission = %nextPotentialMission;
      %failsafe++;
   }
}

function CycleMissions()
{
   if(Game.scheduleVote !$= "") // a vote is still running, stop it
    stopCurrentVote();

   echo( "cycling mission. " @ ClientGroup.getCount() @ " clients in game." );
   if($Host::ClassicCycleMisTypes && !$Host::ClassicRandomMisTypes)
   {
      if($HostTypeName[$HostTypeCount + 1] !$= "")
         %type = $HostTypeName[$HostTypeCount + 1];
      else
         %type = $HostTypeName[0];

      %nextMission = findNextCycleMission(%type);
      messageAll( 'MsgClient', 'Loading %1 (%2)...', %nextMission, $HostTypeDisplayName[%type] );
      loadMission( %nextMission, %type );
   }
   else if($Host::ClassicRandomMisTypes && !$Host::ClassicCycleMisTypes)
   {
      %ran = mFloor(getRandom(0, $HostTypeCount));
      if($HostTypeName[%ran] !$= "")
         %type = $HostTypeName[%ran];
      else
         %type = $HostTypeName[0];

      %nextMission = findNextCycleMission(%type);
      messageAll( 'MsgClient', 'Loading %1 (%2)...', %nextMission, $HostTypeDisplayName[%type] );
      loadMission( %nextMission, %type );
   }
   else
   {
      %nextMission = findNextCycleMission($CurrentMissionType);
      if(%nextMission $= "") // z0dd - ZOD, 5/17/03. Make sure it's returning a mission, otherwise, repeat.
         %nextMission = $CurrentMission;

      messageAll( 'MsgClient', 'Loading %1 (%2)...', %nextMission, $MissionTypeDisplayName );
      loadMission( %nextMission, $CurrentMissionType );
   }
}

function DestroyServer()
{
   $missionRunning = false;
   allowConnections(false);
   stopHeartbeat();
   if ( isObject( MissionGroup ) )
      MissionGroup.delete();
   if ( isObject( MissionCleanup ) )
      MissionCleanup.delete();
   if(isObject(game))
   {
      game.deactivatePackages();
      game.delete();
   }
   if(isObject($ServerGroup))
      $ServerGroup.delete();

   // delete all the connections:
   while(ClientGroup.getCount())
   {
      %client = ClientGroup.getObject(0);
      if (%client.isAIControlled())
         %client.drop();
      else
         %client.delete();
   }

   // delete all the data blocks...
   // this will cause problems if there are any connections
   deleteDataBlocks();

   // reset the target manager
   resetTargetManager();

   echo( "exporting server prefs..." );
   export( "$Host::*", $serverprefs, false );
   purgeResources();

   // z0dd - ZOD, 9/13/02. For TR2 compatability.
   // This is a failsafe way of ensuring that default gravity is always restored
   // if a game type (such as TR2) changes it.  It is placed here so that listen
   // servers will work after opening and closing different gametypes.
   if ($DefaultGravity !$= "")
      setGravity($DefaultGravity);
}

function Disconnect()
{
   if ( isObject( ServerConnection ) )
      ServerConnection.delete();
   DisconnectedCleanup();
   DestroyServer();
}

function DisconnectedCleanup()
{
   $CurrentMissionType = "";
   $CurrentMission = "";

   // Make sure we're not still waiting for the loading info:
   cancelLoadInfoCheck();

   // clear the chat hud message vector
   HudMessageVector.clear();
   if ( isObject( PlayerListGroup ) )
      PlayerListGroup.delete();

   // terminate all playing sounds
   alxStopAll();

   // clean up voting
   voteHud.voting = false;
   mainVoteHud.setvisible(0);

   // clear all print messages
   clientCmdclearBottomPrint();
   clientCmdClearCenterPrint();

   // clear the inventory and weapons hud
   weaponsHud.clearAll();
   inventoryHud.clearAll();

   // back to the launch screen
   Canvas.setContent(LaunchGui);
   if ( isObject( MusicPlayer ) )
      MusicPlayer.stop();
   clearTextureHolds();
   purgeResources();

   if ( $PlayingOnline )
   {
      // Restart the email check:
      if ( !EmailGui.checkingEmail && EmailGui.checkSchedule $= "" )
         CheckEmail( true );

      IRCClient::onLeaveGame();
   }
}

// we pass the guid as well, in case this guy leaves the server.
function kick( %client, %admin, %guid )
{
   if(%admin)
      messageAll( 'MsgAdminForce', '\c2%1 has kicked %2.', %admin.name, %client.name ); // z0dd - ZOD, 7/13/03. Tell who kicked
   else
      messageAll( 'MsgVotePassed', '\c2%1 was kicked by vote.', Game.kickClientName );

   messageClient(%client, 'onClientKicked', "");
   messageAllExcept( %client, -1, 'MsgClientDrop', "", Game.kickClientName, %client );

   if( %client.isAIControlled() )
   {
      if($Host::ClassicCanKickBots || %admin.isAdmin)
      {
         if(!$Host::ClassicBalancedBots)
         {
            $HostGameBotCount--;
            %client.drop();
         }
      }
   }
   else
   {
      if( $playingOnline ) // won games
      {
         %count = ClientGroup.getCount();
         %found = false;
         for( %i = 0; %i < %count; %i++ ) // see if this guy is still here...
         {
            %cl = ClientGroup.getObject( %i );
	      if( %cl.guid == %guid )
            {
	         %found = true;

	         // kill and delete this client, their done in this server.
	         if( isObject( %cl.player ) )
	            %cl.player.scriptKill(0);

               if ( isObject( %cl ) )
               {
                  %client.setDisconnectReason( "You have been kicked out of the game." ); // z0dd - ZOD, 7/13/03. Tell who kicked
	              %cl.schedule(700, "delete");
               }
			 // ban by IP as well
	         BanList::add( %guid, %client.getAddress(), $Host::KickBanTime );
            }
	   }
         if( !%found )
	      BanList::add( %guid, "0", $Host::KickBanTime ); // keep this guy out for a while since he left.
      }
      else // lan games
      {
	   // kill and delete this client
	   if( isObject( %client.player ) )
	      %client.player.scriptKill(0);

         if ( isObject( %client ) )
         {
            %client.setDisconnectReason( "You have been kicked out of the game." );
	         %client.schedule(700, "delete");
         }
	   BanList::add( 0, %client.getAddress(), $Host::KickBanTime );
      }
   }
}

function ban( %client, %admin )
{
   if ( %admin )
      messageAll('MsgAdminForce', '\c2%1 has banned %2.', %admin.name, %client.name); // z0dd - ZOD, 10/03/2. Tell who banned
   else
      messageAll( 'MsgVotePassed', '\c2%1 was banned by vote.', %client.name );

   messageClient(%client, 'onClientBanned', "");
   messageAllExcept( %client, -1, 'MsgClientDrop', "", %client.name, %client );

   // kill and delete this client
   if( isObject(%client.player) )
      %client.player.scriptKill(0);

   if ( isObject( %client ) )
   {
      %client.setDisconnectReason( %admin.nameBase @ " has banned you from this server." ); // z0dd - ZOD, 10/03/2. Tell who banned
      %client.schedule(700, "delete");
   }
   BanList::add(%client.guid, %client.getAddress(), $Host::BanTime);
}

function getValidVoicePitch(%voice, %voicePitch)
{
   if (%voicePitch < -1.0)
      %voicePitch = -1.0;
   else if (%voicePitch > 1.0)
      %voicePitch = 1.0;

   //Voice pitch range is from 0.5 to 2.0, however, we should tighten the range to
   //avoid players sounding like mickey mouse, etc...
   //see if we're pitching down - clamp the min pitch at 0.875
   if (%voicePitch < 0)
      return (1.0 + (0.125 * %voicePitch));

   //max voice pitch is 1.125
   else if (%voicePitch > 0)
      return 1.0 + (0.125 * %voicePitch);

   else
      return 1.0;
}

// z0dd - ZOD, 9/29/02. Removed T2 demo code from here

function GameConnection::onConnect( %client, %name, %raceGender, %skin, %voice, %voicePitch )
{
   %client.setMissionCRC($missionCRC);
   sendLoadInfoToClient( %client );

   //%client.setSimulatedNetParams(0.1, 30);

   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   // ---------------------------------------------------
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   // if hosting this server, set this client to superAdmin
   if(%client.getAddress() $= "Local")
   {
      %client.isAdmin = true;
      %client.isSuperAdmin = true;
   }
   // Get the client's unique id:
   %authInfo = %client.getAuthInfo();
   %client.guid = getField( %authInfo, 3 );

   // check admin and super admin list, and set status accordingly
   if ( !%client.isSuperAdmin )
   {
      if ( isOnSuperAdminList( %client ) )
      {
         %client.isAdmin = true;
         %client.isSuperAdmin = true;
      }
      else if( isOnAdminList( %client ) )
      {
         %client.isAdmin = true;
      }
   }

   // Sex/Race defaults
   switch$ ( %raceGender )
   {
      case "Human Male":
         %client.sex = "Male";
         %client.race = "Human";
      case "Human Female":
         %client.sex = "Female";
         %client.race = "Human";
      case "Bioderm":
         %client.sex = "Male";
         %client.race = "Bioderm";
      default:
         error("Invalid race/gender combo passed: " @ %raceGender);
         %client.sex = "Male";
         %client.race = "Human";
   }
   %client.armor = "Light";

   // Override the connect name if this server does not allow smurfs:
   %realName = getField( %authInfo, 0 );
   if ( $PlayingOnline && $Host::NoSmurfs )
      %name = %realName;

   //Remove <> to not mess up tribesnext json
   %name = stripChars( detag( %name ), "<>" );

   if ( strcmp( %name, %realName ) == 0 )
   {
      %client.isSmurf = false;

      //make sure the name is unique - that a smurf isn't using this name...
      %dup = -1;
      %count = ClientGroup.getCount();
      for (%i = 0; %i < %count; %i++)
      {
         %test = ClientGroup.getObject( %i );
         if (%test != %client)
         {
	    %rawName = stripChars( detag( getTaggedString( %test.name ) ), "\cp\co\c6\c7\c8\c9" );
            if (%realName $= %rawName)
            {
               %dup = %test;
               %dupName = %rawName;
               break;
            }
         }
      }

      //see if we found a duplicate name
      if (isObject(%dup))
      {
         //change the name of the dup
         %isUnique = false;
         %suffixCount = 1;
         while (!%isUnique)
         {
            %found = false;
            %testName = %dupName @ "." @ %suffixCount;
            for (%i = 0; %i < %count; %i++)
            {
               %cl = ClientGroup.getObject(%i);
	       %rawName = stripChars( detag( getTaggedString( %cl.name ) ), "\cp\co\c6\c7\c8\c9" );
               if (%rawName $= %testName)
               {
                  %found = true;
                  break;
               }
            }

            if (%found)
               %suffixCount++;
            else
               %isUnique = true;
         }

         //%testName will now have the new unique name...
         %oldName = %dupName;
         %newName = %testName;

         //MessageAll( 'MsgSmurfDupName', '\c2The real \"%1\" has joined the server.', %dupName );
         //MessageAll( 'MsgClientNameChanged', '\c2The smurf \"%1\" is now called \"%2\".', %oldName, %newName, %dup );

         %dup.name = addTaggedString(%newName);
         setTargetName(%dup.target, %dup.name);
      }

      // Add the tribal tag:
      %tag = getField( %authInfo, 1 );
      %append = getField( %authInfo, 2 );
      if ( %append )
         %name = "\cp\c6" @ %name @ "\c7" @ %tag @ "\co";
      else
         %name = "\cp\c7" @ %tag @ "\c6" @ %name @ "\co";

      %client.sendGuid = %client.guid;
   }
   else
   {
      %client.isSmurf = true;
      %client.sendGuid = 0;
      %name = stripTrailingSpaces( strToPlayerName( %name ) );
      if ( strlen( %name ) < 3 )
         %name = "Poser";

      // Make sure the alias is unique:
      %isUnique = true;
      %count = ClientGroup.getCount();
      for ( %i = 0; %i < %count; %i++ )
      {
         %test = ClientGroup.getObject( %i );
         %rawName = stripChars( detag( getTaggedString( %test.name ) ), "\cp\co\c6\c7\c8\c9" );
         if ( strcmp( %name, %rawName ) == 0 )
         {
            %isUnique = false;
            break;
         }
      }

      // Append a number to make the alias unique:
      if ( !%isUnique )
      {
         %suffix = 1;
         while ( !%isUnique )
         {
            %nameTry = %name @ "." @ %suffix;
            %isUnique = true;

            %count = ClientGroup.getCount();
            for ( %i = 0; %i < %count; %i++ )
            {
               %test = ClientGroup.getObject( %i );
               %rawName = stripChars( detag( getTaggedString( %test.name ) ), "\cp\co\c6\c7\c8\c9" );
               if ( strcmp( %nameTry, %rawName ) == 0 )
               {
                  %isUnique = false;
                  break;
               }
            }

            %suffix++;
         }

         // Success!
         %name = %nameTry;
      }

      %smurfName = %name;
      // Tag the name with the "smurf" color:
      %name = "\cp\c8" @ %name @ "\co";
   }

   %client.name = addTaggedString(%name);
   if(%client.isSmurf)
      %client.nameBase = %smurfName;
   else
      %client.nameBase = %realName;

   // Make sure that the connecting client is not trying to use a bot skin:
   //%temp = detag( %skin );
   //if ( %temp $= "basebot" || %temp $= "basebbot" )
   //   %client.skin = addTaggedString( "base" );
   //else
   //	%client.skin = addTaggedString( %skin );

   //Changed to allow botskins
   %temp = detag( %skin );
   if(%temp $= "")
		%client.skin = addTaggedString( "base" );
   else
        %client.skin = addTaggedString( %skin );

   %client.voice = %voice;
   %client.voiceTag = addtaggedString(%voice);

   //set the voice pitch based on a lookup table from their chosen voice
   %client.voicePitch = getValidVoicePitch(%voice, %voicePitch);
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   // ---------------------------------------------------

   %client.justConnected = true;
   %client.isReady = false;

   // full reset of client target manager
   clientResetTargets(%client, false);

   %client.target = allocClientTarget(%client, %client.name, %client.skin, %client.voiceTag, '_ClientConnection', 0, 0, %client.voicePitch);
   %client.score = 0;
   %client.team = 0;

   $instantGroup = ServerGroup;
   $instantGroup = MissionCleanup;

   echo("CADD: " @ %client @ " " @ %client.getAddress());

   %count = ClientGroup.getCount();
   for(%cl = 0; %cl < %count; %cl++)
   {
      %recipient = ClientGroup.getObject(%cl);
      if((%recipient != %client))
      {
         // These should be "silent" versions of these messages...
         messageClient(%client, 'MsgClientJoin', "",
               %recipient.name,
               %recipient,
               %recipient.target,
               %recipient.isAIControlled(),
               %recipient.isAdmin,
               %recipient.isSuperAdmin,
               %recipient.isSmurf,
               %recipient.sendGuid);

         messageClient(%client, 'MsgClientJoinTeam', "", %recipient.name, $teamName[%recipient.team], %recipient, %recipient.team );
      }
   }

//   commandToClient(%client, 'getManagerID', %client);

   commandToClient(%client, 'setBeaconNames', "Target Beacon", "Marker Beacon", "Bomb Target");

   if ( $CurrentMissionType !$= "SinglePlayer" )
   {
      // z0dd - ZOD, 5/08/04. Send message of any gameplay changes
//      messageClient( %client, 'MsgClassic', 'Classic \c2Sniper Mod: \c3%1.', ($Host::ClassicLoadSniperChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Missile Mod: \c3%1.', ($Host::ClassicLoadMissileChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Mortar Mod: \c3%1.', ($Host::ClassicLoadMortarChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Blaster Mod: \c3%1.', ($Host::ClassicLoadBlasterChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Plasma Turret Mod: \c3%1.', ($Host::ClassicLoadPlasmaTurretChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Player Mod: \c3%1.', ($Host::ClassicLoadPlayerChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Havoc Mod: \c3%1.', ($Host::ClassicLoadHavocChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2Mine Mod: \c3%1.', ($Host::ClassicLoadMineChanges ? 'Enabled' : 'Disabled') );
//      messageClient( %client, 'MsgClassic', 'Classic \c2V-Ramming Mod: \c3%1.', ($Host::ClassicLoadVRamChanges ? 'Enabled' : 'Disabled') );

      // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      messageClient(%client, 'MsgClientJoin', 'Welcome to Tribes2 %1.',
                    %client.name,
                    %client,
                    %client.target,
                    false,   // isBot
                    %client.isAdmin,
                    %client.isSuperAdmin,
                    %client.isSmurf,
                    %client.sendGuid );
       // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

      messageAllExcept(%client, -1, 'MsgClientJoin', '\c1%1 joined the game.',
                       %client.name,
                       %client,
                       %client.target,
                       false,   // isBot
                       %client.isAdmin,
                       %client.isSuperAdmin,
                       %client.isSmurf,
                       %client.sendGuid );
   }
   else
      messageClient(%client, 'MsgClientJoin', "\c0Mission Insertion complete...",
            %client.name,
            %client,
            %client.target,
            false,   // isBot
            false,   // isAdmin
            false,   // isSuperAdmin
            false,   // isSmurf
            %client.sendGuid );

   //Game.missionStart(%client);
   setDefaultInventory(%client);

   if($missionRunning)
      %client.startMission();
   $HostGamePlayerCount++;
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   // Eolk - Fix logging.
   if( $Host::ClassicConnectLog )
      connectLog(%client, 0);

   // z0dd - ZOD 4/29/02. Activate the clients Classic Huds
   // and start off with 0 SAD access attempts.
   %client.SadAttempts = 0;
   messageClient(%client, 'MsgBomberPilotHud', ""); // Activate the bomber pilot hud

   // z0dd - ZOD, 8/10/02. Get player hit sounds etc.
   commandToClient(%client, 'GetClassicModSettings', 1);

   //---------------------------------------------------------
   // z0dd - ZOD, 7/12/02. New AutoPW server function. Sets
   // server join password when server reaches x player count.
   if($Host::ClassicAutoPWEnabled)
   {
      if(($Host::ClassicAutoPWPlayerCount != 0 && $Host::ClassicAutoPWPlayerCount !$= "") && ($HostGamePlayerCount >= $Host::ClassicAutoPWPlayerCount))
         AutoPWServer(1);
   }
   // z0dd - ZOD, 5/12/04. Kick a bot for every client join if balanced bots are set
   if( $Host::BotsEnabled )
   {
      if($Host::ClassicBalancedBots)
      {
         for(%i = 0; %i < ClientGroup.getCount(); %i++)
         {
            %cl = ClientGroup.getObject(%i);
            if(%cl.isAIControlled())
            {
               %kick = %cl;
               break;
            }
         }
         if(%kick !$= "")
         {
            $HostGameBotCount--;
            %kick.drop();
         }
      }
   }

   if($Host::EmptyServerReset && isEventPending($EmptyServerResetSchedule))
   {
		error(formatTimeString("HH:nn:ss") SPC "Previous Timed Server Reset schedule cancelled..." );
		cancel($EmptyServerResetSchedule);
   }

   if($Host::GuidCheck)
   {
	   // If we don't have a GUID try to find one somewhere.
	   if(!%client.guid || %client.guid $= "")
	   {
			%client.guid = getField(%client.getAuthInfo(),3);
	   }
	   // If we don't have a name, try to get one.
	   if(%name $= "")
	   {
		   %name = getField(%client.getAuthInfo(),0);
		   %client.nameBase = %name;
	   }
	   // If we still don't have a GUID or name, time to boot the player (unless a local game).
	   if(getIPAddress(%client) !$= "Local" && (%client.guid $= "" || %name $= ""))
	   {
			echo("No name/GUID kick for CID (" @ %client @ ") with IP (" @ getIPAddress(%client) @ ")");
			KickByCID(%client, "You joined the server with a blank name and/or GUID. Try rejoining.",2);
			return;
	   }
   }

   // %stuff = getIPAddress(%client);
   // %ipfield = strreplace(%stuff,".","\t");
   // if(strstr(%stuff, "166.137.") == 0 && getField(%ipfield,2) < 105)
   // {
   //    error("IP not allowed:" SPC %stuff SPC "(" @ %client.nameBase @ "," SPC %client.guid @ ")");
   //    KickByCID(%client, "You are not allowed to play here.");
   //    Banlist::Add(%client.guid, "0", $Host::BanTime);
   //    //ClassicAddBan(%client.namebase, %client.guid);
   //    return;
   // }
   // else if(strstr(%stuff, "166.177.") == 0 && getField(%ipfield,2) < 218)
   // {
   //    error("IP not allowed:" SPC %stuff SPC "(" @ %client.nameBase @ "," SPC %client.guid @ ")");
   //    KickByCID(%client, "You are not allowed to play here.");
   //    Banlist::Add(%client.guid, "0", $Host::BanTime);
   //    //ClassicAddBan(%client.namebase, %client.guid);
   //    return;
   // }

   // Whitelist check is in here.
   %banned = ClassicIsBanned(%client);
   if(%banned)
   {
	  if(%banned & 1 && !(%banned & 2))// GUID, but not IP
      {
         if($Host::ClassicViralBanning)
            ClassicAddBan(%client.namebase, %client.getIPAddress());
      }

      if(%banned & 2 && !(%banned & 1))// IP, but not GUID
      {
         if($Host::ClassicViralBanning)
            ClassicAddBan(%client.namebase, %client.guid);
      }

      KickByCID(%client, "You are banned from this server.", 0);
      Banlist::Add(%client.guid, "0", $Host::BanTime); // Do not ban by IP so we can catch more people with the viral banlist.
      return;
   }
}

function GameConnection::onDrop(%client, %reason)
{
   if(isObject(Game))
      Game.onClientLeaveGame(%client);

   // Eolk - Fix logging.
   if( $Host::ClassicConnectLog )
      connectLog(%client, 1);

   // make sure that tagged string of player name is not used
   if ( $CurrentMissionType $= "SinglePlayer" )
      messageAllExcept(%client, -1, 'MsgClientDrop', "", getTaggedString(%client.name), %client);
   else
      messageAllExcept(%client, -1, 'MsgClientDrop', '\c1%1 has left the game.', getTaggedString(%client.name), %client);

   if ( isObject( %client.camera ) )
      %client.camera.delete();

   // z0dd - ZOD, 6/19/02. Strip the hit sound tags
   removeTaggedString(%client.playerHitWav);
   removeTaggedString(%client.vehicleHitWav);

   removeTaggedString(%client.name);
   removeTaggedString(%client.voiceTag);
   removeTaggedString(%client.skin);
   freeClientTarget(%client);

   echo("CDROP: " @ %client @ " " @ %client.getAddress());
   $HostGamePlayerCount--;

//   schedule(1000, 0, "updateAdminModHud"); // Have to delay this a bit so it actually updates correctly, since the client isn't deleted in this function.

   // z0dd - ZOD, 5/05/04. Add a bot for every client drop if balanced bots are set
   if( $Host::BotsEnabled )
   {
      if($Host::ClassicBalancedBots)
      {
         if(!%client.isAIControlled())
         {
            if (serverCanAddBot())
            {
               aiConnectMultiple( 1, $Host::MinBotDifficulty, $Host::MaxBotDifficulty, -1 );
               $HostGameBotCount++;
            }
         }
      }
   }

   //---------------------------------------------------------
   // z0dd - ZOD, 7/12/02. New AutoPW server function. Sets
   // server join password when server reaches x player count.
   if($Host::ClassicAutoPWEnabled)
   {
      if($HostGamePlayerCount < $Host::ClassicAutoPWPlayerCount)
         AutoPWServer(0);
   }
   // reset the server if everyone has left the game
   if( $HostGamePlayerCount - $HostGameBotCount == 0 && $Host::EmptyServerReset && !$resettingServer && !$LoadingMission && $CurrentMissionType !$= $Host::MissionType )
   {
	// Timed Server Reset: $Host::EmptyServerReset = 1; --- Time in Minutes $Host::EmptyServerResetTime = 120;
	if(isEventPending($EmptyServerResetSchedule))
	{
		error(formatTimeString("HH:nn:ss") SPC "Previous Timed Server Reset schedule cancelled..." );
		cancel($EmptyServerResetSchedule);
	}

	%resettime = $Host::EmptyServerResetTime * 60000;
	if(%resettime <= 0) %resettime = 1;
	$EmptyServerResetSchedule = schedule(%resettime, 0, "ResetServerTimed");
	error(formatTimeString("HH:nn:ss") SPC "Timed Server Reset schedule started..." );
   }
}

function ResetServerTimed()
{
	if( $HostGamePlayerCount - $HostGameBotCount == 0 && $Host::EmptyServerReset && !$resettingServer && !$LoadingMission )
      schedule(10, 0, "resetServerDefaults");
	  // Instead of simply resetting the defaults, reinitialize the
	  // entire server...
	  // ReallyQuit();
	else
	  error(formatTimeString("HH:nn:ss") SPC "Timed Server Reset schedule cancelled (Someone on server)..." );
}

// resetServerDefaults()
// Info: Re-load the current server prefs and reset some variables
function resetServerDefaults()
{
   $resettingServer = true;
   echo( "Resetting server defaults..." );

   if( isObject( Game ) )
      Game.gameOver();

   // Override server defaults with prefs:
   exec( "scripts/ServerDefaults.cs" );
   exec( $serverprefs );

   $MaxPlayers = $Host::MaxPlayers;
   $BackupPassword = $Host::Password;
   $Host::TimeLimit = $DefaultTimeLimit;
   $NoBaseRape = 1;
   $Host::TournamentMode = 0;

   // ---------------------------------------------------
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   //convert the team skin and name vars to tags...
   %index = 0;
   while ($Host::TeamSkin[%index] !$= "")
   {
      $TeamSkin[%index] = addTaggedString($Host::TeamSkin[%index]);
      %index++;
   }

   %index = 0;
   while ($Host::TeamName[%index] !$= "")
   {
      $TeamName[%index] = addTaggedString($Host::TeamName[%index]);
      %index++;
   }

   // Get the hologram names from the prefs...
   %index = 1;
   while ( $Host::holoName[%index] !$= "" )
   {
      $holoName[%index] = $Host::holoName[%index];
      %index++;
   }
   // ---------------------------------------------------

   // kick all bots...
   removeAllBots();

   // add bots back if they were there before..
   if( $Host::botsEnabled ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      initGameBots( $Host::Map, $Host::MissionType );

   // load the missions
   loadMission( $Host::Map, $Host::MissionType );
   $resettingServer = false;
   echo( "Server reset complete." );
}

function dismountPlayers()
{
   // make sure all palyers are dismounted from vehicles and have normal huds
   %count = ClientGroup.getCount();
   for(%cl = 0; %cl < %count; %cl++)
   {
      %client = ClientGroup.getObject(%cl);
      %player = %client.player;
      if(%player.isMounted()) {
         %player.unmount();
         commandToClient(%client, 'setHudMode', 'Standard', "", 0);
      }
   }
}

function loadMission( %missionName, %missionType, %firstMission )
{
   if ($AutoRestart) // z0dd - ZOD, 3/26/02. Auto restart server after a specified time.
   {
      $AutoRestart = 0;
      messageAll( 'MsgServerRestart', '\c2SERVER IS NOW AUTO RESTARTING!.~wfx/misc/red_alert.wav');
      logEcho("Auto server restart commencing.");
      //schedule(10000, 0, "CreateServer", %missionName, %missionType); // this wasn't working as a cure for servers with NULLs
      schedule(5000, 0, quit );
   }

   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   // z0dd - ZOD, 9/13/02. TR2 needs this.
   if( %missionType $= "TR2" )
   {
      $_Camera::movementSpeed = $Camera::movementSpeed;
      $Camera::movementSpeed = 80;
   }
   else
   {
      %val = ($_Camera::movementSpeed $= "") ? $Classic::cameraSpeed : $_Camera::movementSpeed; // z0dd - ZOD, 9/13/02. Classic camera speed.
      $Camera::movementSpeed = %val;
   }

   $LoadingMission = true;
   disableCyclingConnections(true);
   if (!$pref::NoClearConsole)
      cls();
   if ( isObject( LoadingGui ) )
      LoadingGui.gotLoadInfo = "";
   buildLoadInfo( %missionName, %missionType );

   // reset all of these
   ClearCenterPrintAll();
   ClearBottomPrintAll();

   if( $Host::TournamentMode ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      resetTournamentPlayers();

   // Send load info to all the connected clients:
   %count = ClientGroup.getCount();
   for ( %cl = 0; %cl < %count; %cl++ )
   {
      %client = ClientGroup.getObject( %cl );
      if ( !%client.isAIControlled() )
         sendLoadInfoToClient( %client );
   }

   if($Host::ClassicEvoStats)
   {
      deleteVariables("$*stats::*");
      if(%missionType $= "CTF" || %missionType $= "SCtF")
      {
         %fileIn = "stats/maps/classic/" @ %missionType @ "/" @ %missionName @ ".txt";

         // Initialize the file if not exist
         if(!isFile(%fileIn))
         {
            $flagstats::heldTeam1 = 0;
            $flagstats::realTeam1 = 0;
            $flagstats::nickTeam1 = 0;
            $flagstats::heldTeam2 = 0;
            $flagstats::realTeam2 = 0;
            $flagstats::nickTeam2 = 0;

            export("$flagstats::*", %fileIn, false);
         }

         exec(%fileIn);
      }
   }

   // Eolk - Testing new stuff to make map rotation less stale.
   if($CurrentMissionType !$= %missionType && !%firstMission)
      deleteVariables("$MapPlayed*");

   // reset the default time limit if changed
   if($TimeLimitChanged)
   {
      $Host::TimeLimit = $DefaultTimeLimit;
      $TimeLimitChanged = 0;
   }

   if(!$MapPlayed[%missionName] && $ReverseMapCycle[%missionName])
   {
      $MapPlayed[%missionName] = 1;
      $MapPlayedCount++;
   }

   // allow load condition to exit out
   schedule(0,ServerGroup,loadMissionStage1,%missionName,%missionType,%firstMission);
}

function loadMissionStage1(%missionName, %missionType, %firstMission)
{
   // if a mission group was there, delete prior mission stuff
   if(isObject(MissionGroup))
   {
      // clear out the previous mission paths
      for(%clientIndex = 0; %clientIndex < ClientGroup.getCount(); %clientIndex++)
      {
         // clear ghosts and paths from all clients
         %cl = ClientGroup.getObject(%clientIndex);
         %cl.resetGhosting();
         %cl.clearPaths();
         %cl.isReady = "";
         %cl.matchStartReady = false;
      }
      Game.endMission();
      $lastMissionTeamCount = Game.numTeams;

      MissionGroup.delete();
      MissionCleanup.delete();
      Game.deactivatePackages();
      Game.delete();
      $ServerGroup.delete();
      $ServerGroup = new SimGroup(ServerGroup);
   }

   $CurrentMission = %missionName;
   $CurrentMissionType = %missionType;

   createInvBanCount();
   echo("LOADING MISSION: " @ %missionName SPC formatTimeString("[M-d") SPC formatTimeString(" hh:nna]"));

   // increment the mission sequence (used for ghost sequencing)
   $missionSequence++;

   // if this isn't the first mission, allow some time for the server
   // to transmit information to the clients:

// jff: $currentMission  already being used for this purpose, used in 'finishLoadMission'
   $MissionName = %missionName;
   $missionRunning = false;

   if(!%firstMission)
      schedule(15000, ServerGroup, loadMissionStage2);
   else
      loadMissionStage2();
}

function loadMissionStage2()
{
   // create the mission group off the ServerGroup
   echo("Stage 2 load");
   $instantGroup = ServerGroup;

   new SimGroup (MissionCleanup);

   if($CurrentMissionType $= "")
   {
      new ScriptObject(Game) {
         class = DefaultGame;
      };
   }
   else
   {
      new ScriptObject(Game) {
         class = $CurrentMissionType @ "Game";
         superClass = DefaultGame;
      };
   }
   // allow the game to activate any packages.
   Game.activatePackages();

   // reset the target manager
   resetTargetManager();

   %file = "missions/" @ $missionName @ ".mis";
   if(!isFile(%file))
      return;

   // send the mission file crc to the clients (used for mission lighting)
   $missionCRC = getFileCRC(%file);
   %count = ClientGroup.getCount();
   for(%i = 0; %i < %count; %i++)
   {
      %client = ClientGroup.getObject(%i);
      if(!%client.isAIControlled())
         %client.setMissionCRC($missionCRC);
   }

   $countDownStarted = false;
   exec(%file);
   $instantGroup = MissionCleanup;

   // pre-game mission stuff
   if(!isObject(MissionGroup))
   {
      error("No 'MissionGroup' found in mission \"" @ $missionName @ "\".");
      schedule(3000, ServerGroup, CycleMissions);
      return;
   }

   MissionGroup.cleanNonType($CurrentMissionType);

   // construct paths
   pathOnMissionLoadDone();

   $ReadyCount = 0;
   $MatchStarted = false;
   $CountdownStarted = false;
   AISystemEnabled( false );

   // Set the team damage here so that the game type can override it:

   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   if ( $Host::TournamentMode )
      $TeamDamage = 1;
   else
      $TeamDamage = $Host::TeamDamageOn;

   // z0dd - ZOD, 5/23/03. Setup the defaults
   $RandomTeams = $Host::ClassicRandomizeTeams;
   $FairTeams = $Host::ClassicFairTeams;
   $LimitArmors = $Host::ClassicLimitArmors;

   // z0dd - ZOD 5/27/03. Setup armor max counts
   countArmorAllowed();

   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here

   // z0dd - ZOD, 8/4/02. Gravity change
   if(getGravity() !$= $Classic::gravSetting)
      setGravity($Classic::gravSetting);

   // z0dd - ZOD, 5/17/03. Set a minimum flight ceiling for all maps.
   %area = nameToID("MissionGroup/MissionArea");
   if(%area.flightCeiling < 450)
      %area.flightCeiling = 450;

   Game.missionLoadDone();

   // start all the clients in the mission
   $missionRunning = true;
   for(%clientIndex = 0; %clientIndex < ClientGroup.getCount(); %clientIndex++)
      ClientGroup.getObject(%clientIndex).startMission();

   if(!$MatchStarted && $LaunchMode !$= "NavBuild" && $LaunchMode !$= "SpnBuild" )
   {
      if( $Host::TournamentMode ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
         checkTourneyMatchStart();
      else if( $currentMissionType !$= "SinglePlayer" )
         checkMissionStart();
   }

   // offline graph builder...
   if( $LaunchMode $= "NavBuild" )
      buildNavigationGraph( "Nav" );

   if( $LaunchMode $= "SpnBuild" )
      buildNavigationGraph( "Spn" );

   purgeResources();
   disableCyclingConnections(false);
   $LoadingMission = false;
}

function ShapeBase::cleanNonType(%this, %type)
{
   if(%this.missionTypesList $= "")
      return;

   for(%i = 0; (%typei = getWord(%this.missionTypesList, %i)) !$= ""; %i++)
      if(%typei $= %type)
         return;

   // first 32 targets are team targets (never allocated/freed)
   // - must reallocate the target if unhiding
   if(%this.getTarget() >= 32)
   {
      freeTarget(%this.getTarget());
      %this.setTarget(-1);
   }
   if(isObject(%this.trigger)) // z0dd - ZOD, 8/10/02. Clean them triggers too!
      %this.trigger.delete();

   %this.hide(true);
}

function SimObject::cleanNonType(%this, %type)
{
}

function SimGroup::cleanNonType(%this, %type)
{
   for (%i = 0; %i < %this.getCount(); %i++)
      %this.getObject(%i).cleanNonType(%type);
}

function GameConnection::endMission(%this)
{
   commandToClient(%this, 'MissionEnd', $missionSequence);
}

//--------------------------------------------------------------------------
// client start phases:
// 0: start mission
// 1: got phase1 done
// 2: got datablocks done
// 3: got phase2 done
// 4: got phase3 done
function GameConnection::startMission(%this)
{
   // send over the information that will display the server info
   // when we learn it got there, we'll send the data blocks
   %this.currentPhase = 0;
   commandToClient(%this, 'MissionStartPhase1', $missionSequence, $MissionName, MissionGroup.musicTrack);
}

function serverCmdMissionStartPhase1Done(%client, %seq)
{
   if(%seq != $missionSequence || !$MissionRunning)
      return;

   if(%client.currentPhase != 0)
      return;
   %client.currentPhase = 1;

   // when the datablocks are transmitted, we'll send the ghost always objects
   %client.transmitDataBlocks($missionSequence);

}

function GameConnection::dataBlocksDone( %client, %missionSequence )
{
   echo("GOT DATA BLOCKS DONE FOR: " @ %client);
   if(%missionSequence != $missionSequence)
      return;

   if(%client.currentPhase != 1)
      return;
   %client.currentPhase = 2;

   // only want to set this once... (targets will not be updated/sent until a
   // client has this flag set)
   if(!%client.getReceivedDataBlocks())
   {
      %client.setReceivedDataBlocks(true);
      sendTargetsToClient(%client);
   }

   commandToClient(%client, 'MissionStartPhase2', $missionSequence);
}

function serverCmdMissionStartPhase2Done(%client, %seq)
{
   if(%seq != $missionSequence || !$MissionRunning)
      return;

   if(%client.currentPhase != 2)
      return;
   %client.currentPhase = 3;

   // when all this good love is over, we'll know that the mission lighting is done
   %client.transmitPaths();

   // setup the client team state
   if ( $CurrentMissionType !$= "SinglePlayer" )
      serverSetClientTeamState( %client );

   // start ghosting
   %client.activateGhosting();
   %client.camera.scopeToClient(%client);

   // to the next phase...
   commandToClient(%client, 'MissionStartPhase3', $missionSequence, $CurrentMission);
}

function serverCmdMissionStartPhase3Done(%client, %seq)
{
   if(%seq != $missionSequence || !$MissionRunning)
      return;

   if(%client.currentPhase != 3)
      return;
   %client.currentPhase = 4;

   %client.isReady = true;
   Game.clientMissionDropReady(%client);

   if(!%client.seenMOTD && $Host::ClassicMOTD !$= "")
   {
      centerPrint(%client, $Host::ClassicMOTD, $Host::ClassicMOTDTime, $Host::ClassicMOTDLines);
      %client.seenMOTD = true;
   }
}

function serverSetClientTeamState( %client )
{
   // set all player states prior to mission drop ready

   // create a new camera for this client
   %client.camera = new Camera()
   {
      dataBlock = Observer;
   };

   if( isObject( %client.rescheduleVote ) )
      Cancel( %client.rescheduleVote );
   %client.canVote = true;
   %client.rescheduleVote = "";

   MissionCleanup.add( %client.camera ); // we get automatic cleanup this way.

   %observer = false;
   if( !$Host::TournamentMode ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   {
      if( %client.justConnected )
      {
         %client.justConnected = false;
         %client.camera.getDataBlock().setMode( %client.camera, "justJoined" );
      }
      else
      {
         // server just changed maps - this guy was here before
         if( %client.lastTeam !$= "" )
         {
            // see if this guy was an observer from last game
            if(%client.lastTeam == 0)
            {
               %observer = true;

               %client.camera.getDataBlock().setMode( %client.camera, "ObserverFly" );
            }
            else  // let this player join the team he was on last game
            {
               if(Game.numTeams > 1 && %client.lastTeam <= Game.numTeams )
               {
                  Game.clientJoinTeam( %client, %client.lastTeam, false );
               }
               else
               {
                  Game.assignClientTeam( %client );

                  // spawn the player
                  Game.spawnPlayer( %client, false );
               }
            }
         }
         else
         {
            Game.assignClientTeam( %client );

            // spawn the player
            Game.spawnPlayer( %client, false );
         }

         if( !%observer )
         {
            if(!$MatchStarted && !$CountdownStarted)
               %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
            else if(!$MatchStarted && $CountdownStarted)
               %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
         }
      }
   }
   else
   {
      // don't need to do anything. MissionDrop will handle things from here.
   }
}

//function serverCmdPreviewDropReady( %client )
//{
//   $MatchStarted = true;
//   commandToClient( %client, 'SetMoveKeys', true);
//   %markerObj = "0 0 0";
//   %client.camera.mode = "PreviewMode";
//   %client.camera.setTransform( %markerObj );
//   %client.camera.setFlyMode();
//
//   %client.setControlObject( %client.camera );
//}

function HideHudHACK(%visible)
{
   //compassHud.setVisible(%visible);
   //enerDamgHud.setVisible(%visible);
   retCenterHud.setVisible(%visible);
   reticleFrameHud.setVisible(%visible);
   //invPackHud.setVisible(%visible);
   weaponsHud.setVisible(%visible);
   outerChatHud.setVisible(%visible);
   objectiveHud.setVisible(%visible);
   chatHud.setVisible(%visible);
   navHud.setVisible(%visible);
   //watermarkHud.setVisible(%visible);
   hudClusterBack.setVisible(%visible);
   inventoryHud.setVisible(%visible);
   clockHUD.setVisible(%visible);
}

function ServerPlay2D(%profile)
{
   for(%idx = 0; %idx < ClientGroup.getCount(); %idx++)
      ClientGroup.getObject(%idx).play2D(%profile);
}

function ServerPlay3D(%profile,%transform)
{
   for(%idx = 0; %idx < ClientGroup.getCount(); %idx++)
      ClientGroup.getObject(%idx).play3D(%profile,%transform);
}

function clientCmdSetFirstPerson(%value)
{
   $firstPerson = %value;
   if(%value)
      ammoHud.setVisible(true);
   else
      ammoHud.setVisible(false);
}

function clientCmdGetFirstPerson()
{
   commandToServer('FirstPersonValue', $firstPerson);
}

function serverCmdFirstPersonValue(%client, %firstPerson)
{
   %client.player.firstPerson = %firstPerson;
}

function clientCmdVehicleMount()
{
   if ( $pref::toggleVehicleView )
   {
      $wasFirstPerson = $firstPerson;
      $firstPerson = false;
   }
}

function clientCmdVehicleDismount()
{
   if ( $pref::toggleVehicleView )
      $firstPerson = $wasFirstPerson;
}

//----------------------------------------------------
// z0dd - ZOD, 3/09/02. Re-write. It's more flexible.
function serverCmdSAD(%client, %password)
{
   if(%password $= "")
   {
      messageClient(%client, 'MsgPasswordFailed', '\c2You did not supply a PW.');
      return;
   }
   %name = %client.name;

   switch$ (%password)
   {
      case $Host::ClassicSuperAdminPassword:
         if(!%client.isSuperAdmin)
         {
            if(%password $= "changeme")
            {
               messageClient(%client, 'MsgPasswordFailed', '\c2Illegal SAD PW. You need to change the default \"$Host::ClassicSuperAdminPassword\" value in \"ServerPrefs.cs\"!');
               return;
            }
            %client.isAdmin = true;
            %client.isSuperAdmin = true;
            MessageAll( 'MsgSuperAdminPlayer', '\c2%2 has become a Super Admin by force.', %client, %name);
            %adminmsg = " has become a Super Admin by force.";
	        adminLog(%client, %adminmsg);
	        logEcho(%client.nameBase @ " has become a Super Admin by force.");
         }

      case $Host::AdminPassword:
         if(!%client.isAdmin)
         {
            if(%password $= "changethis")
            {
               messageClient(%client, 'MsgPasswordFailed', '\c2Illegal Admin PW. You need to change the default \"$Host::AdminPassword\" value in \"ServerPrefs.cs\"!');
               return;
            }
            %client.isAdmin = true;
            %client.isSuperAdmin = false;
            MessageAll( 'MsgAdminForce', '\c2%2 has become a Admin by force.', %client, %name);
            %adminmsg = " has become an Admin by force.";
	        adminLog(%client, %adminmsg);
	        logEcho(%client.nameBase @ " has become an Admin by force.");
         }
      default:
         messageClient(%client, 'MsgPasswordFailed', '\c2Illegal SAD PW.');
         %client.SadAttempts++;
         if(%client.SadAttempts >= 6 && !%client.isSuperAdmin)
         {
            %client.getAddress();
            %client.getAuthInfo();
            messageClient(%client, 'onClientBanned', 'For attempting to exploit SAD to gain unauthorized Admin by entering\ntoo many passwords, you are being Banned');
            if( isObject(%client.player) )
            {
               %client.player.scriptKill(0);
               %client.schedule(700, "delete");
            }
            schedule(10, %client @ "ResetSadAttp", %client);
            %client.setDisconnectReason( 'For attempting to exploit SAD to gain unauthorized Admin by entering\ntoo many passwords, you are being Banned.' );
            %client.schedule(700, "delete");
            BanList::add(%client.guid, %client.getAddress(), $Host::BanTime);
            %adminmsg = " has been banned for excessive use of SAD.";
			logEcho(%client.nameBase @ " " @ %client.guid @ " has been banned for excessive use of SAD");
			adminLog(%client, %adminmsg);
         }
   }
}

function ResetSadAttp(%client)
{
   %client.SadAttempts = 0;
}

//---------------------------------------------------------------
// z0dd - ZOD, 8/13/02. Added this function. Writen by Writer
//
// Returns true if %text consists of nothing but digits and/or
// decimals.
// Note: rejects strings with more than one decimal, or with a +
// or - as anything but the first character (+ or - are only
// allowed as the first character in the string)
function isNumber(%text)
{
   %dot_count = 0;
   for(%i = 0; (%char = getSubStr(%text, %i, 1)) !$= ""; %i++)
   {
      switch$(%char)
      {
         case "0":
            continue;
         case "1":
            continue;
         case "2":
            continue;
         case "3":
            continue;
         case "4":
            continue;
         case "5":
            continue;
         case "6":
            continue;
         case "7":
            continue;
         case "8":
            continue;
         case "9":
            continue;
         case ".":
            if(%dot_count > 1)
               return false;

            %dot_count++;
            continue;
         case "-":
            if(%i) // only valid as first character
               return false;

            continue;
         case "+":
            if(%i) // only valid as first character
               return false;

            continue;
         default:
            return false;
      }
   }
   // %text passed the test
   return true;
}
//---------------------------------------------------------------

//----------------------------------------------------
// z0dd - ZOD, 5/21/03. Replaced by function below. Kept for backward compat
function serverCmdSADSetPassword(%client, %password)
{
   if(%client.isSuperAdmin)
   {
      if(%password !$= "")
      {
         if(%password $= "remove")
         {
            $Host::Password = "";
            $BackupPassword = "";
         }
         else
         {
            $Host::Password = %password;
            $BackupPassword = %password;

            // turn autoPW off - ZOD 8/10/03. Why are we doing this?
            //$Host::ClassicAutoPWEnabled = 0;
         }
         export( "$Host::*", $serverprefs, false );
         messageAll( 'MsgServerPassword', '\c3%1\c2: JOIN PASSWORD CHANGED.~wfx/misc/diagnostic_on.wav', %client.name);
         if(%password $= "remove")
            messageClient(%client, 'MsgServerPassword', '\c2Join PW removed.');
         else
            messageClient(%client, 'MsgServerPassword', '\c2Join PW changed to: \c3%1\c2.', addTaggedString(%password));

         logEcho(%client.nameBase @ " changed the join password.", 1);
      }
      else
         messageClient(%client, 'MsgValueFailed', '\c2No Changes. You did not supply a value. Use \"remove\" to remove join pw.');
   }
   else
      messageClient(%client, 'MsgNotSuperAdmin', '\c2Only Super Admins can use that command.');
}
//----------------------------------------------------

//---------------------------------------------------------
// z0dd - ZOD, 3/10/02. New remote admin control function
function serverCmdSet(%client, %type, %val)
{
   // USAGE: commandToServer('Set', type, value);
   %type = deTag(%type);
   %val = deTag(%val);

   if(!%client.isSuperAdmin)
   {
      messageClient(%client, 'MsgNotSuperAdmin', '\c2Only Super Admins can use that command.');
      return;
   }
   if(%type $= "")
   {
      messageClient(%client, 'MsgTypeFailed', '\c2No Changes. You did not supply a type.');
      return;
   }
   //if( (%val $= "") && (%type !$= "joinpw") )
   if(%val $= "")
   {
      if(%type $= "joinpw")
         messageClient(%client, 'MsgValueFailed', '\c2No Changes. You did not supply a value. Use \"remove\" to remove join pw.');
      else
         messageClient(%client, 'MsgValueFailed', '\c2No Changes. You did not supply a value.');
      return;
   }
   %name = %client.name;
   switch$ (%type)
   {
      case "superpw":
         $Host::ClassicSuperAdminPassword = %val;
         export( "$Host::*", $serverprefs, false );
         messageClient(%client, 'MsgSuperPassword', '\c2\"Super Admin\" PW changed to: \c3%1\c2.', addTaggedString(%val));
         logEcho(%client.nameBase @ " changed the Super Admin password.", 1);

      case "adminpw":
         $Host::AdminPassword = %val;
         export( "$Host::*", $serverprefs, false );
         messageClient(%client, 'MsgAdminPassword', '\c2\"Admin\" PW changed to: \c3%1\c2.', addTaggedString(%val));
         logEcho(%client.nameBase @ " changed the Admin password.", 1);

      case "joinpw":
         if(%val $= "remove")
         {
            $Host::Password = "";
            $BackupPassword = "";
         }
         else
         {
            $Host::Password = %val;
            $BackupPassword = %val;

            // turn autoPW off - ZOD 8/10/03. Why are we doing this?
            //$Host::ClassicAutoPWEnabled = 0;
         }

         export( "$Host::*", $serverprefs, false );
         messageAll( 'MsgServerPassword', '\c3%1\c2: JOIN PASSWORD CHANGED.~wfx/misc/diagnostic_on.wav', %name);
         if(%val $= "remove")
            messageClient(%client, 'MsgServerPassword', '\c2Join PW removed.');
         else
            messageClient(%client, 'MsgServerPassword', '\c2Join PW changed to: \c3%1\c2.', addTaggedString(%val));

         logEcho(%client.nameBase @ " changed the join password.", 1);

      case "maxplayers":
         if(isNumber(%val) && (%val > 0))
         {
            $Host::MaxPlayers = %val;
            export( "$Host::*", $serverprefs, false );
            messageAll( 'MsgMaxPlayersSet', '\c3%1\c2: PLAYER LIMIT CHANGED TO: \c3%2\c2.~wfx/misc/diagnostic_on.wav', %name, %val);
            logEcho(%client.nameBase @ " changed the Player Limit.", 1);
         }
         else
         {
            messageClient( %client, 'MsgAdmin', '\c2Value must be a positive number.' );
         }

      case "restart":
         if (%val $= "0")
         {
             $AutoRestart = 0;
             messageClient( %client, 'MsgAdmin', '\c2Server restart at mission end aborted.' );
             messageAll( 'MsgServerRestart', '\c3%1\c2: SERVER RESTART HAS BEEN CANCELED.~wfx/misc/diagnostic_on.wav', %name);
         }
         else if (%val $= "1")
         {
             messageAll( 'MsgServerRestart', '\c3%1\c2: SERVER WILL BE REBOOTING IN 30 SECONDS!.~wfx/misc/red_alert.wav', %name);
             schedule(20000, 0, "messageAll", 'MsgServerRestart', '\c2SERVER WILL REBOOT IN 10 SECONDS!.~wfx/misc/hunters_10.wav');
             schedule(30000, 0, quit);
             logEcho(%client.nameBase @ " forced a server restrart.", 1);
         }
         else
         {
             messageClient( %client, 'MsgAdmin', '\c2Unknown restart value. 0 cancels restart, 1 forces restart.' );
         }

      case "random":
         if(%val $= "0" || %val $= "1")
         {
            if($CurrentMissionType $= TR2) // z0dd - ZOD, 9/17/02. Check for Team Rabbit 2
            {
               messageClient( %client, 'MsgAdmin', '\c2This feature is unavailable in Team Rabbit 2.' );
               return;
            }
            $Host::ClassicRandomizeTeams = $RandomTeams = %val;
            export( "$Host::*", $serverprefs, false );
            %detail = ($RandomTeams ? "ENABLED" : "DISABLED");
            messageAll( 'MsgRandomTeams', '\c3%1\c2: RANDOM TEAMS %2. Changes will take place next mission.~wfx/misc/diagnostic_on.wav', %name, %detail);
            logEcho(%client.nameBase @ " " @ %detail @ " random teams.", 1);
         }
         else
         {
            messageClient( %client, 'MsgAdmin', '\c2Unknown input value. 0 disables Random Teams, 1 enables Random Teams.' );
         }

      case "fairteams":
         if(%val $= "0" || %val $= "1")
         {
            if($CurrentMissionType $= TR2) // z0dd - ZOD, 9/17/02. Check for Team Rabbit 2
            {
               messageClient( %client, 'MsgAdmin', '\c2This feature is unavailable in Team Rabbit 2.' );
               return;
            }
            $Host::ClassicFairTeams = $FairTeams = %val;
            export( "$Host::*", $serverprefs, false );
            %detail = ($FairTeams ? "ENABLED" : "DISABLED");
            messageAll( 'MsgFairTeams', '\c3%1\c2: FAIR TEAMS %2.~wfx/misc/diagnostic_on.wav', %name, %detail );
            logEcho(%client.nameBase @ " " @ %detail @ " fair teams.", 1);
         }
         else
         {
            messageClient( %client, 'MsgAdmin', '\c2Unknown input value. 0 disables Fair Teams, 1 enables Fair Teams.' );
         }
      // z0dd - ZOD, 7/17/03. Allow super admins to issue console commands on the server.
      // case "consolecmd":
      //    if($Host::ClassicAllowConsoleAccess)
      //    {
      //       eval(%val);
      //       messageClient( %client, 'MsgAdmin', '\c2Command %1 sent to server console.', %val );
      //       logEcho(%client.nameBase @ "Send the console command " @ %val  @ " to the server.", 1);
      //    }

      default:
         messageClient(%client, 'MsgValueFailed', '\c2No Changes. You did not specify a valid type.');
   }
}

//---------------------------------------------------------
// z0dd - ZOD, 7/12/02. New AutoPW server functions. Sets
// server join password when server reaches x player count.
function AutoPWServer(%val)
{
   if(%val)
   {
      if($Host::ClassicAutoPWPassword !$= "changeit")
      {
         $Host::Password = $Host::ClassicAutoPWPassword;
      }
   }
   else
   {
      $Host::Password = $BackupPassword;
   }

// z0dd - ZOD, 9/27/02, Chat was being spammed every time someone joined if limit was hit or above
//   %detail = (($Host::Password $= "") ? "removed" : "set");
//   messageAll( 'MsgAdmin', '\c2Join password %1 by Auto-password feature.', %detail );
}

function serverCmdAutoPWSetup(%client, %type, %val)
{
   // USAGE: commandToServer('AutoPWSetup', type, value);
   %type = deTag(%type);
   %val = deTag(%val);
   if(!%client.isSuperAdmin)
   {
      messageClient(%client, 'MsgNotSuperAdmin', '\c2Only Super Admins can use this command.');
      return;
   }
   if(%type $= "")
   {
      messageClient(%client, 'MsgTypeFailed', '\c2No Changes. You did not supply a type.');
      return;
   }
   switch$ (%type)
   {
      case "autopw":
         if (%val $= "0")
         {
             $Host::ClassicAutoPWEnabled = 0;
             AutoPWServer(0);
             messageClient( %client, 'MsgAdmin', '\c2Auto-password disabled.' );
         }
         else if (%val $= "1")
         {
             $Host::ClassicAutoPWEnabled = 1;
             messageClient( %client, 'MsgAdmin', '\c2Auto-password enabled.' );
             logEcho(%client.nameBase @ " enabled Auto-password.", 1);
         }
         else
         {
             messageClient( %client, 'MsgAdmin', '\c2Unknown value. 0 disables Auto-password, 1 enables Auto-password.' );
         }

      case "autopwpass":
         if(%val !$= "")
         {
            $Host::ClassicAutoPWPassword = %val;
         }
         else
         {
            messageClient( %client, 'MsgAdmin', '\c2You must specify a password.' );
            return;
         }
         export( "$Host::*", $serverprefs, false );
         messageClient(%client, 'MsgServerPassword', '\c2Server Auto-password PW changed to: \c3%1\c2.', addTaggedString(%val));
         logEcho(%client.nameBase @ " changed the Auto-password PW.", 1);

      case "autopwcount":
         if(%val !$= "" && %val !$= "0")
         {
            $Host::ClassicAutoPWPlayerCount = %val;
         }
         else
         {
            messageClient( %client, 'MsgAdmin', '\c2You must specify a numerical value.' );
            return;
         }
         export( "$Host::*", $serverprefs, false );
         messageClient(%client, 'MsgServerPassword', '\c2Server Auto-password player count changed to: \c3%1\c2.', addTaggedString(%val));
         logEcho(%client.nameBase @ " changed the Auto-password player count.", 1);
   }
}

//---------------------------------------------------------------------------------------------------
// z0dd - ZOD, 4-15-02. Pick spawn spot by killing self during tourney wait. Also addresses
// team switching to crash server exploit. New function
//$WAIT_PERIOD  = 15000;
//$WAIT_MESSAGE = '\c3WAIT MESSAGE:\cr You must wait another %1 seconds';

function GameConnection::waitTimeout(%this)
{
   %this.isWaiting = false;
}

function SpawnPosChange( %client )
{
   if( isObject( Game ) && %client != Game.kickClient && $Host::TournamentMode && !$CountdownStarted)
   {
      if (!%client.isWaiting)
      {
         %client.isWaiting = true;
         %client.waitStart = getSimTime();
         %client.schedule(15000, waitTimeout);

         clearBottomPrint(%client);
         Game.clientChangeTeam( %client, %client.team, 0, true );

         if(!$MatchStarted)
         {
            %client.observerMode = "pregame";
            %client.notReady = true;
            %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
            %client.setControlObject( %client.camera );

            if(!$CountdownStarted)
            {
               %client.notReady = true;
               centerprint( %client, "\nPress FIRE when ready.", 0, 3 );
            }
         }
         else
         {
            commandToClient(%client, 'setHudMode', 'Standard', "", 0);
         }
      }
      else
      {
         %wait = mFloor((15000 - (getSimTime() - %client.waitStart)) / 1000);
         messageClient(%client, "", '\c3WAIT MESSAGE:\cr You must wait another %1 seconds', %wait);
      }
   }
}
//---------------------------------------------------------------------------------------------------

function serverCmdSuicide(%client)
{
   if(!isObject(%client.player)) // z0dd - ZOD, 4-15-02. Console spam fix.
      return;

   // z0dd - ZOD, 4-15-02: Pick spawn spot by killing self during tourney wait
   if( $MatchStarted )
   {
      %client.player.scriptKill($DamageType::Suicide);
   }
   else
   {
      if($CurrentMissionType !$= TR2) // z0dd - ZOD, 9/17/02. Check for Team Rabbit 2
         SpawnPosChange( %client );
   }
}

function serverCmdToggleCamera(%client)
{
   if ($testcheats || $CurrentMissionType $= "SinglePlayer")
   {
      %control = %client.getControlObject();
      if (%control == %client.player)
      {
         %control = %client.camera;
         %control.mode = toggleCameraFly;
         %control.setFlyMode();
      }
      else
      {
         %control = %client.player;
         %control.mode = observerFly;
         %control.setFlyMode();
      }
      %client.setControlObject(%control);
   }
}

function serverCmdDropPlayerAtCamera(%client)
{
   if ($testcheats)
   {
      %client.player.setTransform(%client.camera.getTransform());
      %client.player.setVelocity("0 0 0");
      %client.setControlObject(%client.player);
   }
}

function serverCmdDropCameraAtPlayer(%client)
{
   if ($testcheats)
   {
      %client.camera.setTransform(%client.player.getTransform());
      %client.camera.setVelocity("0 0 0");
      %client.setControlObject(%client.camera);
   }
}

function serverCmdToggleRace(%client)
{
   if ($testcheats)
   {
      if (%client.race $= "Human")
         %client.race = "Bioderm";
      else
         %client.race = "Human";
      %client.player.setArmor(%client.armor);
   }
}

function serverCmdToggleGender(%client)
{
   if ($testcheats)
   {
      if (%client.sex $= "Male")
         %client.sex = "Female";
      else
         %client.sex = "Male";
      %client.player.setArmor(%client.armor);
   }
}

function serverCmdToggleArmor(%client)
{
   if ($testcheats)
   {
      if (%client.armor $= "Light")
         %client.armor = "Medium";
      else
         if (%client.armor $= "Medium")
            %client.armor = "Heavy";
         else
            %client.armor = "Light";
      %client.player.setArmor(%client.armor);
   }
}

function serverCmdPlayCel(%client,%anim)
{
   if ($testcheats)
   {
      %anim = %client.player.celIdx;
      if (%anim++ > 8)
         %anim = 1;
      %client.player.setActionThread("cel"@%anim);
      %client.player.celIdx = %anim;
   }
}

// NOTENOTENOTE: Review
// ilys - Do not allow animations inside a forcefield.
// ilys - Unmount the mortar and grenade launcher on animation.
function PlayAnim(%client, %anim)
{
   if( %anim $= "Death1" || %anim $= "Death2" || %anim $= "Death3" || %anim $= "Death4" || %anim $= "Death5" ||
       %anim $= "Death6" || %anim $= "Death7" || %anim $= "Death8" || %anim $= "Death9" || %anim $= "Death10" ||
       %anim $= "Death11" || %anim $= "sitting" || %anim $= "scoutRoot" || %anim $= "look" || %anim $= "lookms" ||
       %anim $= "looknw" || %anim $= "head" || %anim $= "headSide" || %anim $= "ski" || %anim $= "light_recoil")
      return;

   %player = %client.player;

   // don't play animations if player is in a vehicle
   // z0dd - ZOD, 4-15-02. Console spam fix, check for player object.
   if(!isObject(%player))
      return;

   // ilys - Check for forcefields
   if(%player.isMounted() || %player.isInForceField())
      return;

   %weapon = ( %player.getMountedImage($WeaponSlot) == 0 ) ? "" : %player.getMountedImage($WeaponSlot).getName().item;
   if(%weapon $= "MissileLauncher" || %weapon $= "GrenadeLauncher" || %weapon $= "SniperRifle" || %weapon $= "Mortar")
   {
      %player.animResetWeapon = true;
      %player.lastWeapon = %weapon;
      %player.unmountImage($WeaponSlot);
      // ----------------------------------------------
      // z0dd - ZOD, 5/8/02. %obj is the wrong varible.
      //%obj.setArmThread(look);
      %player.setArmThread(look);
   }
   %player.setActionThread(%anim);
}

function serverCmdPlayDeath(%client,%anim)
{
   if ($testcheats)
   {
      %anim = %client.player.deathIdx;
      if (%anim++ > 11)
         %anim = 1;
      %client.player.setActionThread("death"@%anim,true);
      %client.player.deathIdx = %anim;
   }
}

// NOTENOTENOTE: Review these!
//------------------------------------------------------------
// TODO - make this function specify a team to switch to...
// z0dd - ZOD - Kaiten 8/10/03. This is retarded, it passes NULL
// as a team which screws up like mad. also it is not used by anything.
// Kill it!
function serverCmdClientTeamChange( %client )
{
   // pass this to the game object to handle:
//   if ( isObject( Game ) && Game.kickClient != %client)
//   {
//      %fromObs = %client.team == 0;
//      if(%fromObs)
//         clearBottomPrint(%client);

//      Game.clientChangeTeam( %client, "", %fromObs );
//   }
}

function serverCanAddBot()
{
   //find out how many bots are already playing
   %botCount = 0;
   %numClients = ClientGroup.getCount();
   for (%i = 0; %i < %numClients; %i++)
   {
      %cl = ClientGroup.getObject(%i);
      if (%cl.isAIcontrolled())
         %botCount++;
   }

   //add only if we have less bots than the bot count, and if there would still be room for a
   if ($HostGameBotCount > 0 && %botCount < $Host::botCount && %numClients < $Host::maxPlayers - 1)
      return true;
   else
      return false;
}

function serverCmdAddBot( %client )
{
   //only admins can add bots...
   if (%client.isAdmin)
   {
      if (serverCanAddBot())
         aiConnectMultiple( 1, $Host::MinBotDifficulty, $Host::MaxBotDifficulty, -1 );
   }
}

// ---------------------------------------------------------------------------------
// z0dd - ZOD, 6/22/02. Changed function to use a waiting period when changing teams
// to prevent team change exploit to crash servers. Added admin varible so admins
// can teamchange whoever they want.
function serverCmdClientJoinTeam( %client, %team, %admin )
{
   // z0dd - ZOD, 4/10/04. ilys - if the client does not enter a team, uses a team less than -1,
   // more than the number of teams for the gametype or zero, set his team to -1 (switch)
   if(%team $= "" || %team < -1 || %team == 0 || %team > Game.numTeams)
      %team = -1;

   if( %team == -1 )
   {
      if( %client.team == 1 )
         %team = 2;
      else
         %team = 1;
   }
   if ( isObject( Game ) && Game.kickClient != %client)
   {
      if(%client.team != %team)
      {
         // z0dd - ZOD, 9/17/02. Fair teams, check for Team Rabbit 2 as well.
         if(($FairTeams && !%client.isAdmin) && ($CurrentMissionType !$= TR2))
         {
            %otherTeam = %team == 1 ? 2 : 1;
            if(!%admin.isAdmin && %team != 0 && ($TeamRank[%team, count]+1) > $TeamRank[%otherTeam, count])
            {
               messageClient(%client, 'MsgFairTeams', '\c2Teams will be uneven, please choose another team.');
               return;
            }
         }

         if(!%client.isWaiting || %admin.isAdmin)
         {
            %client.isWaiting = true;
            %client.waitStart = getSimTime();
            %client.schedule(15000, waitTimeout);

            %fromObs = %client.team == 0;

            if(%fromObs)
               clearBottomPrint(%client);

            if( %client.isAIControlled() )
               Game.AIChangeTeam( %client, %team );
            else
               Game.clientChangeTeam( %client, %team, %fromObs );
         }
         else
         {
      	%wait = mFloor((15000 - (getSimTime() - %client.waitStart)) / 1000);
            messageClient(%client, "", '\c3WAIT MESSAGE:\cr You must wait another %1 seconds', %wait);
         }
      }
   }
}
// ---------------------------------------------------------------------------------

// this should only happen in single team games
function serverCmdClientAddToGame( %client, %targetClient )
{
   if ( isObject( Game ) )
      Game.clientJoinTeam( %targetClient, 0, $matchstarted );

   clearBottomPrint(%targetClient);

   if($matchstarted)
   {
      %targetClient.setControlObject( %targetClient.player );
      commandToClient(%targetClient, 'setHudMode', 'Standard');
   }
   else
   {
      %targetClient.notReady = true;
      %targetClient.camera.getDataBlock().setMode( %targetClient.camera, "pre-game", %targetClient.player );
      %targetClient.setControlObject( %targetClient.camera );
   }

   if( $Host::TournamentMode && !$CountdownStarted) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   {
      %targetClient.notReady = true;
      centerprint( %targetClient, "\nPress FIRE when ready.", 0, 3 );
   }
}

function serverCmdClientJoinGame( %client )
{
   // z0dd - ZOD, 4/10/04. ilys - Only allow the client to force play when the match has started
   if(!$MatchStarted)
      return;

   if ( isObject( Game ) )
      Game.clientJoinTeam( %client, 0, 1 );

   %client.setControlObject( %client.player );
   clearBottomPrint(%client);
   commandToClient(%client, 'setHudMode', 'Standard');
}

function serverCmdClientMakeObserver( %client )
{
   if ( isObject( Game ) && Game.kickClient != %client )
      Game.forceObserver( %client, "playerChoose" );
}

function serverCmdChangePlayersTeam( %clientRequesting, %client, %team)
{
   if( isObject( Game ) && %client != Game.kickClient && %clientRequesting.isAdmin)
   {
      // z0dd - ZOD, 6/22/02. Added admin varible to enable admins to teamchange
      // even players under the Wait timer.
      //serverCmdClientJoinTeam(%client, %team);
      serverCmdClientJoinTeam(%client, %team, %clientRequesting);

      if(!$MatchStarted)
      {
         %client.observerMode = "pregame";
         %client.notReady = true;
         %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
         %client.setControlObject( %client.camera );

         if( $Host::TournamentMode && !$CountdownStarted) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
         {
            %client.notReady = true;
            centerprint( %client, "\nPress FIRE when ready.", 0, 3 );
         }
      }
      else
         commandToClient(%client, 'setHudMode', 'Standard', "", 0);

      %multiTeam = (Game.numTeams > 1);

      %aname = %clientRequesting.name; // z0dd - ZOD, 4-15-02. who did what
      %name = %client.name;            // z0dd - ZOD, 4-15-02. who did what

      if(%multiTeam)
      {
         messageClient( %client, 'MsgClient', '\c2%1 has changed your team.', %aname); // z0dd - ZOD, 4-15-02. who did what
         messageAllExcept( %client, -1, 'MsgClient', '\c2%1 forced %2 to join the %3 team.', %aname, %name, game.getTeamName(%client.team) ); // z0dd - ZOD, 4-15-02. who did what
      }
      else
      {
         messageClient( %client, 'MsgClient', '\c2%1 has added you to the game.', %aname); // z0dd - ZOD, 4-15-02. who did what
         messageAllExcept( %client, -1, 'MsgClient', '\c2%1 added %2 to the game.', %aname, %name); // z0dd - ZOD, 4-15-02. who did what
      }
   }
}

//---------------------------------------------------------------------------------------------------------
// z0dd - ZOD 7/12/03. Allow SuperAdmins to De-Admin normal Admins
function serverCmdStripAdmin(%client, %admin)
{
   if(!%admin.isAdmin || !%client.isAdmin)
      return;

   if(%client $= %admin)
   {
      %admin.isAdmin = 0;
      %admin.isSuperAdmin = 0;
      messageClient(%admin, 'MsgStripAdminPlayer', 'You have stripped yourself of admin privledges.');
      adminLog(%client, " stripped admin from " @ %admin.nameBase);
      messageAll('MsgClientDrop', "", %client.name, %client);
      messageAll('MsgClientJoin', "",%client.name, %client, %client.target,%client.isAIControlled(),%client.isAdmin,%client.isSuperAdmin,%client.isSmurf,%client.sendGuid);
	   messageAll('MsgClientJoinTeam', "", %client.name, %game.getTeamName(0), %client, %client.team );
      return;
   }
   else if(%client.isSuperAdmin)
   {
      messageAll('MsgStripAdminPlayer', '\c2%1 removed %2\'s admin privledges.', %client.name, %admin.name, %admin );
      messageClient(%admin, 'MsgStripAdminPlayer', 'You are being stripped of your admin privledges by %1.', %client.name);
      %admin.isAdmin = 0;
      %admin.isSuperAdmin = 0;
      adminLog(%client, " stripped admin from " @ %admin.nameBase);
      messageAll( 'MsgClientDrop', "", %client.name, %client);
      messageAll('MsgClientJoin', "",%client.name, %client, %client.target,%client.isAIControlled(),%client.isAdmin,%client.isSuperAdmin,%client.isSmurf,%client.sendGuid);
	   messageAll('MsgClientJoinTeam', "", %client.name, %game.getTeamName(0), %client, %client.team );
   }
   else
      messageClient(%client, 'MsgError', '\c2Only Super Admins can use this command.');
}

// z0dd - ZOD 4/18/02. Allow Admins to warn players
function serverCmdWarnPlayer(%client, %target)
{
   if(%client.isAdmin)
   {
      messageAllExcept(%target, -1, 'MsgAdminForce', '%1 has been warned for inappropriate conduct by %2.', %target.name, %client.name);
      messageClient(%target, 'MsgAdminForce', 'You are recieving this warning for inappropriate conduct by %1. Behave or you will be kicked..~wfx/misc/lightning_impact.wav', %client.name);
      centerprint(%target, "You are recieving this warning for inappropriate conduct.\nBehave or you will be kicked.", 10, 2);
      adminLog(%client, " sent warning to " @ %target.nameBase);
   }
   else
      messageClient(%client, 'MsgError', '\c2Only Admins can use this command.');
}

//---------------------------------------------------------------------------------------------------------

function serverCmdForcePlayerToObserver( %clientRequesting, %client )
{
   if( isObject( Game ) && %clientRequesting.isAdmin)
      Game.forceObserver( %client, "adminForce" );
}

//--------------------------------------------------------------------------

function serverCmdTogglePlayerMute(%client, %who)
{
   if (%client.muted[%who])
   {
      %client.muted[%who] = false;
      messageClient(%client, 'MsgPlayerMuted', '%1 has been unmuted.', %who.name, %who, false);
   }
   else
   {
      %client.muted[%who] = true;
      messageClient(%client, 'MsgPlayerMuted', '%1 has been muted.', %who.name, %who, true);
   }
}

//--------------------------------------------------------------------------
// VOTE MENU FUNCTIONS:
function serverCmdGetVoteMenu( %client, %key )
{
   if ( isObject( Game ) )
      Game.sendGameVoteMenu( %client, %key );
}

function serverCmdGetPlayerPopupMenu( %client, %targetClient, %key )
{
   if ( isObject( Game ) )
      Game.sendGamePlayerPopupMenu( %client, %targetClient, %key );
}

function serverCmdGetTeamList( %client, %key )
{
   if ( isObject( Game ) )
      Game.sendGameTeamList( %client, %key );
}

function serverCmdGetMissionTypes( %client, %key )
{
   for ( %type = 0; %type < $HostTypeCount; %type++ )
      messageClient( %client, 'MsgVoteItem', "", %key, %type, "", $HostTypeDisplayName[%type], true );
}

function serverCmdGetMissionList( %client, %key, %type )
{
   if ( %type < 0 || %type >= $HostTypeCount )
      return;

   for ( %i = $HostMissionCount[%type] - 1; %i >= 0; %i-- )
   {
      %idx = $HostMission[%type, %i];

      // If we have bots, don't change to a mission that doesn't support bots:
      if ( $HostGameBotCount > 0 )
      {
         if( !$BotEnabled[%idx] )
            continue;
      }

      messageClient( %client, 'MsgVoteItem', "", %key,
            %idx, // mission index, will be stored in $clVoteCmd
            "",
            $HostMissionName[%idx],
            true );
   }
}

function serverCmdGetTimeLimitList( %client, %key, %type )
{
   if ( isObject( Game ) )
      Game.sendTimeLimitList( %client, %key );
}

function serverCmdClientPickedTeam( %client, %option )
{
   // z0dd - ZOD, 4/10/04. ilys - Do not allow the Tourney Pick Team Dialog to function when no in Tourney mode
   if(!$Host::TournamentMode)
      return;

   // -------------------------------------------------------------------------------------
   // z0dd - ZOD 4/18/02. Tourney mode bug fix. Fix provided by FSB-AO
   // Bug description: In tournament mode, If a player is teamchanged by an admin before
   // they select a team, the server just changes their team and re-skins the player. They
   // are not moved from their initial spawn point, meaning they could spawn very close to
   // the other teams flag.  This script kills the player if they are already teamed when
   // they select an option and spawns them on the correct side of the map.
   switch(%option)
   {
      case 1:
         if ( isObject(%client.player) )
         {
            %client.player.scriptKill(0);
            Game.clientChangeTeam(%client, %option, 0);
         }
         else
            Game.clientJoinTeam( %client, %option, false );
      case 2:
         if ( isObject(%client.player) )
         {
            %client.player.scriptKill(0);
            Game.clientChangeTeam(%client, %option, 0);
         }
         else
            Game.clientJoinTeam( %client, %option, false );
      case 3:
         if( !isObject(%client.player) )
         {
            Game.assignClientTeam( %client, $MatchStarted );
            Game.spawnPlayer( %client, false );
         }
      default:
         if( isObject(%client.player) )
         {
            %client.player.scriptKill(0);
            ClearBottomPrint(%client);
         }
         Game.forceObserver( %client, "playerChoose" );
         %client.observerMode = "observer";
         %client.notReady = false;
         return;
   }
   // -------------------------------------------------------------------------------------

   ClearBottomPrint(%client);
   %client.observerMode = "pregame";
   %client.notReady = true;
   %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
   commandToClient(%client, 'setHudMode', 'Observer');
   %client.setControlObject( %client.camera );
   centerprint( %client, "\nPress FIRE when ready.", 0, 3 );
}

function playerPickTeam( %client )
{
   %numTeams = Game.numTeams;

   if(%numTeams > 1)
   {
      %client.camera.mode = "PickingTeam";
      schedule( 0, 0, "commandToClient", %client, 'pickTeamMenu', Game.getTeamName(1), Game.getTeamName(2));
   }
   else
   {
      Game.clientJoinTeam(%client, 0, 0);
      %client.observerMode = "pregame";
      %client.notReady = true;
      %client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
      centerprint( %client, "\nPress FIRE when ready.", 0, 3 );
      %client.setControlObject( %client.camera );
   }
}

function serverCmdPlayContentSet( %client )
{
   if( $Host::TournamentMode && !$CountdownStarted && !$MatchStarted ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      playerPickTeam( %client );
}

//--------------------------------------------------------------------------
// This will probably move elsewhere...
function getServerStatusString()
{
   return isObject(Game) ? Game.getServerStatusString() : "NoGame";
}


function dumpGameString()
{
   error( getServerStatusString() );
}

function isOnAdminList(%client)
{
   if( !%totalRecords = getFieldCount( $Host::AdminList ) )
   {
      return false;
   }

   for(%i = 0; %i < %totalRecords; %i++)
   {
      %record = getField( getRecord( $Host::AdminList, 0 ), %i);
      if(%record == %client.guid)
         return true;
   }

   return false;
}

function isOnSuperAdminList(%client)
{
   if( !%totalRecords = getFieldCount( $Host::superAdminList ) )
   {
      return false;
   }

   for(%i = 0; %i < %totalRecords; %i++)
   {
      %record = getField( getRecord( $Host::superAdminList, 0 ), %i);
      if(%record == %client.guid)
         return true;
   }

   return false;
}

function ServerCmdAddToAdminList( %admin, %client )
{
   if( !%admin.isSuperAdmin )
      return;

   %count = getFieldCount( $Host::AdminList );

   for ( %i = 0; %i < %count; %i++ )
   {
      %id = getField( $Host::AdminList, %i );
      if ( %id == %client.guid )
      {
         return;  // They're already there!
      }
   }

   if( %count == 0 )
      $Host::AdminList = %client.guid;
   else
      $Host::AdminList = $Host::AdminList TAB %client.guid;

   // z0dd - ZOD, 4/29/02. Was not exporting to serverPrefs and did not message admin
   export( "$Host::*", $serverprefs, false );
   messageClient(%admin, 'MsgAdmin', '\c3\"%1\"\c2 added to Admin list: \c3%2\c2.', %client.name, %client.guid);
   logEcho(%admin.nameBase @ " added " @ %client.nameBase @ " " @ %client.guid @ " to Admin list.", 1);
}

function ServerCmdAddToSuperAdminList( %admin, %client )
{
   if( !%admin.isSuperAdmin )
      return;

   %count = getFieldCount( $Host::SuperAdminList );

   for ( %i = 0; %i < %count; %i++ )
   {
      %id = getField( $Host::SuperAdminList, %i );
      if ( %id == %client.guid )
         return;  // They're already there!
   }

   if( %count == 0 )
      $Host::SuperAdminList = %client.guid;
   else
      $Host::SuperAdminList = $Host::SuperAdminList TAB %client.guid;

   // z0dd - ZOD, 4/29/02. Was not exporting to serverPrefs and did not message admin
   export( "$Host::*", $serverprefs, false );
   messageClient(%admin, 'MsgAdmin', '\c3\"%1\"\c2 added to Super Admin list: \c3%2\c2.', %client.name, %client.guid);
   logEcho(%admin.nameBase @ " added " @ %client.nameBase @ " " @ %client.guid @ " to Super Admin list.", 1);
}

function resetTournamentPlayers()
{
   %count = ClientGroup.getCount();
   for( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject(%i);
      %cl.notready = 1;
      %cl.notReadyCount = "";
   }
}

function forceTourneyMatchStart()
{
   %playerCount = 0;
   %count = ClientGroup.getCount();
   for( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject(%i);
      if(%cl.camera.Mode $= "pre-game")
         %playerCount++;
   }

   // don't start the mission until we have players
   if(%playerCount == 0)
   {
      return false;
   }

   %count = ClientGroup.getCount();
   for( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject(%i);
      if(%cl.camera.Mode $= "pickingTeam")
      {
         // throw these guys into observer mode
         if(Game.numTeams > 1)
            commandToClient( %cl, 'processPickTeam'); // clear the pickteam menu
         Game.forceObserver( %cl, "adminForce" );
      }
   }
   return true;
}

function startTourneyCountdown()
{
   %count = ClientGroup.getCount();
   for( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject(%i);
      ClearCenterPrint(%cl);
      ClearBottomPrint(%cl);
   }

   // lets get it on!
   if($Host::warmupTime <= 30)
      Countdown(30 * 1000);
   else
      Countdown($Host::warmupTime * 1000); //Follow warmupTime!
}

function checkTourneyMatchStart()
{
   if( $CountdownStarted || $matchStarted )
      return;

   // loop through all the clients and see if any are still notready
   %playerCount = 0;
   %notReadyCount = 0;

   %count = ClientGroup.getCount();
   for( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject(%i);
      if(%cl.camera.mode $= "pickingTeam")
      {
         %notReady[%notReadyCount] = %cl;
         %notReadyCount++;
      }
      else if(%cl.camera.Mode $= "pre-game")
      {
         if(%cl.notready)
         {
            %notReady[%notReadyCount] = %cl;
            %notReadyCount++;
         }
         else
         {
            %playerCount++;
         }
      }
      else if(%cl.camera.Mode $= "observer")
      {
         // this guy is watching
      }
   }

   if(%notReadyCount)
   {
      if(%notReadyCount == 1)
         MessageAll( 'msgHoldingUp', '\c1%1 is holding things up!', %notReady[0].name);
      else if(%notReadyCount < 4)
      {
         for(%i = 0; %i < %notReadyCount - 2; %i++)
            %str = getTaggedString(%notReady[%i].name) @ ", " @ %str;

         %str = "\c2" @ %str @ getTaggedString(%notReady[%i].name) @ " and " @ getTaggedString(%notReady[%i+1].name)
                     @ " are holding things up!";
         MessageAll( 'msgHoldingUp', %str );
      }
      return;
   }

   if(%playerCount != 0)
   {
      %count = ClientGroup.getCount();
      for( %i = 0; %i < %count; %i++ )
      {
         %cl = ClientGroup.getObject(%i);
         %cl.notready = "";
         %cl.notReadyCount = "";
         ClearCenterPrint(%cl);
         ClearBottomPrint(%cl);
      }

      if ( Game.scheduleVote !$= "" && Game.voteType $= "VoteMatchStart")
      {
         messageAll('closeVoteHud', "");
         cancel(Game.scheduleVote);
         Game.scheduleVote = "";
      }

      // lets get it on!
      if($Host::warmupTime <= 30)
         Countdown(30 * 1000);
      else
         Countdown($Host::warmupTime * 1000); //Follow warmupTime!
   }
}

function checkMissionStart()
{
   %readyToStart = false;
   for(%clientIndex = 0; %clientIndex < ClientGroup.getCount(); %clientIndex++)
   {
      %client = ClientGroup.getObject(%clientIndex);
      if(%client.isReady)
      {
         %readyToStart = true;
         break;
      }
   }

   if(%readyToStart || ClientGroup.getCount() < 1)
   {
      if($Host::warmupTime > 0 && $CurrentMissionType !$= "SinglePlayer")
         countDown($Host::warmupTime * 1000);
      else
         Game.startMatch();

      // z0dd - ZOD, 5/12/04. First off, there is no time specified. Secondly, this isn't
      // in checkTourneyMatchStart, which it should have been. We do way with this and
      // handle it in vehicle::onAdd.
      //for(%x = 0; %x < $NumVehiclesDeploy; %x++)
      //   $VehiclesDeploy[%x].getDataBlock().schedule(%timeMS / 2, "vehicleDeploy", $VehiclesDeploy[%x], 0, 1);
      //$NumVehiclesDeploy = 0;
    }
   else
   {
      schedule(2000, ServerGroup, "checkMissionStart");
   }
}

function Countdown(%timeMS)
{
   if($countdownStarted)
      return;

   echo("starting mission countdown...");

   if(isObject(Game))
      %game = Game.getId();
   else
      return;

   $countdownStarted = true;
   Game.matchStart = Game.schedule( %timeMS, "StartMatch" );

   if (%timeMS > 30000)
      notifyMatchStart(%timeMS);

   if(%timeMS >= 30000)
      Game.thirtyCount = schedule(%timeMS - 30000, Game, "notifyMatchStart", 30000);
   if(%timeMS >= 15000)
      Game.fifteenCount = schedule(%timeMS - 15000, Game, "notifyMatchStart", 15000);
   if(%timeMS >= 10000)
      Game.tenCount = schedule(%timeMS - 10000, Game, "notifyMatchStart", 10000);
   if(%timeMS >= 5000)
      Game.fiveCount = schedule(%timeMS - 5000, Game, "notifyMatchStart", 5000);
   if(%timeMS >= 4000)
      Game.fourCount = schedule(%timeMS - 4000, Game, "notifyMatchStart", 4000);
   if(%timeMS >= 3000)
      Game.threeCount = schedule(%timeMS - 3000, Game, "notifyMatchStart", 3000);
   if(%timeMS >= 2000)
      Game.twoCount = schedule(%timeMS - 2000, Game, "notifyMatchStart", 2000);
   if(%timeMS >= 1000)
      Game.oneCount = schedule(%timeMS - 1000, Game, "notifyMatchStart", 1000);
}

function EndCountdown(%timeMS)
{
   echo("mission end countdown...");

   if(isObject(Game))
      %game = Game.getId();
   else
      return;

   if(%timeMS >= 180000)
      Game.endthreeminuteCount = schedule(%timeMS - 180000, Game, "notifyMatchEndMinutes", 180000);
   if(%timeMS >= 120000)
      Game.endtwominuteCount = schedule(%timeMS - 120000, Game, "notifyMatchEndMinutes", 120000);
   if(%timeMS >= 60000)
      Game.endsixtyCount = schedule(%timeMS - 60000, Game, "notifyMatchEnd", 60000);
   if(%timeMS >= 30000)
      Game.endthirtyCount = schedule(%timeMS - 30000, Game, "notifyMatchEnd", 30000);
   if(%timeMS >= 10000)
      Game.endtenCount = schedule(%timeMS - 10000, Game, "notifyMatchEnd", 10000);
   if(%timeMS >= 5000)
      Game.endfiveCount = schedule(%timeMS - 5000, Game, "notifyMatchEnd", 5000);
   if(%timeMS >= 4000)
      Game.endfourCount = schedule(%timeMS - 4000, Game, "notifyMatchEnd", 4000);
   if(%timeMS >= 3000)
      Game.endthreeCount = schedule(%timeMS - 3000, Game, "notifyMatchEnd", 3000);
   if(%timeMS >= 2000)
      Game.endtwoCount = schedule(%timeMS - 2000, Game, "notifyMatchEnd", 2000);
   if(%timeMS >= 1000)
      Game.endoneCount = schedule(%timeMS - 1000, Game, "notifyMatchEnd", 1000);
}

function CancelCountdown()
{
   if(Game.sixtyCount !$= "")
      cancel(Game.sixtyCount);
   if(Game.thirtyCount !$= "")
      cancel(Game.thirtyCount);
   if(Game.fifteenCount !$= "")
      cancel(Game.fifteenCount);
   if(Game.tenCount !$= "")
      cancel(Game.tenCount);
   if(Game.fiveCount !$= "")
      cancel(Game.fiveCount);
   if(Game.fourCount !$= "")
      cancel(Game.fourCount);
   if(Game.threeCount !$= "")
      cancel(Game.threeCount);
   if(Game.twoCount !$= "")
      cancel(Game.twoCount);
   if(Game.oneCount !$= "")
      cancel(Game.oneCount);
   if(isObject(Game))
      cancel(Game.matchStart);

   Game.matchStart = "";
   Game.thirtyCount = "";
   Game.fifteenCount = "";
   Game.tenCount = "";
   Game.fiveCount = "";
   Game.fourCount = "";
   Game.threeCount = "";
   Game.twoCount = "";
   Game.oneCount = "";

   $countdownStarted = false;
}

function CancelEndCountdown()
{
   //cancel the mission end countdown...
   if(Game.endthreeminuteCount !$= "")
      cancel(Game.endthreeminuteCount);
   if(Game.endtwominuteCount !$= "")
      cancel(Game.endtwominuteCount);
   if(Game.endsixtyCount !$= "")
      cancel(Game.endsixtyCount);
   if(Game.endthirtyCount !$= "")
      cancel(Game.endthirtyCount);
   if(Game.endtenCount !$= "")
      cancel(Game.endtenCount);
   if(Game.endfiveCount !$= "")
      cancel(Game.endfiveCount);
   if(Game.endfourCount !$= "")
      cancel(Game.endfourCount);
   if(Game.endthreeCount !$= "")
      cancel(Game.endthreeCount);
   if(Game.endtwoCount !$= "")
      cancel(Game.endtwoCount);
   if(Game.endoneCount !$= "")
      cancel(Game.endoneCount);

   Game.endmatchStart = "";
   Game.endthirtyCount = "";
   Game.endtenCount = "";
   Game.endfiveCount = "";
   Game.endfourCount = "";
   Game.endthreeCount = "";
   Game.endtwoCount = "";
   Game.endoneCount = "";
}

function resetServerDefaults()
{
   $resettingServer = true;
   echo( "Resetting server defaults..." );

   if( isObject( Game ) )
      Game.gameOver();

   // Override server defaults with prefs:
   exec( "scripts/ServerDefaults.cs" );
   exec( $serverprefs );

   // ---------------------------------------------------
   // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
   //convert the team skin and name vars to tags...
   %index = 0;
   while ($Host::TeamSkin[%index] !$= "")
   {
      $TeamSkin[%index] = addTaggedString($Host::TeamSkin[%index]);
      %index++;
   }

   %index = 0;
   while ($Host::TeamName[%index] !$= "")
   {
      $TeamName[%index] = addTaggedString($Host::TeamName[%index]);
      %index++;
   }

   // Get the hologram names from the prefs...
   %index = 1;
   while ( $Host::holoName[%index] !$= "" )
   {
      $holoName[%index] = $Host::holoName[%index];
      %index++;
   }
   // ---------------------------------------------------

   // kick all bots...
   removeAllBots();

   // add bots back if they were there before..
   if( $Host::botsEnabled ) // z0dd - ZOD, 9/29/02. Removed T2 demo code from here
      initGameBots( $Host::Map, $Host::MissionType );

   // load the missions
   loadMission( $Host::Map, $Host::MissionType );
   $resettingServer = false;
   echo( "Server reset complete." );
}

function removeAllBots()
{
   while( ClientGroup.getCount() )
	{
		%client = ClientGroup.getObject(0);
		if(%client.isAIControlled())
			%client.drop();
      else
         %client.delete();
   }
}

//------------------------------------------------------------------------------
function getServerGUIDList()
{
   %count = ClientGroup.getCount();
   for ( %i = 0; %i < %count; %i++ )
   {
      %cl = ClientGroup.getObject( %i );
      if ( isObject( %cl ) && !%cl.isSmurf && !%cl.isAIControlled() )
      {
         %guid = getField( %cl.getAuthInfo(), 3 );
         if ( %guid != 0 )
         {
            if ( %list $= "" )
               %list = %guid;
            else
               %list = %list TAB %guid;
         }
      }
   }

   return( %list );
}

//------------------------------------------------------------------------------
// will return the first admin found on the server
function getAdmin()
{
   %admin = 0;
   for ( %clientIndex = 0; %clientIndex < ClientGroup.getCount(); %clientIndex++ )
   {
      %cl = ClientGroup.getObject( %clientIndex );
      if(%cl.isAdmin || %cl.isSuperAdmin)
      {
         %admin = %cl;
         break;
      }
   }
   return %admin;
}

function serverCmdSetPDAPose(%client, %val)
{
   if(!isObject(%client.player))
      return;

   // if client is in a vehicle, return
   if(%client.player.isMounted())
      return;

   if(%val)
   {
      // play "PDA" animation thread on player
      %client.player.setActionThread("PDA", false);
   }
   else
   {
      // cancel PDA animation thread
      %client.player.setActionThread("root", true);
   }
}

function serverCmdProcessGameLink(%client, %arg1, %arg2, %arg3, %arg4, %arg5)
{
   Game.processGameLink(%client, %arg1, %arg2, %arg3, %arg4, %arg5);
}

//-----------------------------------------------------------------------------------
// z0dd - ZOD, 6/03/02. New function. Impact hit sounds settings from clientprefs.cs.
function serverCmdSetHitSounds( %client, %playerHitsOn, %playerHitWav, %vehicleHitsOn, %vehicleHitWav )
{
   %client.playerHitSound = %playerHitsOn;
   %client.playerHitWav = addtaggedString(%playerHitWav);

   %client.vehicleHitSound = %vehicleHitsOn;
   %client.vehicleHitWav = addtaggedString(%vehicleHitWav);
}

//-----------------------------------------------------------------------------------
// z0dd - ZOD, 6/03/02. New function. Get mod name from server.
function serverCMDgetMod(%client)
{
   %paths = getModPaths();
   commandToClient(%client, 'serverMod', %paths);
}

//-----------------------------------------------------------------------------------
// z0dd - ZOD, 10/03/02. New function. Admin HUD print feature
function serverCMDaprint(%client, %msg, %bottom)
{
   if(%client.isAdmin)
   {
      %name = getTaggedString(%client.name);
      %message = %name @ ": " @ %msg;
      if(%bottom)
         bottomprintAll(%message, 8, 3);
      else
         centerprintAll(%message, 8, 3);
   }
}

//-----------------------------------------------------------------------------------
// z0dd - ZOD - Canadian, 7/17/03. New functions. Allow clients to change their clan tags via hud.
function serverCmdcanGetClanTags(%client)
{
   if(isObject(%client) && !%client.isAiControlled())
   {
      if(%client.GotTagList == 1)
         return;

      %authInfo = %client.getAuthInfo();
      %numTags = getField( %authInfo, 4 );
      for(%i = 1; %i <= %numTags; %i++)
      {
         %client.clanTags = %client.clanTags TAB getField( %authInfo,  6 * %i);
      }
      %client.GotTagList = 1;
      commandToClient(%client, 'canDisplayTags', %client.clanTags, %numTags);
   }
}

function serverCmdcanUpdateClanTag(%client, %tag)
{
   if(isObject(%client) && !%client.isAiControlled())
   {
      if(!%client.isTagWaiting)
      {
         %client.isTagWaiting = true;
         %client.tagWaitStart = getSimTime();
         %client.schedule(30000, ResetTagSwitchWait);

         %authInfo = %client.getAuthInfo();
         %numTags = getField( %authInfo, 4 );
         %rawname = getField( %authInfo, 0 );
         %found = 0;
         for(%i = 1; %i <= %numTags; %i++)
         {
            if(getField(%authInfo,  6 * %i) $= %tag)
            {
               %newTag = getField(%authInfo, 6 * %i);
               %append = getField(%authInfo, (6 * %i)+1 );
               %found = 1;
               break;
            }
         }
         if(!%found)
            messageClient(%client, 'MsgError', 'Illegal clan tag, no changes made.');

         if ( %append )
         {
            %name = "\cp\c6" @ %rawname @ "\c7" @ %newTag @ "\co";
            %newname = "<color:FFFFFF>" @ %rawname @ "<color:FFF600>" @ %newTag;
         }
         else
         {
            %name = "\cp\c7" @ %newTag @ "\c6" @ %rawname @ "\co";
            %newname = "<color:FFF600>" @ %newTag @ "<color:FFFFFF>" @ %rawname;
         }
         MessageAll( 'MsgClientNameChanged', "", %client.name, %name, %client );
         removeTaggedString(%client.name);
         %client.name = addTaggedString(%name);
         setTargetName(%client.target, %client.name);
         if(%client.team != 0)
            Bottomprint( %client, "Your new name is " @ %newname , 5 ,1 );
         else
            messageClient( %client, "", 'Your new name is %1', stripTaggedVar(%newname) );
      }
      else
      {
         %wait = mFloor((30000 - (getSimTime() - %client.tagWaitStart)) / 1000);
         messageClient(%client, "", '\c3WAIT MESSAGE:\cr You must wait another %1 seconds', %wait);
      }
   }
}

function GameConnection::ResetTagSwitchWait(%this)
{
   %this.isTagWaiting = false;
}

// Eolk - anti spam functions.
function serverCmdGetTargetGameName(%client)
{
	// No more spam
}