Tribes 1 Legendz

Code: Select all

	instant Trigger "GroupTrigger" {
		dataBlock = "GroupTrigger";
		name = "CaptureTrigger";	// "function <name>::onEnter(%this, %object)", "function <name>::onTrigger(%this, %object)", "function <name>::onLeave(%this, %object)"
		position = "0 0 20";
		rotation = "0 0 0";
		boundingBox = "-1 -1 -1 1 1 1";
		isSphere = "False";
	};
};
//--- export object end ---//
$teamScoreLimit = 12;
exec(objectives);
$Game::missionType = "CTF";
$cdTrack = 2;
$cdPlayMode = 1;

function CaptureTrigger::onEnter(%this, %object)
{
	messageAll(0, "CaptureTrigger works!");
}

Code: Select all

function CaptureTrigger::onTrigger(%this, %object)
{
	%max = getNumTeams();
	%team = GameBase::getTeam(%object);
	schedule(sprintf("if($pwns[%1, %3]-- < "@ $pwns[%this, %team]++ @") CaptureTrigger::onLeave(%1, %2);", %this, %object, %team), 0.5);	// ++ now, -- later. Interval must be greater than 1/3 seconds.
	for(%i = 0; %i < %max; %i++)
		%pwnt += ($pwns[%this, %i] < $pwns[%this, %team]);	// count the teams that have less pwnage.
	if(%pwnt == %max - 1)	// if all others are pwnt, declare a winner!
	{
		echo($Server::teamName[%team] @" pwns "@ %this @".");
	}
}

Code: Select all

function CaptureTrigger::onEnter(%this, %object)
{
	messageAll(0, "CaptureTrigger::onEnter("@ %this @", "@ %object @");");
}

function CaptureTrigger::onTrigger(%this, %object)
{
	messageAll(0, "CaptureTrigger::onTrigger("@ %this @", "@ %object @");");
}

function CaptureTrigger::onLeave(%this, %object)
{
	messageAll(0, "CaptureTrigger::onLeave("@ %this @", "@ %object @");");
}

Code: Select all

function capture::post(%this, %player)

schedule("Capturing::Post("@ %this @", "@ %player @");", 0.01);

Code: Select all

Group::iterateRecursive(getGroup(%this), Gamebase::setTeam, Gamebase::getTeam(%object));

Code: Select all

 instant trigger "Zone A" {
    name = "CapturePost";
    Etc...
}

Code: Select all

 instant SIMgroup "Zone A" {
    Instant trigger "anything" {
        Name = "CapturePost";
        Etc...
    }
}

Code: Select all

// Adds this to set if no obstructions are nearby.
function DropPointMarker::pickRandomSpawn(%this, %set)
{
	%tmp = newObject("Obstructions", SimSet);
	if(!containerBoxFillSet(%tmp, $SimPlayerObjectType | $MineObjectType | $StaticObjectType, GameBase::getPosition(%this), 2, 2, 2, 0))
		addToSet(%set, %this);
	deleteObject(%tmp);
}

// If the tower switch is on the right team, runs DropPointMarker::pickRandomSpawn for each DropPointMarker in the TowerSwitch's group.
function TowerSwitch::getSpawns(%this, %team, %set)
{
	if(GameBase::getTeam(%this) == %team)
		Group::iterateRecursive(getGroup(%this), GameBase::virtual, "pickRandomSpawn", %set);
}

// Runs TowerSwitch::getSpawns for every TowerSwitch in the mission.
function Game::pickRandomSpawn(%team)
{
	%tmp = newObject("Random", SimSet);
	Group::iterateRecursive(MissionGroup, GameBase::virtual, "getSpawns", %team, %tmp);
	return Group::getObject(%tmp, floor(getRandom() * Group::objectCount(%tmp)));
	deleteObject(%tmp);
}

// Modified to prevent picking a random spawn when there are no start spawns.
function Game::pickTeamSpawn(%team, %respawn)
{
	return getWord(Game::pickStartSpawn(%team) @" "@ Game::pickRandomSpawn(%team), %respawn);
}

