Removed -classic suffix

mods/ra/maps/allies-02/allies02.lua

@@ -0,0 +1,134 @@
+ConstructionVehicleReinforcements = { "mcv" }
+ConstructionVehiclePath = { ReinforcementsEntryPoint.Location, DeployPoint.Location }
+
+JeepReinforcements = { "e1", "e1", "e1", "jeep" }
+JeepPath = { ReinforcementsEntryPoint.Location, ReinforcementsRallyPoint.Location }
+
+TruckReinforcements = { "truk", "truk", "truk" }
+TruckPath = { TruckEntryPoint.Location, TruckRallyPoint.Location }
+
+SendConstructionVehicleReinforcements = function()
+	local mcv = Reinforcements.Reinforce(player, ConstructionVehicleReinforcements, ConstructionVehiclePath)[1]
+end
+
+SendJeepReinforcements = function()
+	Media.PlaySpeechNotification(player, "ReinforcementsArrived")
+	Reinforcements.Reinforce(player, JeepReinforcements, JeepPath, DateTime.Seconds(1))
+end
+
+RunInitialActivities = function()
+	Harvester.FindResources()
+end
+
+MissionAccomplished = function()
+	Media.PlaySpeechNotification(player, "Win")
+	Trigger.AfterDelay(DateTime.Seconds(1), function()
+		Media.PlayMovieFullscreen("montpass.vqa")
+	end)
+end
+
+MissionFailed = function()
+	Media.PlaySpeechNotification(player, "Lose")
+	Trigger.AfterDelay(DateTime.Seconds(1), function()
+		Media.PlayMovieFullscreen("frozen.vqa")
+	end)
+end
+
+Tick = function()
+	ussr.Resources = ussr.Resources - (0.01 * ussr.ResourceCapacity / 25)
+
+	if ukraine.HasNoRequiredUnits() then
+		SendTrucks()
+		player.MarkCompletedObjective(ConquestObjective)
+	end
+
+	if player.HasNoRequiredUnits() then
+		player.MarkFailedObjective(ConquestObjective)
+	end
+end
+
+ConvoyOnSite = false
+SendTrucks = function()
+	if not ConvoyOnSite then
+		ConvoyOnSite = true
+		ConvoyObjective = player.AddPrimaryObjective("Escort the convoy")
+		Media.PlaySpeechNotification(player, "ConvoyApproaching")
+		Trigger.AfterDelay(DateTime.Seconds(3), function()
+			ConvoyUnharmed = true
+			local trucks = Reinforcements.Reinforce(france, TruckReinforcements, TruckPath, DateTime.Seconds(1),
+				function(truck)
+					Trigger.OnIdle(truck, function() truck.Move(TruckExitPoint.Location) end)
+				end)
+			count = 0
+			Trigger.OnEnteredFootprint( { TruckExitPoint.Location }, function(a, id)
+				if a.Owner == france then
+					count = count + 1
+					a.Destroy()
+					if count == 3 then
+						player.MarkCompletedObjective(ConvoyObjective)
+						Trigger.RemoveFootprintTrigger(id)
+					end
+				end
+			end)
+			Trigger.OnAnyKilled(trucks, ConvoyCasualites)
+		end)
+	end
+end
+
+ConvoyCasualites = function()
+	Media.PlaySpeechNotification(player, "ConvoyUnitLost")
+	if ConvoyUnharmed then
+		ConvoyUnharmed = false
+		Trigger.AfterDelay(DateTime.Seconds(1), function() player.MarkFailedObjective(ConvoyObjective) end)
+	end
+end
+
+ConvoyTimer = function(delay, notification)
+	Trigger.AfterDelay(delay, function()
+		if not ConvoyOnSite then
+			Media.PlaySpeechNotification(player, notification)
+		end
+	end)
+end
+
+WorldLoaded = function()
+	player = Player.GetPlayer("Greece")
+	france = Player.GetPlayer("France")
+	ussr = Player.GetPlayer("USSR")
+	ukraine = Player.GetPlayer("Ukraine")
+
+	Trigger.OnObjectiveAdded(player, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "New " .. string.lower(p.GetObjectiveType(id)) .. " objective")
+	end)
+	Trigger.OnObjectiveCompleted(player, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "Objective completed")
+	end)
+	Trigger.OnObjectiveFailed(player, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "Objective failed")
+	end)
+	Trigger.OnPlayerLost(player, MissionFailed)
+	Trigger.OnPlayerWon(player, MissionAccomplished)
+
+	ConquestObjective = player.AddPrimaryObjective("Secure the area.")
+	ussr.AddPrimaryObjective("Defend your base.")
+	ukraine.AddPrimaryObjective("Destroy the convoy.")
+
+	RunInitialActivities()
+
+	SendConstructionVehicleReinforcements()
+	Trigger.AfterDelay(DateTime.Seconds(5), SendJeepReinforcements)
+	Trigger.AfterDelay(DateTime.Seconds(10), SendJeepReinforcements)
+
+	Trigger.AfterDelay(DateTime.Minutes(10), SendTrucks)
+
+	Camera.Position = ReinforcementsEntryPoint.CenterPosition
+
+	Media.PlayMovieFullscreen("mcv.vqa")
+
+	ConvoyTimer(DateTime.Seconds(3), "TenMinutesRemaining")
+	ConvoyTimer(DateTime.Minutes(5), "WarningFiveMinutesRemaining")
+	ConvoyTimer(DateTime.Minutes(6), "WarningFourMinutesRemaining")
+	ConvoyTimer(DateTime.Minutes(7), "WarningThreeMinutesRemaining")
+	ConvoyTimer(DateTime.Minutes(8), "WarningTwoMinutesRemaining")
+	ConvoyTimer(DateTime.Minutes(9), "WarningOneMinuteRemaining")
+end