mirror of
https://github.com/Ragora/T2-BoL.git
synced 2026-03-06 05:50:20 +00:00
Removed RTS coding
This commit is contained in:
Robert MacGregor
parent
d6f9df039c
commit
d779bb84e8
3 changed files with 0 additions and 1678 deletions
File diff suppressed because it is too large
Load diff
|
|
@ -1,391 +0,0 @@
|
|||
// --------------------------------------------------------
|
||||
// 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)
|
||||
{
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -1,27 +0,0 @@
|
|||
function RTSGame::AIInit(%game)
|
||||
{
|
||||
//call the default AIInit() function
|
||||
AIInit();
|
||||
}
|
||||
|
||||
function RTSGame::onAIRespawn(%game, %client)
|
||||
{
|
||||
//add the default task
|
||||
if (! %client.defaultTasksAdded)
|
||||
{
|
||||
%client.defaultTasksAdded = true;
|
||||
%client.addTask(AIEngageTask);
|
||||
%client.addTask(AIPickupItemTask);
|
||||
// %client.addTask(AIUseInventoryTask); They spawn with the stuff they need
|
||||
%client.addTask(AITauntCorpseTask);
|
||||
%client.addTask(AIEngageTurretTask);
|
||||
%client.addtask(AIDetectMineTask);
|
||||
// %client.addTask(AIPatrolTask); They don't move unless told to
|
||||
}
|
||||
|
||||
//set the inv flag
|
||||
%client.spawnUseInv = true;
|
||||
}
|
||||
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue