1 files changed, 354 insertions, 345 deletions

diff --git a/TemplePushing.c4s/Script.c b/TemplePushing.c4s/Script.c
index a37985f..7c0b225 100644
--- a/TemplePushing.c4s/Script.c
+++ b/TemplePushing.c4s/Script.c
@@ -2,217 +2,438 @@
 
 #strict 2
 
-static const MODE_Normal = 0, MODE_ScrollsOnly = 1, MODE_Cancer = 2;
-static const MENU_Landscape = 0, MENU_Mode = 1, MENU_Settings = 2;
+static const MODE_Classic = 0, MODE_SuddenDeath = 1, MODE_Magic = 2, MODE_Apocalyptic = 3;
 
-static setupDone, setupPlayer;
-static gameMode;
-static landscape;
-static deathmatchEnabled, deathmatchKillLimit;
-static relaunches, playerScore, teamScore;
-static g_iSaveSectIndex,szSection;
-static pChooser,iDif;
+static section, mode;
+static numRelaunches;
+static deathmatchEnabled, deathmatchWinScore;
+static playerDeaths, playerScore, teamScore;
+static ambienceEnabled;
+static loadingSection;
+static gameStartMessage, countdown, gameStarted, gameOver;
 
 func Initialize()
 {
-	// Create background sound, fog and rain
-	SoundLevel("Ambiente", 50);
-  for (var i; i < 300; ++i)
-	{
-		CreateParticle("Fog", Random(LandscapeWidth()), Random(LandscapeHeight()) + 500, RandomX(3, 9), 0, RandomX(1000, 1500));
-	}
-  CreateObject(RAIN, 0, 0, NO_OWNER);
+	ShowLobby();
 
-	// Moving brick
-	CreateObject(BRK2, 225, 150, NO_OWNER);
-	CreateObject(BRK2, 985, 150, NO_OWNER);
-	
 	// Initial values
-	deathmatchKillLimit = 20;
-	setupDone = false;
-	setupPlayer = -1;
-	relaunches = CreateArray();
+	deathmatchWinScore = 20;
+	playerDeaths = CreateArray();
 	playerScore = CreateArray();
 	teamScore = CreateArray();
-	
-	// Initialize scoreboard
-	SetScoreboardData(SBRD_Caption, 0, "{{MELE}}");
-	SetScoreboardData(SBRD_Caption, 1, "{{GBLT}}");
-	SetScoreboardData(SBRD_Caption, 2, "{{CXIV}}");
-	DoScoreboardShow(1);
-	
+	countdown = 5;
+
+	// Create setup menu
+	var menu = CreateObject(SPMU, 0, 0, NO_OWNER);
+	menu->LocalN("extinguisherEnabled") = false;
+	menu->LocalN("rotateInJumpEnabled") = true;
+	menu->LocalN("numRelaunches") = 10;
+	menu->LocalN("deathmatchWinScore") = 25;
+	menu->LocalN("ambienceEnabled") = true;
+
 	ScriptGo(true);
 }
 
+func TeamRow(int team) { return 1 + team * 1000; }
+func PlayerRow(int player) { return TeamRow(GetPlayerTeam(player)) + GetPlayerID(player); }
+
 func InitializePlayer(int player)
 {
-	if (!setupDone && setupPlayer == -1)
+	if (LobbyActive()) return;
+
+	var team = GetPlayerTeam(player);
+	playerDeaths[GetPlayerID(player)] = 0;
+	if (team) SetScoreboardData(TeamRow(team), SBRD_Caption, Format("<c %x>%s</c>", GetTeamColor(team), GetTeamName(team)), TeamRow(team));
+	SetScoreboardData(PlayerRow(player), SBRD_Caption, GetTaggedPlayerName(player), PlayerRow(player));
+	UpdateScoreboard(player);
+	SortScoreboard(SBRD_Caption);
+	LaunchClonk(player, GetCrew(player));
+}
+
+func RemovePlayer(int player)
+{
+	if (!LobbyActive())
 	{
-		setupPlayer = player;
-		ShowSetup();
+		// Leaver?
+		var relaunchesLeft = numRelaunches - playerDeaths[GetPlayerID(player)];
+		if (!deathmatchEnabled && relaunchesLeft >= 0 || deathmatchEnabled && !gameOver) SetScoreboardData(PlayerRow(player), 0, "{{SLVR}}");
 	}
+}
 
