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>
This commit is contained in:
let5sne.win10
277
mods/ra/maps/allies-05a/allies05a-AI.lua
Normal file
277
mods/ra/maps/allies-05a/allies05a-AI.lua
Normal file
@@ -0,0 +1,277 @@
|
||||
--[[
|
||||
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 = { }
|
||||
AttackGroupSize = 6
|
||||
|
||||
Barracks = { Barracks2, Barracks3 }
|
||||
|
||||
Rallypoints = { VehicleRallypoint1, VehicleRallypoint2, VehicleRallypoint3, VehicleRallypoint4, VehicleRallypoint5 }
|
||||
WaterLZs = { WaterLZ1, WaterLZ2 }
|
||||
|
||||
Airfields = { Airfield1, Airfield2 }
|
||||
Yaks = { }
|
||||
|
||||
SovietInfantryTypes = { "e1", "e1", "e2", "e4" }
|
||||
SovietVehicleTypes = { "3tnk", "3tnk", "3tnk", "v2rl", "v2rl", "apc" }
|
||||
SovietAircraftType = { "yak" }
|
||||
|
||||
HoldProduction = true
|
||||
BuildVehicles = true
|
||||
TrainInfantry = true
|
||||
|
||||
SetupAttackGroup = function()
|
||||
local units = { }
|
||||
|
||||
for i = 0, AttackGroupSize, 1 do
|
||||
if #IdlingUnits == 0 then
|
||||
return units
|
||||
end
|
||||
|
||||
local number = Utils.RandomInteger(1, #IdlingUnits)
|
||||
|
||||
if IdlingUnits[number] and not IdlingUnits[number].IsDead then
|
||||
units[i] = IdlingUnits[number]
|
||||
table.remove(IdlingUnits, number)
|
||||
end
|
||||
end
|
||||
|
||||
return units
|
||||
end
|
||||
|
||||
SendAttack = function()
|
||||
if Attacking then
|
||||
return
|
||||
end
|
||||
Attacking = true
|
||||
HoldProduction = true
|
||||
|
||||
local units = { }
|
||||
if SendWaterTransports and Utils.RandomInteger(0,2) == 1 then
|
||||
units = WaterAttack()
|
||||
|
||||
Utils.Do(units, function(unit)
|
||||
Trigger.OnAddedToWorld(unit, function()
|
||||
Trigger.OnIdle(unit, unit.Hunt)
|
||||
end)
|
||||
end)
|
||||
|
||||
Trigger.AfterDelay(DateTime.Seconds(20), function()
|
||||
Attacking = false
|
||||
HoldProduction = false
|
||||
end)
|
||||
else
|
||||
units = SetupAttackGroup()
|
||||
|
||||
Utils.Do(units, function(unit)
|
||||
IdleHunt(unit)
|
||||
end)
|
||||
|
||||
Trigger.AfterDelay(DateTime.Minutes(1), function() Attacking = false end)
|
||||
Trigger.AfterDelay(DateTime.Minutes(2), function() HoldProduction = false end)
|
||||
end
|
||||
end
|
||||
|
||||
WaterAttack = function()
|
||||
local types = { }
|
||||
for i = 1, 5, 1 do
|
||||
types[i] = Utils.Random(SovietInfantryTypes)
|
||||
end
|
||||
|
||||
return Reinforcements.ReinforceWithTransport(USSR, InsertionTransport, types, { WaterTransportSpawn.Location, Utils.Random(WaterLZs).Location }, { WaterTransportSpawn.Location })[2]
|
||||
end
|
||||
|
||||
ProtectHarvester = function(unit)
|
||||
Trigger.OnDamaged(unit, function(self, attacker)
|
||||
-- TODO: Send the Harvester to the service depo
|
||||
|
||||
if AttackOnGoing then
|
||||
return
|
||||
end
|
||||
AttackOnGoing = true
|
||||
|
||||
local Guards = SetupAttackGroup()
|
||||
Utils.Do(Guards, function(unit)
|
||||
if not self.IsDead then
|
||||
unit.AttackMove(self.Location)
|
||||
end
|
||||
IdleHunt(unit)
|
||||
end)
|
||||
|
||||
Trigger.OnAllRemovedFromWorld(Guards, function() AttackOnGoing = false end)
|
||||
end)
|
||||
|
||||
Trigger.OnKilled(unit, function() HarvesterKilled = true end)
|
||||
end
|
||||
|
||||
InitAIUnits = function()
|
||||
IdlingUnits = Utils.Where(Map.ActorsInWorld, function(self) return self.Owner == USSR and self.HasProperty("Hunt") and self.Location.Y > MainBaseTopLeft.Location.Y end)
|
||||
|
||||
local buildings = Utils.Where(Map.ActorsInWorld, function(self) return self.Owner == USSR and self.HasProperty("StartBuildingRepairs") end)
|
||||
Utils.Do(buildings, function(actor)
|
||||
Trigger.OnDamaged(actor, function(building)
|
||||
if building.Owner == USSR and building.Health < building.MaxHealth * 3/4 then
|
||||
building.StartBuildingRepairs()
|
||||
end
|
||||
end)
|
||||
end)
|
||||
end
|
||||
|
||||
InitAIEconomy = function()
|
||||
USSR.Cash = 6000
|
||||
|
||||
if not Harvester.IsDead then
|
||||
Harvester.FindResources()
|
||||
ProtectHarvester(Harvester)
|
||||
end
|
||||
end
|
||||
|
||||
InitProductionBuildings = function()
|
||||
if not Warfactory2.IsDead then
|
||||
Warfactory2.IsPrimaryBuilding = true
|
||||
Trigger.OnKilled(Warfactory2, function() BuildVehicles = false end)
|
||||
else
|
||||
BuildVehicles = false
|
||||
end
|
||||
|
||||
if not Barracks2.IsDead then
|
||||
Barracks2.IsPrimaryBuilding = true
|
||||
|
||||
Trigger.OnKilled(Barracks2, function()
|
||||
if not Barracks3.IsDead then
|
||||
Barracks3.IsPrimaryBuilding = true
|
||||
else
|
||||
TrainInfantry = false
|
||||
end
|
||||
end)
|
||||
elseif not Barracks3.IsDead then
|
||||
Barracks3.IsPrimaryBuilding = true
|
||||
else
|
||||
TrainInfantry = false
|
||||
end
|
||||
|
||||
if not Barracks3.IsDead then
|
||||
Trigger.OnKilled(Barracks3, function()
|
||||
if Barracks2.IsDead then
|
||||
TrainInfantry = false
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
if Difficulty ~= "easy" then
|
||||
|
||||
if not Airfield1.IsDead then
|
||||
Trigger.OnKilled(Airfield1, function()
|
||||
if Airfield2.IsDead then
|
||||
AirAttacks = false
|
||||
else
|
||||
Airfield2.IsPrimaryBuilding = true
|
||||
Trigger.OnKilled(Airfield2, function() AirAttacks = false end)
|
||||
end
|
||||
end)
|
||||
|
||||
Airfield1.IsPrimaryBuilding = true
|
||||
AirAttacks = true
|
||||
|
||||
elseif not Airfield2.IsDead then
|
||||
Trigger.OnKilled(Airfield2, function() AirAttacks = false end)
|
||||
|
||||
Airfield2.IsPrimaryBuilding = true
|
||||
AirAttacks = true
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
ProduceInfantry = function()
|
||||
if not TrainInfantry then
|
||||
return
|
||||
end
|
||||
|
||||
if HoldProduction then
|
||||
Trigger.AfterDelay(DateTime.Minutes(1), ProduceInfantry)
|
||||
return
|
||||
end
|
||||
|
||||
local delay = Utils.RandomInteger(DateTime.Seconds(3), DateTime.Seconds(9))
|
||||
local toBuild = { Utils.Random(SovietInfantryTypes) }
|
||||
USSR.Build(toBuild, function(unit)
|
||||
IdlingUnits[#IdlingUnits + 1] = unit[1]
|
||||
Trigger.AfterDelay(delay, ProduceInfantry)
|
||||
|
||||
if #IdlingUnits >= (AttackGroupSize * 2.5) then
|
||||
SendAttack()
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
ProduceVehicles = function()
|
||||
if not BuildVehicles then
|
||||
return
|
||||
end
|
||||
|
||||
if HoldProduction then
|
||||
Trigger.AfterDelay(DateTime.Minutes(1), ProduceVehicles)
|
||||
return
|
||||
end
|
||||
|
||||
local delay = Utils.RandomInteger(DateTime.Seconds(5), DateTime.Seconds(9))
|
||||
if HarvesterKilled then
|
||||
HarvesterKilled = false
|
||||
USSR.Build({ "harv" }, function(harv)
|
||||
harv[1].FindResources()
|
||||
ProtectHarvester(harv[1])
|
||||
Trigger.AfterDelay(delay, ProduceVehicles)
|
||||
end)
|
||||
return
|
||||
end
|
||||
|
||||
Warfactory2.RallyPoint = Utils.Random(Rallypoints).Location
|
||||
local toBuild = { Utils.Random(SovietVehicleTypes) }
|
||||
USSR.Build(toBuild, function(unit)
|
||||
IdlingUnits[#IdlingUnits + 1] = unit[1]
|
||||
Trigger.AfterDelay(delay, ProduceVehicles)
|
||||
|
||||
if #IdlingUnits >= (AttackGroupSize * 2.5) then
|
||||
SendAttack()
|
||||
end
|
||||
end)
|
||||
end
|
||||
|
||||
ProduceAircraft = function()
|
||||
if not AirAttacks then
|
||||
return
|
||||
end
|
||||
|
||||
USSR.Build(SovietAircraftType, function(units)
|
||||
local yak = units[1]
|
||||
Yaks[#Yaks + 1] = yak
|
||||
|
||||
Trigger.OnKilled(yak, ProduceAircraft)
|
||||
if #Yaks == 1 then
|
||||
Trigger.AfterDelay(DateTime.Minutes(1), ProduceAircraft)
|
||||
end
|
||||
|
||||
InitializeAttackAircraft(yak, Greece)
|
||||
end)
|
||||
end
|
||||
|
||||
ActivateAI = function()
|
||||
|
||||
InitAIUnits()
|
||||
InitAIEconomy()
|
||||
InitProductionBuildings()
|
||||
|
||||
Trigger.AfterDelay(DateTime.Minutes(5), function()
|
||||
ProduceInfantry()
|
||||
ProduceVehicles()
|
||||
if AirAttacks then
|
||||
Trigger.AfterDelay(DateTime.Minutes(3), ProduceAircraft)
|
||||
end
|
||||
end)
|
||||
end
|
||||
Reference in New Issue
Block a user