New folder structure

AI/AI_A2A_Cap/CAP-100 - AI_A2A_CAP - Normal CAP/CAP-100 - AI_A2A_CAP - Normal CAP.lua

@@ -1,26 +1,26 @@
----
+---
--- Name: CAP-100 - AI_A2A_CAP - Normal CAP
+-- Name: CAP-100 - AI_A2A_CAP - Normal CAP
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 30 May 2017
+-- Date Created: 30 May 2017
---
+--
--- # Situation:
+-- # Situation:
--- The Su-27 airplane will patrol in PatrolZone.
+-- The Su-27 airplane will patrol in PatrolZone.
--- It will not engage any enemy automatically.
+-- It will not engage any enemy automatically.
--- 
+-- 
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe the Su-27 patrolling.
+-- 1. Observe the Su-27 patrolling.
--- 
+-- 
-
+
-local CapPlane = GROUP:FindByName( "Plane" )
+local CapPlane = GROUP:FindByName( "Plane" )
-
+
-local PatrolZone = ZONE:New( "Patrol Zone" )
+local PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-A2ACap = AI_A2A_CAP:New( CapPlane, PatrolZone, 500, 1000, 500, 600 )
+A2ACap = AI_A2A_CAP:New( CapPlane, PatrolZone, 500, 1000, 500, 600 )
-
+
-A2ACap:Patrol()
+A2ACap:Patrol()
-
+
-local IntruderUnit = UNIT:FindByName( "Intruder" )
+local IntruderUnit = UNIT:FindByName( "Intruder" )
-
+
-
+
 A2ACap:__Engage( 120, { IntruderUnit } )

AI/AI_BAI/BAI-001 - BAI in a Zone by Airplane Group/BAI-001 - BAI in a Zone by Airplane Group.lua