-	/*if (!iDif && GetCrew(GetPlayerCount() - 1)) InitializePlayer2(0);
-	if (!FindObject(DTHM)) relaunches[player] = 10;*/
+func UpdateScoreboard(int player)
+{
+	if (!GetPlayerID(player)) return;
 
-	UpdateScoreboard();
+	if (!deathmatchEnabled)
+	{
+		var relaunchesLeft = numRelaunches - playerDeaths[GetPlayerID(player)];
+		SetScoreboardData(PlayerRow(player), 0, Format("%d", IIf(relaunchesLeft < 0, "{{SKUL}}", relaunchesLeft)));
+	}
+	else
+	{
+		SetScoreboardData(PlayerRow(player), 0, Format("%d", playerScore[GetPlayerID(player)]));
+		var team = GetPlayerTeam(player);
+		if (team) SetScoreboardData(TeamRow(team), 0, Format("%d", teamScore[team]));
+	}
 }
 
-func RemovePlayer(int player, int team)
+func ShowLobby()
 {
-	playerScore[player] = 0;
-	UpdateScoreboard();
+	LoadScenarioSection("Lobby");
+}
 
-	// Player leaves and is still in setup?
-	if (!setupDone && setupPlayer == player)
+func StartGame(object menu, string message)
+{
+	// Copy settings from menu
+	var sectionID = menu->LocalN("section");
+	mode = menu->LocalN("mode");
+	var extinguisherEnabled = menu->LocalN("extinguisherEnabled");
+	var friendlyPushingEnabled = menu->LocalN("friendlyPushingEnabled");
+	var rotateInJumpEnabled = menu->LocalN("rotateInJumpEnabled");
+	ambienceEnabled = menu->LocalN("ambienceEnabled");
+	numRelaunches = menu->LocalN("numRelaunches");
+	deathmatchEnabled = menu->LocalN("deathmatchEnabled");
+	deathmatchWinScore = menu->LocalN("deathmatchWinScore");
+	menu->RemoveObject();
+
+	// Change scenario section
+	loadingSection = true;
+	//Log("Before LoadScenarioSection()");
+	LoadScenarioSection(DefinitionCall(sectionID, "SectionName"));
+	//Log("After LoadScenarioSection()");
+	loadingSection = false;
+	section = CreateObject(sectionID, 0, 0, NO_OWNER);
+
+	// Create spawnpoints
+	if (mode != MODE_Apocalyptic)
 	{
-		// Try to find any other player to continue setup
-		for (var i = 0; i < GetPlayerCount(); ++i)
+		//Log("Creating spawnpoints");
+		
+		var spawnPointSpawner = CreateObject(SPSR, 0, 0, NO_OWNER);
+		spawnPointSpawner->SetLocations(section->SpawnpointLocations());
+
+		if (mode != MODE_Magic)
 		{
-			setupPlayer = GetPlayerByIndex(i);
-			if (setupPlayer != player)
-			{
-				ShowSetup();
-				return;
-			}
+			spawnPointSpawner->SetDefinitions([[ROCK, 9], [SCRL, 9], [FLNT, 9], [SFLN, 9], [STFN, 4], [EFLN, 4], [FBMP, 4]]);
+			spawnPointSpawner->SetSpawnInterval(750);
+		}
+		else
+		{
+			spawnPointSpawner->SetDefinitions([[SCRL, 14], [GBLT, 1]]);
+			spawnPointSpawner->SetSpawnInterval(1000);
+			spawnPointSpawner->SetSpawnpointGamma(RGB(5, 5, 10), RGB(80, 80, 150), RGB(200, 200, 255));
 		}
+		spawnPointSpawner->CreateSpawnPoints();
 	}
 	
-	// No other players?
-	setupPlayer = -1;
-}
+	// Effects for apocalypse mode
+	if (mode == MODE_Apocalyptic)
+	{
+		AddEffect("CreateTeraFlints", 0, 20, 90);
+		AddEffect("ShakeScreen", 0, 20, 50);
+		AddEffect("Bottom", 0, 20, 2);
+		AddEffect("SkyAdjust", 0, 20, 1);
+	}
 
