Added soviet04a and soviet04b

2015-07-27 18:10:09 +02:00
parent a3eac88e36
commit 7c14f54ca3
14 changed files with 2227 additions and 5 deletions
--- a/mods/ra/maps/soviet-04b/main.lua
+++ b/mods/ra/maps/soviet-04b/main.lua
@@ -0,0 +1,141 @@
+
+RunInitialActivities = function()
+	Harvester.FindResources()
+	Helper.Destroy()
+	IdlingUnits()
+	Trigger.AfterDelay(DateTime.Seconds(1), function()
+		BringPatrol1()
+		Trigger.AfterDelay(DateTime.Seconds(5), function()
+			BringPatrol2()
+		end)
+		BuildBase()
+	end)
+
+	Utils.Do(Map.NamedActors, function(actor)
+		if actor.Owner == Greece and actor.HasProperty("StartBuildingRepairs") then
+			Trigger.OnDamaged(actor, function(building)
+				if building.Owner == Greece and building.Health < 3/4 * building.MaxHealth then
+					building.StartBuildingRepairs()
+				end
+			end)
+		end
+	end)
+
+	Trigger.OnKilled(Powr, function(building)
+		BaseBuildings[1][4] = false
+	end)
+
+	Trigger.OnKilled(Barr, function(building)
+		BaseBuildings[2][4] = false
+	end)
+
+	Trigger.OnKilled(Proc, function(building)
+		BaseBuildings[3][4] = false
+	end)
+
+	Trigger.OnKilled(Weap, function(building)
+		BaseBuildings[4][4] = false
+	end)
+
+	Trigger.OnEnteredFootprint(VillageCamArea, function(actor, id)
+		if actor.Owner == player then
+			local camera = Actor.Create("camera", true, { Owner = player, Location = VillagePoint.Location })
+			Trigger.RemoveFootprintTrigger(id)
+			Trigger.OnAllKilled(Village, function()
+				camera.Destroy()
+			end)
+		end
+	end)
+
+	Trigger.OnAnyKilled(Civs, function()
+		Trigger.ClearAll(civ1)
+		Trigger.ClearAll(civ2)
+		Trigger.ClearAll(civ3)
+		Trigger.ClearAll(civ4)
+		local units = Reinforcements.Reinforce(Greece, Avengers, { NRoadPoint.Location }, 0)
+		Utils.Do(units, function(unit)
+			unit.Hunt()
+		end)
+	end)
+
+	Trigger.AfterDelay(DateTime.Minutes(1), ProduceInfantry)
+	Trigger.AfterDelay(DateTime.Minutes(2), ProduceArmor)
+
+	if Map.Difficulty == "Hard" or Map.Difficulty == "Medium" then
+		Trigger.AfterDelay(DateTime.Seconds(5), ReinfInf)
+	end
+	Trigger.AfterDelay(DateTime.Minutes(1), ReinfInf)
+	Trigger.AfterDelay(DateTime.Minutes(3), ReinfInf)
+	Trigger.AfterDelay(DateTime.Minutes(2), ReinfArmor)
+end
+
+Tick = function()
+	if Greece.HasNoRequiredUnits() then
+		player.MarkCompletedObjective(KillAll)
+		player.MarkCompletedObjective(KillRadar)
+	end
+
+	if player.HasNoRequiredUnits() then
+		Greece.MarkCompletedObjective(BeatUSSR)
+	end
+
+	if Greece.Resources >= Greece.ResourceCapacity * 0.75 then
+		Greece.Cash = Greece.Cash + Greece.Resources - Greece.ResourceCapacity * 0.25
+		Greece.Resources = Greece.ResourceCapacity * 0.25
+	end
+
+	if RCheck then
+		RCheck = false
+		if Map.Difficulty == "Hard" then
+			Trigger.AfterDelay(DateTime.Seconds(150), ReinfArmor)
+		elseif Map.Difficulty == "Medium" then
+			Trigger.AfterDelay(DateTime.Minutes(5), ReinfArmor)
+		else
+			Trigger.AfterDelay(DateTime.Minutes(8), ReinfArmor)
+		end
+	end
+end
+
+WorldLoaded = function()
+	player = Player.GetPlayer("USSR")
+	Greece = Player.GetPlayer("Greece")
+
+	RunInitialActivities()
+
+	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)
+
+	KillAll = player.AddPrimaryObjective("Defeat the Allied forces.")
+	BeatUSSR = Greece.AddPrimaryObjective("Defeat the Soviet forces.")
+	KillRadar = player.AddSecondaryObjective("Destroy Allied Radar Dome to stop enemy\nreinforcements.")
+
+	Trigger.OnPlayerLost(player, function()
+		Media.PlaySpeechNotification(player, "Lose")
+	end)
+
+	Trigger.OnPlayerWon(player, function()
+		Media.PlaySpeechNotification(player, "Win")
+	end)
+
+	Trigger.OnKilled(Radar, function()
+		player.MarkCompletedObjective(KillRadar)
+		Media.PlaySpeechNotification(player, "ObjectiveMet")
+	end)
+
+	Trigger.OnDamaged(Harvester, function()
+		Utils.Do(Guards, function(unit)
+			if not unit.IsDead and not Harvester.IsDead then
+				unit.AttackMove(Harvester.Location)
+			end
+		end)
+	end)
+
+	Camera.Position = StartCamPoint.CenterPosition
+end