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-04b/soviet04b-AI.lua

@@ -0,0 +1,116 @@
+--[[
+   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.
+]]
+IdlingUnits = function()
+	local lazyUnits = Greece.GetGroundAttackers()
+
+	Utils.Do(lazyUnits, function(unit)
+		Trigger.OnDamaged(unit, function()
+			Trigger.ClearAll(unit)
+			Trigger.AfterDelay(0, function() IdleHunt(unit) end)
+		end)
+	end)
+end
+
+BasePower =          { type = "powr", pos = CVec.New(-4, -2), cost = 300, exists = true }
+BaseBarracks =       { type = "tent", pos = CVec.New(-8, 1), cost = 400, exists = true }
+BaseProc =           { type = "proc", pos = CVec.New(-5, 1), cost = 1400, exists = true }
+BaseWeaponsFactory = { type = "weap", pos = CVec.New(-12, -1), cost = 2000, exists = true }
+
+BaseBuildings = { BasePower, BaseBarracks, BaseProc, BaseWeaponsFactory }
+
+BuildBase = function()
+	for i,v in ipairs(BaseBuildings) do
+		if not v.exists then
+			BuildBuilding(v)
+			return
+		end
+	end
+
+	Trigger.AfterDelay(DateTime.Seconds(10), BuildBase)
+end
+
+BuildBuilding = function(building)
+	Trigger.AfterDelay(Actor.BuildTime(building.type), function()
+		if CYard.IsDead or CYard.Owner ~= Greece then
+			return
+		elseif Harvester.IsDead and Greece.Resources <= 299 then
+			return
+		end
+
+		local actor = Actor.Create(building.type, true, { Owner = Greece, Location = GreeceCYard.Location + building.pos })
+		Greece.Cash = Greece.Cash - building.cost
+
+		building.exists = true
+		Trigger.OnKilled(actor, function() building.exists = false end)
+		Trigger.OnDamaged(actor, function(building)
+			if building.Owner == Greece and building.Health < building.MaxHealth * 3/4 then
+				building.StartBuildingRepairs()
+			end
+		end)
+
+		Trigger.AfterDelay(DateTime.Seconds(10), BuildBase)
+	end)
+end
+
+ProduceInfantry = function()
+	if not BaseBarracks.exists then
+		return
+	elseif Harvester.IsDead and Greece.Resources <= 299 then
+		return
+	end
+
+	local delay = Utils.RandomInteger(DateTime.Seconds(3), DateTime.Seconds(9))
+	local toBuild = { Utils.Random(AlliedInfantryTypes) }
+	local Path = Utils.Random(AttackPaths)
+	Greece.Build(toBuild, function(unit)
+		InfAttack[#InfAttack + 1] = unit[1]
+
+		if #InfAttack >= 10 then
+			SendUnits(InfAttack, Path)
+			InfAttack = { }
+			Trigger.AfterDelay(DateTime.Minutes(2), ProduceInfantry)
+		else
+			Trigger.AfterDelay(delay, ProduceInfantry)
+		end
+	end)
+end
+
+ProduceArmor = function()
+	if not BaseWeaponsFactory.exists then
+		return
+	elseif Harvester.IsDead and Greece.Resources <= 599 then
+		return
+	end
+
+	local delay = Utils.RandomInteger(DateTime.Seconds(12), DateTime.Seconds(17))
+	local toBuild = { Utils.Random(AlliedArmorTypes) }
+	local Path = Utils.Random(AttackPaths)
+	Greece.Build(toBuild, function(unit)
+		ArmorAttack[#ArmorAttack + 1] = unit[1]
+
+		if #ArmorAttack >= 6 then
+			SendUnits(ArmorAttack, Path)
+			ArmorAttack = { }
+			Trigger.AfterDelay(DateTime.Minutes(3), ProduceArmor)
+		else
+			Trigger.AfterDelay(delay, ProduceArmor)
+		end
+	end)
+end
+
+SendUnits = function(units, waypoints)
+	Utils.Do(units, function(unit)
+		if not unit.IsDead then
+			Utils.Do(waypoints, function(waypoint)
+				unit.AttackMove(waypoint.Location)
+			end)
+			unit.Hunt()
+		end
+	end)
+end