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>
2026-01-10 21:46:54 +08:00
commit 9cf6ebb986
4065 changed files with 635973 additions and 0 deletions
--- a/mods/ra/maps/allies-05a/allies05a.lua
+++ b/mods/ra/maps/allies-05a/allies05a.lua
@@ -0,0 +1,391 @@
+--[[
+   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.
+]]
+
+if Difficulty == "easy" then
+	TanyaType = "e7"
+	ReinforceCash = 5000
+	HoldAITime = DateTime.Minutes(3)
+	SpecialCameras = true
+elseif Difficulty == "normal" then
+	TanyaType = "e7.noautotarget"
+	ReinforceCash = 2250
+	HoldAITime = DateTime.Minutes(2)
+	SpecialCameras = true
+else
+	TanyaType = "e7.noautotarget"
+	ReinforceCash = 1500
+	HoldAITime = DateTime.Minutes(1) + DateTime.Seconds(30)
+	SendWaterTransports = true
+end
+
+SpyType = { "spy" }
+SpyEntryPath = { SpyEntry.Location, SpyLoadout.Location }
+InsertionTransport = "lst.in"
+ExtractionTransport = "lst"
+TrukPath = { TrukWaypoint1, TrukWaypoint2, TrukWaypoint3, TrukWaypoint4, TrukWaypoint5, TrukWaypoint6 }
+ExtractionHeliType = "tran"
+InsertionHeliType = "tran.in"
+ExtractionPath = { ExtractionEntry.Location, ExtractionLZ.Location }
+HeliReinforcements = { "medi", "mech", "mech" }
+
+GreeceReinforcements =
+{
+	{ types = { "2tnk", "2tnk", "2tnk", "arty", "arty" }, entry = { SpyEntry.Location, SpyLoadout.Location } },
+	{ types = { "e3", "e3", "e3", "e6", "e6" }, entry = { SpyEntry.Location, GreeceLoadout1.Location } },
+	{ types = { "jeep", "jeep", "e1", "e1", "2tnk" }, entry = { SpyEntry.Location, GreeceLoadout2.Location } }
+}
+
+DogPatrol = { Dog1, Dog2 }
+PatrolA = { PatrolA1, PatrolA2, PatrolA3, PatrolA4, PatrolA5 }
+PatrolB = { PatrolB1, PatrolB2, PatrolB3 }
+
+DogPatrolPath = { DogPatrolRally1.Location, DogPatrolRally2.Location, DogPatrolRally3.Location }
+PatrolAPath = { PatrolRally.Location, PatrolARally1.Location, PatrolARally2.Location, PatrolARally3.Location }
+PatrolBPath = { PatrolBRally1.Location, PatrolBRally2.Location, PatrolBRally3.Location, PatrolRally.Location }
+
+TanyaVoices = { "tuffguy", "bombit", "laugh", "gotit", "lefty", "keepem" }
+SpyVoice = "sking"
+SamSites = { Sam1, Sam2, Sam3, Sam4 }
+
+GroupPatrol = function(units, waypoints, delay)
+	local i = 1
+	local stop = false
+
+	Utils.Do(units, function(unit)
+		Trigger.OnIdle(unit, function()
+			if stop then
+				return
+			end
+
+			if unit.Location == waypoints[i] then
+				local bool = Utils.All(units, function(actor) return actor.IsIdle end)
+
+				if bool then
+					stop = true
+
+					i = i + 1
+					if i > #waypoints then
+						i = 1
+					end
+
+					Trigger.AfterDelay(delay, function() stop = false end)
+				end
+			else
+				unit.AttackMove(waypoints[i])
+			end
+		end)
+	end)
+end
+
+Tick = function()
+	if FollowTruk and not Truk.IsDead then
+		Camera.Position = Truk.CenterPosition
+	end
+
+	if USSR.HasNoRequiredUnits() then
+		if not Greece.IsObjectiveCompleted(KillAll) and Difficulty == "tough" then
+			SendWaterExtraction()
+		end
+		Greece.MarkCompletedObjective(KillAll)
+	end
+
+	if GreeceReinforcementsArrived and Greece.HasNoRequiredUnits() then
+		USSR.MarkCompletedObjective(USSRobjective)
+	end
+
+	if USSR.Resources >= USSR.ResourceCapacity * 0.75 then
+		USSR.Cash = USSR.Cash + USSR.Resources - USSR.ResourceCapacity * 0.25
+		USSR.Resources = USSR.ResourceCapacity * 0.25
+	end
+end
+
+SendReinforcements = function()
+	GreeceReinforcementsArrived = true
+	Camera.Position = ReinforceCamera.CenterPosition
+	Greece.Cash = Greece.Cash + ReinforceCash
+
+	Utils.Do(GreeceReinforcements, function(reinforcements)
+		Reinforcements.ReinforceWithTransport(Greece, InsertionTransport, reinforcements.types, reinforcements.entry, { SpyEntry.Location })
+	end)
+
+	Media.PlaySpeechNotification(Greece, "AlliedReinforcementsArrived")
+
+	ActivateAI()
+end
+
+ExtractUnits = function(extractionUnit, pos, after)
+	if extractionUnit.IsDead or not extractionUnit.HasPassengers then
+		return
+	end
+
+	extractionUnit.Move(pos)
+	extractionUnit.Destroy()
+
+	Trigger.OnRemovedFromWorld(extractionUnit, after)
+end
+
+SendWaterExtraction = function()
+	local flare = Actor.Create("flare", true, { Owner = Greece, Location = SpyEntryPath[2] + CVec.New(2, 0) })
+	Trigger.AfterDelay(DateTime.Seconds(5), flare.Destroy)
+	Media.PlaySpeechNotification(Greece, "SignalFlareNorth")
+	Camera.Position = flare.CenterPosition
+
+	WaterExtractionTran = Reinforcements.ReinforceWithTransport(Greece, ExtractionTransport, nil, SpyEntryPath)[1]
+	ExtractObjective = AddPrimaryObjective(Greece, "extract-transport")
+
+	Trigger.OnKilled(WaterExtractionTran, function() USSR.MarkCompletedObjective(USSRobjective) end)
+	Trigger.OnAllRemovedFromWorld(Greece.GetGroundAttackers(), function()
+		ExtractUnits(WaterExtractionTran, SpyEntryPath[1], function()
+			Greece.MarkCompletedObjective(ExtractObjective)
+			Greece.MarkCompletedObjective(TanyaSurviveObjective)
+		end)
+	end)
+end
+
+WarfactoryInfiltrated = function()
+	FollowTruk = true
+	Truk.GrantCondition("hijacked")
+
+	Truk.Wait(DateTime.Seconds(1))
+	Utils.Do(TrukPath, function(waypoint)
+		Truk.Move(waypoint.Location)
+	end)
+
+	if SpecialCameras then
+		Trigger.AfterDelay(DateTime.Seconds(2), function()
+			SpyCameraA.Destroy()
+			SpyCameraB.Destroy()
+		end)
+	end
+end
+
+MissInfiltrated = function()
+	for i = 0, 5, 1 do
+		local sound = Utils.Random(TanyaVoices)
+		Trigger.AfterDelay(DateTime.Seconds(i), function()
+			Media.PlaySoundNotification(Greece, sound)
+		end)
+	end
+	Prison.Attack(Prison)
+
+	Trigger.AfterDelay(DateTime.Seconds(6), FreeTanya)
+end
+
+FreeTanya = function()
+	Prison.Stop()
+	Tanya = Actor.Create(TanyaType, true, { Owner = Greece, Location = Prison.Location + CVec.New(1, 1) })
+	Tanya.Demolish(Prison)
+	Tanya.Move(Tanya.Location + CVec.New(Utils.RandomInteger(-1, 2), 1))
+
+	if TanyaType == "e7.noautotarget" then
+		Trigger.AfterDelay(DateTime.Seconds(1), function()
+			Media.DisplayMessage(UserInterface.GetFluentMessage("tanya-rules-of-engagement"), UserInterface.GetFluentMessage("tanya"))
+		end)
+	end
+
+	Trigger.OnKilled(Tanya, function() USSR.MarkCompletedObjective(USSRobjective) end)
+
+	if Difficulty == "tough" then
+		KillSams = AddPrimaryObjective(Greece, "destroy-sam-sites-blocker")
+
+		Greece.MarkCompletedObjective(RescueTanyaObjective)
+		TanyaSurviveObjective = AddPrimaryObjective(Greece, "tanya-survive")
+		Media.PlaySpeechNotification(Greece, "TanyaRescued")
+	else
+		KillSams = AddPrimaryObjective(Greece, "destroy-sam-sites-blocker")
+
+		Media.PlaySpeechNotification(Greece, "TargetFreed")
+	end
+
+	if not SpecialCameras and PrisonCamera and PrisonCamera.IsInWorld then
+		PrisonCamera.Destroy()
+	end
+end
+
+SendSpy = function()
+	Camera.Position = SpyEntry.CenterPosition
+	Spy = Reinforcements.ReinforceWithTransport(Greece, InsertionTransport, SpyType, SpyEntryPath, { SpyEntryPath[1] })[2][1]
+
+	Trigger.OnKilled(Spy, function() USSR.MarkCompletedObjective(USSRobjective) end)
+
+	if SpecialCameras then
+		SpyCameraA = Actor.Create("camera", true, { Owner = Greece, Location = SpyCamera1.Location })
+		SpyCameraB = Actor.Create("camera", true, { Owner = Greece, Location = SpyCamera2.Location })
+	end
+
+	Trigger.AfterDelay(DateTime.Seconds(3), function()
+		Media.DisplayMessage(UserInterface.GetFluentMessage("disguise-spy"), UserInterface.GetFluentMessage("spy"))
+	end)
+end
+
+ActivatePatrols = function()
+	GroupPatrol(DogPatrol, DogPatrolPath, DateTime.Seconds(2))
+
+	Trigger.AfterDelay(DateTime.Seconds(3), function()
+		GroupPatrol(PatrolA, PatrolAPath, DateTime.Seconds(7))
+		GroupPatrol(PatrolB, PatrolBPath, DateTime.Seconds(6))
+	end)
+end
+
+InitTriggers = function()
+	Trigger.OnInfiltrated(Warfactory, function()
+		if Greece.IsObjectiveCompleted(InfiltrateWarfactoryObjective) then
+			return
+		elseif Truk.IsDead then
+			if not Greece.IsObjectiveCompleted(RescueTanyaObjective) then
+				USSR.MarkCompletedObjective(USSRobjective)
+			end
+
+			return
+		end
+
+		Trigger.ClearAll(Spy)
+		Greece.MarkCompletedObjective(InfiltrateWarfactoryObjective)
+		WarfactoryInfiltrated()
+	end)
+
+	Trigger.OnKilled(Truk, function()
+		if not Greece.IsObjectiveCompleted(InfiltrateWarfactoryObjective) then
+			Greece.MarkFailedObjective(InfiltrateWarfactoryObjective)
+		elseif FollowTruk then
+			USSR.MarkCompletedObjective(USSRobjective)
+		end
+	end)
+
+	Trigger.OnInfiltrated(Prison, function()
+		if Greece.IsObjectiveCompleted(RescueTanyaObjective) then
+			return
+		end
+
+		if not Greece.IsObjectiveCompleted(InfiltrateWarfactoryObjective) then
+			Media.DisplayMessage(UserInterface.GetFluentMessage("skip-heroics"), UserInterface.GetFluentMessage("battlefield-control"))
+			Greece.MarkCompletedObjective(InfiltrateWarfactoryObjective)
+		end
+
+		if not PrisonCamera then
+			if SpecialCameras then
+				PrisonCamera = Actor.Create("camera", true, { Owner = Greece, Location = TrukWaypoint5.Location })
+			else
+				PrisonCamera = Actor.Create("camera.small", true, { Owner = Greece, Location = Prison.Location + CVec.New(1, 1) })
+			end
+		end
+
+		if SpecialCameras and SpyCameraA and not SpyCameraA.IsDead then
+			SpyCameraA.Destroy()
+			SpyCameraB.Destroy()
+		end
+
+		Trigger.ClearAll(Spy)
+		Trigger.AfterDelay(DateTime.Seconds(2), MissInfiltrated)
+	end)
+
+	Trigger.OnEnteredFootprint({ TrukWaypoint5.Location }, function(a, id)
+		if a == Truk then
+			Trigger.RemoveFootprintTrigger(id)
+
+			Spy = Actor.Create("spy", true, { Owner = Greece, Location = TrukWaypoint5.Location })
+			Spy.DisguiseAsType("e1", USSR)
+			Spy.Move(SpyWaypoint.Location)
+			Spy.Infiltrate(Prison)
+			Media.PlaySoundNotification(Greece, SpyVoice)
+
+			FollowTruk = false
+
+			if SpecialCameras then
+				PrisonCamera = Actor.Create("camera", true, { Owner = Greece, Location = TrukWaypoint5.Location })
+			else
+				PrisonCamera = Actor.Create("camera.small", true, { Owner = Greece, Location = Prison.Location + CVec.New(1, 1) })
+			end
+
+			Trigger.OnKilled(Spy, function() USSR.MarkCompletedObjective(USSRobjective) end)
+		end
+	end)
+
+	Trigger.OnEnteredFootprint({ TrukWaypoint6.Location }, function(a, id)
+		if a == Truk then
+			Trigger.RemoveFootprintTrigger(id)
+			Truk.Stop()
+			Truk.Kill()
+			ExplosiveBarrel.Kill()
+		end
+	end)
+
+	if Difficulty ~= "tough" then
+		Trigger.OnKilled(Mammoth, function()
+			Trigger.AfterDelay(HoldAITime - DateTime.Seconds(45), function() HoldProduction = false end)
+			Trigger.AfterDelay(HoldAITime, function() Attacking = true end)
+		end)
+	end
+
+	Trigger.OnKilled(FlameBarrel, function()
+		if not FlameTower.IsDead then
+			FlameTower.Kill()
+		end
+	end)
+
+	Trigger.OnKilled(SamBarrel, function()
+		if not Sam1.IsDead then
+			Sam1.Kill()
+		end
+	end)
+
+	Trigger.OnAllKilled(SamSites, function()
+		Greece.MarkCompletedObjective(KillSams)
+
+		local flare = Actor.Create("flare", true, { Owner = Greece, Location = ExtractionPath[2] + CVec.New(0, -1) })
+		Trigger.AfterDelay(DateTime.Seconds(7), flare.Destroy)
+		Media.PlaySpeechNotification(Greece, "SignalFlare")
+
+		if Difficulty == "tough" then
+			Reinforcements.ReinforceWithTransport(Greece, InsertionHeliType, HeliReinforcements, ExtractionPath, { ExtractionPath[1] })
+			if not Harvester.IsDead then
+				Harvester.FindResources()
+			end
+
+		else
+			ExtractionHeli = Reinforcements.ReinforceWithTransport(Greece, ExtractionHeliType, nil, ExtractionPath)[1]
+			local exitPos = CPos.New(ExtractionPath[1].X, ExtractionPath[2].Y)
+
+			Trigger.OnKilled(ExtractionHeli, function() USSR.MarkCompletedObjective(USSRobjective) end)
+			Trigger.OnRemovedFromWorld(Tanya, function()
+				ExtractUnits(ExtractionHeli, exitPos, function()
+
+					Media.PlaySpeechNotification(Greece, "TanyaRescued")
+					Greece.MarkCompletedObjective(RescueTanyaObjective)
+					Trigger.AfterDelay(DateTime.Seconds(2), function()
+						SendReinforcements()
+					end)
+
+					if PrisonCamera and PrisonCamera.IsInWorld then
+						PrisonCamera.Destroy()
+					end
+				end)
+			end)
+		end
+	end)
+end
+
+AddObjectives = function()
+	USSRobjective = AddPrimaryObjective(USSR, "")
+	RescueTanyaObjective = AddPrimaryObjective(Greece, "rescue-tanya")
+	KillAll = AddPrimaryObjective(Greece, "eliminate-soviet-units")
+	InfiltrateWarfactoryObjective = AddSecondaryObjective(Greece, "infiltrate-warfactory")
+end
+
+WorldLoaded = function()
+	Greece = Player.GetPlayer("Greece")
+	USSR = Player.GetPlayer("USSR")
+
+	InitObjectives(Greece)
+	AddObjectives()
+	InitTriggers()
+	SendSpy()
+
+	Trigger.AfterDelay(DateTime.Seconds(3), ActivatePatrols)
+end