Merge branch 'master' into RadioComs

Moose Test Missions/CAP - Combat Air Patrol/CAP-012 - CAP - Test Abort/CAP-012 - CAP - Test Abort.lua

@@ -0,0 +1,42 @@
+---
+-- Name: CAP-012 - CAP - Test Abort
+-- Author: FlightControl
+-- Date Created: 14 Mar 2017
+--
+-- # Situation:
+--
+-- The Su-27 airplane will patrol in PatrolZone.
+-- It will engage when it detects the airplane and when the A-10C is within the CapEngageZone.
+-- It will abort the engagement after 1 minute and return to the patrol zone.
+--
+-- # Test cases:
+-- 
+-- 1. Observe the Su-27 patrolling.
+-- 2. Observe that, when the A-10C is within the engage zone, it will engage.
+-- 3. After engage, observe that the Su-27 returns to the PatrolZone.
+-- 4. When it engages, it will abort the engagement after 1 minute.
+ 
+
+local CapPlane = GROUP:FindByName( "Plane" )
+
+local PatrolZone = ZONE:New( "Patrol Zone" )
+
+local AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+
+local EngageZoneGroup = GROUP:FindByName( "Engage Zone" )
+
+local CapEngageZone = ZONE_POLYGON:New( "Engage Zone", EngageZoneGroup )
+
+AICapZone:SetControllable( CapPlane )
+AICapZone:SetEngageZone( CapEngageZone ) -- Set the Engage Zone. The AI will only engage when the bogeys are within the CapEngageZone.
+
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+
+function AICapZone:OnAfterEngage(Controllable,From,Event,To)
+  AICapZone:__Abort( 60 )
+end
+
+function AICapZone:OnAfterAbort(Controllable,From,Event,To)
+  BASE:E("MISSION ABORTED! Returning to Patrol Zone!")
+  MESSAGE:New("MISSION ABORTED! Returning to Patrol Zone!",30,"ALERT!")
+end

Moose Test Missions/CAS - Close Air Support/CAS-003 - CAS in a Zone by Airplane Group - Engage with Speed and Altitude/CAS-003 - CAS in a Zone by Airplane Group - Engage with Speed and Altitude.lua

@@ -53,7 +53,7 @@ AICasZone:SetControllable( CASPlane )
 AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
 
 -- After 10 minutes, tell the group CASPlane to engage the targets located in the engagement zone called CASEngagement Zone. (600 is 600 seconds) 
-AICasZone:__Engage( 60, 400, 500 ) -- Engage after one minute with a speed of 400 km/h and an altitude of 500 meters.
+AICasZone:__Engage( 600, 350, 4000 ) -- Engage after 10 minutes with a speed of 350 km/h and an altitude of 4000 meters.
 
 -- Check every 60 seconds whether the Targets have been eliminated.
 -- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.

Moose Test Missions/CAS - Close Air Support/CAS-004 - CAS in a Zone by Airplane Group - Test Abort/CAS-004 - CAS in a Zone by Airplane Group - Test Abort.lua

