Add Counterstrike mission Sarin Gas 3: Controlled Burn

mods/ra/maps/sarin-gas-3-controlled-burn/controlledburn-AI.lua

@@ -0,0 +1,152 @@
+--[[
+   Copyright 2007-2020 The OpenRA Developers (see AUTHORS)
+   This file is part of OpenRA, which is free software. It is made
+   available to you under the terms of the GNU General Public License
+   as published by the Free Software Foundation, either version 3 of
+   the License, or (at your option) any later version. For more
+   information, see COPYING.
+]]
+AttackGroup = { }
+AttackGroupSize = 10
+BGAttackGroup = { }
+BGAttackGroupSize = 8
+SovietInfantry = { "e1", "e2", "e4" }
+SovietVehicles = { "3tnk", "3tnk", "v2rl" }
+SovietAircraftType = { "mig", "yak" }
+Planes = { }
+
+ProductionInterval =
+{
+	easy = DateTime.Seconds(30),
+	normal = DateTime.Seconds(20),
+	hard = DateTime.Seconds(10)
+}
+
+SendBGAttackGroup = function()
+	if #BGAttackGroup < BGAttackGroupSize then
+		return
+	end
+
+	Utils.Do(BGAttackGroup, function(unit)
+		if not unit.IsDead then
+			IdleHunt(unit)
+		end
+	end)
+
+	BGAttackGroup = { }
+end
+
+ProduceBadGuyInfantry = function()
+	if BadGuyRax.IsDead or BadGuyRax.Owner ~= BadGuy then
+		return
+	end
+
+	BadGuy.Build({ Utils.Random(SovietInfantry) }, function(units)
+		table.insert(BGAttackGroup, units[1])
+		SendBGAttackGroup()
+		Trigger.AfterDelay(ProductionInterval[Map.LobbyOption("difficulty")], ProduceBadGuyInfantry)
+	end)
+end
+
+SendAttackGroup = function()
+	if #AttackGroup < AttackGroupSize then
+		return
+	end
+
+	Utils.Do(AttackGroup, function(unit)
+		if not unit.IsDead then
+			IdleHunt(unit)
+		end
+	end)
+
+	AttackGroup = { }
+end
+
+ProduceUSSRInfantry = function()
+	if (USSRRax1.IsDead or USSRRax1.Owner ~= USSR) and (USSRRax2.IsDead or USSRRax2.Owner ~= USSR) then
+		return
+	end
+
+	USSR.Build({ Utils.Random(SovietInfantry) }, function(units)
+		table.insert(AttackGroup, units[1])
+		SendAttackGroup()
+		Trigger.AfterDelay(ProductionInterval[Map.LobbyOption("difficulty")], ProduceUSSRInfantry)
+	end)
+end
+
+ProduceVehicles = function()
+	if USSRWarFactory.IsDead or USSRWarFactory.Owner ~= USSR then
+		return
+	end
+
+	USSR.Build({ Utils.Random(SovietVehicles) }, function(units)
+		table.insert(AttackGroup, units[1])
+		SendAttackGroup()
+		Trigger.AfterDelay(ProductionInterval[Map.LobbyOption("difficulty")], ProduceVehicles)
+	end)
+end
+
+GroundAttackUnits = { {"4tnk", "3tnk", "e2", "e2", "e2", "e2" }, { "3tnk", "3tnk", "v2rl", "e4", "e4", "e4" }, {"ttnk", "ttnk", "ttnk", "shok", "shok", "shok" } }
+
+GroundAttackPaths = 
+{ 
+	{ SovietGroundEntry1.Location },
+	{ SovietGroundEntry2.Location },
+	{ SovietGroundEntry3.Location }
+}
+GroundWavesDelays =
+{
+	easy = 4,
+	normal = 3,
+	hard = 2
+}
+
+GroundWaves = function()
+	if not ForwardCommand.IsDead then
+		local path = Utils.Random(GroundAttackPaths)
+		local units = Reinforcements.Reinforce(BadGuy, Utils.Random(GroundAttackUnits), path)
+		Utils.Do(units, IdleHunt)
+
+		Trigger.AfterDelay(DateTime.Minutes(GroundWavesDelays), GroundWaves)
+	end
+end
+
+ProduceAircraft = function()
+	if Airfield.IsDead or Airfield.Owner ~= USSR then
+		return
+	end
+
+	USSR.Build({ Utils.Random(SovietAircraftType) }, function(units)
+		local plane = units[1]
+		Planes[#Planes + 1] = plane
+
+		Trigger.OnKilled(plane, ProduceAircraft)
+
+		local alive = Utils.Where(Planes, function(y) return not y.IsDead end)
+		if #alive < 2 then
+			Trigger.AfterDelay(DateTime.Seconds(ProductionInterval[Map.LobbyOption("difficulty")] / 2), ProduceAircraft)
+		end
+
+		InitializeAttackAircraft(plane, Greece)
+	end)
+end
+
+ActivateAI = function()
+	local difficulty = Map.LobbyOption("difficulty")
+	GroundWavesDelays = GroundWavesDelays[difficulty]
+
+	local buildings = Utils.Where(Map.ActorsInWorld, function(self) return self.Owner == USSR and self.HasProperty("StartBuildingRepairs") end)
+	Utils.Do(buildings, function(actor)
+		Trigger.OnDamaged(actor, function(building)
+			if building.Owner == USSR and building.Health < building.MaxHealth * 3/4 then
+				building.StartBuildingRepairs()
+			end
+		end)
+	end)
+
+	ProduceBadGuyInfantry()
+	ProduceUSSRInfantry()
+	ProduceVehicles()
+	Trigger.AfterDelay(DateTime.Minutes(GroundWavesDelays), GroundWaves)
+	Trigger.AfterDelay(DateTime.Minutes(5), ProduceAircraft)
+end

mods/ra/maps/sarin-gas-3-controlled-burn/controlledburn.lua

@@ -0,0 +1,149 @@
+--[[
+   Copyright 2007-2020 The OpenRA Developers (see AUTHORS)
+   This file is part of OpenRA, which is free software. It is made
+   available to you under the terms of the GNU General Public License
+   as published by the Free Software Foundation, either version 3 of
+   the License, or (at your option) any later version. For more
+   information, see COPYING.
+]]
+StartUnits = { APC, StartSpy, Rifle1, Rifle2, Rifle3, Rifle4, Rocket1, Rocket2, Rocket3, Rocket4, Rocket5 }
+SarinPlants = { SarinLab1, SarinLab2, SarinLab3, SarinLab4, SarinLab5 }
+MammothStart = { CPos.New(37, 46), CPos.New(37, 47), CPos.New(37, 48), CPos.New(37, 49), CPos.New(37,50) }
+NorthPatrol = { NorthPatrol1.Location, NorthPatrol2.Location, NorthPatrol3.Location, NorthPatrol4.Location, NorthPatrol5.Location }
+BarrerlInvestigators = { Alert1, Alert2, Alert3, Alert4, Alert5 }
+RaxTeam = { "e1", "e2", "e2", "e4", "e4", "shok" }
+SouthPatrol = { SouthPatrol1.Location, SouthPatrol2.Location, SouthPatrol3.Location }
+MCVReinforcements =
+{
+	easy = { "1tnk", "1tnk", "2tnk", "2tnk", "2tnk", "2tnk", "arty", "mcv" },
+	normal = { "1tnk", "1tnk", "2tnk", "2tnk", "mcv" },
+	hard = { "1tnk", "1tnk", "mcv" }
+}
+
+IdleHunt = function(unit) if not unit.IsDead then Trigger.OnIdle(unit, unit.Hunt) end end
+
+SetupTriggers = function()
+	Trigger.OnEnteredFootprint(MammothStart, function(actor, mammothcam)
+		if actor.Owner == Greece then
+			Trigger.RemoveFootprintTrigger(mammothcam)
+			NorthMammoth.Patrol(NorthPatrol, true, 20)
+			local mammothCamera = Actor.Create("camera", true, { Owner = Greece, Location = NorthPatrol1.Location })
+			Trigger.AfterDelay(DateTime.Seconds(10), function()
+				mammothCamera.Destroy()
+			end)
+		end
+	end)
+
+	Trigger.OnEnteredProximityTrigger(NorthPatrol3.CenterPosition, WDist.FromCells(8), function(actor, trigger1)
+		if actor.Owner == Greece then
+			Trigger.RemoveProximityTrigger(trigger1)
+			local baseCamera = Actor.Create("camera", true, { Owner = Greece, Location = BaseCam.Location })
+			if Map.LobbyOption("difficulty") == "hard" then
+				Reinforcements.Reinforce(BadGuy, RaxTeam, { BadGuyRaxSpawn.Location, BaseCam.Location }, 0)
+			end
+			Trigger.AfterDelay(DateTime.Seconds(10), function()
+				baseCamera.Destroy()
+			end)
+		end
+	end)
+
+	Trigger.OnAllRemovedFromWorld(StartUnits, function()
+		if not MCVArrived then
+			USSR.MarkCompletedObjective(SovietObj)
+		end
+	end)
+
+	Trigger.OnKilled(VeryImportantBarrel, function()
+		Utils.Do(BarrerlInvestigators, function(actor)
+			if not actor.IsDead then
+				actor.AttackMove(AlertGo.Location)
+			end
+		end)
+	end)
+
+	Trigger.OnAnyKilled(SarinPlants, function()
+		Greece.MarkFailedObjective(CaptureSarin)
+	end)
+
+	Trigger.OnAllKilledOrCaptured(SarinPlants, function()
+		Greece.MarkCompletedObjective(CaptureSarin)
+	end)
+end
+
+MCVArrived = false
+MCVArrivedTick = false
+PowerDownTeslas = function()
+	if not MCVArrived then
+		CaptureSarin = Greece.AddObjective("Capture all Sarin processing plants intact.")
+		KillBase = Greece.AddObjective("Destroy the enemy compound.")
+		Greece.MarkCompletedObjective(TakeOutPower)
+		Media.PlaySpeechNotification(Greece, "ReinforcementsArrived")
+		Reinforcements.Reinforce(Greece, MCVReinforcements[Map.LobbyOption("difficulty")], { AlliesSpawn.Location, AlliesMove.Location })
+		local baseFlare = Actor.Create("flare", true, { Owner = Greece, Location = AlliedBase.Location })
+		Actor.Create("proc", true, { Owner = USSR, Location = Proc1.Location })
+		Actor.Create("proc", true, { Owner = USSR, Location = Proc2.Location })
+		SouthMammoth.Patrol(SouthPatrol, true, 20)
+		MCVArrived = true
+
+		Trigger.AfterDelay(DateTime.Seconds(1), function()
+			MCVArrivedTick = true
+		end)
+
+		Trigger.AfterDelay(DateTime.Seconds(60), function()
+			local attackers = Reinforcements.Reinforce(USSR, { "e1", "e1", "e1", "e2", "e4" }, { SovietGroundEntry3.Location }, 5)
+			Utils.Do(attackers, IdleHunt)
+		end)
+
+		Trigger.AfterDelay(DateTime.Seconds(100), function()
+			baseFlare.Destroy()
+			ActivateAI()
+		end)
+	end
+end
+
+Tick = function()
+	USSR.Cash = 10000
+	BadGuy.Cash = 10000
+
+	if BadGuy.PowerState ~= "Normal" then
+		PowerDownTeslas()
+	end
+
+	if Greece.HasNoRequiredUnits() and MCVArrivedTick then
+		USSR.MarkCompletedObjective(SovietObj)
+	end
+
+	if USSR.HasNoRequiredUnits() then
+		Greece.MarkCompletedObjective(KillBase)
+	end
+end
+
+WorldLoaded = function()
+	Greece = Player.GetPlayer("Greece")
+	USSR = Player.GetPlayer("USSR")
+	BadGuy = Player.GetPlayer("BadGuy")
+
+	SovietObj = USSR.AddObjective("Defeat the Allies.")
+	TakeOutPower = Greece.AddObjective("Bring down the power of the base to the east.")
+
+	Trigger.OnObjectiveAdded(Greece, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "New " .. string.lower(p.GetObjectiveType(id)) .. " objective")
+	end)
+
+	Trigger.OnObjectiveCompleted(Greece, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "Objective completed")
+	end)
+	Trigger.OnObjectiveFailed(Greece, function(p, id)
+		Media.DisplayMessage(p.GetObjectiveDescription(id), "Objective failed")
+	end)
+	Trigger.OnPlayerLost(Greece, function()
+		Media.PlaySpeechNotification(Greece, "Lose")
+	end)
+	Trigger.OnPlayerWon(Greece, function()
+		Media.PlaySpeechNotification(Greece, "Win")
+	end)
+
+	StartSpy.DisguiseAsType("e1", BadGuy)
+	Camera.Position = DefaultCameraPosition.CenterPosition
+	SetupTriggers()
+end