-func ShowSetup(int menuStage, int selection, bool back)
-{
-	var clonk = GetCrew(setupPlayer);
-	
-	// Clonk already in setup menu?
-	if (clonk->GetMenu()) return;
+	// Create melee goal
+	//Log("Creating melee goal");
+	CreateObject(MELE, 0, 0, NO_OWNER);
 	
-	//int CreateMenu (id idSymbol, object pMenuObject, object pCommandObject, int iExtra, string szCaption, int iExtraData, int iStyle, bool fPermanent, id idMenuID); 
-	//int AddMenuItem (string szCaption, string szCommand, id idItem, object pMenuObject, int iCount, int iParameter, string szInfoCaption, int iExtra, any XPar1, any XPar2);
+	// Create rules
+	//Log("Creating rules");
+	if (extinguisherEnabled) CreateObject(_ETG, 0, 0, NO_OWNER);
+	if (friendlyPushingEnabled) CreateObject(FYPG, 0, 0, NO_OWNER);
+	if (rotateInJumpEnabled) CreateObject(RIJP, 0, 0, NO_OWNER);
 	
-	CreateMenu(ROCK, clonk, 0, C4MN_Extra_None, 0, 0, C4MN_Style_Context);
+	//Log("Creating mode rules");
+	if (mode == MODE_SuddenDeath)
+	{
+		CreateObject(SDDT, 0, 0, NO_OWNER);
+	}
+	else if (mode == MODE_Magic)
+	{
+		CreateObject(MLPG, 0, 0, NO_OWNER);
+	}
+	else if (mode == MODE_Apocalyptic)
+	{
+		CreateObject(APCE, 0, 0, NO_OWNER);
+	}
 	
-	if (menuStage == MENU_Landscape)
+	// Deathmatch?
+	if (deathmatchEnabled)
 	{
-		clonk->AddMenuItem("Default landscape", "ShowSetup(MENU_Mode, 0)", ROCK);
+		//Log("Creating deathmatch rule");
+		CreateObject(DTHM, 0, 0, NO_OWNER);
+		SetScoreboardData(SBRD_Caption, 0, "{{DTHM}}");
+		SetScoreboardData(0, SBRD_Caption, "$WinScore$");
+		SetScoreboardData(0, 0, Format("%d", deathmatchWinScore));
 	}
-	else if (menuStage == MENU_Mode)
+	else
 	{
-		if (!back) landscape = selection;
-		
-		// List modes
+		SetScoreboardData(SBRD_Caption, 0, "{{SKUL}}");
+	}
+
+	// Initialize players
+	//Log("Initializing players");
+	for (var i = 0; i < GetPlayerCount(); ++i)
+	{
+		InitializePlayer(GetPlayerByIndex(i));
+	}
+	
+	//Log("Starting countdown");
+	gameStartMessage = message;
+	ShowCountdown();
+	
+	//Log("StartGame() done");
+}
+
+func ShowCountdown()
+{
+	if (countdown == 0)
+	{
+		gameStartMessage = 0;
+		Message("");
+		Schedule("SetMaxPlayer(0)", 60 * 38);
 		
-		var modes = [
-			["Normal", MODE_Normal],
-			["Scrolls only", MODE_ScrollsOnly],
-			["Cancer", MODE_Cancer]];
-			
-		var itemIndex = 0;
-		for (var mode in modes)
+		// Reenable crew
+		for (var i = 0; i < GetPlayerCount(); ++i)
 		{
-			clonk->AddMenuItem(mode[0], Format("ShowSetup(MENU_Settings, %d)", mode[1]), ROCK);
-			if (mode[1] == gameMode) clonk->SelectMenuItem(itemIndex);
-			++itemIndex;
+			var player = GetPlayerByIndex(i);
+			var clonk = GetCrew(player);
+			if (!clonk) continue; // Happens if player still in team choice menu
+			
+			// Relaunch if clonk does not stand.
+			if (clonk->GetAction() != "Walk")
+			{
+				clonk->Kill();
+				clonk = GetCrew(player);
+			}
+
+			clonk->SetCrewEnabled(true);
+			SelectCrew(player, clonk, true);
+
+			// Make sure all clonks start with equal health
+			clonk->Extinguish();
+			ResetHealth(clonk);
 		}
 		
-		clonk->AddMenuItem("Back", "ShowSetup(MENU_Landscape, 0, true)", ROCK);
+		gameStarted = true;
 	}
-	else if (menuStage == MENU_Settings)
+	else
 	{
-		if (!back) gameMode = selection;
-		clonk->AddMenuItem("Back", "ShowSetup(MENU_Mode, 0, true)", ROCK);
+		Message("@<c ffff00>%d</c>|%s", 0, countdown, gameStartMessage);
+		Schedule("GameCall(\"ShowCountdown\")", 38);
 	}
-}
-
-func Script2()
-{
-	// Reopen setup menu if it was closed (by player or runtime join)
-	if (!setupDone && setupPlayer != -1) ShowSetup();
-	
-	UpdateScoreboard();
 	
-	goto(1);
-	return 1;
+	--countdown;
 }
 