@@ -0,0 +1,81 @@
+---
+-- Name: CAS-004 - CAS in a Zone by Airplane Group - Test Abort
+-- Author: FlightControl
+-- Date Created: 14 Mar 2017
+--
+-- # Situation:
+--
+-- A group of 4 Su-25T at patrolling north of an engage zone for 1 minute.
+-- After 10 minutes, the command center orders the Su-25T to engage the zone and execute a CAS.
+-- After 12 minutes, the mission is aborted.
+--
+-- # Test cases:
+-- 
+-- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 2. The Su-25T are not detecting any target during the patrol.
+-- 3. When the Su-25T is commanded to engage, the group will fly to the engage zone
+-- 3.1. The approach speed to the engage zone is set to 350 km/h.
+-- 3.2. The altitude to the engage zone and CAS execution is set to 4000 meters.
+-- 4. Observe the mission being aborted. A message will be sent.
+-- 5. The Su-25T will go back patrolling.
+
+
+
+-- Create a local variable (in this case called CASEngagementZone) and 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- currently on the map and assign it to this variable
+local CASEngagementZone = ZONE:New( "Engagement Zone" )
+
+-- Create a local variable (in this case called CASPlane) and 
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
+local CASPlane = GROUP:FindByName( "Plane" )
+
+-- Create a local Variable (in this cased called PatrolZone and 
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
+local PatrolZone = ZONE:New( "Patrol Zone" )
+
+-- Create and object (in this case called AICasZone) and 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+local AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+
+-- Create an object (in this case called Targets) and 
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
+local Targets = GROUP:FindByName("Targets")
+
+
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
+AICasZone:SetControllable( CASPlane )
+
+-- Tell the group CASPlane to start the mission in 1 second. 
+AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+
+-- After 10 minutes, tell the group CASPlane to engage the targets located in the engagement zone called CASEngagement Zone. (600 is 600 seconds) 
+AICasZone:__Engage( 600, 350, 4000 ) -- Engage after 10 minutes with a speed of 350 km/h and an altitude of 4000 meters.
+
+-- After 12 minutes, tell the group CASPlane to abort the engagement. 
+AICasZone:__Abort( 720 ) -- Abort the engagement.
+
+-- Check every 60 seconds whether the Targets have been eliminated.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
+Check, CheckScheduleID = SCHEDULER:New(nil,
+  function()
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+    else
+      BASE:E( "Test Mission: The required targets are destroyed." )
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+    end
+  end, {}, 20, 60, 0.2 )
+
+function AICasZone:OnAfterAbort(Controllable,From,Event,To)
+  BASE:E( "MISSION ABORT! Back to patrol zone." )
+  MESSAGE:New("Mission ABORTED! Back to the Patrol Zone!",30,"ALERT!"):ToAll()  
+end
+
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  Check:Stop( CheckScheduleID )
+  AICasZone:__RTB( 1 )
+end

Moose Test Missions/CAS - Close Air Support/CAS-005 - CAS in a Zone by Airplane Group - Engage with WeaponExpend/CAS-005 - CAS in a Zone by Airplane Group - Engage with WeaponExpend.lua

@@ -0,0 +1,78 @@
+---
+-- Name: CAS-005 - CAS in a Zone by Airplane Group - Engage with WeaponExpend
+-- Author: FlightControl
+-- Date Created: 18 Mar 2017
+--
+-- # Situation:
+--
+-- A group of 4 Su-25T at patrolling north of an engage zone for 1 minute.
+-- After 1 minute, the command center orders the Su-25T to engage the zone and execute a CAS.
+-- The planes should expend 4 weapons per run.
+--
+-- # Test cases:
+-- 
+-- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 2. The Su-25T are not detecting any target during the patrol.
+-- 3. When the Su-25T is commanded to engage, the group will fly to the engage zone
+-- 3.1. The approach speed to the engage zone is set to 400 km/h.
+-- 3.2. The altitude to the engage zone and CAS execution is set to 500 meters.
+-- 3.3. The planes should expend 4 weapons per run.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
+-- 5. Observe the Su-25T eliminating the targets.
+-- 6. Observe the Su-25T defenses.
+-- 7. When all targets within the engage zone are destroyed, the Su-25T CAS task is set to Accomplished.
+-- 8. The Su-25T will return to base.
+
+
+
+-- Create a local variable (in this case called CASEngagementZone) and 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- currently on the map and assign it to this variable
+local CASEngagementZone = ZONE:New( "Engagement Zone" )
+
+-- Create a local variable (in this case called CASPlane) and 
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
+local CASPlane = GROUP:FindByName( "Plane" )
+
+-- Create a local Variable (in this cased called PatrolZone and 
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
+local PatrolZone = ZONE:New( "Patrol Zone" )
+
+-- Create and object (in this case called AICasZone) and 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+local AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+
+-- Create an object (in this case called Targets) and 
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
+local Targets = GROUP:FindByName("Targets")
+
+
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
+AICasZone:SetControllable( CASPlane )
+
+-- Tell the group CASPlane to start the mission in 1 second. 
+AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+
+-- After 1 minute, tell the group CASPlane to engage the targets located in the engagement zone called CASEngagement Zone. (600 is 600 seconds) 
+AICasZone:__Engage( 60, 600, 8000, AI.Task.WeaponExpend.FOUR ) -- Engage with a speed of 600 km/h and an altitude of 8000 meters, weapn expend 4.
+
+-- Check every 60 seconds whether the Targets have been eliminated.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
+Check, CheckScheduleID = SCHEDULER:New(nil,
+  function()
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+    else
+      BASE:E( "Test Mission: The required targets are destroyed." )
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+    end
+  end, {}, 20, 60, 0.2 )
+
+
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  Check:Stop( CheckScheduleID )
+  AICasZone:__RTB( 1 )
+end

Moose Test Missions/DET - Detection/DET-001 - Detection Areas/DET-001 - Detection Areas.lua

@@ -19,5 +19,6 @@
 
 local FACSetGroup = SET_GROUP:New():FilterPrefixes( "FAC Group" ):FilterStart()
 
-local FACDetection = DETECTION_AREAS:New( FACSetGroup, 1000, 250 ):FlareDetectedZones():SmokeDetectedUnits()
+local FACDetection = DETECTION_AREAS:New( FACSetGroup, 150, 250 ):BoundDetectedZones():SmokeDetectedUnits()
 
+FACDetection:__Start( 5 )

Moose Test Missions/DET - Detection/DET-100 - Detection Probability Distance/DET-100 - Detection Probability Distance.lua

@@ -0,0 +1,56 @@
+---
+-- Name: DET-100 - Detection Probability Distance
+-- Author: FlightControl
+-- Date Created: 04 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the DistanceProbability factor during the detection of units.
+-- 
+-- Two JTAC are detecting 4 units, which are 10 km away.
+-- The first JTAC has no DistanceProbability set.
+-- The second JTAC has a DistanceProbability set.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the reporting of both the first and second JTAC. The second should report slower the detection than the first.
+-- 2. Eventually all units should be detected by both JTAC.
+
+local RecceSetGroup1 = SET_GROUP:New():FilterPrefixes( "Recce 1" ):FilterStart()
+local RecceSetGroup2 = SET_GROUP:New():FilterPrefixes( "Recce 2" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection1 = DETECTION_UNITS:New( RecceSetGroup1 )
+
+local RecceDetection2 = DETECTION_UNITS:New( RecceSetGroup2 )
+RecceDetection2:SetDistanceProbability( 0.2 )  -- Set a 20% probability that a vehicle can be detected at 4km distance.
+
+RecceDetection1:Start()
+RecceDetection2:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection1:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection1:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 1 - No distance Probability" )
+end
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection2:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection2:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 2 - Distance Probability" )
+end

Moose Test Missions/DET - Detection/DET-120 - Detection Probability Zones/DET-120 - Detection Probability Zones.lua

@@ -0,0 +1,62 @@
+---
+-- Name: DET-120 - Detection Probability Zones
+-- Author: FlightControl
+-- Date Created: 04 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the DistanceProbability factor during the detection of units.
+-- 
+-- Two JTAC are detecting 4 units, which are 10 km away.
+-- The first JTAC has no DistanceProbability set.
+-- The second JTAC has a DistanceProbability set.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the reporting of both the first and second JTAC. The second should report slower the detection than the first.
+-- 2. Eventually all units should be detected by both JTAC.
+
+local RecceSetGroup1 = SET_GROUP:New():FilterPrefixes( "Recce 1" ):FilterStart()
+local RecceSetGroup2 = SET_GROUP:New():FilterPrefixes( "Recce 2" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection1 = DETECTION_UNITS:New( RecceSetGroup1 )
+
+local RecceDetection2 = DETECTION_UNITS:New( RecceSetGroup2 )
+
+local ForestZone = ZONE_POLYGON:New( "ForestZone", GROUP:FindByName( "ForestZone" ) )
+
+RecceDetection2:SetZoneProbability( { { ForestZone, 0.1 } } )  -- Set a 10% probability that a vehicle can be detected within the forest.
+
+
+RecceDetection1:Start()
+RecceDetection2:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection1:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = self:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 1 - No Zone Probability" )
+end
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection2:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = self:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 2 - Forest Zone Probability" )
+end
+
+garbagecollect()

Moose Test Missions/DET - Detection/DET-200 - Detection UNITS/DET-200 - Detection UNITS.lua

@@ -0,0 +1,40 @@
+---
+-- Name: DET-200 - Detection UNITS
+-- Author: FlightControl
+-- Date Created: 13 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the detection of units.
+-- 
+-- A Set of Recce are detecting a large group of units, which are 5 km away.
+-- Select one of the blue Recce, and press F7. Watch the reporting of the detection evolve.
+-- The enemy is approaching.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the detection reporting of both the Recce.
+-- 2. Eventually all units should be detected by both Recce.
+
+local RecceSetGroup = SET_GROUP:New():FilterPrefixes( "Recce" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection = DETECTION_UNITS:New( RecceSetGroup )
+
+RecceDetection:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection:DetectedReportDetailed()
+
+  CC:MessageToAll( DetectionReport, 15, "" )
+end
+

Moose Test Missions/DET - Detection/DET-210 - Detection TYPES/DET-210 - Detection TYPES.lua

@@ -0,0 +1,42 @@
+---
+-- Name: DET-210 - Detection TYPES
+-- Author: FlightControl
+-- Date Created: 13 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the detection of units.
+-- 
+-- A Set of Recce are detecting a large group of units, which are 5 km away.
+-- Select one of the blue Recce, and press F7. Watch the reporting of the detection evolve.
+-- The enemy is approaching.
+-- 
+-- The blue Recce will report the detected units grouped per vehicle type!
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the detection reporting of both the Recce.
+-- 2. Eventually all units should be detected by both Recce.
+
+local RecceSetGroup = SET_GROUP:New():FilterPrefixes( "Recce" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection = DETECTION_TYPES:New( RecceSetGroup )
+
+RecceDetection:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection:DetectedReportDetailed()
+
+  CC:MessageToAll( DetectionReport, 15, "" )
+end
+

Moose Test Missions/DET - Detection/DET-250 - Detection AREAS/DET-250 - Detection AREAS.lua

@@ -0,0 +1,58 @@
+---
+-- Name: DET-100 - Detection Probability Distance
+-- Author: FlightControl
+-- Date Created: 04 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the DistanceProbability factor during the detection of units.
+-- 
+-- Two JTAC are detecting 4 units, which are 10 km away.
+-- The first JTAC has no DistanceProbability set.
+-- The second JTAC has a DistanceProbability set.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the reporting of both the first and second JTAC. The second should report slower the detection than the first.
+-- 2. Eventually all units should be detected by both JTAC.
+
+local RecceSetGroup1 = SET_GROUP:New():FilterPrefixes( "Recce 1" ):FilterStart()
+local RecceSetGroup2 = SET_GROUP:New():FilterPrefixes( "Recce 2" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection1 = DETECTION_AREAS:New( RecceSetGroup1, 1000 )
+RecceDetection1:BoundDetectedZones()
+
+local RecceDetection2 = DETECTION_AREAS:New( RecceSetGroup2, 1000 )
+RecceDetection2:SetDistanceProbability( 0.2 )  -- Set a 20% probability that a vehicle can be detected at 4km distance.
+RecceDetection1:BoundDetectedZones()
+
+RecceDetection1:Start()
+RecceDetection2:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection1:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection1:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 1 - No distance Probability" )
+end
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection2:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection2:DetectedReportDetailed()
+
+  HQ:MessageToAll( DetectionReport, 15, "Detection 2 - Distance Probability" )
+end

Moose Test Missions/DET - Detection/DET-255 - Detection AEAS with Destroys/DET-255 - Detection AEAS with Destroys.lua

@@ -0,0 +1,46 @@
+---
+-- Name: DET-255 - Detection AEAS with Destroys
+-- Author: FlightControl
+-- Date Created: 06 Mar 2017
+--
+-- # Situation:
+--
+-- A small blue vehicle with laser detection methods is detecting targets.
+-- Targets are grouped within areas. A detection range and zone range is given to group the detected units.
+-- This demo will group red vehicles in areas. One vehicle is diving from one group to the other.
+-- After 30 seconds, one vehicle is destroyed in a zone.
+-- After 60 seconds, a vehicle is destroyed that is a leader of a zone.
+-- After 90 seconds, all vehicles are destroyed in a zone.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the flaring of the areas formed
+-- 2. Observe the smoking of the units detected
+-- 3. Observe the areas being flexibly changed very detection run.
+-- 4. The truck driving from the one group to the other, will leave the first area, and will join the second.
+-- 5. While driving in between the areas, it will have a separate area.
+-- 6. Observe the correct removal or relocation of the ZONEs.
+
+local FACSetGroup = SET_GROUP:New():FilterPrefixes( "FAC Group" ):FilterStart()
+
+local FACDetection = DETECTION_AREAS:New( FACSetGroup, 150, 250 ):BoundDetectedZones():SmokeDetectedUnits()
+
+FACDetection:__Start( 5 )
+
+SCHEDULER:New( nil,function() 
+  local Target = UNIT:FindByName( "Target #004")
+  Target:Destroy()
+  end, {}, 30 
+  )
+  
+SCHEDULER:New( nil,function() 
+  local Target = UNIT:FindByName( "Target #006")
+  Target:Destroy()
+  end, {}, 60 
+  )
+  
+SCHEDULER:New( nil,function() 
+  local Target = UNIT:FindByName( "Target #007")
+  Target:Destroy()
+  end, {}, 90 
+  )

Moose Test Missions/DET - Detection/DET-500 - Handle Detected Event - Govern Artillery Demo/DET-500 - Handle Detected Event - Govern Artillery Demo.lua

@@ -0,0 +1,70 @@
+---
+-- Name: DET-500 - Handle Detected Event - Govern Artillery Demo
+-- Author: FlightControl
+-- Date Created: 13 Feb 2017
+--
+-- # Situation:
+--
+-- Demonstrates the detection of units.
+-- 
+-- A Set of Recces are detecting a large group of units, which are 5 km away.
+-- Once the Recces detect the enemy, the artilley units are controlled and will fire a missile to the target.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the detected reporting of the recces.
+-- 2. When one Recce group detects a target, it will select an artillery unit and fire a missile.
+-- 3. This will run until all Recces have eliminated the targets.
+
+local RecceSetGroup = SET_GROUP:New():FilterCoalitions( "blue" ):FilterPrefixes( "Recce" ):FilterStart()
+local ArtillerySetGroup = SET_GROUP:New():FilterCoalitions( "blue" ):FilterPrefixes( "Artillery" ):FilterStart()
+
+local HQ = GROUP:FindByName( "HQ" )
+
+local CC = COMMANDCENTER:New( HQ, "HQ" )
+
+local RecceDetection = DETECTION_UNITS:New( RecceSetGroup )
+RecceDetection:SetDetectionInterval( 5 )
+
+RecceDetection:Start()
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+function RecceDetection:OnAfterDetect(From,Event,To)
+
+  local DetectionReport = RecceDetection:DetectedReportDetailed()
+
+  CC:GetPositionable():MessageToAll( DetectionReport, 15, "" )
+end
+
+local ArtilleryTime = {}
+local ArtilleryAim = 180
+
+--- OnAfter Transition Handler for Event Detect.
+-- @param Functional.Detection#DETECTION_UNITS self
+-- @param #string From The From State string.
+-- @param #string Event The Event string.
+-- @param #string To The To State string.
+-- @param Wrapper.Unit#UNIT DetectedUnits
+function RecceDetection:OnAfterDetected( From, Event, To, DetectedUnits )
+  self:E( { From, Event, To, DetectedUnits } )
+
+  for DetectedUnitID, DetectedUnit in pairs( DetectedUnits ) do
+    local DetectedUnit = DetectedUnit -- Wrapper.Unit#UNIT
+    local Artillery = ArtillerySetGroup:GetRandom() -- Wrapper.Group#GROUP
+    
+    if ArtilleryTime[Artillery] and ArtilleryTime[Artillery] <= timer.getTime() - ArtilleryAim then
+      ArtilleryTime[Artillery] = nil
+    end
+
+    if not ArtilleryTime[Artillery] then
+      local Task = Artillery:TaskFireAtPoint( DetectedUnit:GetVec2(), 500, 4 ) -- Fire 2 rockets to the target point.
+      Artillery:SetTask( Task, 0.5 )
+      ArtilleryTime[Artillery] = timer.getTime()
+    end
+    
+  end
+end

Moose Test Missions/DET - Detection/DET-900 - Detection Test with RED FACA/DET-900 - Detection Test with RED FACA.lua

@@ -0,0 +1,25 @@
+---
+-- Name: DET-900 - Detection Test with RED FACA
+-- Author: FlightControl
+-- Date Created: 06 Mar 2017
+--
+-- # Situation:
+--
+-- A red FACA is detecting targets while airborne.
+-- Targets are grouped within areas. A detection range and zone range is given to group the detected units.
+-- This demo will group blue vehicles in areas.
+-- Upon the detection capabilities of the red FACA, the blue vehicles will be grouped when detected.
+-- All blue vehicles have ROE on hold.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the tyres put around the detected areas formed
+-- 2. Observe the smoking of the units detected
+-- 3. Observe the areas being flexibly changed very detection run.
+
+local FACSetGroup = SET_GROUP:New():FilterPrefixes( "FAC" ):FilterStart()
+
+local FACDetection = DETECTION_AREAS:New( FACSetGroup, 2000, 250 ):BoundDetectedZones():SmokeDetectedUnits()
+
+
+FACDetection:__Start( 5 )

Moose Test Missions/ESC - Escorting/ESC-001 - Escorting Helicopters/ESC-001 - Escorting Helicopters.lua

@@ -1,9 +1,21 @@
-
-
-
-
-
-
+---
+-- Name: ESC-001 - Escorting Helicopters
+-- Author: FlightControl
+-- Date Created: 10 Mar 2017
+--
+-- # Situation:
+-- 
+-- Your client helicopter is flying in the battle field.
+-- It is escorted by an MI-28N, which you can command...
+-- Use the menu options to:
+-- - Make the escort follow you.
+-- - Report detected targets.
+-- - Attack targets
+-- - Flare
+-- 
+-- # Test cases: 
+-- 
+-- 1. When executing the commands, observe the MI-28N reactions.
 
 do
   local function EventAliveHelicopter( Client )
@@ -20,6 +32,8 @@ do
       :MenuResumeMission()
       :MenuROE()
       :MenuAssistedAttack()
+      
+    EscortHeli1:SetDetection( EscortHeliDetection )
 
     local EscortGroupArtillery = SpawnEscortArtillery:ReSpawn(1)
     local EscortArtillery = ESCORT
@@ -59,6 +73,12 @@ do
   SpawnEscortGround = SPAWN:New( "Escort Ground" )
   SpawnEscortShip = SPAWN:New( "Escort Ship" )
   SpawnEscortArtillery = SPAWN:New( "Ground Attack Assistance" )
+  
+  EscortHeliSetGroup = SET_GROUP:New():FilterPrefixes("Escort Helicopter"):FilterStart()
+  EscortHeliDetection = DETECTION_AREAS:New( EscortHeliSetGroup, 1000, 500 )
+  
+  EscortHeliDetection:BoundDetectedZones()
+  EscortHeliDetection:SetDetectionInterval( 15 )
 
   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." )
@@ -66,9 +86,4 @@ do
 
 end
 
--- MISSION SCHEDULER STARTUP
-MISSIONSCHEDULER.Start()
-MISSIONSCHEDULER.ReportMenu()
-MISSIONSCHEDULER.ReportMissionsHide()
-
 env.info( "Test Mission loaded" )

Moose Test Missions/EVT - Event Handling/EVT-201 - GROUP OnEventHit Example/EVT-201 - GROUP OnEventHit Example.lua

@@ -0,0 +1,28 @@
+---
+-- Name: EVT-201 - GROUP OnEventHit Example
+-- Author: FlightControl
+-- Date Created: 08 Mar 2017
+--
+-- # Situation:
+--
+-- Two groups of planes are flying in the air and shoot an missile to a multitude of ground targets.
+-- 
+-- # Test cases:
+-- 
+-- 1. Observe the planes shooting the missile.
+-- 2. Observe when the planes shoots the missile, and hit the group Tanks A, a dcs.log entry is written in the logging.
+-- 3. Check the contents of the fields of the S_EVENT_HIT entry.
+-- 4. The tanks of GROUP "Group Tanks A", should only send a message when they get hit.
+-- 5. The tanks of GROUP "Group Tanks B", should NOT send a message when they get hit.
+
+local TanksGroup = GROUP:FindByName( "Group Tanks A" )
+
+TanksGroup:HandleEvent( EVENTS.Hit )
+
+function TanksGroup:OnEventHit( EventData )
+
+  self:E( "I just got hit and I am part of " .. EventData.TgtGroupName )
+  EventData.TgtUnit:MessageToAll( "I just got hit and I am part of " .. EventData.TgtGroupName, 15, "Alert!" )
+end
+
+

Moose Test Missions/GRP - Group Commands/GRP-100 - TaskAttackUnit/GRP-100 - TaskAttackUnit.lua

@@ -0,0 +1,30 @@
+--- This test demonstrates the use(s) of the SwitchWayPoint method of the GROUP class.
+
+local HeliGroup = GROUP:FindByName( "Helicopter" )
+
+local AttackGroup = GROUP:FindByName( "AttackGroup" )
+
+local AttackUnits = AttackGroup:GetUnits()
+
+local Tasks = {}
+
+for i = 1, #AttackUnits do
+
+  local AttackUnit = AttackGroup:GetUnit( i )
+  Tasks[#Tasks+1] = HeliGroup:TaskAttackUnit( AttackUnit )
+end
+
+Tasks[#Tasks+1] = HeliGroup:TaskFunction( 1, 7, "_Resume", { "''" } )
+
+--- @param Wrapper.Group#GROUP HeliGroup
+function _Resume( HeliGroup )
+  env.info( '_Resume' )
+
+  HeliGroup:MessageToAll( "Resuming",10,"Info")
+end
+
+HeliGroup:PushTask( 
+  HeliGroup:TaskCombo(
+  Tasks
+  ), 30 
+)

Moose Test Missions/MOOSE_Header.lua

@@ -0,0 +1,14 @@
+---
+-- Name: <PRJ-nnn - Mission Name>
+-- Author: <Author>
+-- Date Created: <Date>
+--
+-- # Situation:
+-- 
+-- <Text explaining the situation of the test mission and what happens>.
+-- 
+-- # Test cases: 
+-- 
+-- 1. <Test Case 1 explanation: Use words like "Observe", "Try out", "Jump into"...>
+-- 2. <Test Case 1 explanation: Use words like "Observe", "Try out", "Jump into"...>
+--