// Modified to prevent spawning when no valid spawn points are found.
function Game::playerSpawn(%clientId, %respawn)
{
	if(!$ghosting)
		return false;
	
	Client::clearItemShopping(%clientId);
	%spawnMarker = Game::pickPlayerSpawn(%clientId, %respawn);
	
	%clientId.guiLock = "";
	%clientId.dead = "";
	if(%spawnMarker == -1)
	{
// 		%spawnPos = "0 0 300";
// 		%spawnRot = "0 0 0";
		BottomPrint(%clientId, "<jc>No available spawn points.\nTry again later.", 2);
		return;
	}
	else
	{
		%spawnPos = GameBase::getPosition(%spawnMarker);
		// make sure the player doesnt end up with goofy rotation and screw up deploying items.. -plasmatic
		%spawnRot = "0 0 "@ getword(GameBase::getRotation(%spawnMarker),2);
	}
	//plasmatic 3.0
	if($build)
	{
		$DefaultArmor[Male] = armormBuilder;
		$DefaultArmor[Female] = armorfBuilder;	
	}
	else
	{
		$DefaultArmor[Male] = armormWarrior;
		$DefaultArmor[Female] = armorfWarrior;			
	}
	%armor = $DefaultArmor[Client::getGender(%clientId)];
	
	%pl = spawnPlayer(%armor, %spawnPos, %spawnRot);
	echo("SPAWN: "@ Client::getName(%clientID)@ " cl:" @ %clientId @ " pl:" @ %pl @ " marker:" @ %spawnMarker @ " armor:" @ %armor @" rot: "@gamebase::getrotation(%pl));
	%pl.cloakable = true;	//for base cloaker -plasmatic
	
	%clientId.observerMode = "";
	%pl.teled = "";	// for teleporter 2.2 model -plasmatic
	%clientId.ConnectBeam = "";	//for zappy invs -plasmatic
	%clientId.InvTargetable = "";	//zap!
	%ClientId.InvConnect = "";	//Zap!
	
	if(%pl != -1)
	{
		//Client::clearItemShopping(%clientId);
		GameBase::setTeam(%pl, Client::getTeam(%clientId));
		Client::setOwnedObject(%clientId, %pl);
		Game::playerSpawned(%pl, %clientId, %armor, %respawn);
		%pl.cloakable = true;
		$jailed[%pl] = "";
		$released[%pl] = "";
		if($matchStarted)
		{
			Client::setControlObject(%clientId, %pl);
			%clientId.droid=false;
		}
		else
		{
			%clientId.observerMode = "pregame";
			Client::setControlObject(%clientId, Client::getObserverCamera(%clientId));
			Observer::setOrbitObject(%clientId, %pl, 3, 3, 3);
		}
		//==================  respawn Invulnerable -plasmatic
		$respawnInvulnerableTime = 10;
		if(%respawn)	
		{
			$respawnInvulnerableTime = 5;
			if($siegeFlag)	Siege::waypointClient(%clientId);
		}
		%damage = %armor.maxDamage - 0.001;
		GameBase::setEnergy(%pl, %armor.maxEnergy);	///2);
		GameBase::setAutoRepairRate(%pl, %damage / $respawnInvulnerableTime);
		%pl.invulnerable = true;
		%pl.cloakable = true;	//fer base cloaker -plasmatic
		$jailed[%pl] = "";	//just to be certain for jail..
		$released[%pl] = "";
		
		incInvulnerable(%pl, 0);
		%weapon = Player::getMountedItem(%pl,$WeaponSlot);
		if(%weapon != -1) 
		{
			%pl.lastWeapon = %weapon;
			Player::unMountItem(%pl,$WeaponSlot);
		}
		if(!%respawn)
		{
			// initial drop
			if($siegeFlag)
			{
				schedule("Client::sendMessage("@%clientId@", 0, \"Welcome to Siege! Capture or hold the switch to complete the mission.\");",5);
				schedule("Siege::InitialwaypointClient("@%clientId@");",5);
			}
// 			if(%clientId.SpecialMessage == true)
// 				CustomMessage(%clientId);
// 			ModSettingsInfo(%clientId, true);
			//echo("join team "@Client::getTeam(%clientId)@" old team = "@%clientId.lastteam);
			if(%clientId.LastTeam != -1 && %clientId.LastTeam != Client::getTeam(%clientId))
			{
				if($annihilation::DisableTurretsOnTeamChange)
				Turret::DisableClients(%clientId);	
			}
			
			%clientId.LastTeam = Client::getTeam(%clientId);
		}  
		
	}
	return true;
}