-func OnClonkDeath(object clonk, int killedBy)
+func LobbyActive() { return !section; }
+
+func HandleKill(int killed, int killer)
 {
-	var isDeathmatch = !!FindObject(DTHM);
-	var player = clonk->GetOwner();
-	var team = GetPlayerTeam(player);
-	var teamKill = GetPlayerID(killedBy) == 0 || killedBy == player || team != 0 && team == GetPlayerTeam(killedBy);
+	// Assume suicide if killer cannot be determined
+	if (killer == NO_OWNER) killer = killed;
 
-	// Killed by opponent?
+	var killedEliminated = false;
+	var killedID = GetPlayerID(killed), killerID = GetPlayerID(killer);
+	var killedTeam = GetPlayerTeam(killed), killerTeam = GetPlayerTeam(killer);
+	var teamKill = killer == killed || killedTeam != 0 && killedTeam == killerTeam;
+	
+	++playerDeaths[killedID];
+	
+	// Update kill score
 	if (!teamKill)
 	{
-		++playerScore[killedBy];
-		if (isDeathmatch) CheckDeathmatchKillCount();
+		++playerScore[killerID];
+		if (killerTeam) ++teamScore[killerTeam];
 	}
-	else
+	else // Decrement score on suicide or team kill
 	{
-		// Deathmatch: Decrement score on suicide or team kill.
-		if (isDeathmatch) --playerScore[killedBy];
+		if (playerScore[killerID] > 0)
+		{
+			--playerScore[killerID];
+			if (killerTeam) --teamScore[killerTeam];
+		}
 	}
-	
-	// Update relaunch counter
-	if (!isDeathmatch)
+
+	// Show relaunch message or eliminate player if no relaunches left
+	var relaunchesLeft;
+	if (!deathmatchEnabled)
 	{
-		// No relaunches left?
-		if (relaunches[player] - 1 < 0)
+		relaunchesLeft = numRelaunches - playerDeaths[killedID];
+		if (relaunchesLeft < 0)
 		{
-			EliminatePlayer(player);
-			return;
+			EliminatePlayer(killed);
+			killedEliminated = true;
 		}
-		else
+		else if (relaunchesLeft == 0)
 		{
-			--relaunches[player];
+			PlayerMessage(killed, "$MsgLastRelaunch$");
 		}
+		else if (relaunchesLeft == 1)
+		{
+			PlayerMessage(killed, "$MsgOneRelaunch$");
+		}
+		else // More than one relaunch left
+		{
+			PlayerMessage(killed, "$MsgRelaunch$", 0, relaunchesLeft);
+		}
+	}
+
+	// Check for deathmatch winner
+	if (deathmatchEnabled)
+	{
+		// Teams enabled?
+		if (killerTeam)
+		{
+			// Winner?
+			if (teamScore[killerTeam] >= deathmatchWinScore)
+			{
+				// Eliminate all players of losing teams
+				for (var player in GetPlayers())
+				{
+					if (GetPlayerTeam(player) != killerTeam) EliminatePlayer(player);
+				}
+				gameOver = true;
+				killedEliminated = true;
+			}
+		}
+		else // No teams?
+		{
+			// Winner?
+			if (playerScore[killerID] >= deathmatchWinScore)
+			{
+				// Eliminate all losing players
+				for (var player in GetPlayers())
+				{
+					if (player != killer) EliminatePlayer(player);
+				}
+				gameOver = true;
+				killedEliminated = true;
+			}
+		}
+	}
+	
+	UpdateScoreboard(killed);
+	UpdateScoreboard(killer);
+	
+	return killedEliminated;
+}
+
+func GetPlayers()
+{
+	var players = CreateArray(GetPlayerCount());
+	for (var i = 0; i < GetPlayerCount(); ++i)
+	{
+		players[i] = GetPlayerByIndex(i);
+	}
+	return players;
+}
 
