MOOSE demonstration missions [skip ci]

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-000 - APC/AIC-APC-000 - APC.lua

@@ -2,6 +2,8 @@
 -- Name: AIC-APC-000 - APC
 -- Author: FlightControl
 -- Date Created: 26 Mar 2018
+-- Date Checked: 01 Jan 2021
+-- Working example
 --
 -- A demonstration of the AI_CARGO_APC class.
 -- This simple example transports Infantry.

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-000 - APC/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-000 - APC/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-001 - APC with Cargo declared in ME/AIC-APC-001 - APC with Cargo declared in ME.lua

@@ -2,12 +2,14 @@
 -- Name: AIC-APC-001 - APC with Cargo declared in ME
 -- Author: FlightControl
 -- Date Created: 26 Mar 2018
+-- Date Checked: 01 Dec 2021
+-- Changed Cargo auto tag from  ~ to #, working example
 --
 -- A demonstration of the AI_CARGO_APC class.
 -- This simple example transports Infantry.
--- The cargo is declared with the ~CARGO tag in the mission editor.
+-- The cargo is declared with the #CARGO tag in the mission editor.
 -- So, within the mission, the infantry groups have the name:
--- 
+-- e.g. Infantry1#CARGO(T=Infantry,RR=2000,NR=25)
 
 local InfantryCargoSet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart() 
 local APC = GROUP:FindByName( "APC" )

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-001 - APC with Cargo declared in ME/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-001 - APC with Cargo declared in ME/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-002 - APC Move by Game Master/AIC-APC-002 - APC Move by Game Master.lua

@@ -2,7 +2,7 @@
 -- Name: AIC-APC-002 - APC Move by Game Master
 -- Author: FlightControl
 -- Date Created: 26 Mar 2018
---
+-- Date Checked: 01 Jan 2021. Changed ~ to # in ME Group Names. Not sure how this is supposed to work for the Game Master
 
 local InfantryCargoSet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart()
 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-002 - APC Move by Game Master/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-002 - APC Move by Game Master/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-003 - APC Troops and Equipment/AIC-APC-003 - APC Troops and Equipment.lua

@@ -2,7 +2,8 @@
 -- Name: AIC-APC-003 - APC Troops and Equipment
 -- Author: FlightControl
 -- Date Created: 07 Apr 2018
---
+-- Date Checked: 01 Jan 2021
+-- Not sure what the test case is
 
 local InfantryCargoSet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart()
 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-003 - APC Troops and Equipment/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-003 - APC Troops and Equipment/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-004 - APC Pickup/AIC-APC-004 - APC Pickup.lua

@@ -2,7 +2,10 @@
 -- Name: AIC-APC-004 - APC Pickup
 -- Author: FlightControl
 -- Date Created: 23 Apr 2018
---
+-- Date Checked: 01 Jan 2021, working example, changed Deploy to async call
+
+BASE:TraceClass("AI_CARGO_APC")
+BASE:TraceOn()
 
 local InfantryCargoSet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart()
 local APC = GROUP:FindByName( "APC" )
@@ -19,7 +22,7 @@ Cargo_APC:__Pickup( 1, ZONE:New( "Pickup" ):GetCoordinate() )
 -- @param #string Event
 -- @param #string To
 function Cargo_APC:OnAfterLoaded( APC, From, Event, To )
-  Cargo_APC:Deploy( ZONE:New( "Deploy" ):GetCoordinate() )
+  Cargo_APC:__Deploy( 1, ZONE:New( "Deploy" ):GetCoordinate() )
 end
 
 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-004 - APC Pickup/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-004 - APC Pickup/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-006 - Troops Relocate APC/AIC-APC-001 - Troops Relocate APC.lua

@@ -2,9 +2,13 @@
 -- Name: AIC-APC-001 - Troops Relocate APC
 -- Author: FlightControl
 -- Date Created: 07 Apr 2018
+-- Date Checked: 01 Jan 2021, working
 -- 
 -- Demonstration of troops relocation when carrier is destroyed...
 -- Carrier will relocate to the rescue carrier.
+-- 
+
+BASE:TraceClass("AI_CARGO_APC")
 
 local InfantryCargoSet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart()
 
@@ -19,6 +23,7 @@ function CargoTroops:OnAfterDestroyed( CargoCarrier )
   local NewCarrierGroup = self:FindCarrier( CargoCarrier:GetCoordinate(), 1000 ) -- which returns one Carrier GROUP object or nil.
   if NewCarrierGroup then
     self:SetCarrier( NewCarrierGroup )
+    self:__Pickup(1,ZONE:New("Pickup Zone"):GetCoordinate(),30)
   end
 end
 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-006 - Troops Relocate APC/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-006 - Troops Relocate APC/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-010 - Multiple APC/AIC-APC-010 - Multiple APC.lua

@@ -2,6 +2,7 @@
 -- Name: AIC-APC-010 - Multiple APC
 -- Author: FlightControl
 -- Date Created: 24 Apr 2018
+-- Date Checked: 01 Jan 2021, working
 --
 
 local InfantrySet = SET_CARGO:New():FilterTypes( "Infantry" ):FilterStart()

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-011 - APC Pickup and Deploy/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/APC - Armoured Personnel Carrier/AIC-APC-011 - APC Pickup and Deploy/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/HEL - Helicopter/AIC-HEL-000 - Helicopter/AIC-HEL-000 - Helicopter.lua

