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/d2k/maps/ordos-01b/ordos01b.lua

@@ -0,0 +1,169 @@
+--[[
+   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.
+]]
+
+HarkonnenReinforcements =
+{
+	easy =
+	{
+		{ "light_inf", "light_inf" }
+	},
+
+	normal =
+	{
+		{ "light_inf", "light_inf" },
+		{ "light_inf", "light_inf", "light_inf" },
+		{ "light_inf", "trike" }
+	},
+
+	hard =
+	{
+		{ "light_inf", "light_inf" },
+		{ "trike", "trike" },
+		{ "light_inf", "light_inf", "light_inf" },
+		{ "light_inf", "trike" },
+		{ "trike", "trike" }
+	}
+}
+
+HarkonnenEntryWaypoints = { HarkonnenWaypoint1.Location, HarkonnenWaypoint2.Location, HarkonnenWaypoint3.Location, HarkonnenWaypoint4.Location }
+HarkonnenAttackDelay = DateTime.Seconds(30)
+
+HarkonnenAttackWaves =
+{
+	easy = 1,
+	normal = 5,
+	hard = 12
+}
+
+ToHarvest =
+{
+	easy = 2500,
+	normal = 3000,
+	hard = 3500
+}
+
+OrdosReinforcements = { "light_inf", "light_inf", "light_inf", "light_inf", "raider" }
+OrdosEntryPath = { OrdosWaypoint.Location, OrdosRally.Location }
+
+Messages =
+{
+	UserInterface.GetFluentMessage("build-concrete"),
+	UserInterface.GetFluentMessage("build-wind-trap"),
+	UserInterface.GetFluentMessage("build-refinery"),
+	UserInterface.GetFluentMessage("build-silo")
+}
+
+CachedResources = -1
+Tick = function()
+	if HarkonnenArrived and Harkonnen.HasNoRequiredUnits() then
+		Ordos.MarkCompletedObjective(KillHarkonnen)
+	end
+
+	if Ordos.Resources > SpiceToHarvest - 1 then
+		Ordos.MarkCompletedObjective(GatherSpice)
+	end
+
+	-- player has no Wind Trap
+	if (Ordos.PowerProvided <= 20 or Ordos.PowerState ~= "Normal") and DateTime.GameTime % DateTime.Seconds(32) == 0 then
+		HasPower = false
+		Media.DisplayMessage(Messages[2], Mentat)
+	else
+		HasPower = true
+	end
+
+	-- player has no Refinery and no Silos
+	if HasPower and Ordos.ResourceCapacity == 0 and DateTime.GameTime % DateTime.Seconds(32) == 0 then
+		Media.DisplayMessage(Messages[3], Mentat)
+	end
+
+	if HasPower and Ordos.Resources > Ordos.ResourceCapacity * 0.8 and DateTime.GameTime % DateTime.Seconds(32) == 0 then
+		Media.DisplayMessage(Messages[4], Mentat)
+	end
+
+	if Ordos.Resources ~= CachedResources then
+		local harvestedResources = UserInterface.GetFluentMessage("harvested-resources",
+			{ ["harvested"] = Ordos.Resources, ["goal"] = SpiceToHarvest })
+		UserInterface.SetMissionText(harvestedResources)
+		CachedResources = Ordos.Resources
+	end
+end
+
+WorldLoaded = function()
+	Ordos = Player.GetPlayer("Ordos")
+	Harkonnen = Player.GetPlayer("Harkonnen")
+
+	SpiceToHarvest = ToHarvest[Difficulty]
+
+	InitObjectives(Ordos)
+	KillOrdos = AddPrimaryObjective(Harkonnen, "")
+	local harvestSpice = UserInterface.GetFluentMessage("harvest-spice", { ["spice"] = SpiceToHarvest })
+	GatherSpice = AddPrimaryObjective(Ordos, harvestSpice)
+	KillHarkonnen = AddSecondaryObjective(Ordos, "eliminate-harkonnen-units-reinforcements")
+
+	local checkResourceCapacity = function()
+		Trigger.AfterDelay(0, function()
+			if Ordos.ResourceCapacity < SpiceToHarvest then
+				Media.DisplayMessage(UserInterface.GetFluentMessage("not-enough-silos"), Mentat)
+				Trigger.AfterDelay(DateTime.Seconds(3), function()
+					Harkonnen.MarkCompletedObjective(KillOrdos)
+				end)
+			end
+		end)
+	end
+
+	Trigger.OnRemovedFromWorld(OrdosConyard, function()
+
+		-- Mission already failed, no need to check the other conditions as well
+		if checkResourceCapacity() then
+			return
+		end
+
+		local refs = Utils.Where(Map.ActorsInWorld, function(actor) return actor.Type == "refinery" and actor.Owner == Ordos end)
+
+		if #refs == 0 then
+			Harkonnen.MarkCompletedObjective(KillOrdos)
+		else
+			Trigger.OnAllRemovedFromWorld(refs, function()
+				Harkonnen.MarkCompletedObjective(KillOrdos)
+			end)
+
+			local silos = Utils.Where(Map.ActorsInWorld, function(actor) return actor.Type == "silo" and actor.Owner == Ordos end)
+			Utils.Do(refs, function(actor) Trigger.OnRemovedFromWorld(actor, checkResourceCapacity) end)
+			Utils.Do(silos, function(actor) Trigger.OnRemovedFromWorld(actor, checkResourceCapacity) end)
+		end
+	end)
+
+	Media.DisplayMessage(Messages[1], Mentat)
+
+	Trigger.AfterDelay(DateTime.Seconds(25), function()
+		Media.PlaySpeechNotification(Ordos, "Reinforce")
+		Reinforcements.Reinforce(Ordos, OrdosReinforcements, OrdosEntryPath)
+	end)
+
+	WavesLeft = HarkonnenAttackWaves[Difficulty]
+	SendReinforcements()
+end
+
+SendReinforcements = function()
+	local units = HarkonnenReinforcements[Difficulty]
+	local delay = Utils.RandomInteger(HarkonnenAttackDelay - DateTime.Seconds(2), HarkonnenAttackDelay)
+	HarkonnenAttackDelay = HarkonnenAttackDelay - (#units * 3 - 3 - WavesLeft) * DateTime.Seconds(1)
+	if HarkonnenAttackDelay < 0 then HarkonnenAttackDelay = 0 end
+
+	Trigger.AfterDelay(delay, function()
+		Reinforcements.Reinforce(Harkonnen, Utils.Random(units), { Utils.Random(HarkonnenEntryWaypoints) }, 10, IdleHunt)
+
+		WavesLeft = WavesLeft - 1
+		if WavesLeft == 0 then
+			Trigger.AfterDelay(DateTime.Seconds(1), function() HarkonnenArrived = true end)
+		else
+			SendReinforcements()
+		end
+	end)
+end