-		// Show relaunch message. Warn player if it was his last relaunch.
-		if (relaunches[player] == 0)
+func OnClonkDeath(object clonk, int killedBy)
+{
+	if (loadingSection) return;
+
+	var player = clonk->GetOwner();
+
+	// Do nothing if Clonk does not belong to a player
+	if (GetPlayerID(player) == 0) return;
+
+	// Handle kill and return if player got eliminated
+	if (gameStarted && HandleKill(player, killedBy)) return;
+
+	// Relaunch
+	if (GetPlayerID(player)) LaunchClonk(player, clonk, true);	
+}
+
+func LaunchClonk(int player, object clonk, bool forceCreate)
+{
+	if (!clonk || forceCreate)
+	{
+		var newClonk = CreateObject(CLNK, 0, 0, player);
+		if (clonk)
 		{
-			PlayerMessage(player, "$MsgLastRelaunch$");
+			newClonk->GrabObjectInfo(clonk);
 		}
 		else
 		{
-			PlayerMessage(player, "$MsgRelaunch$", 0, relaunches[player]);
+			MakeCrewMember(newClonk, player);
 		}
+		clonk = newClonk;
+	}
+
+	ResetHealth(clonk);
+	SelectCrew(player, clonk, true);
+
+	// Move clonk to random position
+
+	var NumCheckPos = 10;
+	var positions = CreateArray(NumCheckPos);
+
+	for (var i = 0; i < NumCheckPos; ++i)
+	{
+		var wipf = PlaceAnimal(WIPF);
+		positions[i] = IIf(wipf, [wipf->GetX(), wipf->GetY()], [LandscapeWidth() / 2, LandscapeHeight() / 2]);
+		if (wipf) wipf->RemoveObject();
 	}
 
-	// Create new clonk at random position
-	var positions = [[168, 120], [301, 150], [914, 150], [1050, 120]];
-	var position = positions[Random(GetLength(positions))];
-	var newclonk = CreateObject(CLNK, position[0], position[1], player);
-	newclonk->GrabObjectInfo(clonk);
+	// Prevent spawning too close to an enemy
 
-	// Armageddon?
-	if (FindObject(FRRN)) 
+	var bestPosition = positions[0], bestDistance = 0;
+	for (var pos in positions)
 	{
-		AddEffect("DoTerra", newclonk, 200, 50);
-		AddEffect("Bottom", newclonk, 200, 2);
+		var closestHostileClonk = FindObject2(Find_OCF(OCF_CrewMember | OCF_Alive), Find_Hostile(player), Sort_Distance(pos[0], pos[1]));
+		if (!closestHostileClonk) break;
+		var distance = Distance(pos[0], pos[1], closestHostileClonk->GetX(), closestHostileClonk->GetY());
+		if (distance > bestDistance)
+		{
+			bestPosition = pos;
+			bestDistance = distance;
+		}
 	}
 
-	SelectCrew(player, newclonk, true);
+	clonk->SetPosition(bestPosition[0], bestPosition[1]);
+	
+	// Still in countdown?
+	if (!LobbyActive() && !gameStarted)
+	{
+		clonk->SetCrewEnabled(false);
+	}
+	
+	// No corpses in apocalopyse mode
+	if (mode == MODE_Apocalyptic) clonk->LocalN("removeOnDeath") = true;
+	
+	if (FindObject(RIJP)) clonk->LocalN("rotateInJump") = true;
+	
+	SetPlrView(player, clonk);
 }
 
-func CheckDeathmatchKillCount()
+func ResetHealth(object clonk)
 {
-	var gameOver = false;
+	if (mode == MODE_SuddenDeath)
+	{
+		clonk->DoEnergy(1 - clonk->GetEnergy());
+	}
+	else
+	{
+		clonk->DoEnergy(100);
+	}
+}
 
