Got CARGO working now with new FSM mechanism

Moose Test Missions/Escorting/MOOSE_Test_ESCORT.lua

@@ -0,0 +1,74 @@
+
+
+
+
+
+
+
+do
+  local function EventAliveHelicopter( Client )
+    local EscortGroupHeli1 = SpawnEscortHeli:ReSpawn(1)
+    local EscortHeli1 = ESCORT
+      :New( Client, EscortGroupHeli1, "Escort Helicopter" )
+      :MenuFollowAt( 100 )
+      :MenuFollowAt( 200 )
+      :MenuHoldAtEscortPosition( 20, 10, "Hold at %d meters for %d seconds" )
+      :MenuHoldAtLeaderPosition( 120 )
+      :MenuFlare( "Disperse Flares" )
+      :MenuSmoke()
+      :MenuReportTargets( 60, 20 )
+      :MenuResumeMission()
+      :MenuROE()
+      :MenuAssistedAttack()
+
+    local EscortGroupArtillery = SpawnEscortArtillery:ReSpawn(1)
+    local EscortArtillery = ESCORT
+      :New( Client, EscortGroupArtillery, "Escort Artillery" )
+      :Menus()
+  end
+  
+  local function EventAlivePlane( Client )
+    local EscortGroupPlane2 = SpawnEscortPlane:ReSpawn(1)
+    local EscortPlane2 = ESCORT
+    :New( Client, EscortGroupPlane2, "Escort Test Plane" )
+      :MenuFollowAt( 100 )
+      :MenuFollowAt( 200 )
+      :MenuHoldAtEscortPosition( 20, 10, "Hold at %d meters for %d seconds" )
+      :MenuHoldAtLeaderPosition( 120 )
+      :MenuFlare( "Disperse Flares" )
+      :MenuSmoke()
+      :MenuReportTargets( 60, 20 )
+      :MenuResumeMission()
+      :MenuAssistedAttack()
+      :MenuROE()
+      :MenuEvasion()
+    
+    local EscortGroupGround2 = SpawnEscortGround:ReSpawn(1)
+    local EscortGround2 = ESCORT
+    :New( Client, EscortGroupGround2, "Test Ground" )
+    :Menus()
+
+    local EscortGroupShip2 = SpawnEscortShip:ReSpawn(1)
+    local EscortShip2 = ESCORT
+    :New( Client, EscortGroupShip2, "Test Ship" )
+    :Menus()
+  end
+
+  SpawnEscortHeli = SPAWN:New( "Escort Helicopter" )
+  SpawnEscortPlane = SPAWN:New( "Escort Plane" )
+  SpawnEscortGround = SPAWN:New( "Escort Ground" )
+  SpawnEscortShip = SPAWN:New( "Escort Ship" )
+  SpawnEscortArtillery = SPAWN:New( "Ground Attack Assistance" )
+
+  EscortClientHeli = CLIENT:FindByName( "Lead Helicopter", "Fly around and observe the behaviour of the escort helicopter" ):Alive( EventAliveHelicopter )  
+  EscortClientPlane = CLIENT:FindByName( "Lead Plane", "Fly around and observe the behaviour of the escort airplane. Select Navigate->Joun-Up and airplane should follow you. Change speed and directions." )
+                                  :Alive( EventAlivePlane )                                    
+
+end
+
+-- MISSION SCHEDULER STARTUP
+MISSIONSCHEDULER.Start()
+MISSIONSCHEDULER.ReportMenu()
+MISSIONSCHEDULER.ReportMissionsHide()
+
+env.info( "Test Mission loaded" )