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-13b/soviet13b.lua

@@ -0,0 +1,125 @@
+--[[
+   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.
+]]
+Jeeps = { Jeep1, Jeep2 }
+JeepWaypoints = { JeepWaypoint1.Location, JeepWaypoint2.Location }
+OreAttackers = { OreAttack1, OreAttack2, OreAttack3, OreAttack4, OreAttack5, OreAttack6 }
+RadarSites = { Radar1, Radar2, Radar3, Radar4 }
+StartAttack = { StartAttack1, StartAttack2, StartAttack3, StartAttack4, StartAttack5 }
+ChronoDemolitionTrigger = { CPos.New(36,96), CPos.New(37,96), CPos.New(37,97), CPos.New(38,97), CPos.New(38,98), CPos.New(39,98) }
+OreAttackFootprintTrigger = { CPos.New(57,20), CPos.New(57,19), CPos.New(57,18), CPos.New(57,17), CPos.New(57,16), CPos.New(57,15), CPos.New(57,14) }
+
+Start = function()
+	Reinforcements.Reinforce(USSR, { "mcv" }, { MCVEntry.Location, DefaultCameraPosition.Location }, 5)
+
+	Utils.Do(Jeeps, function(jeep)
+		jeep.Patrol(JeepWaypoints, true, 125)
+	end)
+
+	Utils.Do(StartAttack, function(a)
+		IdleHunt(a)
+	end)
+
+	ChronoCam = Actor.Create("camera", true, { Owner = USSR, Location = Chronosphere.Location})
+end
+
+MissionTriggers = function()
+	Trigger.OnAllKilled(RadarSites, function()
+		USSR.MarkCompletedObjective(TakeDownRadar)
+		ChronoshiftAlliedUnits()
+	end)
+
+	Trigger.OnCapture(Chronosphere, function()
+		if not USSR.IsObjectiveCompleted(TakeDownRadar) then
+			Media.DisplayMessage(UserInterface.GetFluentMessage("chrono-trap-triggered"), UserInterface.GetFluentMessage("headquarters"))
+			Chronosphere.Kill()
+		else
+			USSR.MarkCompletedObjective(CaptureChronosphere)
+		end
+	end)
+
+	Trigger.OnKilled(Chronosphere, function()
+		USSR.MarkFailedObjective(CaptureChronosphere)
+	end)
+
+	local chronoTriggered
+	Trigger.OnEnteredFootprint(ChronoDemolitionTrigger, function(actor, id)
+		if actor.Owner == USSR and not chronoTriggered and not USSR.IsObjectiveCompleted(TakeDownRadar) then
+			Trigger.RemoveFootprintTrigger(id)
+			Media.DisplayMessage(UserInterface.GetFluentMessage("chrono-trap-triggered"), UserInterface.GetFluentMessage("headquarters"))
+			chronoTriggered = true
+			Chronosphere.Kill()
+		end
+	end)
+
+	Trigger.OnEnteredProximityTrigger(ChinookLZ.CenterPosition, WDist.FromCells(5), function(actor, id)
+		if actor.Owner == USSR and actor.Type == "harv" then
+			Trigger.RemoveProximityTrigger(id)
+			SendChinook()
+		end
+	end)
+
+	local oreAttackTriggered
+	Trigger.OnEnteredFootprint(OreAttackFootprintTrigger, function(actor, id)
+		if actor.Owner == USSR and not oreAttackTriggered then
+			Trigger.RemoveProximityTrigger(id)
+			oreAttackTrigger = true
+
+			Utils.Do(OreAttackers, function(a)
+				if not a.IsDead then
+					IdleHunt(a)
+				end
+			end)
+		end
+	end)
+end
+
+ChronoshiftAlliedUnits = function()
+	if Chronosphere.IsDead then
+		return
+	end
+
+	local cells = Utils.ExpandFootprint({ ChronoshiftPoint.Location }, false)
+	local units = { }
+	for i = 1, #cells do
+		local unit = Actor.Create("2tnk", true, { Owner = Greece, Facing = Angle.North })
+		units[unit] = cells[i]
+		IdleHunt(unit)
+	end
+	Chronosphere.Chronoshift(units)
+end
+
+Tick = function()
+	Greece.Cash = 20000
+
+	if USSR.HasNoRequiredUnits() then
+		Greece.MarkCompletedObjective(AlliesObjective)
+	end
+end
+
+WorldLoaded = function()
+	USSR = Player.GetPlayer("USSR")
+	Greece = Player.GetPlayer("Greece")
+	GoodGuy = Player.GetPlayer("GoodGuy")
+
+	InitObjectives(USSR)
+
+	AlliesObjective = AddPrimaryObjective(Greece, "")
+	TakeDownRadar = AddPrimaryObjective(USSR, "destroy-allied-radar-sites")
+	CaptureChronosphere = AddPrimaryObjective(USSR, "capture-the-chronosphere")
+
+	Camera.Position = DefaultCameraPosition.CenterPosition
+	Start()
+	MissionTriggers()
+	ActivateAI()
+	GreeceWarFactory.RallyPoint = WarFactoryRally.Location
+	if Difficulty == "hard" then
+		V2A.Destroy()
+		V2B.Destroy()
+	end
+end