@@ -1,74 +1,74 @@
----
+---
--- Name: BAI-001 - BAI in a Zone by Airplane Group
+-- Name: BAI-001 - BAI in a Zone by Airplane Group
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 09 May 2017
+-- Date Created: 09 May 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 bombers at patrolling north of an engage zone for 10 minutes.
+-- A group of 4 bombers at patrolling north of an engage zone for 10 minutes.
--- After 10 minutes, the command center orders the bombers to engage the zone and execute a BAI strike.
+-- After 10 minutes, the command center orders the bombers to engage the zone and execute a BAI strike.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
+-- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
--- 2. The bombers are not detecting any target during the patrol.
+-- 2. The bombers are not detecting any target during the patrol.
--- 3. When the bombers is commanded to engage, the group will fly to the engage zone.
+-- 3. When the bombers is commanded to engage, the group will fly to the engage zone.
--- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
--- 5. Observe the bombers eliminating the targets.
+-- 5. Observe the bombers eliminating the targets.
--- 6. Observe the bombers defenses.
+-- 6. Observe the bombers defenses.
--- 7. When all targets within the engage zone are destroyed, the bombers BAI task is set to Accomplished.
+-- 7. When all targets within the engage zone are destroyed, the bombers BAI task is set to Accomplished.
--- 8. The bombers will return to base.
+-- 8. The bombers will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called BAIEngagementZone) and 
+-- Create a local variable (in this case called BAIEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-BAIEngagementZone = ZONE:New( "Engagement Zone" )
+BAIEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called BAIPlane) and 
+-- Create a local variable (in this case called BAIPlane) and 
--- using the GROUP function find the aircraft group called "Plane" and assign to this variable
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-BAIPlane = GROUP:FindByName( "Plane" )
+BAIPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AIBAIZone) and 
+-- Create and object (in this case called AIBAIZone) and 
--- using the functions AI_BAI_ZONE assign the parameters that define this object 
+-- using the functions AI_BAI_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
-AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
+AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+Targets = GROUP:FindByName("Targets")
-
+
-
+
--- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
+-- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
-AIBAIZone:SetControllable( BAIPlane )
+AIBAIZone:SetControllable( BAIPlane )
-
+
--- Tell the group BAIPlane to start the mission in 1 second. 
+-- Tell the group BAIPlane to start the mission in 1 second. 
-AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
-
+
--- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. (600 is 600 seconds) 
+-- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. (600 is 600 seconds) 
-AIBAIZone:__Engage( 600 )
+AIBAIZone:__Engage( 600 )
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
+      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the bombers back to base." )
+  BASE:E( "Test Mission: Sending the bombers back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AIBAIZone:__RTB( 1 )
+  AIBAIZone:__RTB( 1 )
-end
+end

AI/AI_BAI/BAI-002 - BAI in a Zone by Airplane Group - Engage with Speed/BAI-002 - BAI in a Zone by Airplane Group - Engage with Speed.lua

@@ -1,75 +1,75 @@
----
+---
--- Name: BAI-002 - BAI in a Zone by Airplane Group - Engage with Speed
+-- Name: BAI-002 - BAI in a Zone by Airplane Group - Engage with Speed
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 09 May 2017
+-- Date Created: 09 May 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 bombers at patrolling north of an engage zone for 1 minute.
+-- A group of 4 bombers at patrolling north of an engage zone for 1 minute.
--- After 1 minute, the command center orders the bombers to engage the zone and execute a BAI.
+-- After 1 minute, the command center orders the bombers to engage the zone and execute a BAI.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
+-- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
--- 2. The bombers are not detecting any target during the patrol.
+-- 2. The bombers are not detecting any target during the patrol.
--- 3. When the bombers is commanded to engage, the group will fly to the engage zone.
+-- 3. When the bombers 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.1. The approach speed to the engage zone is set to 400 km/h.
--- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
--- 5. Observe the bombers eliminating the targets.
+-- 5. Observe the bombers eliminating the targets.
--- 6. Observe the bombers defenses.
+-- 6. Observe the bombers defenses.
--- 7. When all targets within the engage zone are destroyed, the bombers BAI task is set to Accomplished.
+-- 7. When all targets within the engage zone are destroyed, the bombers BAI task is set to Accomplished.
--- 8. The bombers will return to base.
+-- 8. The bombers will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called BAIEngagementZone) and 
+-- Create a local variable (in this case called BAIEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-BAIEngagementZone = ZONE:New( "Engagement Zone" )
+BAIEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called BAIPlane) and 
+-- Create a local variable (in this case called BAIPlane) and 
--- using the GROUP function find the aircraft group called "Plane" and assign to this variable
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-BAIPlane = GROUP:FindByName( "Plane" )
+BAIPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AIBAIZone) and 
+-- Create and object (in this case called AIBAIZone) and 
--- using the functions AI_BAI_ZONE assign the parameters that define this object 
+-- using the functions AI_BAI_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
-AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
+AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+Targets = GROUP:FindByName("Targets")
-
+
-
+
--- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
+-- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
-AIBAIZone:SetControllable( BAIPlane )
+AIBAIZone:SetControllable( BAIPlane )
-
+
--- Tell the group BAIPlane to start the mission in 1 second. 
+-- Tell the group BAIPlane to start the mission in 1 second. 
-AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
-
+
--- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. (600 is 600 seconds) 
+-- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. (600 is 600 seconds) 
-AIBAIZone:__Engage( 60, 400 ) -- Engage after one minute with a speed of 400 km/h.
+AIBAIZone:__Engage( 60, 400 ) -- Engage after one minute with a speed of 400 km/h.
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the bombers back to base." )
+  BASE:E( "Test Mission: Sending the bombers back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AIBAIZone:__RTB( 1 )
+  AIBAIZone:__RTB( 1 )
-end
+end

AI/AI_BAI/BAI-004 - BAI in a Zone by Airplane Group - Test Abort/BAI-004 - BAI in a Zone by Airplane Group - Test Abort.lua

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

AI/AI_BAI/BAI-005 - BAI in a Zone by Airplane Group - Engage with WeaponExpend/BAI-005 - BAI in a Zone by Airplane Group - Engage with WeaponExpend.lua

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

AI/AI_BAI/BAI-100 - BAI of a Bridge/BAI-100 - BAI of a Bridge.lua

@@ -1,76 +1,76 @@
----
+---
--- Name: BAI-100 - BAI of a Bridge
+-- Name: BAI-100 - BAI of a Bridge
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 09 May 2017
+-- Date Created: 09 May 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 2 bombers are patrolling north of an engage zone.
+-- A group of 2 bombers are patrolling north of an engage zone.
--- The command center orders the bombers to engage the zone and execute a BAI strike on a bridge.
+-- The command center orders the bombers to engage the zone and execute a BAI strike on a bridge.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
+-- 1. Observe that the bombers is patrolling in the patrol zone, until the engage command is given.
--- 2. The bombers are not detecting any target during the patrol.
+-- 2. The bombers are not detecting any target during the patrol.
--- 3. When the bombers is commanded to engage, the group will fly to the engage zone.
+-- 3. When the bombers is commanded to engage, the group will fly to the engage zone.
--- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for BAI.
--- 5. Observe the bombers eliminating the bridge.
+-- 5. Observe the bombers eliminating the bridge.
--- 6. Observe the bombers defenses.
+-- 6. Observe the bombers defenses.
--- 7. When the bridge within the engage zone is destroyed, the bombers BAI task is set to Accomplished.
+-- 7. When the bridge within the engage zone is destroyed, the bombers BAI task is set to Accomplished.
--- 8. The bombers will return to base.
+-- 8. The bombers will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called BAIEngagementZone) and 
+-- Create a local variable (in this case called BAIEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-BAIEngagementZone = ZONE:New( "Engagement Zone" )
+BAIEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called BAIPlane) and 
+-- Create a local variable (in this case called BAIPlane) and 
--- using the GROUP function find the aircraft group called "Plane" and assign to this variable
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-BAIPlane = GROUP:FindByName( "Plane" )
+BAIPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AIBAIZone) and 
+-- Create and object (in this case called AIBAIZone) and 
--- using the functions AI_BAI_ZONE assign the parameters that define this object 
+-- using the functions AI_BAI_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, BAIEngagementZone) 
-AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
+AIBAIZone = AI_BAI_ZONE:New( PatrolZone, 500, 1000, 500, 600, BAIEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+Targets = GROUP:FindByName("Targets")
-
+
--- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
+-- Tell the program to use the object (in this case called BAIPlane) as the group to use in the BAI function
-AIBAIZone:SetControllable( BAIPlane )
+AIBAIZone:SetControllable( BAIPlane )
-
+
--- Tell the BAI not to search for potential targets in the BAIEngagementZone, but rather use the center of the BAIEngagementZone as the bombing location.
+-- Tell the BAI not to search for potential targets in the BAIEngagementZone, but rather use the center of the BAIEngagementZone as the bombing location.
-AIBAIZone:SearchOff()
+AIBAIZone:SearchOff()
-
+
--- Tell the group BAIPlane to start the mission in 1 second. 
+-- Tell the group BAIPlane to start the mission in 1 second. 
-AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AIBAIZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
-
+
--- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. 
+-- After 10 minutes, tell the group BAIPlane to engage the targets located in the engagement zone called BAIEngagement Zone. 
-AIBAIZone:__Engage( 10 )
+AIBAIZone:__Engage( 10 )
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() ~= 0  then
+    if Targets:IsAlive() and Targets:GetSize() ~= 0  then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The bridge is destroyed." )
+      BASE:E( "Test Mission: The bridge is destroyed." )
-      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
+      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the bombers back to base." )
+  BASE:E( "Test Mission: Sending the bombers back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AIBAIZone:__RTB( 1 )
+  AIBAIZone:__RTB( 1 )
-end
+end

AI/AI_CAP/CAP-001 - Combat Air Patrol/CAP-001 - Combat Air Patrol.lua

@@ -1,23 +1,23 @@
----
+---
--- Name: CAP-001 - Combat Air Patrol
+-- Name: CAP-001 - Combat Air Patrol
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 16 January 2017
+-- Date Created: 16 January 2017
---
+--
--- # Situation:
+-- # Situation:
--- The Su-27 airplane will patrol in PatrolZone.
+-- The Su-27 airplane will patrol in PatrolZone.
--- It will not engage any enemy automatically.
+-- It will not engage any enemy automatically.
--- 
+-- 
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe the Su-27 patrolling.
+-- 1. Observe the Su-27 patrolling.
--- 
+-- 
-
+
-local CapPlane = GROUP:FindByName( "Plane" )
+local CapPlane = GROUP:FindByName( "Plane" )
-
+
-local PatrolZone = ZONE:New( "Patrol Zone" )
+local PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
-
+
-AICapZone:SetControllable( CapPlane )
+AICapZone:SetControllable( CapPlane )
-
+
-AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.

AI/AI_CAP/CAP-010 - CAP and Engage within Range/CAP-010 - CAP and Engage within Range.lua

@@ -1,27 +1,27 @@
----
+---
--- Name: CAP-010 - CAP and Engage within Range
+-- Name: CAP-010 - CAP and Engage within Range
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 16 January 2017
+-- Date Created: 16 January 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- The Su-27 airplane will patrol in PatrolZone.
+-- The Su-27 airplane will patrol in PatrolZone.
--- It will engage when it detects the airplane and when the A-10C is within the engage range.
+-- It will engage when it detects the airplane and when the A-10C is within the engage range.
--- 
+-- 
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe the Su-27 patrolling.
+-- 1. Observe the Su-27 patrolling.
--- 2. Observe that, when the A-10C is within the engage range, it will engage.
+-- 2. Observe that, when the A-10C is within the engage range, it will engage.
--- 3. After engage, observe that the Su-27 returns to the PatrolZone.
+-- 3. After engage, observe that the Su-27 returns to the PatrolZone.
--- 4. If you want, you can wait until the Su-27 is out of fuel and will land.
+-- 4. If you want, you can wait until the Su-27 is out of fuel and will land.
-
+
-CapPlane = GROUP:FindByName( "Plane" )
+CapPlane = GROUP:FindByName( "Plane" )
-
+
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
-
+
-AICapZone:SetControllable( CapPlane )
+AICapZone:SetControllable( CapPlane )
-AICapZone:SetEngageRange( 20000 ) -- Set the Engage Range to 20.000 meters. The AI won't engage when the enemy is beyond 20.000 meters.
+AICapZone:SetEngageRange( 20000 ) -- Set the Engage Range to 20.000 meters. The AI won't engage when the enemy is beyond 20.000 meters.
-
+
-AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.

AI/AI_CAP/CAP-011 - CAP and Engage within Zone/CAP-010 - CAP and Engage within Zone.lua

@@ -1,23 +1,23 @@
--- Name: CAP-001 - Combat Air Patrol
+-- Name: CAP-001 - Combat Air Patrol
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 16 January 2017
+-- Date Created: 16 January 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
-
+
-local CapPlane = GROUP:FindByName( "Plane" )
+local CapPlane = GROUP:FindByName( "Plane" )
-
+
-local PatrolZone = ZONE:New( "Patrol Zone" )
+local PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-local AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+local AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
-
+
-local EngageZoneGroup = GROUP:FindByName( "Engage Zone" )
+local EngageZoneGroup = GROUP:FindByName( "Engage Zone" )
-
+
-local CapEngageZone = ZONE_POLYGON:New( "Engage Zone", EngageZoneGroup )
+local CapEngageZone = ZONE_POLYGON:New( "Engage Zone", EngageZoneGroup )
-
+
-AICapZone:SetControllable( CapPlane )
+AICapZone:SetControllable( CapPlane )
-AICapZone:SetEngageZone( CapEngageZone ) -- Set the Engage Zone. The AI will only engage when the bogeys are within the CapEngageZone.
+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.
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.

AI/AI_CAP/CAP-011 - CAP and Engage within Zone/CAP-011 - CAP and Engage within Zone.lua

@@ -1,32 +1,32 @@
----
+---
--- Name: CAP-011 - CAP and Engage within Zone
+-- Name: CAP-011 - CAP and Engage within Zone
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 16 January 2017
+-- Date Created: 16 January 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- The Su-27 airplane will patrol in PatrolZone.
+-- 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 engage when it detects the airplane and when the A-10C is within the CapEngageZone.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe the Su-27 patrolling.
+-- 1. Observe the Su-27 patrolling.
--- 2. Observe that, when the A-10C is within the engage zone, it will engage.
+-- 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.
+-- 3. After engage, observe that the Su-27 returns to the PatrolZone.
--- 4. If you want, you can wait until the Su-27 is out of fuel and will land.
+-- 4. If you want, you can wait until the Su-27 is out of fuel and will land.
- 
+ 
-
+
-CapPlane = GROUP:FindByName( "Plane" )
+CapPlane = GROUP:FindByName( "Plane" )
-
+
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
-
+
-EngageZoneGroup = GROUP:FindByName( "Engage Zone" )
+EngageZoneGroup = GROUP:FindByName( "Engage Zone" )
-
+
-CapEngageZone = ZONE_POLYGON:New( "Engage Zone", EngageZoneGroup )
+CapEngageZone = ZONE_POLYGON:New( "Engage Zone", EngageZoneGroup )
-
+
-AICapZone:SetControllable( CapPlane )
+AICapZone:SetControllable( CapPlane )
-AICapZone:SetEngageZone( CapEngageZone ) -- Set the Engage Zone. The AI will only engage when the bogeys are within the CapEngageZone.
+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.
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.

AI/AI_CAP/CAP-012 - CAP - Test Abort/CAP-012 - CAP - Test Abort.lua

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

AI/AI_CAP/CAP-020 - Combat Air Patrol RTB Test/CAP-020 - Combat Air Patrol RTB Test.lua

@@ -1,27 +1,27 @@
----
+---
--- Name: CAP-020 - Combat Air Patrol RTB Test
+-- Name: CAP-020 - Combat Air Patrol RTB Test
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 14 February 2017
+-- Date Created: 14 February 2017
---
+--
--- # Situation:
+-- # Situation:
--- The Su-27 airplane will patrol in PatrolZone.
+-- The Su-27 airplane will patrol in PatrolZone.
--- It will return to base when out of fuel.
+-- It will return to base when out of fuel.
--- 
+-- 
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe the Su-27 patrolling.
+-- 1. Observe the Su-27 patrolling.
--- 2. It should return to base when out of fuel.
+-- 2. It should return to base when out of fuel.
--- 
+-- 
-
+
-CapSpawn = SPAWN:New( "Plane" ):InitLimit(1,2):InitRepeatOnLanding()
+CapSpawn = SPAWN:New( "Plane" ):InitLimit(1,2):InitRepeatOnLanding()
-
+
-CapGroup = CapSpawn:Spawn()
+CapGroup = CapSpawn:Spawn()
-
+
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
-AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
+AICapZone = AI_CAP_ZONE:New( PatrolZone, 500, 1000, 500, 600 )
-
+
-AICapZone:SetControllable( CapGroup )
+AICapZone:SetControllable( CapGroup )
-
+
-AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+AICapZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
-
+

AI/AI_CAS/CAS-001 - CAS in a Zone by Airplane Group/CAS-001 - CAS in a Zone by Airplane Group.lua

@@ -1,74 +1,74 @@
----
+---
--- Name: CAS-001 - CAS in a Zone by Airplane Group
+-- Name: CAS-001 - CAS in a Zone by Airplane Group
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 13 January 2017
+-- Date Created: 13 January 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 Su-25T at patrolling north of an engage zone for 10 minutes.
+-- A group of 4 Su-25T at patrolling north of an engage zone for 10 minutes.
--- After 10 minutes, the command center orders the Su-25T to engage the zone and execute a CAS.
+-- After 10 minutes, the command center orders the Su-25T to engage the zone and execute a CAS.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 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.
+-- 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. When the Su-25T is commanded to engage, the group will fly to the engage zone.
--- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
--- 5. Observe the Su-25T eliminating the targets.
+-- 5. Observe the Su-25T eliminating the targets.
--- 6. Observe the Su-25T defenses.
+-- 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.
+-- 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.
+-- 8. The Su-25T will return to base.
-
+
---test
+--test
-
+
--- Create a local variable (in this case called CASEngagementZone) and 
+-- Create a local variable (in this case called CASEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-CASEngagementZone = ZONE:New( "Engagement Zone" )
+CASEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called CASPlane) and 
+-- 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
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-CASPlane = GROUP:FindByName( "Plane" )
+CASPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AICasZone) and 
+-- Create and object (in this case called AICasZone) and 
--- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
-AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+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
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
-AICasZone:SetControllable( CASPlane )
+AICasZone:SetControllable( CASPlane )
-
+
--- Tell the group CASPlane to start the mission in 1 second. 
+-- Tell the group CASPlane to start the mission in 1 second. 
-AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+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) 
+-- 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 )
+AICasZone:__Engage( 600 )
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AICasZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AICasZone:__RTB( 1 )
+  AICasZone:__RTB( 1 )
-end
+end

