mirror of
https://github.com/FlightControl-Master/MOOSE_MISSIONS.git
synced 2026-09-02 15:03:42 +00:00
Updated Moose.lua
This commit is contained in:
funkyfranky
@@ -1,39 +1,39 @@
|
||||
------------------
|
||||
-- Self Request --
|
||||
------------------
|
||||
-- 1. Two groups of infantry are spawned in the Batumi spawn zone.
|
||||
-- 2. After ~10 seconds they are put back into the warehouse stock.
|
||||
-- 3. After some time they are spawned again.
|
||||
-- 4. And so on and so forth...
|
||||
|
||||
-- Create a WAREHOUSE object.
|
||||
local warehouseBatumi=WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi")
|
||||
|
||||
-- Start warehouse Batumi.
|
||||
warehouseBatumi:Start()
|
||||
|
||||
-- Add one infantry asset.
|
||||
warehouseBatumi:AddAsset(GROUP:FindByName("Infantry Platoon Alpha"), 4)
|
||||
|
||||
-- Add self request for one infantry at Batumi.
|
||||
warehouseBatumi:AddRequest(warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2)
|
||||
|
||||
--- Self request event. Triggered once the assets are spawned in the spawn zone or at the airbase.
|
||||
function warehouseBatumi:OnAfterSelfRequest(From, Event, To, groupset, request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
|
||||
-- Loop over all groups spawned from that request.
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Gree smoke on spawned group.
|
||||
--group:SmokeGreen()
|
||||
|
||||
-- Put asset back to stock after 10 seconds.
|
||||
warehouseBatumi:__AddAsset(10, group)
|
||||
end
|
||||
|
||||
-- Add new self request after 20 seconds.
|
||||
warehouseBatumi:__AddRequest(20, warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2)
|
||||
|
||||
end
|
||||
------------------
|
||||
-- Self Request --
|
||||
------------------
|
||||
-- 1. Two groups of infantry are spawned in the Batumi spawn zone.
|
||||
-- 2. After ~10 seconds they are put back into the warehouse stock.
|
||||
-- 3. After some time they are spawned again.
|
||||
-- 4. And so on and so forth...
|
||||
|
||||
-- Create a WAREHOUSE object.
|
||||
local warehouseBatumi=WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi")
|
||||
|
||||
-- Start warehouse Batumi.
|
||||
warehouseBatumi:Start()
|
||||
|
||||
-- Add one infantry asset.
|
||||
warehouseBatumi:AddAsset(GROUP:FindByName("Infantry Platoon Alpha"), 4)
|
||||
|
||||
-- Add self request for one infantry at Batumi.
|
||||
warehouseBatumi:AddRequest(warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2)
|
||||
|
||||
--- Self request event. Triggered once the assets are spawned in the spawn zone or at the airbase.
|
||||
function warehouseBatumi:OnAfterSelfRequest(From, Event, To, groupset, request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
|
||||
-- Loop over all groups spawned from that request.
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Gree smoke on spawned group.
|
||||
--group:SmokeGreen()
|
||||
|
||||
-- Put asset back to stock after 10 seconds.
|
||||
warehouseBatumi:__AddAsset(10, group)
|
||||
end
|
||||
|
||||
-- Add new self request after 20 seconds.
|
||||
warehouseBatumi:__AddRequest(20, warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2)
|
||||
|
||||
end
|
||||
|
||||
+30
-30
@@ -1,30 +1,30 @@
|
||||
----------------------------------
|
||||
-- Self Propelled Ground Troops --
|
||||
----------------------------------
|
||||
-- 1. Ground troops - APCs and infantry - are transferred from Batumi to FARP Berlin.
|
||||
-- 2. Warehouse Berlin is empty initially. But a request from Batumi is made for APCs. This cannot be processed and is held in the queue.
|
||||
-- 3. Once the assets arrive at Berlin, the request can be processed and some APCs are send back to Batumi.
|
||||
|
||||
-- Create WAREHOUSE objects.
|
||||
local warehouseBatumi=WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi")
|
||||
local warehouseBerlin=WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin")
|
||||
|
||||
-- Set spawn zone for warehouse Batumi.
|
||||
warehouseBatumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
|
||||
-- Start Warehouse at Batumi.
|
||||
warehouseBatumi:Start()
|
||||
|
||||
-- Add 20 infantry groups and 10 APCs as assets to Batumi warehouse stock.
|
||||
warehouseBatumi:AddAsset("Infantry Platoon Alpha", 20)
|
||||
warehouseBatumi:AddAsset("TPz Fuchs", 10)
|
||||
|
||||
-- Start Warehouse Berlin.
|
||||
warehouseBerlin:Start()
|
||||
|
||||
-- Warehouse Berlin requests ten infantry groups and five APCs from warehouse Batumi
|
||||
warehouseBatumi:AddRequest(warehouseBerlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 10)
|
||||
warehouseBatumi:AddRequest(warehouseBerlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_APC, 5)
|
||||
|
||||
-- Request from Batumi for two APCs. Initially these are not in stock. When they become available, the request is executed.
|
||||
warehouseBerlin:AddRequest(warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_APC, 2)
|
||||
----------------------------------
|
||||
-- Self Propelled Ground Troops --
|
||||
----------------------------------
|
||||
-- 1. Ground troops - APCs and infantry - are transferred from Batumi to FARP Berlin.
|
||||
-- 2. Warehouse Berlin is empty initially. But a request from Batumi is made for APCs. This cannot be processed and is held in the queue.
|
||||
-- 3. Once the assets arrive at Berlin, the request can be processed and some APCs are send back to Batumi.
|
||||
|
||||
-- Create WAREHOUSE objects.
|
||||
local warehouseBatumi=WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi")
|
||||
local warehouseBerlin=WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin")
|
||||
|
||||
-- Set spawn zone for warehouse Batumi.
|
||||
warehouseBatumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
|
||||
-- Start Warehouse at Batumi.
|
||||
warehouseBatumi:Start()
|
||||
|
||||
-- Add 20 infantry groups and 10 APCs as assets to Batumi warehouse stock.
|
||||
warehouseBatumi:AddAsset("Infantry Platoon Alpha", 20)
|
||||
warehouseBatumi:AddAsset("TPz Fuchs", 10)
|
||||
|
||||
-- Start Warehouse Berlin.
|
||||
warehouseBerlin:Start()
|
||||
|
||||
-- Warehouse Berlin requests ten infantry groups and five APCs from warehouse Batumi
|
||||
warehouseBatumi:AddRequest(warehouseBerlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 10)
|
||||
warehouseBatumi:AddRequest(warehouseBerlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_APC, 5)
|
||||
|
||||
-- Request from Batumi for two APCs. Initially these are not in stock. When they become available, the request is executed.
|
||||
warehouseBerlin:AddRequest(warehouseBatumi, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_APC, 2)
|
||||
|
||||
+29
-29
@@ -1,29 +1,29 @@
|
||||
------------------------------------
|
||||
-- Self Propelled Airborne Assets --
|
||||
------------------------------------
|
||||
-- 1. Kutaisi requests two Yak-52 with high (10) priority from Senaki.
|
||||
-- 2. Kobuleti requests half Yak-52 with low (70) priority and gets the remaining half of the rest.
|
||||
-- 3. FARP London requests 1/3 of all available Hueys from Senaki.
|
||||
|
||||
-- Create WAREHOUSE objects.
|
||||
local warehouseSenaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki")
|
||||
local warehouseKutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi")
|
||||
local warehouseKobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti")
|
||||
local warehouseLondon = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London")
|
||||
|
||||
-- Start warehouses
|
||||
warehouseSenaki:Start()
|
||||
warehouseKutaisi:Start()
|
||||
warehouseKobuleti:Start()
|
||||
warehouseLondon:Start()
|
||||
|
||||
-- Add assets to Senaki warehouse
|
||||
warehouseSenaki:AddAsset("Yak-52", 10)
|
||||
warehouseSenaki:AddAsset("Huey", 6)
|
||||
|
||||
-- Kusaisi requests 3 Yak-52 form Senaki while Kobuleti wants all the rest.
|
||||
warehouseSenaki:AddRequest(warehouseKutaisi, WAREHOUSE.Descriptor.GROUPNAME, "Yak-52", 1, nil, nil, 10)
|
||||
warehouseSenaki:AddRequest(warehouseKobuleti, WAREHOUSE.Descriptor.GROUPNAME, "Yak-52", WAREHOUSE.Quantity.HALF, nil, nil, 70)
|
||||
|
||||
-- FARP London wants 1/3 of the six available Hueys.
|
||||
warehouseSenaki:AddRequest(warehouseLondon, WAREHOUSE.Descriptor.GROUPNAME, "Huey", WAREHOUSE.Quantity.THIRD)
|
||||
------------------------------------
|
||||
-- Self Propelled Airborne Assets --
|
||||
------------------------------------
|
||||
-- 1. Kutaisi requests two Yak-52 with high (10) priority from Senaki.
|
||||
-- 2. Kobuleti requests half Yak-52 with low (70) priority and gets the remaining half of the rest.
|
||||
-- 3. FARP London requests 1/3 of all available Hueys from Senaki.
|
||||
|
||||
-- Create WAREHOUSE objects.
|
||||
local warehouseSenaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki")
|
||||
local warehouseKutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi")
|
||||
local warehouseKobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti")
|
||||
local warehouseLondon = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London")
|
||||
|
||||
-- Start warehouses
|
||||
warehouseSenaki:Start()
|
||||
warehouseKutaisi:Start()
|
||||
warehouseKobuleti:Start()
|
||||
warehouseLondon:Start()
|
||||
|
||||
-- Add assets to Senaki warehouse
|
||||
warehouseSenaki:AddAsset("Yak-52", 10)
|
||||
warehouseSenaki:AddAsset("Huey", 6)
|
||||
|
||||
-- Kusaisi requests 3 Yak-52 form Senaki while Kobuleti wants all the rest.
|
||||
warehouseSenaki:AddRequest(warehouseKutaisi, WAREHOUSE.Descriptor.GROUPNAME, "Yak-52", 1, nil, nil, 10)
|
||||
warehouseSenaki:AddRequest(warehouseKobuleti, WAREHOUSE.Descriptor.GROUPNAME, "Yak-52", WAREHOUSE.Quantity.HALF, nil, nil, 70)
|
||||
|
||||
-- FARP London wants 1/3 of the six available Hueys.
|
||||
warehouseSenaki:AddRequest(warehouseLondon, WAREHOUSE.Descriptor.GROUPNAME, "Huey", WAREHOUSE.Quantity.THIRD)
|
||||
|
||||
@@ -1,103 +1,103 @@
|
||||
-----------------------
|
||||
-- Test 17: Resupply --
|
||||
-----------------------
|
||||
-- Warehouse at FARP Berlin is located at the front line and sends infantry groups to the battle zone.
|
||||
-- Whenever a group dies, a new group is send from the warehouse to the battle zone.
|
||||
-- Additionally, for each dead group, Berlin requests resupply from Batumi.
|
||||
|
||||
-- Display mission time every 30 seconds.
|
||||
SCHEDULER:New(nil, UTILS.DisplayMissionTime, {5}, 30, 30)
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
-- Define Warehouses.
|
||||
local warehouse={}
|
||||
|
||||
-- Blue warehouses
|
||||
warehouse.Senaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Batumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Berlin = WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.London = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Stennis = WAREHOUSE:New(STATIC:FindByName("Warehouse Stennis"), "Stennis") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pampa = WAREHOUSE:New(STATIC:FindByName("Warehouse Pampa"), "Pampa") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pearth = WAREHOUSE:New(STATIC:FindByName("Warehouse Pearth"), "Pearth") --Functional.Warehouse#WAREHOUSE
|
||||
-- Red warehouse
|
||||
warehouse.Sukhumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sukhumi"), "Sukhumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Gudauta = WAREHOUSE:New(STATIC:FindByName("Warehouse Gudauta"), "Gudauta") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Sochi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sochi"), "Sochi") --Functional.Warehouse#WAREHOUSE
|
||||
|
||||
-- Fine tune warehouses if necessary.
|
||||
warehouse.Batumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
warehouse.Senaki:SetSpawnZone(ZONE:New("Warehouse Senaki Spawn Zone"))
|
||||
warehouse.Kobuleti:SetSpawnZone(ZONE_POLYGON:New("Warehouse Kobuleti Spawn Zone", GROUP:FindByName("Warehouse Kobuleti Spawn Zone")))
|
||||
|
||||
|
||||
-- Creat explosion at an object.
|
||||
local function Explosion(object, power)
|
||||
power=power or 1000
|
||||
if object and object:IsAlive() then
|
||||
object:GetCoordinate():Explosion(power)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Start warehouses.
|
||||
warehouse.Batumi:Start()
|
||||
warehouse.Berlin:Start()
|
||||
|
||||
-- Front line warehouse.
|
||||
warehouse.Berlin:AddAsset("Infantry Platoon Alpha", 6)
|
||||
|
||||
-- Resupply warehouse.
|
||||
warehouse.Batumi:AddAsset("Infantry Platoon Alpha", 50)
|
||||
|
||||
-- Battle zone near FARP Berlin. This is where the action is!
|
||||
local BattleZone=ZONE:New("Virtual Battle Zone")
|
||||
|
||||
-- Send infantry groups to the battle zone. Two groups every ~60 seconds.
|
||||
for i=1,2 do
|
||||
local time=(i-1)*60+10
|
||||
warehouse.Berlin:__AddRequest(time, warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2, nil, nil, nil, "To Battle Zone")
|
||||
end
|
||||
|
||||
-- Take care of the spawned units.
|
||||
function warehouse.Berlin:OnAfterSelfRequest(From,Event,To,groupset,request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment of this request.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
if assignment=="To Battle Zone" then
|
||||
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Route group to Battle zone.
|
||||
local ToCoord=BattleZone:GetRandomCoordinate()
|
||||
group:RouteGroundOnRoad(ToCoord, group:GetSpeedMax()*80)
|
||||
|
||||
-- After 3-5 minutes we create an explosion to destroy the group.
|
||||
SCHEDULER:New(nil, Explosion, {group, 50}, math.random(180, 300))
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
-- An asset has died ==> request resupply for it.
|
||||
function warehouse.Berlin:OnAfterAssetDead(From, Event, To, asset, request)
|
||||
local asset=asset --Functional.Warehouse#WAREHOUSE.Assetitem
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
-- Request resupply for dead asset from Batumi.
|
||||
warehouse.Batumi:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, nil, nil, nil, nil, "Resupply")
|
||||
|
||||
-- Send asset to Battle zone either now or when they arrive.
|
||||
warehouse.Berlin:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, 1, nil, nil, nil, assignment)
|
||||
end
|
||||
-----------------------
|
||||
-- Test 17: Resupply --
|
||||
-----------------------
|
||||
-- Warehouse at FARP Berlin is located at the front line and sends infantry groups to the battle zone.
|
||||
-- Whenever a group dies, a new group is send from the warehouse to the battle zone.
|
||||
-- Additionally, for each dead group, Berlin requests resupply from Batumi.
|
||||
|
||||
-- Display mission time every 30 seconds.
|
||||
SCHEDULER:New(nil, UTILS.DisplayMissionTime, {5}, 30, 30)
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
-- Define Warehouses.
|
||||
local warehouse={}
|
||||
|
||||
-- Blue warehouses
|
||||
warehouse.Senaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Batumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Berlin = WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.London = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Stennis = WAREHOUSE:New(STATIC:FindByName("Warehouse Stennis"), "Stennis") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pampa = WAREHOUSE:New(STATIC:FindByName("Warehouse Pampa"), "Pampa") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pearth = WAREHOUSE:New(STATIC:FindByName("Warehouse Pearth"), "Pearth") --Functional.Warehouse#WAREHOUSE
|
||||
-- Red warehouse
|
||||
warehouse.Sukhumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sukhumi"), "Sukhumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Gudauta = WAREHOUSE:New(STATIC:FindByName("Warehouse Gudauta"), "Gudauta") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Sochi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sochi"), "Sochi") --Functional.Warehouse#WAREHOUSE
|
||||
|
||||
-- Fine tune warehouses if necessary.
|
||||
warehouse.Batumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
warehouse.Senaki:SetSpawnZone(ZONE:New("Warehouse Senaki Spawn Zone"))
|
||||
warehouse.Kobuleti:SetSpawnZone(ZONE_POLYGON:New("Warehouse Kobuleti Spawn Zone", GROUP:FindByName("Warehouse Kobuleti Spawn Zone")))
|
||||
|
||||
|
||||
-- Creat explosion at an object.
|
||||
local function Explosion(object, power)
|
||||
power=power or 1000
|
||||
if object and object:IsAlive() then
|
||||
object:GetCoordinate():Explosion(power)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Start warehouses.
|
||||
warehouse.Batumi:Start()
|
||||
warehouse.Berlin:Start()
|
||||
|
||||
-- Front line warehouse.
|
||||
warehouse.Berlin:AddAsset("Infantry Platoon Alpha", 6)
|
||||
|
||||
-- Resupply warehouse.
|
||||
warehouse.Batumi:AddAsset("Infantry Platoon Alpha", 50)
|
||||
|
||||
-- Battle zone near FARP Berlin. This is where the action is!
|
||||
local BattleZone=ZONE:New("Virtual Battle Zone")
|
||||
|
||||
-- Send infantry groups to the battle zone. Two groups every ~60 seconds.
|
||||
for i=1,2 do
|
||||
local time=(i-1)*60+10
|
||||
warehouse.Berlin:__AddRequest(time, warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2, nil, nil, nil, "To Battle Zone")
|
||||
end
|
||||
|
||||
-- Take care of the spawned units.
|
||||
function warehouse.Berlin:OnAfterSelfRequest(From,Event,To,groupset,request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment of this request.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
if assignment=="To Battle Zone" then
|
||||
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Route group to Battle zone.
|
||||
local ToCoord=BattleZone:GetRandomCoordinate()
|
||||
group:RouteGroundOnRoad(ToCoord, group:GetSpeedMax()*80)
|
||||
|
||||
-- After 3-5 minutes we create an explosion to destroy the group.
|
||||
SCHEDULER:New(nil, Explosion, {group, 50}, math.random(180, 300))
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
-- An asset has died ==> request resupply for it.
|
||||
function warehouse.Berlin:OnAfterAssetDead(From, Event, To, asset, request)
|
||||
local asset=asset --Functional.Warehouse#WAREHOUSE.Assetitem
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
-- Request resupply for dead asset from Batumi.
|
||||
warehouse.Batumi:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, nil, nil, nil, nil, "Resupply")
|
||||
|
||||
-- Send asset to Battle zone either now or when they arrive.
|
||||
warehouse.Berlin:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, 1, nil, nil, nil, assignment)
|
||||
end
|
||||
|
||||
@@ -1,103 +1,103 @@
|
||||
-----------------------
|
||||
-- Test 17: Resupply --
|
||||
-----------------------
|
||||
-- Warehouse at FARP Berlin is located at the front line and sends infantry groups to the battle zone.
|
||||
-- Whenever a group dies, a new group is send from the warehouse to the battle zone.
|
||||
-- Additionally, for each dead group, Berlin requests resupply from Batumi.
|
||||
|
||||
-- Display mission time every 30 seconds.
|
||||
SCHEDULER:New(nil, UTILS.DisplayMissionTime, {5}, 30, 30)
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
-- Define Warehouses.
|
||||
local warehouse={}
|
||||
|
||||
-- Blue warehouses
|
||||
warehouse.Senaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Batumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Berlin = WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.London = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Stennis = WAREHOUSE:New(STATIC:FindByName("Warehouse Stennis"), "Stennis") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pampa = WAREHOUSE:New(STATIC:FindByName("Warehouse Pampa"), "Pampa") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pearth = WAREHOUSE:New(STATIC:FindByName("Warehouse Pearth"), "Pearth") --Functional.Warehouse#WAREHOUSE
|
||||
-- Red warehouse
|
||||
warehouse.Sukhumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sukhumi"), "Sukhumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Gudauta = WAREHOUSE:New(STATIC:FindByName("Warehouse Gudauta"), "Gudauta") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Sochi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sochi"), "Sochi") --Functional.Warehouse#WAREHOUSE
|
||||
|
||||
-- Fine tune warehouses if necessary.
|
||||
warehouse.Batumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
warehouse.Senaki:SetSpawnZone(ZONE:New("Warehouse Senaki Spawn Zone"))
|
||||
warehouse.Kobuleti:SetSpawnZone(ZONE_POLYGON:New("Warehouse Kobuleti Spawn Zone", GROUP:FindByName("Warehouse Kobuleti Spawn Zone")))
|
||||
|
||||
|
||||
-- Creat explosion at an object.
|
||||
local function Explosion(object, power)
|
||||
power=power or 1000
|
||||
if object and object:IsAlive() then
|
||||
object:GetCoordinate():Explosion(power)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Start warehouses.
|
||||
warehouse.Batumi:Start()
|
||||
warehouse.Berlin:Start()
|
||||
|
||||
-- Front line warehouse.
|
||||
warehouse.Berlin:AddAsset("Infantry Platoon Alpha", 6)
|
||||
|
||||
-- Resupply warehouse.
|
||||
warehouse.Batumi:AddAsset("Infantry Platoon Alpha", 50)
|
||||
|
||||
-- Battle zone near FARP Berlin. This is where the action is!
|
||||
local BattleZone=ZONE:New("Virtual Battle Zone")
|
||||
|
||||
-- Send infantry groups to the battle zone. Two groups every ~60 seconds.
|
||||
for i=1,2 do
|
||||
local time=(i-1)*60+10
|
||||
warehouse.Berlin:__AddRequest(time, warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2, nil, nil, nil, "To Battle Zone")
|
||||
end
|
||||
|
||||
-- Take care of the spawned units.
|
||||
function warehouse.Berlin:OnAfterSelfRequest(From,Event,To,groupset,request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment of this request.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
if assignment=="To Battle Zone" then
|
||||
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Route group to Battle zone.
|
||||
local ToCoord=BattleZone:GetRandomCoordinate()
|
||||
group:RouteGroundOnRoad(ToCoord, group:GetSpeedMax()*80)
|
||||
|
||||
-- After 3-5 minutes we create an explosion to destroy the group.
|
||||
SCHEDULER:New(nil, Explosion, {group, 50}, math.random(180, 300))
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
-- An asset has died ==> request resupply for it.
|
||||
function warehouse.Berlin:OnAfterAssetDead(From, Event, To, asset, request)
|
||||
local asset=asset --Functional.Warehouse#WAREHOUSE.Assetitem
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
-- Request resupply for dead asset from Batumi.
|
||||
warehouse.Batumi:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, nil, nil, nil, nil, "Resupply")
|
||||
|
||||
-- Send asset to Battle zone either now or when they arrive.
|
||||
warehouse.Berlin:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, 1, nil, nil, nil, assignment)
|
||||
end
|
||||
-----------------------
|
||||
-- Test 17: Resupply --
|
||||
-----------------------
|
||||
-- Warehouse at FARP Berlin is located at the front line and sends infantry groups to the battle zone.
|
||||
-- Whenever a group dies, a new group is send from the warehouse to the battle zone.
|
||||
-- Additionally, for each dead group, Berlin requests resupply from Batumi.
|
||||
|
||||
-- Display mission time every 30 seconds.
|
||||
SCHEDULER:New(nil, UTILS.DisplayMissionTime, {5}, 30, 30)
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
-- Define Warehouses.
|
||||
local warehouse={}
|
||||
|
||||
-- Blue warehouses
|
||||
warehouse.Senaki = WAREHOUSE:New(STATIC:FindByName("Warehouse Senaki"), "Senaki") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Batumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Batumi"), "Batumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kobuleti = WAREHOUSE:New(STATIC:FindByName("Warehouse Kobuleti"), "Kobuleti") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Kutaisi = WAREHOUSE:New(STATIC:FindByName("Warehouse Kutaisi"), "Kutaisi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Berlin = WAREHOUSE:New(STATIC:FindByName("Warehouse Berlin"), "Berlin") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.London = WAREHOUSE:New(STATIC:FindByName("Warehouse London"), "London") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Stennis = WAREHOUSE:New(STATIC:FindByName("Warehouse Stennis"), "Stennis") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pampa = WAREHOUSE:New(STATIC:FindByName("Warehouse Pampa"), "Pampa") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Pearth = WAREHOUSE:New(STATIC:FindByName("Warehouse Pearth"), "Pearth") --Functional.Warehouse#WAREHOUSE
|
||||
-- Red warehouse
|
||||
warehouse.Sukhumi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sukhumi"), "Sukhumi") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Gudauta = WAREHOUSE:New(STATIC:FindByName("Warehouse Gudauta"), "Gudauta") --Functional.Warehouse#WAREHOUSE
|
||||
warehouse.Sochi = WAREHOUSE:New(STATIC:FindByName("Warehouse Sochi"), "Sochi") --Functional.Warehouse#WAREHOUSE
|
||||
|
||||
-- Fine tune warehouses if necessary.
|
||||
warehouse.Batumi:SetSpawnZone(ZONE:New("Warehouse Batumi Spawn Zone"))
|
||||
warehouse.Senaki:SetSpawnZone(ZONE:New("Warehouse Senaki Spawn Zone"))
|
||||
warehouse.Kobuleti:SetSpawnZone(ZONE_POLYGON:New("Warehouse Kobuleti Spawn Zone", GROUP:FindByName("Warehouse Kobuleti Spawn Zone")))
|
||||
|
||||
|
||||
-- Creat explosion at an object.
|
||||
local function Explosion(object, power)
|
||||
power=power or 1000
|
||||
if object and object:IsAlive() then
|
||||
object:GetCoordinate():Explosion(power)
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
-- Start warehouses.
|
||||
warehouse.Batumi:Start()
|
||||
warehouse.Berlin:Start()
|
||||
|
||||
-- Front line warehouse.
|
||||
warehouse.Berlin:AddAsset("Infantry Platoon Alpha", 6)
|
||||
|
||||
-- Resupply warehouse.
|
||||
warehouse.Batumi:AddAsset("Infantry Platoon Alpha", 50)
|
||||
|
||||
-- Battle zone near FARP Berlin. This is where the action is!
|
||||
local BattleZone=ZONE:New("Virtual Battle Zone")
|
||||
|
||||
-- Send infantry groups to the battle zone. Two groups every ~60 seconds.
|
||||
for i=1,2 do
|
||||
local time=(i-1)*60+10
|
||||
warehouse.Berlin:__AddRequest(time, warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, WAREHOUSE.Attribute.GROUND_INFANTRY, 2, nil, nil, nil, "To Battle Zone")
|
||||
end
|
||||
|
||||
-- Take care of the spawned units.
|
||||
function warehouse.Berlin:OnAfterSelfRequest(From,Event,To,groupset,request)
|
||||
local groupset=groupset --Core.Set#SET_GROUP
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment of this request.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
if assignment=="To Battle Zone" then
|
||||
|
||||
for _,group in pairs(groupset:GetSet()) do
|
||||
local group=group --Wrapper.Group#GROUP
|
||||
|
||||
-- Route group to Battle zone.
|
||||
local ToCoord=BattleZone:GetRandomCoordinate()
|
||||
group:RouteGroundOnRoad(ToCoord, group:GetSpeedMax()*80)
|
||||
|
||||
-- After 3-5 minutes we create an explosion to destroy the group.
|
||||
SCHEDULER:New(nil, Explosion, {group, 50}, math.random(180, 300))
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
end
|
||||
|
||||
-- An asset has died ==> request resupply for it.
|
||||
function warehouse.Berlin:OnAfterAssetDead(From, Event, To, asset, request)
|
||||
local asset=asset --Functional.Warehouse#WAREHOUSE.Assetitem
|
||||
local request=request --Functional.Warehouse#WAREHOUSE.Pendingitem
|
||||
|
||||
-- Get assignment.
|
||||
local assignment=warehouse.Berlin:GetAssignment(request)
|
||||
|
||||
-- Request resupply for dead asset from Batumi.
|
||||
warehouse.Batumi:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, nil, nil, nil, nil, "Resupply")
|
||||
|
||||
-- Send asset to Battle zone either now or when they arrive.
|
||||
warehouse.Berlin:AddRequest(warehouse.Berlin, WAREHOUSE.Descriptor.ATTRIBUTE, asset.attribute, 1, nil, nil, nil, assignment)
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user