mods/ra/maps/sarin-gas-3-controlled-burn/rules.yaml

@@ -0,0 +1,79 @@
+World:
+	LuaScript:
+		Scripts: campaign-global.lua, controlledburn.lua, controlledburn-AI.lua
+	MissionData:
+		WinVideo: apcescpe.vqa
+		LossVideo: tesla.vqa
+		Briefing: We have infiltrated the Soviet's Sarin facility. However, the main entrance is guarded by a wall of Tesla coils. We can't move a large force in until they are taken down.\n\nInfiltrate the power grid to the east or destroy its power plants. Once done, reinforcements will arrive.\n\nDestroy the Soviet compound, but capture all of the Sarin processor buildings intact -- we can't have a chemical spill.
+	ScriptLobbyDropdown@difficulty:
+		ID: difficulty
+		Label: Difficulty
+		Values:
+			easy: Easy
+			normal: Normal
+			hard: Hard
+		Default: normal
+
+Player:
+	PlayerResources:
+		DefaultCash: 7500
+
+APC:
+	Buildable:
+		Prerequisites: ~vehicles.allies
+
+TRUK:
+	Buildable:
+		Prerequisites: ~disabled
+
+MGG:
+	Buildable:
+		Prerequisites: ~disabled
+
+FTRK:
+	Buildable:
+		Prerequisites: ~disabled
+
+DTRK:
+	Buildable:
+		Prerequisites: ~disabled
+
+CTNK:
+	Buildable:
+		Prerequisites: ~disabled
+
+STNK:
+	Buildable:
+		Prerequisites: ~disabled
+
+MSLO:
+	Buildable:
+		Prerequisites: ~disabled
+
+ATEK:
+	Buildable:
+		Prerequisites: ~disabled
+
+BIO:
+	Tooltip:
+		Name: Sarin Processing Plant
+
+E7:
+	Buildable:
+		Prerequisites: ~disabled
+
+E3:
+	Buildable:
+		Prerequisites: ~tent
+
+MH60:
+	Buildable:
+		Prerequisites: ~disabled
+
+TRAN:
+	Buildable:
+		Prerequisites: ~disabled
+
+HELI:
+	Buildable:
+		Prerequisites: ~hpad

mods/ra/missions.yaml

@@ -27,6 +27,7 @@ Soviet Campaign:
 Counterstrike:
 	sarin-gas-1-crackdown
 	sarin-gas-2-down-under
+	sarin-gas-3-controlled-burn
 	fall-of-greece-1-personal-war
 	siberian-conflict-1-fresh-tracks
 	soviet-soldier-volkov-n-chitzkoi