mirror of
https://github.com/Ragora/T2-BoL.git
synced 2026-01-20 03:24:47 +00:00
392 lines
12 KiB
C#
392 lines
12 KiB
C#
// --------------------------------------------------------
|
|
// Deathmatch mission type
|
|
// --------------------------------------------------------
|
|
|
|
// DisplayName = Real Time Strategy
|
|
|
|
//--- GAME RULES BEGIN ---
|
|
//Take control of Tribes 2 from an RTS view.
|
|
//Each race has it's own trio of leaders with each of their own special powers and units.
|
|
//--- GAME RULES END ---
|
|
|
|
//Note: This gameMode may never actually be used.. but we'll see.
|
|
//If not, I'll leave this here for anyone to use.
|
|
//
|
|
//
|
|
|
|
$RequiresClient[RTS] = true;
|
|
$InvBanList[RTS, "MiningTool"] = 1;
|
|
|
|
exec("scripts/aiRTS.cs");
|
|
|
|
function RTSGame::setUpTeams(%game)
|
|
{
|
|
%group = nameToID("MissionGroup/Teams");
|
|
if(%group == -1)
|
|
return;
|
|
|
|
// create a team0 if it does not exist
|
|
%team = nameToID("MissionGroup/Teams/team0");
|
|
if(%team == -1)
|
|
{
|
|
%team = new SimGroup("team0");
|
|
%group.add(%team);
|
|
}
|
|
|
|
// 'team0' is not counted as a team here
|
|
%game.numTeams = 0;
|
|
while(%team != -1)
|
|
{
|
|
// create drop set and add all spawnsphere objects into it
|
|
%dropSet = new SimSet("TeamDrops" @ %game.numTeams);
|
|
MissionCleanup.add(%dropSet);
|
|
|
|
%spawns = nameToID("MissionGroup/Teams/team" @ %game.numTeams @ "/SpawnSpheres");
|
|
if(%spawns != -1)
|
|
{
|
|
%count = %spawns.getCount();
|
|
for(%i = 0; %i < %count; %i++)
|
|
%dropSet.add(%spawns.getObject(%i));
|
|
}
|
|
|
|
// set the 'team' field for all the objects in this team
|
|
%team.setTeam(0);
|
|
|
|
clearVehicleCount(%team+1);
|
|
// get next group
|
|
%team = nameToID("MissionGroup/Teams/team" @ %game.numTeams + 1);
|
|
if (%team != -1)
|
|
%game.numTeams++;
|
|
}
|
|
|
|
// set the number of sensor groups (including team0) that are processed
|
|
setSensorGroupCount(%game.numTeams + 1);
|
|
%game.numTeams = 1;
|
|
|
|
// allow teams 1->31 to listen to each other (team 0 can only listen to self)
|
|
for(%i = 1; %i < 32; %i++)
|
|
setSensorGroupListenMask(%i, 0xfffffffe);
|
|
}
|
|
|
|
function RTSGame::initGameVars(%game)
|
|
{
|
|
%game.SCORE_PER_KILL = 1;
|
|
%game.SCORE_PER_DEATH = -1;
|
|
%game.SCORE_PER_SUICIDE = -1;
|
|
}
|
|
|
|
function RTSGame::allowsProtectedStatics(%game)
|
|
{
|
|
return true;
|
|
}
|
|
|
|
function RTSGame::equip(%game, %player)
|
|
{
|
|
for(%i =0; %i<$InventoryHudCount; %i++)
|
|
%player.client.setInventoryHudItem($InventoryHudData[%i, itemDataName], 0, 1);
|
|
%player.client.clearBackpackIcon();
|
|
|
|
//%player.setArmor("Light");
|
|
%player.setInventory(RepairKit, 1);
|
|
%player.setInventory("Disc", 1);
|
|
%player.setInventory("DiscAmmo", 15);
|
|
%player.setInventory("TargetingLaser", 1);
|
|
%player.weaponCount = 1;
|
|
|
|
if (%player.client.race $= "Draakan") //Also defined in DefaultGame.cs, but this overrides it.
|
|
%player.setInventory(Flamer,1);
|
|
|
|
// do we want to give players a disc launcher instead? GJL: Yes we do!
|
|
%player.use("Disc");
|
|
}
|
|
|
|
function RTSGame::pickPlayerSpawn(%game, %client, %respawn)
|
|
{
|
|
// all spawns come from team 1
|
|
return %game.pickTeamSpawn(1);
|
|
}
|
|
|
|
function RTSGame::clientJoinTeam( %game, %client, %team, %respawn )
|
|
{
|
|
%game.assignClientTeam( %client );
|
|
|
|
// Spawn the player:
|
|
%game.spawnPlayer( %client, %respawn );
|
|
}
|
|
|
|
function RTSGame::assignClientTeam(%game, %client)
|
|
{
|
|
if (!%client.isAIControlled())
|
|
return;
|
|
|
|
for(%i = 1; %i < 32; %i++)
|
|
$DMTeamArray[%i] = false;
|
|
|
|
%maxSensorGroup = 0;
|
|
%count = ClientGroup.getCount();
|
|
for(%i = 0; %i < %count; %i++)
|
|
{
|
|
%cl = ClientGroup.getObject(%i);
|
|
if(%cl != %client)
|
|
{
|
|
$DMTeamArray[%cl.team] = true;
|
|
if (%cl.team > %maxSensorGroup)
|
|
%maxSensorGroup = %cl.team;
|
|
}
|
|
}
|
|
|
|
//now loop through the team array, looking for an empty team
|
|
for(%i = 1; %i < 32; %i++)
|
|
{
|
|
if (! $DMTeamArray[%i])
|
|
{
|
|
%client.team = %i;
|
|
if (%client.team > %maxSensorGroup)
|
|
%maxSensorGroup = %client.team;
|
|
break;
|
|
}
|
|
}
|
|
|
|
// set player's skin pref here
|
|
setTargetSkin(%client.target, %client.skin);
|
|
|
|
// Let everybody know you are no longer an observer:
|
|
messageAll( 'MsgClientJoinTeam', '\c1%1 has joined the fray.', %client.name, "", %client, 1 );
|
|
updateCanListenState( %client );
|
|
|
|
//now set the max number of sensor groups...
|
|
setSensorGroupCount(%maxSensorGroup + 1);
|
|
}
|
|
|
|
function RTSGame::clientMissionDropReady(%game, %client)
|
|
{
|
|
messageClient(%client, 'MsgClientReady',"", "SinglePlayerGame");
|
|
messageClient(%client, 'MsgYourScoreIs', "", 0);
|
|
messageClient(%client, 'MsgDMPlayerDies', "", 0);
|
|
messageClient(%client, 'MsgDMKill', "", 0);
|
|
%game.resetScore(%client);
|
|
|
|
messageClient(%client,'MsgSPCurrentObjective1',"",'Units: 0/40');
|
|
messageClient(%client,'MsgSPCurrentObjective2',"",'Resources: 800'); //Start w/ 800 resources
|
|
|
|
messageClient(%client, 'MsgMissionDropInfo', '\c0You are in mission %1 (%2).', $MissionDisplayName, $MissionTypeDisplayName, $ServerName );
|
|
|
|
DefaultGame::clientMissionDropReady(%game, %client);
|
|
schedule(1000,0,"commandToClient",%client,'HandleScriptedCommand',6);
|
|
}
|
|
|
|
function RTSGame::AIHasJoined(%game, %client)
|
|
{
|
|
//let everyone know the player has joined the game
|
|
//messageAllExcept(%client, -1, 'MsgClientJoinTeam', '%1 has joined the fray.', %client.name, "", %client, 1 );
|
|
}
|
|
|
|
function RTSGame::checkScoreLimit(%game, %client)
|
|
{
|
|
//there's no score limit in DM
|
|
}
|
|
|
|
function RTSGame::createPlayer(%game, %client, %spawnLoc, %respawn)
|
|
{
|
|
DefaultGame::createPlayer(%game, %client, %spawnLoc, %respawn);
|
|
%client.setSensorGroup(%client.team);
|
|
}
|
|
|
|
function RTSGame::resetScore(%game, %client)
|
|
{
|
|
%client.deaths = 0;
|
|
%client.kills = 0;
|
|
%client.score = 0;
|
|
%client.efficiency = 0.0;
|
|
%client.suicides = 0;
|
|
}
|
|
|
|
function RTSGame::onClientKilled(%game, %clVictim, %clKiller, %damageType, %implement, %damageLoc)
|
|
{
|
|
cancel(%clVictim.player.alertThread);
|
|
DefaultGame::onClientKilled(%game, %clVictim, %clKiller, %damageType, %implement, %damageLoc);
|
|
}
|
|
|
|
function RTSGame::updateKillScores(%game, %clVictim, %clKiller, %damageType, %implement)
|
|
{
|
|
if (%game.testKill(%clVictim, %clKiller)) //verify victim was an enemy
|
|
{
|
|
%game.awardScoreKill(%clKiller);
|
|
messageClient(%clKiller, 'MsgDMKill', "", %clKiller.kills);
|
|
%game.awardScoreDeath(%clVictim);
|
|
}
|
|
else if (%game.testSuicide(%clVictim, %clKiller, %damageType)) //otherwise test for suicide
|
|
%game.awardScoreSuicide(%clVictim);
|
|
|
|
messageClient(%clVictim, 'MsgDMPlayerDies', "", %clVictim.deaths + %clVictim.suicides);
|
|
}
|
|
|
|
function RTSGame::recalcScore(%game, %client)
|
|
{
|
|
%killValue = %client.kills * %game.SCORE_PER_KILL;
|
|
%deathValue = %client.deaths * %game.SCORE_PER_DEATH;
|
|
%suicideValue = %client.suicides * %game.SCORE_PER_SUICIDE;
|
|
|
|
if (%killValue - %deathValue == 0)
|
|
%client.efficiency = %suicideValue;
|
|
else
|
|
%client.efficiency = ((%killValue * %killValue) / (%killValue - %deathValue)) + %suicideValue;
|
|
|
|
%client.score = mFloatLength(%client.efficiency, 1);
|
|
messageClient(%client, 'MsgYourScoreIs', "", %client.score);
|
|
%game.recalcTeamRanks(%client);
|
|
%game.checkScoreLimit(%client);
|
|
}
|
|
|
|
function RTSGame::timeLimitReached(%game)
|
|
{
|
|
logEcho("game over (timelimit)");
|
|
%game.gameOver();
|
|
cycleMissions();
|
|
}
|
|
|
|
function RTSGame::scoreLimitReached(%game)
|
|
{
|
|
logEcho("game over (scorelimit)");
|
|
%game.gameOver();
|
|
cycleMissions();
|
|
}
|
|
|
|
function RTSGame::gameOver(%game)
|
|
{
|
|
//call the default
|
|
DefaultGame::gameOver(%game);
|
|
|
|
messageAll('MsgGameOver', "Match has ended.~wvoice/announcer/ann.gameover.wav" );
|
|
|
|
cancel(%game.timeThread);
|
|
messageAll('MsgClearObjHud', "");
|
|
for(%i = 0; %i < ClientGroup.getCount(); %i ++) {
|
|
%client = ClientGroup.getObject(%i);
|
|
%game.resetScore(%client);
|
|
}
|
|
}
|
|
|
|
function RTSGame::enterMissionArea(%game, %playerData, %player)
|
|
{
|
|
%player.client.outOfBounds = false;
|
|
messageClient(%player.client, 'EnterMissionArea', '\c1You are back in the mission area.');
|
|
logEcho(%player.client.nameBase@" (pl "@%player@"/cl "@%player.client@") entered mission area");
|
|
cancel(%player.alertThread);
|
|
}
|
|
|
|
function RTSGame::leaveMissionArea(%game, %playerData, %player)
|
|
{
|
|
if(%player.getState() $= "Dead")
|
|
return;
|
|
|
|
%player.client.outOfBounds = true;
|
|
messageClient(%player.client, 'LeaveMissionArea', '\c1You have left the mission area. Return or take damage.~wfx/misc/warning_beep.wav');
|
|
logEcho(%player.client.nameBase@" (pl "@%player@"/cl "@%player.client@") left mission area");
|
|
%player.alertThread = %game.schedule(1000, "DMAlertPlayer", 3, %player);
|
|
}
|
|
|
|
function RTSGame::DMAlertPlayer(%game, %count, %player)
|
|
{
|
|
// MES - I commented below line out because it prints a blank line to chat window
|
|
//messageClient(%player.client, 'MsgDMLeftMisAreaWarn', '~wfx/misc/red_alert.wav');
|
|
if(%count > 1)
|
|
%player.alertThread = %game.schedule(1000, "DMAlertPlayer", %count - 1, %player);
|
|
else
|
|
%player.alertThread = %game.schedule(1000, "MissionAreaDamage", %player);
|
|
}
|
|
|
|
function RTSGame::MissionAreaDamage(%game, %player)
|
|
{
|
|
if(%player.getState() !$= "Dead") {
|
|
%player.setDamageFlash(0.1);
|
|
%prevHurt = %player.getDamageLevel();
|
|
%player.setDamageLevel(%prevHurt + 0.05);
|
|
%player.alertThread = %game.schedule(1000, "MissionAreaDamage", %player);
|
|
}
|
|
else
|
|
%game.onClientKilled(%player.client, 0, $DamageType::OutOfBounds);
|
|
}
|
|
|
|
function RTSGame::spawnPlayer( %game, %client, %respawn ) //Players do not spawn at all here.
|
|
{
|
|
if (!%client.iSAIControlled())
|
|
return;
|
|
else
|
|
DefaultGame::spawnPlayer( %game, %client, %respawn );
|
|
}
|
|
|
|
function RTSGame::updateScoreHud(%game, %client, %tag)
|
|
{
|
|
// Clear the header:
|
|
messageClient( %client, 'SetScoreHudHeader', "", "" );
|
|
|
|
// Send the subheader:
|
|
messageClient(%client, 'SetScoreHudSubheader', "", '<tab:15,235,340,415>\tPLAYER\tRATING\tKILLS\tDEATHS');
|
|
|
|
for (%index = 0; %index < $TeamRank[0, count]; %index++)
|
|
{
|
|
//get the client info
|
|
%cl = $TeamRank[0, %index];
|
|
|
|
//get the score
|
|
%clScore = mFloatLength( %cl.efficiency, 1 );
|
|
|
|
%clKills = mFloatLength( %cl.kills, 0 );
|
|
%clDeaths = mFloatLength( %cl.deaths + %cl.suicides, 0 );
|
|
%clStyle = %cl == %client ? "<color:dcdcdc>" : "";
|
|
|
|
//if the client is not an observer, send the message
|
|
if (%client.team != 0)
|
|
{
|
|
messageClient( %client, 'SetLineHud', "", %tag, %index, '%5<tab:20, 450>\t<clip:200>%1</clip><rmargin:280><just:right>%2<rmargin:370><just:right>%3<rmargin:460><just:right>%4',
|
|
%cl.name, %clScore, %clKills, %clDeaths, %clStyle );
|
|
}
|
|
//else for observers, create an anchor around the player name so they can be observed
|
|
else
|
|
{
|
|
messageClient( %client, 'SetLineHud', "", %tag, %index, '%5<tab:20, 450>\t<clip:200><a:gamelink\t%6>%1</a></clip><rmargin:280><just:right>%2<rmargin:370><just:right>%3<rmargin:460><just:right>%4',
|
|
%cl.name, %clScore, %clKills, %clDeaths, %clStyle, %cl );
|
|
}
|
|
}
|
|
|
|
// Tack on the list of observers:
|
|
%observerCount = 0;
|
|
for (%i = 0; %i < ClientGroup.getCount(); %i++)
|
|
{
|
|
%cl = ClientGroup.getObject(%i);
|
|
if (%cl.team == 0)
|
|
%observerCount++;
|
|
}
|
|
|
|
if (%observerCount > 0)
|
|
{
|
|
messageClient( %client, 'SetLineHud', "", %tag, %index, "");
|
|
%index++;
|
|
messageClient(%client, 'SetLineHud', "", %tag, %index, '<tab:10, 310><spush><font:Univers Condensed:22>\tOBSERVERS (%1)<rmargin:260><just:right>TIME<spop>', %observerCount);
|
|
%index++;
|
|
for (%i = 0; %i < ClientGroup.getCount(); %i++)
|
|
{
|
|
%cl = ClientGroup.getObject(%i);
|
|
//if this is an observer
|
|
if (%cl.team == 0)
|
|
{
|
|
%obsTime = getSimTime() - %cl.observerStartTime;
|
|
%obsTimeStr = %game.formatTime(%obsTime, false);
|
|
messageClient( %client, 'SetLineHud', "", %tag, %index, '<tab:20, 310>\t<clip:150>%1</clip><rmargin:260><just:right>%2',
|
|
%cl.name, %obsTimeStr );
|
|
%index++;
|
|
}
|
|
}
|
|
}
|
|
|
|
//clear the rest of Hud so we don't get old lines hanging around...
|
|
messageClient( %client, 'ClearHud', "", %tag, %index );
|
|
}
|
|
|
|
function RTSGame::applyConcussion(%game, %player)
|
|
{
|
|
}
|
|
|
|
|