@@ -2,13 +2,17 @@
 -- Name: AIC-HEL-000 - Helicopter
 -- Author: FlightControl
 -- Date Created: 13 Apr 2018
---
+-- Date Checked: 01 Jan 2021
+-- Updated Moose, needs fix #1417 to work
+
+BASE:TraceClass("AI_CARGO_HELICOPTER")
+BASE:TraceOn()
 
 WorkerCargoSet = SET_CARGO:New():FilterTypes( "Workers" ):FilterStart()
 
 
-for i = 1, 10 do
-  local WorkerGroup = GROUP:FindByName( string.format( "Infantry#%03d", i ) )
+for i = 1, 5 do
+  local WorkerGroup = GROUP:FindByName( string.format( "Infantry %03d", i ) )
   local WorkersCargo = CARGO_GROUP:New( WorkerGroup, "Workers", string.format( "Infantry %d", i ), 1000, 35 )
 end
 
@@ -20,15 +24,14 @@ CargoHelicopter = AI_CARGO_HELICOPTER:New( Helicopter, WorkerCargoSet )
 PickupZone = ZONE:New( "PickupZone" )
 DeployZones = { ZONE:New( "DeployZone Alpha" ), ZONE:New( "DeployZone Beta" ), ZONE:New( "DeployZone Gamma" ) }
 
-CargoHelicopter:Pickup( PickupZone:GetRandomCoordinate( 500, 200 ) )
+CargoHelicopter:Pickup( PickupZone:GetRandomCoordinate( 400, 100 ) )
 
 function CargoHelicopter:onafterLoaded( Helicopter, From, Event, To, Cargo )
-  CargoHelicopter:Deploy( DeployZones[math.random( 1, #DeployZones ) ]:GetRandomCoordinate( 500, 100 ), math.random( 50, 250 ) )
+  CargoHelicopter:__Deploy(1,DeployZones[math.random( 1, #DeployZones ) ]:GetRandomCoordinate( 500, 100 ), math.random( 50, 250 ) )
 end
 
 
 function CargoHelicopter:onafterUnloaded( Helicopter, From, Event, To, Cargo )
-  CargoHelicopter:Pickup( PickupZone:GetRandomCoordinate( 500, 200 ), math.random( 50, 250 ) )
+  CargoHelicopter:__Pickup( 1,PickupZone:GetRandomCoordinate( 500, 200 ), math.random( 50, 250 ) )
 end
 
-

AIC - AI Cargo/HEL - Helicopter/AIC-HEL-000 - Helicopter/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/HEL - Helicopter/AIC-HEL-000 - Helicopter/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" * 

AIC - AI Cargo/PLN - Airplane/AIC-PLN-000 - Airplane/AIC-PLN-000 - Airplane.lua

@@ -2,11 +2,12 @@
 -- Name: AIC-PLN-000 - Airplane
 -- Author: FlightControl
 -- Date Created: 14 Apr 2018
---
+-- Date Checked: 01 Jan 2021 
+-- Update to latest Moose, working
+-- 
 
 VehicleCargoSet = SET_CARGO:New():FilterTypes( "Vehicles" ):FilterStart()
 
-
 for i = 1, 10 do
   local WorkerGroup = GROUP:FindByName( string.format( "Vehicle #%03d", i ) )
   local WorkersCargo = CARGO_GROUP:New( WorkerGroup, "Vehicles", string.format( "Vehicle %d", i ), 5000, 35 )
@@ -21,7 +22,6 @@ CargoAirplane = AI_CARGO_AIRPLANE:New( Airplane, VehicleCargoSet )
 PickupAirbase = AIRBASE:FindByName( AIRBASE.Caucasus.Kobuleti )
 DeployAirbases = { AIRBASE:FindByName( AIRBASE.Caucasus.Batumi ), AIRBASE:FindByName( AIRBASE.Caucasus.Gudauta ) }
 
-
 CargoAirplane:Pickup( PickupAirbase:GetCoordinate() )
 
 function CargoAirplane:OnAfterLoaded( Airplane, From, Event, To, Cargo )

AIC - AI Cargo/PLN - Airplane/AIC-PLN-000 - Airplane/pack.ps1

@@ -1,10 +1,6 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-
-$dir
-$file
-
-cd "_unpacked"
-. 7z a -r -y -tzip "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+cd "_unpacked" 
+. 7z a -r -y -tzip "..\$file.miz" * 
 cd ..

AIC - AI Cargo/PLN - Airplane/AIC-PLN-000 - Airplane/unpack.ps1

@@ -1,7 +1,7 @@
-$dir = split-path -parent $MyInvocation.MyCommand.Definition
-cd $dir
-$file = Split-Path $dir -leaf
-Remove-Item .\_unpacked -Force -Recurse
-md "_unpacked"
-cd "_unpacked"
-. 7z x -r -y "..\$file.miz" *
+$dir = split-path -parent $MyInvocation.MyCommand.Definition 
+cd $dir 
+$file = Split-Path $dir -leaf 
+Remove-Item .\_unpacked -Force -Recurse 
+md "_unpacked" 
+cd "_unpacked" 
+. 7z x -r -y "..\$file.miz" *