AI/AI_CAS/CAS-002 - CAS in a Zone by Airplane Group - Engage with Speed/CAS-002 - CAS in a Zone by Airplane Group - Engage with Speed.lua

@@ -1,75 +1,75 @@
----
+---
--- Name: CAS-002 - CAS in a Zone by Airplane Group - Engage with Speed
+-- Name: CAS-002 - CAS in a Zone by Airplane Group - Engage with Speed
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 06 February 2017
+-- Date Created: 06 February 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 Su-25T at patrolling north of an engage zone for 1 minute.
+-- 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.
+-- After 1 minute, the command center orders the Su-25T to engage the zone and execute a CAS.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 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.
+-- 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. 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.1. The approach speed to the engage zone is set to 400 km/h.
--- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
--- 5. Observe the Su-25T eliminating the targets.
+-- 5. Observe the Su-25T eliminating the targets.
--- 6. Observe the Su-25T defenses.
+-- 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.
+-- 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.
+-- 8. The Su-25T will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called CASEngagementZone) and 
+-- Create a local variable (in this case called CASEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-CASEngagementZone = ZONE:New( "Engagement Zone" )
+CASEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called CASPlane) and 
+-- 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
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-CASPlane = GROUP:FindByName( "Plane" )
+CASPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AICasZone) and 
+-- Create and object (in this case called AICasZone) and 
--- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
-AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+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
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
-AICasZone:SetControllable( CASPlane )
+AICasZone:SetControllable( CASPlane )
-
+
--- Tell the group CASPlane to start the mission in 1 second. 
+-- Tell the group CASPlane to start the mission in 1 second. 
-AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+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) 
+-- 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 ) -- Engage after one minute with a speed of 400 km/h.
+AICasZone:__Engage( 60, 400 ) -- Engage after one minute with a speed of 400 km/h.
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AICasZone:__RTB( 1 )
+  AICasZone:__RTB( 1 )
-end
+end

AI/AI_CAS/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

@@ -1,76 +1,76 @@
----
+---
--- Name: CAS-003 - CAS in a Zone by Airplane Group - Engage with Speed and Altitude
+-- Name: CAS-003 - CAS in a Zone by Airplane Group - Engage with Speed and Altitude
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 6 February 2017
+-- Date Created: 6 February 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 Su-25T at patrolling north of an engage zone for 1 minute.
+-- 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.
+-- After 1 minute, the command center orders the Su-25T to engage the zone and execute a CAS.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 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.
+-- 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. 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.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.2. The altitude to the engage zone and CAS execution is set to 500 meters.
--- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
--- 5. Observe the Su-25T eliminating the targets.
+-- 5. Observe the Su-25T eliminating the targets.
--- 6. Observe the Su-25T defenses.
+-- 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.
+-- 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.
+-- 8. The Su-25T will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called CASEngagementZone) and 
+-- Create a local variable (in this case called CASEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-CASEngagementZone = ZONE:New( "Engagement Zone" )
+CASEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called CASPlane) and 
+-- 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
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-CASPlane = GROUP:FindByName( "Plane" )
+CASPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AICasZone) and 
+-- Create and object (in this case called AICasZone) and 
--- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
-AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+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
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
-AICasZone:SetControllable( CASPlane )
+AICasZone:SetControllable( CASPlane )
-
+
--- Tell the group CASPlane to start the mission in 1 second. 
+-- Tell the group CASPlane to start the mission in 1 second. 
-AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+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) 
+-- 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.
+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.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AICasZone:__RTB( 1 )
+  AICasZone:__RTB( 1 )
-end
+end

AI/AI_CAS/CAS-004 - CAS in a Zone by Airplane Group - Test Abort/CAS-004 - CAS in a Zone by Airplane Group - Test Abort.lua

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

AI/AI_CAS/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

