New folder structure

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

@@ -0,0 +1,76 @@
+---
+-- Name: BAI-100 - BAI of a Bridge
+-- Author: FlightControl
+-- Date Created: 09 May 2017
+--
+-- # Situation:
+--
+-- 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.
+--
+-- # Test cases:
+-- 
+-- 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.
+-- 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.
+-- 5. Observe the bombers eliminating the bridge.
+-- 6. Observe the bombers defenses.
+-- 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.
+
+
+
+-- Create a local variable (in this case called BAIEngagementZone) and 
+-- using the ZONE function find the pre-defined zone called "Engagement Zone" 
+-- currently on the map and assign it to this variable
+BAIEngagementZone = ZONE:New( "Engagement Zone" )
+
+-- 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
+BAIPlane = GROUP:FindByName( "Plane" )
+
+-- Create a local Variable (in this cased called PatrolZone and 
+-- using the ZONE function find the pre-defined zone called "Patrol Zone" and assign it to this variable
+PatrolZone = ZONE:New( "Patrol Zone" )
+
+-- Create and object (in this case called AIBAIZone) and 
+-- using the functions AI_BAI_ZONE assign the parameters that define this object 
+-- (in this case 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 
+-- using the GROUP function find the group labeled "Targets" and assign it to this object
+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
+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.
+AIBAIZone:SearchOff()
+
+-- Tell the group BAIPlane to start the mission in 1 second. 
+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. 
+AIBAIZone:__Engage( 10 )
+
+-- Check every 60 seconds whether the Targets have been eliminated.
+-- When the trigger completed has been fired, the Plane will go back to the Patrol Zone.
+Check, CheckScheduleID = SCHEDULER:New(nil,
+  function()
+    if Targets:IsAlive() and Targets:GetSize() ~= 0  then
+      BASE:E( "Test Mission: " .. Targets:GetSize() .. " targets left to be destroyed.")
+    else
+      BASE:E( "Test Mission: The bridge is destroyed." )
+      AIBAIZone:__Accomplish( 1 ) -- Now they should fly back to the patrolzone and patrol.
+    end
+  end, {}, 20, 60, 0.2 )
+
+
+-- When the targets in the zone are destroyed, (see scheduled function), the planes will return home ...
+function AIBAIZone:OnAfterAccomplish( Controllable, From, Event, To )
+  BASE:E( "Test Mission: Sending the bombers back to base." )
+  Check:Stop( CheckScheduleID )
+  AIBAIZone:__RTB( 1 )
+end