Remove the temperate RA shellmap and port the desert shellmap to Lua.

mods/common/lua/actor.lua

@@ -76,7 +76,14 @@ Actor.FlyOffMap = function(actor)
 end
 
 Actor.Hunt = function(actor)
-	actor:QueueActivity(OpenRA.New("Hunt", { actor }))
+	if Actor.HasTrait(actor, "AttackBase") and Actor.HasTrait(actor, "IMove") then
+		actor:QueueActivity(OpenRA.New("Hunt", { actor }))
+	end
+end
+
+Actor.CargoIsEmpty = function(actor)
+	local cargo = Actor.TraitOrDefault(actor, "Cargo")
+	return cargo == nil or cargo:IsEmpty(actor)
 end
 
 Actor.UnloadCargo = function(actor, unloadAll)
@@ -163,6 +170,14 @@ Actor.OnCaptured = function(actor, eh)
 	Actor.Trait(actor, "LuaScriptEvents").OnCaptured:Add(eh)
 end
 
+Actor.OnIdle = function(actor, eh)
+	Actor.Trait(actor, "LuaScriptEvents").OnIdle:Add(eh)
+end
+
+Actor.OnProduced = function(actor, eh)
+	Actor.Trait(actor, "LuaScriptEvents").OnProduced:Add(eh)
+end
+
 Actor.ActorsWithTrait = function(className)
 	local ret = { }
 	for item in Utils.Enumerate(Internal.ActorsWithTrait(className)) do

mods/common/lua/map.lua

@@ -12,10 +12,18 @@ Map.GetRandomEdgeCell = function()
 	return Internal.GetRandomEdgeCell()
 end
 
+Map.IsNamedActor = function(actor)
+	return Internal.IsNamedActor(actor)
+end
+
 Map.GetNamedActor = function(actorName)
 	return Internal.GetNamedActor(actorName)
 end
 
+Map.GetNamedActors = function()
+	return Internal.GetNamedActors()
+end
+
 Map.FindActorsInCircle = function(location, radius, func)
 	local actors = Internal.FindActorsInCircle(location.CenterPosition, WRange.FromCells(radius))
 	return Utils.EnumerableWhere(actors, func)
@@ -58,6 +66,10 @@ Map.FindIdleUnitsInBox = function(player, topLeft, bottomRight)
 	return Map.FindActorsInBox(topLeft, bottomRight, function(a) return Map.__FilterByTraitAndIdle(a, player, "Mobile") end)
 end
 
+Map.ExpandFootprint = function(cells, allowDiagonal)
+	return Utils.EnumerableToTable(Internal.ExpandFootprint(cells, allowDiagonal))
+end
+
 CPos.New = function(x, y)
 	return OpenRA.New("CPos", { { x, "Int32" }, { y, "Int32" } })
 end
@@ -90,4 +102,4 @@ end
 
 WRange.FromCells = function(cells)
 	return WRange.New(cells * 1024)
-end
+end

mods/common/lua/production.lua

@@ -8,6 +8,14 @@ Production.BuildWithPerFactoryQueue = function(factory, unit, amount)
 	Internal.BuildWithPerFactoryQueue(factory, unit, amount or 1)
 end
 
+Production.SharedQueueIsBusy = function(player, category)
+	return Internal.SharedQueueIsBusy(player, category)
+end
+
+Production.PerFactoryQueueIsBusy = function(factory)
+	return Internal.PerFactoryQueueIsBusy(factory)
+end
+
 Production.SetRallyPoint = function(factory, location)
 	Actor.Trait(factory, "RallyPoint").rallyPoint = location.Location
 end

mods/common/lua/supportpowers.lua

@@ -2,8 +2,8 @@ SupportPowers = { }
 
 SupportPowers.Airstrike = function(owner, planeName, enterLocation, bombLocation)
 	local facing = { Map.GetFacing(CPos.op_Subtraction(bombLocation, enterLocation), 0), "Int32" }
-	local altitude = { Rules.TraitInfo(planeName, "AircraftInfo").CruiseAltitude, "Int32" }
-	local plane = Actor.Create(planeName, { Location = enterLocation, Owner = owner, Facing = facing, Altitude = altitude })
+	local center = WPos.op_Addition(enterLocation.CenterPosition, WVec.New(0, 0, Rules.InitialAltitude(planeName)))
+	local plane = Actor.Create(planeName, { Location = enterLocation, Owner = owner, Facing = facing, CenterPosition = center })
 	Actor.Trait(plane, "AttackBomber"):SetTarget(bombLocation.CenterPosition)
 	Actor.Fly(plane, bombLocation.CenterPosition)
 	Actor.FlyOffMap(plane)
@@ -13,8 +13,8 @@ end
 
 SupportPowers.Paradrop = function(owner, planeName, passengerNames, enterLocation, dropLocation)
 	local facing = { Map.GetFacing(CPos.op_Subtraction(dropLocation, enterLocation), 0), "Int32" }
-	local altitude = { Rules.TraitInfo(planeName, "AircraftInfo").CruiseAltitude, "Int32" }
-	local plane = Actor.Create(planeName, { Location = enterLocation, Owner = owner, Facing = facing, Altitude = altitude })
+	local center = WPos.op_Addition(enterLocation.CenterPosition, WVec.New(0, 0, Rules.InitialAltitude(planeName)))
+	local plane = Actor.Create(planeName, { Location = enterLocation, Owner = owner, Facing = facing, CenterPosition = center })
 	Actor.FlyAttackCell(plane, dropLocation)
 	Actor.Trait(plane, "ParaDrop"):SetLZ(dropLocation)
 	local cargo = Actor.Trait(plane, "Cargo")
@@ -25,4 +25,17 @@ SupportPowers.Paradrop = function(owner, planeName, passengerNames, enterLocatio
 		cargo:Load(plane, passenger)
 	end
 	return plane, passengers
+end
+
+SupportPowers.Chronoshift = function(unitLocationPairs, chronosphere, duration, killCargo)
+	duration = duration or -1
+	killCargo = killCargo or true
+	Utils.Do(unitLocationPairs, function(pair)
+		local unit = pair[1]
+		local cell = pair[2]
+		local cs = Actor.TraitOrDefault(unit, "Chronoshiftable")
+		if cs ~= nil and cs:CanChronoshiftTo(unit, cell) then
+			cs:Teleport(unit, cell, duration, killCargo, chronosphere)
+		end
+	end)
 end

mods/common/lua/utils.lua

@@ -28,6 +28,14 @@ Utils.EnumerableWhere = function(netEnumerable, func)
 	return ret
 end
 
+Utils.EnumerableToTable = function(netEnumerable, func)
+	local ret = { }
+	for item in Utils.Enumerate(netEnumerable) do
+		table.insert(ret, item)
+	end
+	return ret
+end
+
 Utils.Where = function(array, func)
 	local ret = { }
 	for i, item in ipairs(array) do