+func CheckDeathmatchKillCount()
+{
 	if (GetTeamCount() == 0)
 	{
-		var winner = -1;
-		
+		var winner = NO_OWNER;
+
 		// Check if a player has reached the kill limit
 		for (var i = 0; i < GetPlayerCount(); ++i)
 		{
 			var plr = GetPlayerByIndex(i);
-			if (playerScore[plr] >= deathmatchKillLimit)
+			if (playerScore[plr] >= deathmatchWinScore)
 			{
 				winner = plr;
-				gameOver = true;
 				break;
 			}
 		}
@@ -236,10 +457,9 @@ func CheckDeathmatchKillCount()
 		{
 			var plr = GetPlayerByIndex(i), team = GetPlayerTeam(plr);
 			teamScore[team] += playerScore[plr];
-			if (teamScore >= deathmatchKillLimit)
+			if (teamScore >= deathmatchWinScore)
 			{
 				winnerTeam = team;
-				gameOver = true;
 				break;
 			}
 		}
@@ -254,215 +474,4 @@ func CheckDeathmatchKillCount()
 			}
 		}
 	}
-	
-	UpdateScoreboard();
-	
-	if (gameOver) GameOver(2014);
-}
-
-func UpdateScoreboard()
-{
-	for (var plr; plr < GetPlayerCount(); ++plr)
-	{
-		SortScoreboard(0, true);
-		plr = GetPlayerByIndex(plr);
-		SetScoreboardData(plr, 0, GetTaggedPlayerName(plr), relaunches[plr]);
-		SetScoreboardData(plr, 2, Format("%d", playerScore[plr]));
-		if (relaunches[plr] < 0)
-		{
-			SetScoreboardData(plr, 1, Format("<c c80000>%s</c>", "$Death$"));
-		}
-		else if (relaunches[plr] <= 1)
-		{
-			SetScoreboardData(plr, 1, Format("<c c80000>%d</c>", relaunches[plr]));
-		}
-		else
-		{
-			SetScoreboardData(plr, 1, Format("%d", relaunches[plr]));
-		}
-	}
-}
-
-/*-----------------------Spielmodi-----------------------*/
-
-//Auswahl
-func InitializePlayer2(iPlr)
-{
-  pChooser=GetHiRank(iPlr);
-  CreateMenu(EFLN,pChooser,0,0,0,0,1);
-  AddMenuItem("$Mode1$","SetDif",ROCK,pChooser,0,1);
-  AddMenuItem("$Mode2$","SetDif",FLRN,pChooser,0,2);
-  AddMenuItem("$Mode3$","SetDif",SMGC,pChooser,0,3);
-  AddMenuItem("$Mode4$","SetDif",FXV1,pChooser,0,4);
-  AddMenuItem("$Random$","SetDif",RMMG,pChooser,0,RandomX(1,4));
-  return(1);
-}
-
-func SetDif(dummy,i)
-{
- if (i == 1) Message("$Mode1$");
- if (i == 2) Message("$Mode2$");
- if (i == 3) Message("$Mode3$");
- if (i == 4) Message("$Mode4$");
- 
- if (i==1) CreateObject(SPWN);
- if (i==2) 
-  {
-   Schedule("ChangeSection(\"SuddenDeath\")",10);
-   Message("$Load$");
-  }
- if (i==3) 
- {
- CreateObject(MSPW);
- SetGamma(RGB(5,5,10),RGB(80,80,150),RGB(200,200,255));
- }
- if (i==4) UltimateExtreme();
-return(1);
-}
-
-func UltimateExtreme()
-{
- RemoveAll(SPNP);
- RemoveAll(MSPN);
- RemoveObject(FindObject(SPWN));
- CastObjects(RCKF,10);
- CreateObject(FRRN);
- MusicLevel(0);
- SoundLevel("ExtremeAmbiente",100);
- SoundLevel("Ambiente",0);
- for (var Plr;Plr < GetPlayerCount();Plr ++)
-  {
-  relaunches[Plr] = 5;
-  AddEffect("DoTerra",GetHiRank(Plr),200,50);
-  AddEffect("Bottom",GetHiRank(Plr),200,2);
-   } 
- var brick;
- for (var i;i<ObjectCount(BRK2);i++)
-  if (brick = FindObject(BRK2,0,0,0,0,0,0,0,0,brick))
- SetClrModulation(RGB(220,20,20),brick);
- AddEffect("War",0,200,1);
- SetMaterialColor(Material("Brick"),100,0,0,150,0,0,20,0,0);
- SetGameSpeed(50);
- return(1);
-}
-
-/*----------------Landschaftstausch-------------------*/
-func ChangeSection()
-{
- for (var i;i<GetPlayerCount();i++)
-  SaveSectObj(GetHiRank(i));
- LoadScenarioSection("SuddenDeath");
- return(RestoreSectObjs());
-}
-
-global func RestoreSectObjs()
-  {
-  var obj,X,Y;
-  for (var i= 20;i>0;i--)
-    {
-     CreateObject(BRK2,i*90,0);
-     CreateObject(SPNP,Random(LandscapeWidth()),Random(LandscapeHeight()+500));
-    }
-  CastObjects(CANN,RandomX(10,20),Random(150),LandscapeWidth()/2);
-  CreateObject(RAIN);
-  CreateObject(FLRN);
-  CreateObject(MELE);
-  // Alles gespeicherte wieder herstellen
-  if (g_iSaveSectIndex)
-    while (g_iSaveSectIndex--)
-      if (obj=Global(20+g_iSaveSectIndex))
-        { obj->SetObjectStatus(1); Global(20+g_iSaveSectIndex)=0; }
-  g_iSaveSectIndex=0;
-  for (var iPlr;iPlr<GetPlayerCount();iPlr++)
-   {  
-    while (!GBackSolid(X,Y) || !GBackSolid(X-1,Y))
-    {
-     if (Y == LandscapeHeight())
-    {
-     Y = 0;
-     X ++;
-    }
-   Y ++;
-   }
-   SetPosition(X,0,GetHiRank(iPlr));
- }
- }
-
-global func SaveSectObj(object obj)
-{
-	// No object?
-	if (!obj) return;
-
-	// Object already processed? (Avoid infinite recursion)
-	var pTest, i;
-	while (pTest = Global(20 + i++))
-	{
-		if (pTest == obj) return;
-	}
-	
-	// Save contents
-	var contentsCount = obj->ContentsCount();
-	for (var i = 0; i < contentsCount; ++i)
-	{
-		SaveSectObj(obj->Contents(i));
-	}
-
-	// Save object
-	Global(20 + g_iSaveSectIndex++) = obj;
-	obj->SetObjectStatus(C4OS_INACTIVE);
-}
-
-/*-------------- Effects -----------------*/
-
-global func FxDoTerraTimer(object target)
-{
-	if (target->ContentsCount() < 3) target->CreateContents(EFLN);
-	ShakeViewPort(10);
-	return 1;
-}
-
-global func FxBottomTimer(object target)
-{
-	if (target->GetY() >= LandscapeHeight() - 20) target->SetPosition(target->GetX() + RandomX(-10, 10), 0);
-	return 1;
-}
-
-global func FxWarStart(object target, int effectNumber)
-{
-	EffectVar(0, 0, effectNumber) = 255;
-	EffectVar(1, 0, effectNumber) = 1;
-	return 1;
-}
-
-global func FxWarTimer(object target, int effectNumber)
-{
-	// Remove corpses
-	for (var obj in FindObjects(Find_OCF(OCF_CrewMember), Find_Not(Find_OCF(OCF_Alive))))
-	{
-		obj->RemoveObject();
-	}
-
-	if (EffectVar(1, 0, effectNumber) == 1)
-	{
-		--EffectVar(0, 0, effectNumber);
-	}
-	else
-	{
-		++EffectVar(0, 0, effectNumber);
-	}
-
-	if (EffectVar(0, 0, effectNumber) < 0)
-	{
-		EffectVar(1, 0, effectNumber) = 0;
-	}
-	else if (EffectVar(0, 0, effectNumber) > 255)
-	{
-		EffectVar(1, 0, effectNumber) = 1;
-	}
-
-	var color = EffectVar(0, 0, effectNumber);
-	SetSkyAdjust(RGB(255, color / 2, color / 4), RGB(128, color / 2, color / 4));
-	SetGamma(RGB(2, 0, 0), RGB(128, color / 2, color / 4), RGB(180, color /2 , color / 4));
-
-	return 1;
 }
\ No newline at end of file