@@ -1,78 +1,78 @@
----
+---
--- Name: CAS-005 - CAS in a Zone by Airplane Group - Engage with WeaponExpend
+-- Name: CAS-005 - CAS in a Zone by Airplane Group - Engage with WeaponExpend
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 18 Mar 2017
+-- Date Created: 18 Mar 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 Su-25T at patrolling north of an engage zone for 1 minute.
+-- 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.
+-- 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.
+-- The planes should expend 4 weapons per run.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the Su-25T is patrolling in the patrol zone, until the engage command is given.
+-- 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.
+-- 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. 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.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.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.
+-- 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.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
--- 5. Observe the Su-25T eliminating the targets.
+-- 5. Observe the Su-25T eliminating the targets.
--- 6. Observe the Su-25T defenses.
+-- 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.
+-- 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.
+-- 8. The Su-25T will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called CASEngagementZone) and 
+-- Create a local variable (in this case called CASEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-CASEngagementZone = ZONE:New( "Engagement Zone" )
+CASEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variable (in this case called CASPlane) and 
+-- 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
+-- using the GROUP function find the aircraft group called "Plane" and assign to this variable
-CASPlane = GROUP:FindByName( "Plane" )
+CASPlane = GROUP:FindByName( "Plane" )
-
+
--- Create a local Variable (in this cased called PatrolZone and 
+-- 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
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
-PatrolZone = ZONE:New( "Patrol Zone" )
+PatrolZone = ZONE:New( "Patrol Zone" )
-
+
--- Create and object (in this case called AICasZone) and 
+-- Create and object (in this case called AICasZone) and 
--- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
-AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
+AICasZone = AI_CAS_ZONE:New( PatrolZone, 500, 1000, 500, 600, CASEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+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
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
-AICasZone:SetControllable( CASPlane )
+AICasZone:SetControllable( CASPlane )
-
+
--- Tell the group CASPlane to start the mission in 1 second. 
+-- Tell the group CASPlane to start the mission in 1 second. 
-AICasZone:__Start( 1 ) -- They should statup, and start patrolling in the PatrolZone.
+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) 
+-- 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.
+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.
+-- 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.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AICasZone:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZone:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
-  Check:Stop( CheckScheduleID )
+  Check:Stop( CheckScheduleID )
-  AICasZone:__RTB( 1 )
+  AICasZone:__RTB( 1 )
-end
+end

AI/AI_CAS/CAS-010 - CAS in a Zone by Helicopter/CAS-010 - CAS in a Zone by Helicopter.lua

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

AI/AI_CAS/CAS-011 - CAS in a Zone by Helicopter Group/CAS-011 - CAS in a Zone by Helicopter Group.lua

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

AI/AI_CAS/CAS-111 - Multiple CAS in 1 Radius Zone by Helicopter and AirPlane Groups/CAS-111 - Multiple CAS in 1 Radius Zone by Helicopter and AirPlane Groups.lua

@@ -1,91 +1,91 @@
----
+---
--- Name: CAS-111 - Multiple CAS in 1 Radius Zone by Helicopter and AirPlane Groups
+-- Name: CAS-111 - Multiple CAS in 1 Radius Zone by Helicopter and AirPlane Groups
--- Author: FlightControl
+-- Author: FlightControl
--- Date Created: 6 February 2017
+-- Date Created: 6 February 2017
---
+--
--- # Situation:
+-- # Situation:
---
+--
--- A group of 4 Ka-50 and 5 Su-25T are patrolling north in two engage zone for 5 minutes.
+-- A group of 4 Ka-50 and 5 Su-25T are patrolling north in two engage zone for 5 minutes.
--- After 5 minutes, the command center orders the groups to engage the zone and execute a CAS.
+-- After 5 minutes, the command center orders the groups to engage the zone and execute a CAS.
---
+--
--- # Test cases:
+-- # Test cases:
--- 
+-- 
--- 1. Observe that the groups is patrolling in the patrol zone, until the engage command is given.
+-- 1. Observe that the groups is patrolling in the patrol zone, until the engage command is given.
--- 2. The groups are not detecting any target during the patrol.
+-- 2. The groups are not detecting any target during the patrol.
--- 3. When the groups is commanded to engage, the group will fly to the engage zone.
+-- 3. When the groups is commanded to engage, the group will fly to the engage zone.
--- 3.1. Engage Speed for the Su-25T is set to 350 km/h.
+-- 3.1. Engage Speed for the Su-25T is set to 350 km/h.
--- 3.2. Engage Altitude for the Su-25T is set to 1500 meters.
+-- 3.2. Engage Altitude for the Su-25T is set to 1500 meters.
--- 3.3. Engage Speed for the Ka-50 is set to 100 km/h.
+-- 3.3. Engage Speed for the Ka-50 is set to 100 km/h.
--- 3.4. Engage Altitude for the Ka-50 is set to 150 meters.
+-- 3.4. Engage Altitude for the Ka-50 is set to 150 meters.
--- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
+-- 4. Detection is activated and detected targets within the engage zone are assigned for CAS.
--- 5. Observe the groups eliminating the targets.
+-- 5. Observe the groups eliminating the targets.
--- 6. Observe the groups defenses.
+-- 6. Observe the groups defenses.
--- 7. When all targets within the engage zone are destroyed, the groups CAS task is set to Accomplished.
+-- 7. When all targets within the engage zone are destroyed, the groups CAS task is set to Accomplished.
--- 8. The groups will return to base.
+-- 8. The groups will return to base.
-
+
-
+
-
+
--- Create a local variable (in this case called CASEngagementZone) and 
+-- Create a local variable (in this case called CASEngagementZone) and 
--- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
--- currently on the map and assign it to this variable
+-- currently on the map and assign it to this variable
-CASEngagementZone = ZONE:New( "Engagement Zone" )
+CASEngagementZone = ZONE:New( "Engagement Zone" )
-
+
--- Create a local variables (in this case called CASPlane and CASHelicopters) and 
+-- Create a local variables (in this case called CASPlane and CASHelicopters) and 
--- using the GROUP function find the aircraft group called "Plane" and "Helicopter" and assign to these variables
+-- using the GROUP function find the aircraft group called "Plane" and "Helicopter" and assign to these variables
-CASPlane = GROUP:FindByName( "Plane" )
+CASPlane = GROUP:FindByName( "Plane" )
-CASHelicopter = GROUP:FindByName( "Helicopter" )
+CASHelicopter = GROUP:FindByName( "Helicopter" )
-
+
--- Create two patrol zones, one for the Planes and one for the Helicopters.
+-- Create two patrol zones, one for the Planes and one for the Helicopters.
-PatrolZonePlanes = ZONE:New( "Patrol Zone Planes" )
+PatrolZonePlanes = ZONE:New( "Patrol Zone Planes" )
-PatrolZoneHelicopters = ZONE:New( "Patrol Zone Helicopters" )
+PatrolZoneHelicopters = ZONE:New( "Patrol Zone Helicopters" )
-
+
--- Create and object (in this case called AICasZone) and 
+-- Create and object (in this case called AICasZone) and 
--- using the functions AI_CAS_ZONE assign the parameters that define this object 
+-- using the functions AI_CAS_ZONE assign the parameters that define this object 
--- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
+-- (in this case PatrolZone, 500, 1000, 500, 600, CASEngagementZone) 
-AICasZonePlanes = AI_CAS_ZONE:New( PatrolZonePlanes, 400, 500, 500, 2500, CASEngagementZone )
+AICasZonePlanes = AI_CAS_ZONE:New( PatrolZonePlanes, 400, 500, 500, 2500, CASEngagementZone )
-AICasZoneHelicopters = AI_CAS_ZONE:New( PatrolZoneHelicopters, 100, 250, 300, 1000, CASEngagementZone )
+AICasZoneHelicopters = AI_CAS_ZONE:New( PatrolZoneHelicopters, 100, 250, 300, 1000, CASEngagementZone )
-
+
--- Create an object (in this case called Targets) and 
+-- Create an object (in this case called Targets) and 
--- using the GROUP function find the group labeled "Targets" and assign it to this object
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
-Targets = GROUP:FindByName("Targets")
+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
+-- Tell the program to use the object (in this case called CASPlane) as the group to use in the CAS function
-AICasZonePlanes:SetControllable( CASPlane )
+AICasZonePlanes:SetControllable( CASPlane )
-AICasZoneHelicopters:SetControllable( CASHelicopter )
+AICasZoneHelicopters:SetControllable( CASHelicopter )
-
+
--- Tell the group CASPlane to start the mission in 1 second. 
+-- Tell the group CASPlane to start the mission in 1 second. 
-AICasZonePlanes:__Start( 1 ) -- They should startup, and start patrolling in the PatrolZone.
+AICasZonePlanes:__Start( 1 ) -- They should startup, and start patrolling in the PatrolZone.
-AICasZoneHelicopters:__Start( 1 ) -- They should startup, and start patrolling in the PatrolZone.
+AICasZoneHelicopters:__Start( 1 ) -- They should startup, and start patrolling in the PatrolZone.
-
+
--- After 10 minutes, tell the group CASPlanes and CASHelicopters to engage the targets located in the engagement zone called CASEngagement Zone. 
+-- After 10 minutes, tell the group CASPlanes and CASHelicopters to engage the targets located in the engagement zone called CASEngagement Zone. 
-AICasZonePlanes:__Engage( 300, 350, 1500 ) -- Engage with a speed of 350 km/h and 1500 meter altitude.
+AICasZonePlanes:__Engage( 300, 350, 1500 ) -- Engage with a speed of 350 km/h and 1500 meter altitude.
-AICasZoneHelicopters:__Engage( 300, 100, 150 ) -- Engage with a speed of 100 km/h and 150 meter altitude.
+AICasZoneHelicopters:__Engage( 300, 100, 150 ) -- Engage with a speed of 100 km/h and 150 meter altitude.
-
+
-
+
--- Check every 60 seconds whether the Targets have been eliminated.
+-- Check every 60 seconds whether the Targets have been eliminated.
--- When the trigger completed has been fired, the Planes and Helicopters will go back to the Patrol Zone.
+-- When the trigger completed has been fired, the Planes and Helicopters will go back to the Patrol Zone.
-Check, CheckScheduleID = SCHEDULER:New(nil,
+Check, CheckScheduleID = SCHEDULER:New(nil,
-  function()
+  function()
-    if Targets:IsAlive() and Targets:GetSize() > 5 then
+    if Targets:IsAlive() and Targets:GetSize() > 5 then
-      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
-    else
+    else
-      BASE:E( "Test Mission: The required targets are destroyed." )
+      BASE:E( "Test Mission: The required targets are destroyed." )
-      Check:Stop( CheckScheduleID )
+      Check:Stop( CheckScheduleID )
-      AICasZonePlanes:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AICasZonePlanes:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-      AICasZoneHelicopters:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
+      AICasZoneHelicopters:__Accomplish( 1 ) -- Now they should fly back to teh patrolzone and patrol.
-    end
+    end
-  end, {}, 20, 60, 0.2 )
+  end, {}, 20, 60, 0.2 )
-
+
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
-function AICasZonePlanes:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZonePlanes:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Su-25T back to base." )
+  BASE:E( "Test Mission: Sending the Su-25T back to base." )
-  AICasZonePlanes:__RTB( 1 )
+  AICasZonePlanes:__RTB( 1 )
-end
+end
-
+
--- When the targets in the zone are destroyed, (see scheduled function), the helicpters will return home ...
+-- When the targets in the zone are destroyed, (see scheduled function), the helicpters will return home ...
-function AICasZoneHelicopters:OnAfterAccomplish( Controllable, From, Event, To )
+function AICasZoneHelicopters:OnAfterAccomplish( Controllable, From, Event, To )
-  BASE:E( "Test Mission: Sending the Ka-50 back to base." )
+  BASE:E( "Test Mission: Sending the Ka-50 back to base." )
-  AICasZoneHelicopters:__RTB( 1 )
+  AICasZoneHelicopters:__RTB( 1 )
-end
+end

AI/AI_CAS/CAS-112 - Moose Detection and AI_CAS_ZONE/CAS-112 - Moose Detection and AI_CAS_ZONE.lua

@@ -1,298 +1,298 @@
----- Mission 'Demo' CAS  -- more like a hack together :)
+---- Mission 'Demo' CAS  -- more like a hack together :)
---   Details:    Provides for 1 flight of on call close air support aircraft that will attack detected targets detected within search zones.
+--   Details:    Provides for 1 flight of on call close air support aircraft that will attack detected targets detected within search zones.
---               Will patrol on station until out of fuel and then another will take it's place. Flight will attempt to attack detected targets
+--               Will patrol on station until out of fuel and then another will take it's place. Flight will attempt to attack detected targets
---               for 20 minutes after engaging. Then will RTB and be replaced by another patrol.
+--               for 20 minutes after engaging. Then will RTB and be replaced by another patrol.
---               Engage zone will be dynamically located to detected targets. 
+--               Engage zone will be dynamically located to detected targets. 
---     
+--     
---               Makes use of the Moose DETECTION_AREAS and AI_CAS_ZONE functionality.
+--               Makes use of the Moose DETECTION_AREAS and AI_CAS_ZONE functionality.
---               
+--               
---               Functionality is executed as a scheduled task that runs at 30 seconds and every 60 seconds after.
+--               Functionality is executed as a scheduled task that runs at 30 seconds and every 60 seconds after.
---               
+--               
-
+
--- *****************************
+-- *****************************
--- BLUE CAS SECTION 
+-- BLUE CAS SECTION 
--- ||||||||||||||||||||||||||||
+-- ||||||||||||||||||||||||||||
--- vvvvvvvvvvvvvvvvvvvvvvvvvvvv
+-- vvvvvvvvvvvvvvvvvvvvvvvvvvvv
-
+
-BlueCASGroupStatusTable = {}
+BlueCASGroupStatusTable = {}
-BlueCASGroupTable = {}
+BlueCASGroupTable = {}
-
+
-MaxBlueCAS = math.random(4,8)
+MaxBlueCAS = math.random(4,8)
---**********************
+--**********************
- --Setup Blue Detection (Stykers in this case) can have 1 to many + predators whatever
+ --Setup Blue Detection (Stykers in this case) can have 1 to many + predators whatever
- --- Just ensure group name in editor start with "Blue Recon"
+ --- Just ensure group name in editor start with "Blue Recon"
- --*********************
+ --*********************
-ReconSetGroup = SET_GROUP:New():FilterPrefixes( "Blue Recon" ):FilterStart()
+ReconSetGroup = SET_GROUP:New():FilterPrefixes( "Blue Recon" ):FilterStart()
-ReconDetection = DETECTION_AREAS:New( ReconSetGroup, 3000 ):FilterCategories( Unit.Category.GROUND_UNIT )  -- Group all detections within 3000 meters to one line in report
+ReconDetection = DETECTION_AREAS:New( ReconSetGroup, 3000 ):FilterCategories( Unit.Category.GROUND_UNIT )  -- Group all detections within 3000 meters to one line in report
-
+
--- Define Search zones (Editor Trigger Zone (Radius))
+-- Define Search zones (Editor Trigger Zone (Radius))
-BlueSearch1 = ZONE:New( "Blue Search 1" )
+BlueSearch1 = ZONE:New( "Blue Search 1" )
-BlueSearch2 = ZONE:New( "Blue Search 2" )
+BlueSearch2 = ZONE:New( "Blue Search 2" )
-
+
--- make them the active search zones and start detecting
+-- make them the active search zones and start detecting
-ReconDetection:SetAcceptZones( {BlueSearch2, BlueSearch1} )
+ReconDetection:SetAcceptZones( {BlueSearch2, BlueSearch1} )
-ReconDetection:Start()  -- start detecting
+ReconDetection:Start()  -- start detecting
-
+
---  Now setup for spawning CAS Groups -- (which are destroyed on landing)
+--  Now setup for spawning CAS Groups -- (which are destroyed on landing)
-BlueCASGroup = SPAWN:New("Blue CAS Group")
+BlueCASGroup = SPAWN:New("Blue CAS Group")
-BlueCASGroup:InitGrouping(2)
+BlueCASGroup:InitGrouping(2)
-BlueCASGroup:OnSpawnGroup(
+BlueCASGroup:OnSpawnGroup(
-  function(groupname)
+  function(groupname)
-      local SpawnedCASGroup = GROUP:FindByName(groupname.GroupName)
+      local SpawnedCASGroup = GROUP:FindByName(groupname.GroupName)
-      local tempgroupname = groupname.GroupName
+      local tempgroupname = groupname.GroupName
-    
+    
-      --setup event handler 
+      --setup event handler 
-      SpawnedCASGroup:HandleEvent( EVENTS.Land )
+      SpawnedCASGroup:HandleEvent( EVENTS.Land )
-      --- @param self
+      --- @param self
-      -- @param Core.Event#EVENTDATA EventData
+      -- @param Core.Event#EVENTDATA EventData
-        function SpawnedCASGroup:OnEventLand(EventData)
+        function SpawnedCASGroup:OnEventLand(EventData)
-        
+        
-        --EventData.IniGroup:MessageToAll("Landed",15,"Land Event")
+        --EventData.IniGroup:MessageToAll("Landed",15,"Land Event")
-        --local CASGroup = BlueCASGroup:SpawnAtAirbase( AIRBASE:FindByName( AIRBASE.Caucasus.Sochi_Adler ), SPAWN.Takeoff.Cold, 2000 )
+        --local CASGroup = BlueCASGroup:SpawnAtAirbase( AIRBASE:FindByName( AIRBASE.Caucasus.Sochi_Adler ), SPAWN.Takeoff.Cold, 2000 )
-        --local CASGroupName = CASGroup:GetName()
+        --local CASGroupName = CASGroup:GetName()
-        for x=1, MaxBlueCAS do
+        for x=1, MaxBlueCAS do
-            if BlueCASGroupTable[x] == EventData.IniGroupName then
+            if BlueCASGroupTable[x] == EventData.IniGroupName then
-                BlueCASGroupTable[x] = "Group Name"
+                BlueCASGroupTable[x] = "Group Name"
-                BlueCASGroupStatusTable[x] = "Avail"
+                BlueCASGroupStatusTable[x] = "Avail"
-                --CASEngageFlag[EventData.IniGroupName] = ""
+                --CASEngageFlag[EventData.IniGroupName] = ""
-                --CASEngagedTimer[EventData.IniGroupName] = 0
+                --CASEngagedTimer[EventData.IniGroupName] = 0
-                break
+                break
-            end
+            end
-        end
+        end
-        CASGroups[EventData.IniGroup] = nil
+        CASGroups[EventData.IniGroup] = nil
-        EventData.IniGroup:Destroy()     
+        EventData.IniGroup:Destroy()     
-        end         
+        end         
-  end
+  end
-  )
+  )
-
+
--- Do some setup to track state with CAS Flights and spawning
+-- Do some setup to track state with CAS Flights and spawning
--- instantiate avail flag at mission start
+-- instantiate avail flag at mission start
-for x=1, MaxBlueCAS do
+for x=1, MaxBlueCAS do
-    BlueCASGroupTable[x] = "Group Name"
+    BlueCASGroupTable[x] = "Group Name"
-    BlueCASGroupStatusTable[x] = "Avail" 
+    BlueCASGroupStatusTable[x] = "Avail" 
-end
+end
-
+
--- Instantiate Group Pointers for BlueCASManager
+-- Instantiate Group Pointers for BlueCASManager
-CASGroup1 = nil
+CASGroup1 = nil
-
+
--- Blue CAS Manager Function
+-- Blue CAS Manager Function
--- Detects and triggers state changes in CASAir1 FSM
+-- Detects and triggers state changes in CASAir1 FSM
--- Basically check state every 60 seconds and take an action
+-- Basically check state every 60 seconds and take an action
-function BlueCASManager()
+function BlueCASManager()
-    local detection = false
+    local detection = false
-   
+   
-    -- Determine if flight avail or already assigned  
+    -- Determine if flight avail or already assigned  
-    if ActiveCASGroupName == "" then
+    if ActiveCASGroupName == "" then
-      CASGroup1 = SpawnNewCASGroup()
+      CASGroup1 = SpawnNewCASGroup()
-    end
+    end
-    --MessageToAll("CASGroup 1 = " .. CASGroup1:GetName(), 15)
+    --MessageToAll("CASGroup 1 = " .. CASGroup1:GetName(), 15)
-    
+    
-    -- Display detection report if detected targets
+    -- Display detection report if detected targets
-    if ReconDetection.DetectedItemCount > 0 then
+    if ReconDetection.DetectedItemCount > 0 then
-         detection = true
+         detection = true
-         bluedetectiontimer = timer.getTime() + 300   -- send RTB after 5 minutes of 0 contacts
+         bluedetectiontimer = timer.getTime() + 300   -- send RTB after 5 minutes of 0 contacts
-         DetectionReport = ReconDetection:DetectedReportDetailed()
+         DetectionReport = ReconDetection:DetectedReportDetailed()
-         MessageToAll(DetectionReport, 15)   
+         MessageToAll(DetectionReport, 15)   
-    else
+    else
-        detection = false
+        detection = false
-    end
+    end
-    -- Drive through CAS Groups
+    -- Drive through CAS Groups
-    for Group, Fsm in pairs(CASGroups) do
+    for Group, Fsm in pairs(CASGroups) do
-        local mystate = Fsm:GetState()
+        local mystate = Fsm:GetState()
-        local CASAir1 = Fsm
+        local CASAir1 = Fsm
-        
+        
-         
+         
-         local tempgroup = GROUP:FindByName( Group )
+         local tempgroup = GROUP:FindByName( Group )
-         local tempgroupname = tempgroup:GetName()
+         local tempgroupname = tempgroup:GetName()
-         local tempcoalition = tempgroup:GetCoalition()
+         local tempcoalition = tempgroup:GetCoalition()
-         --MessageToAll( "GroupName = " .. tempgroupname .. " " .. mystate, 15)
+         --MessageToAll( "GroupName = " .. tempgroupname .. " " .. mystate, 15)
-          
+          
-              -- if patrolling engage if detected targets
+              -- if patrolling engage if detected targets
-              if mystate == "Patrolling" then
+              if mystate == "Patrolling" then
-                 if engaged == false then 
+                 if engaged == false then 
-                  if ReconDetection.DetectedItemCount > 0 then
+                  if ReconDetection.DetectedItemCount > 0 then
-                      Fsm:__Engage( 2, 350, 2500)
+                      Fsm:__Engage( 2, 350, 2500)
-                       -- start engage Timer so we can stop after 20 minutes
+                       -- start engage Timer so we can stop after 20 minutes
-                      CASEngagedTimer[tempgroupname] = timer.getTime() + 1500
+                      CASEngagedTimer[tempgroupname] = timer.getTime() + 1500
-                      CASEngageFlag[tempgroupname] = true
+                      CASEngageFlag[tempgroupname] = true
-                      engaged = true
+                      engaged = true
-                  end
+                  end
-                 end
+                 end
-              end
+              end
-                  -- if engaging then check timers to see when to stop
+                  -- if engaging then check timers to see when to stop
-              if mystate == "Engaging" then
+              if mystate == "Engaging" then
-                  if timer.getTime() > CASEngagedTimer[tempgroupname] then
+                  if timer.getTime() > CASEngagedTimer[tempgroupname] then
-                      Fsm:__RTB(2)
+                      Fsm:__RTB(2)
-                      engaged = false
+                      engaged = false
-                      CASEngagedTimer[tempgroupname] = 0
+                      CASEngagedTimer[tempgroupname] = 0
-                      CASEngageFlag[tempgroupname] = false
+                      CASEngageFlag[tempgroupname] = false
-                    
+                    
-                  else
+                  else
-                     --MessageToAll( "Detection Timer: " .. bluedetectiontimer .. "  " .. timer.getTime(), 15)
+                     --MessageToAll( "Detection Timer: " .. bluedetectiontimer .. "  " .. timer.getTime(), 15)
-                     -- if no targets keep looking for 5 minutes and rtb
+                     -- if no targets keep looking for 5 minutes and rtb
-                     if ReconDetection.DetectedItemCount == 0 then
+                     if ReconDetection.DetectedItemCount == 0 then
-                        if timer.getTime() > bluedetectiontimer then
+                        if timer.getTime() > bluedetectiontimer then
-                           Fsm:__RTB(2)
+                           Fsm:__RTB(2)
-                           engaged = false
+                           engaged = false
-                           bluedetectiontimer = 0
+                           bluedetectiontimer = 0
-                           CASEngagedTimer[tempgroupname] = 0
+                           CASEngagedTimer[tempgroupname] = 0
-                           CASEngageFlag[tempgroupname] = false
+                           CASEngageFlag[tempgroupname] = false
-                        
+                        
-                        end
+                        end
-                     end  
+                     end  
-                  end  -- end timer.getTime()
+                  end  -- end timer.getTime()
-                end    
+                end    
-                
+                
-                -- here we launch a replacement as soon as flight hits returning state.
+                -- here we launch a replacement as soon as flight hits returning state.
-                -- possible via adding additional transition called 'Stage'  to AI_CAS_ZONE FSM (defined in spawn manager below)
+                -- possible via adding additional transition called 'Stage'  to AI_CAS_ZONE FSM (defined in spawn manager below)
-                if mystate == "Returning" then
+                if mystate == "Returning" then
-                          Fsm:__Stage(30)
+                          Fsm:__Stage(30)
-                end
+                end
-                -- if crashed then mark in status table dead and set ActiveCASGroupName to nil, which will spawn a new flight
+                -- if crashed then mark in status table dead and set ActiveCASGroupName to nil, which will spawn a new flight
-                -- cleanup all other flags for active flight
+                -- cleanup all other flags for active flight
-                if mystate == "Crashed" then
+                if mystate == "Crashed" then
-                 ActiveCASGroupName = ""
+                 ActiveCASGroupName = ""
-                 for x=1, MaxBlueCAS do
+                 for x=1, MaxBlueCAS do
-                     local mytempgroup = BlueCASGroupTable[tempgroupname]
+                     local mytempgroup = BlueCASGroupTable[tempgroupname]
-                     if mytempgroup == tempgroupname then
+                     if mytempgroup == tempgroupname then
-                          BlueCASGroupStatusTable[x] = "Dead"
+                          BlueCASGroupStatusTable[x] = "Dead"
-                          break
+                          break
-                     end                
+                     end                
-                 end
+                 end
-                 -- Cleanup current flags
+                 -- Cleanup current flags
-                 engaged = false
+                 engaged = false
-                 detectiontimer = 0
+                 detectiontimer = 0
-                 detection = false
+                 detection = false
-                 CASEngagedTimer[tempgroupname] = 0
+                 CASEngagedTimer[tempgroupname] = 0
-                 CASEngageFlag[tempgroupname] = false
+                 CASEngageFlag[tempgroupname] = false
-                 CASGroups[tempgroupname] = nil      
+                 CASGroups[tempgroupname] = nil      
-                end    
+                end    
-                
+                
-                if mystate == "Stopped" then
+                if mystate == "Stopped" then
-                    CASEngageFlag[tempgroupname] = false
+                    CASEngageFlag[tempgroupname] = false
-                    CASEngagedTimer[tempgroupname] = 0
+                    CASEngagedTimer[tempgroupname] = 0
-                    engaged = false
+                    engaged = false
-                    CASGroups[tempgroupname] = nil
+                    CASGroups[tempgroupname] = nil
-                end
+                end
-                -- continuing flags management
+                -- continuing flags management
-                if mystate == "Staged" then
+                if mystate == "Staged" then
-                  ActiveCASGroupName = ""
+                  ActiveCASGroupName = ""
-                  Fsm:Stop()
+                  Fsm:Stop()
-                end
+                end
-    end  
+    end  
-    
+    
-end
+end
-
+
-
+
--- Setup for SpawnNewCASGroup Function
+-- Setup for SpawnNewCASGroup Function
-CASAirPointer = "CASAir1"
+CASAirPointer = "CASAir1"
-BlueCASGroupCounter = 0
+BlueCASGroupCounter = 0
-ActiveCASGroupName = ""
+ActiveCASGroupName = ""
-CASGroups = {}
+CASGroups = {}
-CASEngagedTimer = {}
+CASEngagedTimer = {}
-CASEngageFlag = {}
+CASEngageFlag = {}
-engaged = false
+engaged = false
-BlueCASPatrolZone = ZONE:New( "Blue CAS Patrol Zone" )
+BlueCASPatrolZone = ZONE:New( "Blue CAS Patrol Zone" )
-BlueCASEngageZone = ZONE:New( "Blue CAS Engage Zone" )
+BlueCASEngageZone = ZONE:New( "Blue CAS Engage Zone" )
-
+
--- Function SPAWN New CAS
+-- Function SPAWN New CAS
--- Check that there are avail flights to use and if so Spawn one.
+-- Check that there are avail flights to use and if so Spawn one.
--- Assign spawned aircraft AI_CAS_ZONE
+-- Assign spawned aircraft AI_CAS_ZONE
--- Set some flags for maintaining logic
+-- Set some flags for maintaining logic
-function SpawnNewCASGroup()   
+function SpawnNewCASGroup()   
-        MessageToAll("Assigning CAS", 15)
+        MessageToAll("Assigning CAS", 15)
-        -- get AI_CAS_ZONE Ready for some planes
+        -- get AI_CAS_ZONE Ready for some planes
-        local CASAir1 = AI_CAS_ZONE:New( BlueCASPatrolZone, 5000, 5500, 250, 270, BlueCASEngageZone ) 
+        local CASAir1 = AI_CAS_ZONE:New( BlueCASPatrolZone, 5000, 5500, 250, 270, BlueCASEngageZone ) 
-        
+        
-        -- look for 'avail' flight
+        -- look for 'avail' flight
-        for x=1, MaxBlueCAS do
+        for x=1, MaxBlueCAS do
-          local CASFlightStatus = BlueCASGroupStatusTable[x]
+          local CASFlightStatus = BlueCASGroupStatusTable[x]
-          if CASFlightStatus == "Avail" then
+          if CASFlightStatus == "Avail" then
-              MessageToAll("CAS Status = AVAIL", 15)
+              MessageToAll("CAS Status = AVAIL", 15)
-              --Spawn a CAS Flight
+              --Spawn a CAS Flight
-              CASGroup = BlueCASGroup:SpawnAtAirbase( AIRBASE:FindByName( AIRBASE.Caucasus.Kobuleti ), SPAWN.Takeoff.Runway, 2000 )
+              CASGroup = BlueCASGroup:SpawnAtAirbase( AIRBASE:FindByName( AIRBASE.Caucasus.Kobuleti ), SPAWN.Takeoff.Runway, 2000 )
-              local CASGroupName = CASGroup:GetName()
+              local CASGroupName = CASGroup:GetName()
-              BlueCASGroupStatusTable[x] = "Inflight"   
+              BlueCASGroupStatusTable[x] = "Inflight"   
-              ActiveCASGroupName = "Inflight"
+              ActiveCASGroupName = "Inflight"
-              CASAir1:SetControllable( CASGroup )
+              CASAir1:SetControllable( CASGroup )
-              CASAir1:__Start(30)
+              CASAir1:__Start(30)
-              CASGroups[CASGroupName] = CASAir1
+              CASGroups[CASGroupName] = CASAir1
-              CASEngagedTimer[CASGroupName] = 0
+              CASEngagedTimer[CASGroupName] = 0
-              CASEngageFlag[CASGroupName] = false
+              CASEngageFlag[CASGroupName] = false
-              BlueCASGroupTable[x] = CASGroupName
+              BlueCASGroupTable[x] = CASGroupName
-              break
+              break
-           else
+           else
-              -- Will flip back to avail if CAS flight lands
+              -- Will flip back to avail if CAS flight lands
-              BlueCASGroupStatusTable[x] = "Dead"   
+              BlueCASGroupStatusTable[x] = "Dead"   
-           end
+           end
-        end   
+        end   
-       
+       
-         CASAir1:AddTransition( "Returning", "Stage", "Staged" )
+         CASAir1:AddTransition( "Returning", "Stage", "Staged" )
-         --- OnLeave Transition Handler for State Staged.
+         --- OnLeave Transition Handler for State Staged.
-          -- @function [parent=#AI_PATROL_ZONE] OnLeaveStaged
+          -- @function [parent=#AI_PATROL_ZONE] OnLeaveStaged
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
+          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
-          -- @param #string From The From State string.
+          -- @param #string From The From State string.
-          -- @param #string Event The Event string.
+          -- @param #string Event The Event string.
-          -- @param #string To The To State string.
+          -- @param #string To The To State string.
-          -- @return #boolean Return false to cancel Transition.
+          -- @return #boolean Return false to cancel Transition.
-          
+          
-          --- OnEnter Transition Handler for State Staged.
+          --- OnEnter Transition Handler for State Staged.
-          -- @function [parent=#AI_PATROL_ZONE] OnEnterStaged
+          -- @function [parent=#AI_PATROL_ZONE] OnEnterStaged
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
+          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
-          -- @param #string From The From State string.
+          -- @param #string From The From State string.
-          -- @param #string Event The Event string.
+          -- @param #string Event The Event string.
-          -- @param #string To The To State string.
+          -- @param #string To The To State string.
-          
+          
-          --- OnBefore Transition Handler for Event Stage.
+          --- OnBefore Transition Handler for Event Stage.
-          -- @function [parent=#AI_PATROL_ZONE] OnBeforeStage
+          -- @function [parent=#AI_PATROL_ZONE] OnBeforeStage
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
+          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
-          -- @param #string From The From State string.
+          -- @param #string From The From State string.
-          -- @param #string Event The Event string.
+          -- @param #string Event The Event string.
-          -- @param #string To The To State string.
+          -- @param #string To The To State string.
-          -- @return #boolean Return false to cancel Transition.
+          -- @return #boolean Return false to cancel Transition.
-          
+          
-          --- OnAfter Transition Handler for Event Stage.
+          --- OnAfter Transition Handler for Event Stage.
-          -- @function [parent=#AI_PATROL_ZONE] OnAfterStage
+          -- @function [parent=#AI_PATROL_ZONE] OnAfterStage
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
+          -- @param Wrapper.Controllable#CONTROLLABLE Controllable The Controllable Object managed by the FSM.
-          -- @param #string From The From State string.
+          -- @param #string From The From State string.
-          -- @param #string Event The Event string.
+          -- @param #string Event The Event string.
-          -- @param #string To The To State string.
+          -- @param #string To The To State string.
-            
+            
-          --- Synchronous Event Trigger for Event Stage.
+          --- Synchronous Event Trigger for Event Stage.
-          -- @function [parent=#AI_PATROL_ZONE] Stage
+          -- @function [parent=#AI_PATROL_ZONE] Stage
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          
+          
-          --- Asynchronous Event Trigger for Event Stage.
+          --- Asynchronous Event Trigger for Event Stage.
-          -- @function [parent=#AI_PATROL_ZONE] __Stage
+          -- @function [parent=#AI_PATROL_ZONE] __Stage
-          -- @param #AI_PATROL_ZONE self
+          -- @param #AI_PATROL_ZONE self
-          -- @param #number Delay The delay in seconds.
+          -- @param #number Delay The delay in seconds.
-          
+          
-              CASAir1:AddTransition("Stopped", "Stage", "Staged")
+              CASAir1:AddTransition("Stopped", "Stage", "Staged")
-              CASAir1:AddTransition("Staged", "Route", "Patrolling")
+              CASAir1:AddTransition("Staged", "Route", "Patrolling")
-              CASAir1:AddTransition("Staged", "Stop", "Stopped")  
+              CASAir1:AddTransition("Staged", "Stop", "Stopped")  
-   
+   
-         return CASGroup         
+         return CASGroup         
-end
+end
-
+
--- Triggered when detection happens
+-- Triggered when detection happens
--- Also smokes red detected targets
+-- Also smokes red detected targets
-function ReconDetection:OnAfterDetected( From, Event, To, DetectedUnits )
+function ReconDetection:OnAfterDetected( From, Event, To, DetectedUnits )
-   for DetectedUnitID, DetectedUnit in pairs( DetectedUnits ) do
+   for DetectedUnitID, DetectedUnit in pairs( DetectedUnits ) do
-    local DetectedUnit = DetectedUnit -- Wrapper.Unit#UNIT
+    local DetectedUnit = DetectedUnit -- Wrapper.Unit#UNIT
-    local detectedunitvec2 = DetectedUnit:GetVec2()
+    local detectedunitvec2 = DetectedUnit:GetVec2()
-
+
---   --Move Engagement Zone to Contact from Red Recon
+--   --Move Engagement Zone to Contact from Red Recon
-    BlueCASEngageZone:SetVec2(detectedunitvec2)
+    BlueCASEngageZone:SetVec2(detectedunitvec2)
-    DetectedUnit:SmokeRed()  
+    DetectedUnit:SmokeRed()  
- end 
+ end 
-end
+end
-
+
--- **************************************
+-- **************************************
---  End of Blue CAS
+--  End of Blue CAS
--- *************************************
+-- *************************************
-
+
-  SchedulerObject, SchedulerID = SCHEDULER:New( nil, BlueCASManager, {}, 30, 60 )
+  SchedulerObject, SchedulerID = SCHEDULER:New( nil, BlueCASManager, {}, 30, 60 )

Functional/AmmoTruck/AmmoTruck 100 - NTTR - Basic/AmmoTruck 100 - NTTR - Basic.lua

@@ -1,57 +1,57 @@
--------------------------------------------------------------------------
+-------------------------------------------------------------------------
--- AmmoTruck 100 - NTTR - Basic
+-- AmmoTruck 100 - NTTR - Basic
--------------------------------------------------------------------------
+-------------------------------------------------------------------------
--- Documentation
+-- Documentation
--- 
+-- 
--- AMMOTRUCK: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Functional.AmmoTruck.html
+-- AMMOTRUCK: https://flightcontrol-master.github.io/MOOSE_DOCS_DEVELOP/Documentation/Functional.AmmoTruck.html
--- 
+-- 
--------------------------------------------------------------------------
+-------------------------------------------------------------------------
--- Join the game master slot. The howitzers are firing at the red
+-- Join the game master slot. The howitzers are firing at the red
--- bunkers. When close to out of ammunition, trucks will drive towards
+-- bunkers. When close to out of ammunition, trucks will drive towards
--- the artillery pieces and reload them.
+-- the artillery pieces and reload them.
--------------------------------------------------------------------------
+-------------------------------------------------------------------------
--- Date: November 2022
+-- Date: November 2022
--------------------------------------------------------------------------
+-------------------------------------------------------------------------
-
+
-
+
-BASE:TraceOn()
+BASE:TraceOn()
-BASE:TraceClass("AMMOTRUCK")
+BASE:TraceClass("AMMOTRUCK")
-
+
-local truckset = SET_GROUP:New():FilterCoalitions("blue"):FilterActive(true):FilterCategoryGround():FilterPrefixes("Truck"):FilterStart()
+local truckset = SET_GROUP:New():FilterCoalitions("blue"):FilterActive(true):FilterCategoryGround():FilterPrefixes("Truck"):FilterStart()
-local ariset = SET_GROUP:New():FilterCoalitions("blue"):FilterActive(true):FilterCategoryGround():FilterPrefixes("Artillery"):FilterStart()
+local ariset = SET_GROUP:New():FilterCoalitions("blue"):FilterActive(true):FilterCategoryGround():FilterPrefixes("Artillery"):FilterStart()
-
+
-local ammotruck = AMMOTRUCK:New(truckset,ariset,coalition.side.BLUE,"Logistics",ZONE:FindByName("HomeZone"))
+local ammotruck = AMMOTRUCK:New(truckset,ariset,coalition.side.BLUE,"Logistics",ZONE:FindByName("HomeZone"))
-ammotruck.waitingtime = 60*15
+ammotruck.waitingtime = 60*15
-ammotruck.unloadtime = 60*10
+ammotruck.unloadtime = 60*10
-ammotruck.monitor = -30
+ammotruck.monitor = -30
-ammotruck.ammothreshold = 5
+ammotruck.ammothreshold = 5
-ammotruck.usearmygroup = true
+ammotruck.usearmygroup = true
-
+
---Truck has been sent off:
+--Truck has been sent off:
- function ammotruck:OnAfterRouteTruck(From, Event, To, Truckdata, Aridata)
+ function ammotruck:OnAfterRouteTruck(From, Event, To, Truckdata, Aridata)
-   local m = MESSAGE:New("Truck "..Truckdata.name.." on the way!",15,"AmmoTruck"):ToBlue()
+   local m = MESSAGE:New("Truck "..Truckdata.name.." on the way!",15,"AmmoTruck"):ToBlue()
- end
+ end
-
+
-
+
---Truck has arrived:
+--Truck has arrived:
- function ammotruck:OnAfterTruckArrived(From, Event, To, Truckdata)
+ function ammotruck:OnAfterTruckArrived(From, Event, To, Truckdata)
-   local m = MESSAGE:New("Truck "..Truckdata.name.." arrived!",15,"AmmoTruck"):ToBlue()
+   local m = MESSAGE:New("Truck "..Truckdata.name.." arrived!",15,"AmmoTruck"):ToBlue()
- end 
+ end 
-
+
-
+
---Truck is returning home:
+--Truck is returning home:
- function ammotruck:OnAfterTruckReturning(From, Event, To, Truckdata)
+ function ammotruck:OnAfterTruckReturning(From, Event, To, Truckdata)
-   local m = MESSAGE:New("Truck "..Truckdata.name.." returning!",15,"AmmoTruck"):ToBlue()
+   local m = MESSAGE:New("Truck "..Truckdata.name.." returning!",15,"AmmoTruck"):ToBlue()
- end  
+ end  
-
+
-
+
---Truck is arrived at home:
+--Truck is arrived at home:
- function ammotruck:OnAfterTruckHome(From, Event, To, Truckdata)
+ function ammotruck:OnAfterTruckHome(From, Event, To, Truckdata)
-   local m = MESSAGE:New("Truck "..Truckdata.name.." arrived home!",15,"AmmoTruck"):ToBlue()
+   local m = MESSAGE:New("Truck "..Truckdata.name.." arrived home!",15,"AmmoTruck"):ToBlue()
- end 
+ end 
-
+
-
+
-local trucks = SPAWN:New("Truck")
+local trucks = SPAWN:New("Truck")
-  :InitLimit(5,0)
+  :InitLimit(5,0)
-  :InitRandomizePosition(true,100,10)
+  :InitRandomizePosition(true,100,10)
-  :SpawnScheduled(15,0)
+  :SpawnScheduled(15,0)