Initial commit: OpenRA game engine

Fork from OpenRA/OpenRA with one-click launch script (start-ra.cmd)

Co-Authored-By: Claude Opus 4.5 <noreply@anthropic.com>

mods/ra/maps/soviet-02b/soviet02b.lua

@@ -0,0 +1,205 @@
+--[[
+   Copyright (c) The OpenRA Developers and Contributors
+   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.
+]]
+IntroAttackers = { IntroSoldier1, IntroSoldier2, IntroSoldier3 }
+
+BridgeShroudTrigger = { CPos.New(63, 71), CPos.New(64, 71), CPos.New(65, 71), CPos.New(69, 65), CPos.New(70, 65), CPos.New(71, 65) }
+BridgeExplosionTrigger = { CPos.New(66, 69), CPos.New(67, 69), CPos.New(68, 69) }
+TransportTrigger = { CPos.New(75, 58) }
+EnemyBaseShroudTrigger = { CPos.New(64, 52), CPos.New(64, 53), CPos.New(64, 54), CPos.New(64, 55), CPos.New(64, 56), CPos.New(64, 57), CPos.New(64, 58), CPos.New(64, 59), CPos.New(64, 60), CPos.New(64, 61), CPos.New(64, 62), CPos.New(64, 63), CPos.New(64, 64) }
+ParachuteTrigger = { CPos.New(80, 66), CPos.New(81, 66), CPos.New(82, 66), CPos.New(83, 66), CPos.New(84, 66), CPos.New(85, 66),CPos.New(86, 66), CPos.New(87, 66), CPos.New(88, 66), CPos.New(89, 66) }
+EnemyBaseEntranceShroudTrigger = { CPos.New(80, 73), CPos.New(81, 73), CPos.New(82, 73), CPos.New(83, 73), CPos.New(84, 73), CPos.New(85, 73),CPos.New(86, 73), CPos.New(87, 73), CPos.New(88, 73), CPos.New(89, 73) }
+
+AttackWaypoints = { AttackWaypoint1, AttackWaypoint2 }
+AttackGroup = { }
+AttackGroupSize = 3
+AlliedInfantry = { "e1", "e1", "e3" }
+
+SendAttackGroup = function()
+	if #AttackGroup < AttackGroupSize then
+		return
+	end
+
+	local way = Utils.Random(AttackWaypoints)
+	Utils.Do(AttackGroup, function(unit)
+		if not unit.IsDead then
+			unit.AttackMove(way.Location)
+			Trigger.OnIdle(unit, unit.Hunt)
+		end
+	end)
+
+	AttackGroup = { }
+end
+
+ProduceInfantry = function()
+	if Tent.IsDead then
+		return
+	end
+
+	Greece.Build({ Utils.Random(AlliedInfantry) }, function(units)
+		table.insert(AttackGroup, units[1])
+		SendAttackGroup()
+		Trigger.AfterDelay(DateTime.Seconds(10), ProduceInfantry)
+	end)
+end
+
+SendUSSRParadrops = function()
+	local paraproxy1 = Actor.Create("powerproxy.paratroopers", false, { Owner = USSR })
+	paraproxy1.TargetParatroopers(ParachuteBaseEntrance.CenterPosition, Angle.North)
+	paraproxy1.Destroy()
+end
+
+SendUSSRParadropsBase = function()
+	local paraproxy2 = Actor.Create("powerproxy.paratroopers2", false, { Owner = USSR })
+	paraproxy2.TargetParatroopers(ParachuteBase1.CenterPosition, Angle.East)
+	paraproxy2.Destroy()
+	local paraproxy3 = Actor.Create("powerproxy.paratroopers3", false, { Owner = USSR })
+	paraproxy3.TargetParatroopers(ParachuteBase2.CenterPosition, Angle.East)
+	paraproxy3.Destroy()
+end
+
+Trigger.OnEnteredFootprint(BridgeShroudTrigger, function(a)
+	if not BridgeShroudTriggered and a.Owner == USSR then
+		BridgeShroudTriggered = true
+		local cameraBridge = Actor.Create("camera", true, { Owner = USSR, Location = CameraBridge.Location })
+		Trigger.AfterDelay(DateTime.Seconds(15), function()
+			cameraBridge.Destroy()
+		end)
+	end
+end)
+
+Trigger.OnEnteredFootprint(BridgeExplosionTrigger, function(a)
+	if not BridgeExplosionTriggered and a.Owner == USSR then
+		BridgeExplosionTriggered = true
+		if not BarrelBridge.IsDead then
+			BarrelBridge.Kill()
+		end
+	end
+end)
+
+Trigger.OnEnteredFootprint(EnemyBaseEntranceShroudTrigger, function(a)
+	if not EnemyBaseEntranceShroudTriggered and a.Owner == USSR then
+		EnemyBaseEntranceShroudTriggered = true
+		local cameraBaseEntrance = Actor.Create("camera", true, { Owner = USSR, Location = CameraBaseEntrance.Location })
+		Trigger.AfterDelay(DateTime.Seconds(15), function()
+			cameraBaseEntrance.Destroy()
+		end)
+	end
+end)
+
+Trigger.OnEnteredFootprint(EnemyBaseShroudTrigger, function(a)
+	if not EnemyBaseShroudTriggered and a.Owner == USSR then
+		EnemyBaseShroudTriggered = true
+		local cameraBase1 = Actor.Create("camera", true, { Owner = USSR, Location = CameraBase1.Location })
+		local cameraBase2 = Actor.Create("camera", true, { Owner = USSR, Location = CameraBase2.Location })
+		Trigger.AfterDelay(DateTime.Seconds(15), function()
+			cameraBase1.Destroy()
+			cameraBase2.Destroy()
+		end)
+	end
+end)
+
+Trigger.OnEnteredFootprint(ParachuteTrigger, function(a)
+	if not ParachuteTriggered and a.Owner == USSR then
+		ParachuteTriggered = true
+		SendUSSRParadrops()
+		Media.PlaySpeechNotification(USSR, "ReinforcementsArrived")
+	end
+end)
+
+Trigger.OnEnteredFootprint(TransportTrigger, function(a, id)
+	if not TransportTriggered and a.Type == "truk" then
+		TransportTriggered = true
+		if not TransportTruck.IsDead then
+			TransportTruck.Wait(DateTime.Seconds(5))
+			TransportTruck.Move(TransportWaypoint2.Location)
+			TransportTruck.Wait(DateTime.Seconds(5))
+			TransportTruck.Move(TransportWaypoint3.Location)
+			TransportTruck.Wait(DateTime.Seconds(5))
+			TransportTruck.Move(TransportWaypoint1.Location)
+		end
+		Trigger.AfterDelay(DateTime.Seconds(10), function()
+			TransportTriggered = false
+		end)
+	end
+end)
+
+Trigger.OnKilled(BarrelBase, function()
+		SendUSSRParadropsBase()
+		Media.PlaySpeechNotification(USSR, "ReinforcementsArrived")
+end)
+
+Trigger.OnKilled(BarrelBridge, function()
+	local bridgepart = Map.ActorsInBox(BridgeCheck1.CenterPosition, BridgeCheck2.CenterPosition, function(self) return self.Type == "br1" end)[1]
+	if not bridgepart.IsDead then
+		bridgepart.Kill()
+	end
+end)
+
+Trigger.OnKilled(Church1, function()
+	Actor.Create("moneycrate", true, { Owner = USSR, Location = TransportWaypoint3.Location })
+end)
+
+Trigger.OnKilled(Church2, function()
+	Actor.Create("healcrate", true, { Owner = USSR, Location = Church2.Location })
+end)
+
+Trigger.OnKilled(ForwardCommand, function()
+	Greece.MarkCompletedObjective(AlliedObjective)
+end)
+
+Trigger.OnKilled(IntroSoldier1, function()
+	local cameraIntro = Actor.Create("camera", true, { Owner = USSR, Location = CameraStart.Location })
+	Trigger.AfterDelay(DateTime.Seconds(15), function()
+		cameraIntro.Destroy()
+	end)
+end)
+
+WorldLoaded = function()
+	USSR = Player.GetPlayer("USSR")
+	Greece = Player.GetPlayer("Greece")
+	Utils.Do(IntroAttackers, function(actor)
+		if not actor.IsDead then
+			Trigger.OnIdle(actor, actor.Hunt)
+		end
+	end)
+	Trigger.AfterDelay(0, function()
+		local buildings = Utils.Where(Map.ActorsInWorld, function(self) return self.Owner == Greece and self.HasProperty("StartBuildingRepairs") end)
+		Utils.Do(buildings, function(actor)
+			Trigger.OnDamaged(actor, function(building)
+				if building.Owner == Greece and building.Health < building.MaxHealth * 0.8 then
+					building.StartBuildingRepairs()
+				end
+			end)
+		end)
+	end)
+
+	InitObjectives(USSR)
+	AlliedObjective = AddPrimaryObjective(Greece, "")
+	SovietObjective1 = AddPrimaryObjective(USSR, "protect-command-center")
+	SovietObjective2 = AddPrimaryObjective(USSR, "destroy-allied-units-structures")
+
+	Greece.Resources = 2000
+	Trigger.AfterDelay(DateTime.Seconds(30), ProduceInfantry)
+end
+
+Tick = function()
+	if USSR.HasNoRequiredUnits() then
+		Greece.MarkCompletedObjective(AlliedObjective)
+	end
+
+	if Greece.HasNoRequiredUnits() then
+		USSR.MarkCompletedObjective(SovietObjective1)
+		USSR.MarkCompletedObjective(SovietObjective2)
+	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
+end