Tribes2/construction-mod
1
0
Fork 0
mirror of https://github.com/mostlikely4r/construction-mod.git synced 2026-01-19 19:24:44 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
construction-mod/scripts/server.cs
mostlikely4r cbb5d08a0c Initial commit
2025-06-05 12:37:16 +02:00

2798 lines
78 KiB
C#
Raw Blame History

// Set the version of the mod here
$ModVersion = "v0.70 Development Version 1";
$ModCredits = "";
if ($Host::TimeLimit $= "")
$Host::TimeLimit = 20;
$SB::WODec = 0.004; // whiteout
$SB::DFDec = 0.02; // damageFlash
// z0dd - ZOD, 10/06/02. Set this as base default,
// modders can change this value to match theirs.
$DefaultGravity = -20;
// -----------------------------------------------------
// z0dd - ZOD, 5/27/02. Addition. Tribes2.exe will call
// this for competition mod to alert players on server
// during tournament that a remote connection has been
// established to the server.
function onTelnetConnect(%ip, %access)
{
// Thou shall not spam
}
// z0dd - ZOD, 9/13/02. Anti spam
function serverCMDpracticeHudInitialize(%client, %val)
{
// Thou shall not spam
}
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)
{
if ($LogEchoEnabled)
echo("LOG: " @ %msg);
}
function CreateServer(%mission, %missionType)
{
DestroyServer();
// 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 exits before item.cs
exec("scripts/player.cs");
exec("scripts/gameBase.cs");
exec("scripts/staticShape.cs");
exec("scripts/nerf.cs");
exec("scripts/weapons.cs");
exec("scripts/turret.cs");
exec("scripts/weapTurretCode.cs");
//exec("scripts/truPhysics.cs");
exec("scripts/functions.cs");
exec("scripts/do_not_delete/loadscreen.cs");
exec("scripts/libraries.cs");
exec("scripts/do_not_delete/Dfunctions.cs");
exec("scripts/hfunctions.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_superHavoc.cs");
exec("scripts/vehicles/vehicle_superWildcat.cs");
exec("scripts/vehicles/vehicle_artillery.cs");
exec("scripts/vehicles/vehicle_escapepod.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");
exec("scripts/navGraph.cs");
exec("scripts/targetManager.cs");
exec("scripts/serverCommanderMap.cs");
exec("scripts/environmentals.cs");
exec("scripts/power.cs");
exec("scripts/serverTasks.cs");
exec("scripts/admin.cs");
exec("prefs/banlist.cs");
exec("scripts/savebuilding.cs");
exec("scripts/JTLmeteorStorm.cs");
exec("scripts/prison.cs");
exec("scripts/hazard.cs");
exec("scripts/ion.cs");
exec("scripts/solitudeBlock.cs");
exec("scripts/chatCommands.cs");
if (!$Host::MTC::NoLoad)
exec("scripts/MTC_core.cs");
exec("scripts/skywrite.cs");
exec("scripts/dEffects.cs");
//Wierd placing due to dependencies.
exec("scripts/mpm/mpm_blast.cs");
exec("scripts/mpm/mpm_launch.cs");
exec("scripts/mpm/mpm.cs");
exec("scripts/mpm/mpm_base.cs");
exec("scripts/packs/antinuketurret.cs");
exec("scripts/mpm/nuke_cannon.cs");
exec("scripts/mpm/Nuclear_blast.cs");
exec("scripts/weapons/dragonmissile.cs");
// TODO - fix TR2 game screwing up here
//automatically load any mission type that follows naming convention typeGame.name.cs
if (!isDemo())
{
%search = "scripts/*Game.cs";
for(%file = findFirstFile(%search); %file !$= ""; %file = findNextFile(%search))
{
%type = fileBase(%file); // get the name of the script
exec("scripts/" @ %type @ ".cs");
}
}
//the DEMO version only uses DefaultGame.cs and SinglePlayerGame.cs
else
{
exec("scripts/DefaultGame.cs");
exec("scripts/SinglePlayerGame.cs");
exec("scripts/CTFGame.cs");
exec("scripts/HuntersGame.cs");
}
$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 ( ( isDemo() && $HostGameType !$= "SinglePlayer" ) || ( $HostGameType $= "Online" && $pref::Net::DisplayOnMaster !$= "Never" ) )
schedule(0,0,startHeartbeat);
// setup the bots for this server
if ( !isDemo() && $Host::BotsEnabled )
initGameBots( %mission, %missionType );
// load the mission...
loadMission(%mission, %missionType, true);
}
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 > 16 )
$HostGameBotCount = 16;
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 findNextCycleMission()
{
%numPlayers = ClientGroup.getCount();
%tempMission = $CurrentMission;
%failsafe = 0;
while (1)
{
%nextMissionIndex = getNextMission(%tempMission, $CurrentMissionType);
%nextPotentialMission = $HostMissionFile[%nextMissionIndex];
//just cycle to the next if we've gone all the way around...
if (%nextPotentialMission $= $CurrentMission || %failsafe >= 1000)
{
%nextMissionIndex = getNextMission($CurrentMission, $CurrentMissionType);
// z0dd - ZOD - Founder, 10/06/02. Was trying to load a mission name instead of file.
//return $HostMissionName[%nextMissionIndex];
return $HostMissionFile[%nextMissionIndex];
}
//get the player count limits for this mission
%limits = $Host::MapPlayerLimits[%nextPotentialMission, $CurrentMissionType];
if (%limits $= "")
return %nextPotentialMission;
else
{
%minPlayers = getWord(%limits, 0);
%maxPlayers = getWord(%limits, 1);
if ((%minPlayers < 0 || %numPlayers >= %minPlayers) && (%maxPlayers < 0 || %numPlayers <= %maxPlayers))
return %nextPotentialMission;
}
//since we didn't return the mission, we must not have an acceptable number of players - check the next
%tempMission = %nextPotentialMission;
%failsafe++;
}
}
function CycleMissions()
{
echo( "cycling mission. " @ ClientGroup.getCount() @ " clients in game." );
%nextMission = findNextCycleMission();
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::*", "prefs/ServerPrefs.cs", false );
purgeResources();
// TR2
// 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) // z0dd - ZOD, 8/23/02. Let the player know who kicked him.
messageAll( 'MsgAdminForce', '\c2%2 has kicked %1.', Game.kickClientName, %admin.name );
else
messageAll( 'MsgVotePassed', '\c2%1 was kicked by vote.', Game.kickClientName );
messageClient(%client, 'onClientKicked', "");
messageAllExcept( %client, -1, 'MsgClientDrop', "", Game.kickClientName, %client );
if ( %client.isAIControlled() )
{
//$HostGameBotCount--; //<cheesed-off> said it will fix the bug were when i kick a bot u get 255 bot count
%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 ) )
{
if(%admin) // z0dd - ZOD, 8/23/02. Let the player know who kicked him.
%cl.setDisconnectReason( %admin.nameBase @ "has kicked you out of the game." );
else
%cl.setDisconnectReason( "You have been kicked out of the game." );
%cl.schedule(700, "delete");
}
BanList::add( %guid, "0", $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 ) // z0dd - ZOD, 8/23/02. Let the player know who kicked him.
messageAll('MsgAdminForce', '\c2%2 has banned %1.', %client.name, %admin.name);
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 ) )
{
if(%admin) // z0dd - ZOD, 8/23/02. Let the player know who kicked him.
%client.setDisconnectReason( %admin.nameBase @ "has banned you from this server." );
else
%client.setDisconnectReason( "You have been banned from this server." );
%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;
}
$DemoNameCount = 0;
function addDemoAlias( %name )
{
$DemoName[$DemoNameCount] = %name;
$DemoNameCount++;
}
if ( isDemo() )
{
addDemoAlias( "Butterfingers" );
addDemoAlias( "Bullseye" );
addDemoAlias( "Casualty" );
addDemoAlias( "Dogfood" );
addDemoAlias( "Extinct" );
addDemoAlias( "Fodder" );
addDemoAlias( "Grunt" );
addDemoAlias( "Helpless" );
addDemoAlias( "Itchy" );
addDemoAlias( "Bait" );
addDemoAlias( "Kibble" );
addDemoAlias( "MonkeyBoy" );
addDemoAlias( "Meat" );
addDemoAlias( "Newbie" );
addDemoAlias( "Owned" );
addDemoAlias( "Poser" );
addDemoAlias( "Quaker" );
addDemoAlias( "Roadkill" );
addDemoAlias( "SkidMark" );
addDemoAlias( "EZTarget" );
addDemoAlias( "Underdog" );
addDemoAlias( "Vegetable" );
addDemoAlias( "Weakling" );
addDemoAlias( "Flatline" );
addDemoAlias( "Spud" );
addDemoAlias( "Zero" );
addDemoAlias( "WetNose" );
addDemoAlias( "Chowderhead" );
addDemoAlias( "Clown" );
addDemoAlias( "Dodo" );
addDemoAlias( "Endangered" );
addDemoAlias( "Feeble" );
addDemoAlias( "Gimp" );
addDemoAlias( "Inky" );
addDemoAlias( "Pinky" );
addDemoAlias( "Blinky" );
addDemoAlias( "Clyde" );
addDemoAlias( "Loopy" );
addDemoAlias( "Masochist" );
addDemoAlias( "Pancake" );
addDemoAlias( "Rubbish" );
addDemoAlias( "Sickly" );
addDemoAlias( "Terminal" );
addDemoAlias( "Ugly Duckling" );
addDemoAlias( "Sheepish" );
addDemoAlias( "Whiplash" );
addDemoAlias( "KickMe" );
addDemoAlias( "Yellow Belly" );
addDemoAlias( "Bits" );
addDemoAlias( "Doofus" );
addDemoAlias( "Fluffy Bunny" );
addDemoAlias( "Lollipop" );
addDemoAlias( "Troglodyte" );
addDemoAlias( "Carcass" );
addDemoAlias( "Noodle" );
addDemoAlias( "Spastic" );
addDemoAlias( "Wimpy" );
addDemoAlias( "Sweet Pea" );
addDemoAlias( "Abused" );
addDemoAlias( "Happy Camper" );
addDemoAlias( "FreakShow" );
addDemoAlias( "Bumpkin" );
addDemoAlias( "Mad Cow" );
addDemoAlias( "Cud" );
}
function pickDemoName()
{
// Pick a unique name if possible:
%idx = mFloor( getRandom() * $DemoNameCount );
for ( %i = 0; %i < $DemoNameCount; %i++ )
{
%name = $DemoName[mMod( %idx + %i, $DemoNameCount )];
%isUnique = true;
%count = ClientGroup.getCount();
for ( %ci = 0; %ci < %count; %ci++ )
{
if ( strcmp( %name, detag( getTaggedString( ClientGroup.getObject( %ci ).name ) ) ) == 0 )
{
%isUnique = false;
break;
}
}
if ( %isUnique )
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++ )
{
if ( strcmp( %nameTry, detag( getTaggedString( ClientGroup.getObject( %i ).name ) ) ) == 0 )
{
%isUnique = false;
break;
}
}
%suffix++;
}
// Success!
%name = %nameTry;
}
return( %name );
}
function GameConnection::onConnect( %client, %name, %raceGender, %skin, %voice, %voicePitch )
{
%client.setMissionCRC($missionCRC);
sendLoadInfoToClient( %client );
//%client.setSimulatedNetParams(0.1, 30);
if (isDemo() && $CurrentMissionType !$= "SinglePlayer")
{
%client.armor = "Light";
%client.sex = "Male";
%client.race = "Human";
%client.nameBase = pickDemoName();
%client.name = addTaggedString( %client.nameBase );
%client.voice = "Male1";
%client.voiceTag = addTaggedString( "Male1" );
if ( %client & 1 )
%client.skin = addTaggedString( "swolf" );
else
%client.skin = addTaggedString( "beagle" );
}
else
{
// 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 ) {
%client.smurfName = %name;
%name = %realName;
}
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 );
if ($Host::NoAnnoyingVoiceChatSpam && %voice $= "") {
switch$ ( %raceGender ) {
case "Human Male":
%voice = "Male1";
case "Human Female":
%voice = "Fem1";
case "Bioderm":
%voice = "Derm1";
default:
%voice = "Male1";
}
}
%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);
}
%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" )
{
if ( isDemo() )
{
messageClient(%client, 'MsgClientJoin', '\c2Welcome to the Tribes 2 Demo!',
%client.name,
%client,
%client.target,
false, // isBot
%client.isAdmin,
%client.isSuperAdmin,
%client.isSmurf,
%client.sendGuid );
}
else
{
messageClient(%client, 'MsgClientJoin', '\c2Welcome to Tribes2 %1.',
%client.name,
%client,
%client.target,
false, // isBot
%client.isAdmin,
%client.isSuperAdmin,
%client.isSmurf,
%client.sendGuid );
}
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 );
%opt = "\c2Server Options:";
if ($MissionRunning == true)
%opt = %opt @ "\nTime limit: " @ mFloor((($Host::TimeLimit * 60 * 1000) + $missionStartTime - getSimTime())/1000/60) @ " / " @ $Host::TimeLimit;
else
%opt = %opt @ "\nTime limit: " @ $Host::TimeLimit;
%opt = %opt @ "\nMax players: " @ $Host::MaxPlayers @
"\nTeam Damage: " @ ($Host::TeamDamageOn ? "On" : "Off") @
"\nPurebuild: " @ ($Host::Purebuild ? "On" : "Off") @
"\nCascade: " @ ($Host::Cascade ? "On" : "Off") @
"\nHazard Mode: " @ ($Host::Hazard::Enabled ? "On" : "Off") @
"\nMTC Mode: " @ ($Host::MTC::Enabled ? "On" : "Off") @
"\nExpert Mode: " @ ($Host::ExpertMode ? "On" : "Off") @
"\nPrison: " @ ($Host::Prison::Enabled ? "On" : "Off");
messageClient(%client,'msgClient',%opt);
//Game.missionStart(%client);
setDefaultInventory(%client);
if ($missionRunning)
%client.startMission();
$HostGamePlayerCount++;
%client.demoJustJoined = true;
getRealName(%client);
%logname = getTaggedString(%client.name);
%logname = strreplace(%logname,"\x10","");
%logname = strreplace(%logname,"\x11","");
%logname = strreplace(%logname,"\c8","");
%logname = strreplace(%logname,"\c7","");
%logname = strreplace(%logname,"\c6","");
%logExport = formatTimeString(yy) @ "/" @ formatTimeString(mm) @ "/" @ formatTimeString(dd);
%logExport = %logExport SPC formatTimeString(h) @ ":" @ formatTimeString(n) @ "." @ formatTimeString(s) SPC formatTimeString(a);
%logExport = %logExport SPC "Connection. " @ %client.getAddress() SPC " GUID: " @ %client.guid;
%logExport = %logExport SPC "Name: " @ %logname;
if (%client.isSmurf)
%logExport = %logExport SPC "Real Name: " @ getRealName(%client, "echo");
if ($Construction::Logging::LogConnects)
exportToLog(%logexport, "Logs/Connections/" @ formatTimeString(yy) @ "-" @ formatTimeString(mm) @ "-" @ formatTimeString(dd) @ ".log");
}
function GameConnection::onDrop(%client, %reason)
{
if (isObject(Game))
Game.onClientLeaveGame(%client);
// 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);
%logname = getTaggedString(%client.name);
%logname = strreplace(%logname,"\x10","");
%logname = strreplace(%logname,"\x11","");
%logname = strreplace(%logname,"\c8","");
%logname = strreplace(%logname,"\c7","");
%logname = strreplace(%logname,"\c6","");
%logExport = formatTimeString(yy) @ "/" @ formatTimeString(mm) @ "/" @ formatTimeString(dd);
%logExport = %logExport SPC formatTimeString(h) @ ":" @ formatTimeString(n) @ "." @ formatTimeString(s) SPC formatTimeString(a);
%logExport = %logExport SPC "Disconnect. " @ %client.getAddress() SPC " GUID: " @ %client.guid;
%logExport = %logExport SPC "Name: " @ %logname;
if (%client.isSmurf)
%logExport = %logExport SPC "Real Name: " @ getRealName(%client, "echo");
if ($Construction::Logging::LogConnects)
exportToLog(%logexport, "Logs/Connections/" @ formatTimeString(yy) @ "-" @ formatTimeString(mm) @ "-" @ formatTimeString(dd) @ ".log");
if ( isObject( %client.camera ) )
%client.camera.delete();
removeTaggedString(%client.name);
removeTaggedString(%client.voiceTag);
removeTaggedString(%client.skin);
freeClientTarget(%client);
echo("CDROP: " @ %client @ " " @ %client.getAddress());
$HostGamePlayerCount--;
// reset the server if everyone has left the game
if ( $HostGamePlayerCount - $HostGameBotCount == 0 && $Host::Dedicated && !$resettingServer && !$LoadingMission )
schedule(0, 0, "resetServerDefaults");
}
function getRealName(%client, %sender)
{
if(%client.isSmurf)
{
%authInfo = %client.getAuthInfo();
%name = stripchars(detag(gettaggedstring(%client.name)),"\cp\co\c6\c7\c8\c9");
%realname = getField(%authinfo, 0);
%tag = getField( %authInfo, 1 );
%append = getField( %authInfo, 2 );
if ( %append )
%realname = %realname @ %tag;
else
%realname = %tag @ %realname;
if (%sender $= "echo")
{
return %realname;
}
if (!isObject(%sender))
{
%count = ClientGroup.getCount();
for(%i = 0; %i < %count; %i++)
{
%admin = ClientGroup.getObject(%i);
if(%admin.isAdmin)
messageClient(%admin, '', "\c2Smurf, " @ %client.namebase @ " is " @ %realname @ ".");
}
}
else
{
messageClient(%sender, '', "\c2Smurf, " @ %client.namebase @ " is " @ %realname @ ".");
}
}
}
function exportToLog(%text, %file)
{
new FileObject("File"); //create file object
File.openForAppend(%file); //open it up, and create it if it isn't there
File.writeLine(%text); //write the text that we want
File.close(); //close the file
File.delete(); //delete the object (not the file)
}
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 )
{
//ensure the demo server is using appropriate missions
if (isDemo() && %missionType !$= "SinglePlayer")
{
if (%missionName $= "Slapdash")
%missionType = "CTF";
else if (%missionName $= "Rasp")
%missionType = "Hunters";
else
{
%missionName = "Slapdash";
%missionType = "CTF";
}
}
// TR2
// TR2 is scaled, so we need to increase the camera speed. However, we also
// need to set it back to the default for other game types.
if( %missionType $= "TR2" )
{
$_Camera::movementSpeed = $Camera::movementSpeed;
$Camera::movementSpeed = 80;
}
else
{
%val = $_Camera::movementSpeed $= "" ? 40 : $_Camera::movementSpeed;
$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( !isDemo() && $Host::TournamentMode )
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 );
}
// 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);
// 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 ($EnergizeLoop != 1)
StartEnergizeLoop();
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);
}
// clear the power list
$PowerList = "";
$countDownStarted = false;
exec(%file);
$instantGroup = MissionCleanup;
if ($Host::Prison::Enabled == 1)
prisonEnable();
else
$Host::Prison::Enabled = 0;
// 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:
if ( isDemo() )
$TeamDamage = 0;
else if ( $Host::TournamentMode )
$TeamDamage = 1;
else
$TeamDamage = $Host::TeamDamageOn;
//the demo version always has team damage off
if (isDemo())
$TeamDamage = 0;
// z0dd - ZOD, 10/06/02. Reset $InvincibleTime to defaults.
if(Game.class !$= TR2Game)
$InvincibleTime = 6;
// Velocity limiter
limitVelocityLoop();
// Killer fog
if (MissionArea.killerFogAlt !$= "" && MissionArea.killerFogAlt != 0)
killerFog();
Game.missionLoadDone();
// start all the clients in the mission
$missionRunning = true;
for(%clientIndex = 0; %clientIndex < ClientGroup.getCount(); %clientIndex++)
ClientGroup.getObject(%clientIndex).startMission();
if ($Host::Purebuild == 1)
purebuildOn();
else
purebuildOff();
if ($Host::Cascade !$= "0" && $Host::Cascade != 1)
$Host::Cascade = 1;
if ($Host::Vehicles $= "0")
disableVehicles();
else
enableVehicles();
if ($Host::Nerf::Enabled $= "0")
nerfDisable();
else
nerfEnable();
if ($Host::Hazard::Enabled == 1)
hazardOn();
else
hazardOff();
if ($Host::InvincibleArmors != 1)
$Host::InvincibleArmors = 0;
if ($Host::InvincibleDeployables != 1)
$Host::InvincibleDeployables = 0;
if ($Host::SatchelChargeEnabled !$= "0")
$Host::SatchelChargeEnabled = 1;
if ($Host::MTC::Enabled == 1)
startMTC();
else
stopMTC();
if ($Host::OnlyOwnerDeconstruct != 1)
$Host::OnlyOwnerDeconstruct = 0;
if ($Host::OnlyOwnerCascade != 1)
$Host::OnlyOwnerCascade = 0;
if ($Host::OnlyOwnerRotate != 1)
$Host::OnlyOwnerRotate = 0;
if ($Host::OnlyOwnerCubicReplace != 1)
$Host::OnlyOwnerCubicReplace = 0;
if ($Host::AllowUnderground != 1)
$Host::AllowUnderground = 0;
if ($Host::RepairPatchOnDeath != 1)
$Host::RepairPatchOnDeath = 0;
if ($Host::ExpertMode == 1)
expertModeOn();
else
expertModeOff();
if (!$MatchStarted && $LaunchMode !$= "NavBuild" && $LaunchMode !$= "SpnBuild" )
{
if ( !isDemo() && $Host::TournamentMode )
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);
}
%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);
}
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 ( isDemo() || !$Host::TournamentMode )
{
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;
}
function serverCmdSAD( %client, %password )
{
if ( %password !$= "" && %password $= $Host::AdminPassword)
{
%client.isAdmin = true;
%client.isSuperAdmin = true;
%name = getTaggedString( %client.name );
MessageAll( 'MsgSuperAdminPlayer', '\c2%2 has become a Super Admin by force.', %client, %client.name );
}
}
function serverCmdSADSetPassword(%client, %password)
{
// -----------------------------------------------------
// z0dd - ZOD, 5/8/02. Addition. Have to export or it won't stick.
//if(%client.isSuperAdmin)
// $Host::AdminPassword = %password;
if(%client.isSuperAdmin)
{
$Host::AdminPassword = %password;
export( "$Host::*", "prefs/ServerPrefs.cs", false );
messageClient(%client, 'MsgAdmin', '\c2\"Super Admin\" PW changed to: \c3%1\c2.', %password);
logEcho(getTaggedString(%client.name) @ " changed Super Admin password to: " @ %password);
}
}
function serverCmdSuicide(%client)
{
// -------------------------------------
// z0dd - ZOD, 5/8/02. Addition. Console spam fix.
if(!isObject(%client.player))
return;
if ( $MatchStarted && !%client.isJailed)
%client.player.scriptKill($DamageType::Suicide);
}
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
function serverCmdPlayAnim(%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" )
return;
%player = %client.player;
// don't play animations if player is in a vehicle
// ------------------------------------------------------------------
// z0dd - ZOD, 5/8/02. Console spam fix, check for player object too.
//if (%player.isMounted())
// return;
if(!isObject(%player))
return;
if(%player.isMounted()) // JTL :P
return;
%weapon = ( %player.getMountedImage($WeaponSlot) == 0 ) ? "" : %player.getMountedImage($WeaponSlot).getName().item;
if (%weapon $= "MissileLauncher" || %weapon $= "SniperRifle")
{
%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...
function serverCmdClientTeamChange( %client )
{
// pass this to the game object to handle:
if ( isObject( Game ) && Game.kickClient != %client && !%client.isJailed)
{
%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 || %client.isSuperAdmin)
{
if (serverCanAddBot())
aiConnectMultiple( 1, $Host::MinBotDifficulty, $Host::MaxBotDifficulty, -1 );
}
}
function serverCmdClientJoinTeam( %client, %team )
{
if ( %team == -1 )
{
if ( %client.team == 1 )
%team = 2;
else
%team = 1;
}
if (!(%client.isAdmin || %client.isSuperAdmin || %client.isAIControlled())) {
if (%team > Game.numTeams || %team $= "")
%team = 1;
}
if ( isObject( Game ) && Game.kickClient != %client && !%client.isJailed)
{
if (%client.team != %team)
{
%fromObs = %client.team == 0;
if (%fromObs)
clearBottomPrint(%client);
if ( %client.isAIControlled() )
Game.AIChangeTeam( %client, %team );
else
Game.clientChangeTeam( %client, %team, %fromObs );
}
}
}
// this should only happen in single team games
function serverCmdClientAddToGame( %client, %targetClient )
{
if (!(%client.isAdmin || %client.isSuperAdmin))
return;
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 ( !isDemo() && $Host::TournamentMode && !$CountdownStarted)
{
%targetClient.notReady = true;
centerprint( %targetClient, "\nPress FIRE when ready.", 0, 3 );
}
}
function serverCmdClientJoinGame( %client )
{
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 && !%client.isJailed)
Game.forceObserver( %client, "playerChoose" );
}
function serverCmdChangePlayersTeam( %clientRequesting, %client, %team)
{
if ( isObject( Game ) && %client != Game.kickClient && (%clientRequesting.isAdmin || %clientRequesting.isSuperAdmin))
{
serverCmdClientJoinTeam(%client, %team);
if (!$MatchStarted)
{
%client.observerMode = "pregame";
%client.notReady = true;
%client.camera.getDataBlock().setMode( %client.camera, "pre-game", %client.player );
%client.setControlObject( %client.camera );
if ( !isDemo() && $Host::TournamentMode && !$CountdownStarted)
{
%client.notReady = true;
centerprint( %client, "\nPress FIRE when ready.", 0, 3 );
}
}
else
commandToClient(%client, 'setHudMode', 'Standard', "", 0);
%multiTeam = (Game.numTeams > 1);
if (%multiTeam)
{
messageClient( %client, 'MsgClient', '\c1The Admin has changed your team.');
messageAllExcept( %client, -1, 'MsgClient', '\c1The Admin forced %1 to join the %2 team.', %client.name, game.getTeamName(%client.team) );
}
else
{
messageClient( %client, 'MsgClient', '\c1The Admin has added you to the game.');
messageAllExcept( %client, -1, 'MsgClient', '\c1The Admin added %1 to the game.', %client.name);
}
}
}
function serverCmdForcePlayerToObserver( %clientRequesting, %client )
{
if ( isObject( Game ) && (%clientRequesting.isAdmin || %clientRequesting.isSuperAdmin))
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 );
if (%client.isAdmin || %client.isSuperAdmin)
messageClient( %client, 'MsgVoteItem', "", %key, "LoadBuildingFile", "", " - Load Building File - ", true );
}
function serverCmdGetMissionList( %client, %key, %type ) {
if ( %type < 0 || %type >= $HostTypeCount )
return;
if (%type $= "LoadBuildingFile" && (%client.isAdmin || %client.isSuperAdmin)) {
%dir = "Buildings/Admin/";
%idx = 0;
for(%file = findFirstFile(%dir @ "*.cs"); %file !$= ""; %file = findNextFile(%dir @ "*.cs")) {
messageClient(%client,'MsgVoteItem',"",%key,%idx++,"",getSubStr(%file,strLen(%dir),strLen(%file)-strLen(%dir)),true);
}
%dir = $SaveBuilding::AutoSaveFolder;
%buildingCount = 0;
for (%index = 0;%index < 11;%index++)
$SaveBuilding::Found[%index] = "";
for (%found = true;%found;%buildingCount++ ) {
%suffix = %buildingCount;
while (strLen(%suffix) < 5) %suffix = "0" @ %suffix;
%file = $SaveBuilding::AutoSaveFolder @ $MissionName @ "-" @ %suffix @ ".cs";
if (%found = isFile(%file)) {
for (%index = 10;%index > 0;%index--) {
$SaveBuilding::Found[%index] = $SaveBuilding::Found[%index - 1];
}
$SaveBuilding::Found[0] = %file;
}
}
for (%index = 0;%index < 11;%index++) {
%file = $SaveBuilding::Found[%index];
if (%file !$= "")
messageClient(%client,'MsgVoteItem',"",%key,%idx++,"","_" @ getSubStr(%file,strLen(%dir),strLen(%file)-strLen(%dir)),true);
}
}
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 )
{
if (!$Host::TournamentMode)
return;
if (!(%client.isAdmin || %client.isSuperAdmin)) {
if (%option > Game.numTeams || %option $= "")
%option = 1;
}
// ------------------------------------------------------------------------------------
// z0dd - ZOD 5/8/02. Tourney mode bug 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.
//if( %option == 1 || %option == 2 )
// Game.clientJoinTeam( %client, %option, false );
//else if( %option == 3)
//{
// Game.assignClientTeam( %client, $MatchStarted );
// Game.spawnPlayer( %client, false );
//}
//else
//{
// Game.forceObserver( %client, "playerChoose" );
// %client.observerMode = "observer";
// %client.notReady = false;
// return;
//}
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;
}
// End z0dd - ZOD
// ------------------------------------------------------------------------------------
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 ( !isDemo() && $Host::TournamentMode && !$CountdownStarted && !$MatchStarted )
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, 5/8/02. Addition. Was not exporting to serverPrefs and did not message admin status.
export( "$Host::*", "prefs/ServerPrefs.cs", false );
messageClient(%admin, 'MsgAdmin', '\c3\"%1\"\c2 added to Admin list: \c3%2\c2.', getTaggedString(%client.name), %client.guid);
logEcho(getTaggedString(%admin.name) @ " added " @ getTaggedString(%client.name) @ " " @ %client.guid @ " to Admin list.");
}
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, 5/8/02. Addition. Was not exporting to serverPrefs and did not message admin status.
export( "$Host::*", "prefs/ServerPrefs.cs", false );
messageClient(%admin, 'MsgAdmin', '\c3\"%1\"\c2 added to Super Admin list: \c3%2\c2.', getTaggedString(%client.name), %client.guid);
logEcho(getTaggedString(%admin.name) @ " added " @ getTaggedString(%client.name) @ " " @ %client.guid @ " to Super Admin list.");
}
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!
Countdown( 30 * 1000 );
}
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 = "";
}
Countdown(30 * 1000);
}
}
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();
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 >= 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.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 );
if ( !isDemo() )
{
//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 ( !isDemo() && $Host::botsEnabled )
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);
}
function reLightAllClients() {
%count = ClientGroup.getCount();
for(%i = 0; %i < %count; %i++) {
%client = ClientGroup.getObject(%i);
if (%client.currentPhase == 4)
commandToClient(%client,'reLightMission');
}
}
function killerFog() {
cancel($KillerFogSched);
if (!isObject(MissionArea)) {
error("killerFog: no MissionArea!");
return;
}
if (MissionArea.killerFogAlt $= "") {
error("killerFog: no kill altitude!");
return;
}
%alt = MissionArea.killerFogAlt;
%count = ClientGroup.getCount();
for(%i = 0; %i < %count; %i++) {
%cl = ClientGroup.getObject(%i);
%pl = %cl.player;
if (isObject(%pl)) {
if (%pl.getState() !$= "Dead" && %cl.isJailed != true) {
%pos = %pl.getPosition();
if (getWord(%pos,2) < %alt) {
%vehicle = %pl.getObjectMount();
if (%pl.isMounted()) {
if (%pl.vehicleTurret)
%pl.vehicleTurret.getDataBlock().playerDismount(%pl.vehicleTurret);
else {
%pl.getDataBlock().doDismount(%pl,true);
%pl.mountVehicle = false;
}
}
if (getWord(%pos,2) > -11000)
%pl.setPosition(getWords(%pos,0,1) SPC -12000);
%pl.scriptKill($DamageType::KillerFog);
if (isObject(%vehicle)) {
if ((%vehicle.getType() & $TypeMasks::VehicleObjectType) && (!%vehicle.fogKilled)) {
%vehicle.fogKilled = true;
%vehicle.schedule(10,setPosition,getWords(%vehicle.getPosition(),0,1) SPC -12000);
%vehicle.schedule(3000,setDamageState,Destroyed);
}
}
}
}
}
}
$KillerFogSched = schedule(500,0,killerFog);
}
function serverCmdConstructionRegisterClient(%client,%version) {
%client.constructionClient = true;
%client.constructionClientVersion = %version;
echo(%client SPC getTaggedString(%client.name) @ " registered as Construction Mod Client, version " @ %version @ ".");
}
function serverCmdConstructionQueryServer(%client) {
commandToClient(%client,'QueryServerReply',"Construction Mod Server",$ModVersion,$ModCredits,"2");
}
function limitVelocityLoop() {
cancel($limitVelocityLoop);
%count = ClientGroup.getCount();
for (%i=0;%i<%count;%i++) {
%client = ClientGroup.getObject(%i);
%plyr = %client.player;
if (isObject(%plyr)) {
// %vehicle = %plyr.getObjectMount();
// if (%vehicle)
// limitObjectVelocity(%vehicle);
limitObjectVelocity(%plyr);
}
}
%count = getWordCount($VehicleList);
for(%i=0;%i<%count;%i++) {
%obj= getWord($VehicleList,%i);
if (isObject(%obj)) {
if ((%obj.getType() & $TypeMasks::VehicleObjectType)) {
limitObjectVelocity(%obj);
}
}
}
$limitVelocityLoop = schedule(1000,0,"limitVelocityLoop");
}
function limitObjectVelocity(%obj) {
%vec = %obj.getVelocity();
%vel = vectorLen(%vec);
if (%vel > 1400) {
%obj.setVelocity(vectorScale(vectorNormalize(%vec),1400));
if (%obj.getType() & $TypeMasks::VehicleObjectType) {
%obj.setFrozenState(true);
%obj.schedule(500,setDamageState,Destroyed);
}
}
// doing this here, since we already have the loop set up :P
if (!$Host::AllowUnderground) {
if (%obj.getType() & $TypeMasks::PlayerObjectType) {
if (%obj.client.isJailed || %obj.getState() $= "Dead" || %obj.getObjectMount())
return;
}
if (%obj.fogKilled)
return;
%pos = %obj.getPosition();
%terrain = getWord(getTerrainHeight2(%pos),2);
if (getWord(%pos,2) < %terrain) {
%obj.setPosition(getWords(%pos,0,1) SPC %terrain + (getWord(%pos,2) - getWord(%obj.getWorldBox(),2)) + 0.1);
}
}
}
Reference in a new issue View git blame Copy permalink