Changes

Moose Development/Moose/AI/AI_A2A_Cap.lua

@@ -281,6 +281,14 @@ function AI_A2A_CAP:New( AICap, PatrolZone, PatrolFloorAltitude, PatrolCeilingAl
   return self
 end
 
+--- @param Wrapper.Group#GROUP self
+-- @param Core.Event#EVENTDATA EventData
+function GROUP:OnEventTakeoff( EventData, Fsm )
+  Fsm:Takeoff()
+  self:UnHandleEvent( EVENTS.Takeoff )
+end
+
+
 --- onafter State Transition for Event Patrol.
 -- @param #AI_A2A_CAP self
 -- @param Wrapper.Group#GROUP AICap The AI Group managed by the FSM.

Moose Development/Moose/AI/AI_A2A_Dispatcher.lua

@@ -2798,6 +2798,7 @@ do -- AI_A2A_DISPATCHER
       
       local TakeoffMethod = self:GetSquadronTakeoff( SquadronName )
       local Defender = Spawn:SpawnAtAirbase( DefenderSquadron.Airbase, TakeoffMethod, DefenderSquadron.TakeoffAltitude or self.DefenderDefault.TakeoffAltitude ) -- Wrapper.Group#GROUP
+      self:AddDefenderToSquadron( DefenderSquadron, Defender, DefenderGrouping )
       return Defender, DefenderGrouping
     end
 

Moose Development/Moose/AI/AI_A2G_Dispatcher.lua

@@ -207,6 +207,13 @@ do -- AI_A2G_DISPATCHER
   }
 
 
+  --- List of defense coordinates.
+  -- @type AI_A2G_DISPATCHER.DefenseCoordinates
+  -- @map <#string,Core.Point#COORDINATE> A list of all defense coordinates mapped per defense coordinate name.
+
+  --- @field #AI_A2G_DISPATCHER.DefenseCoordinates DefenseCoordinates
+  AI_A2G_DISPATCHER.DefenseCoordinates = {}
+
   --- Enumerator for spawns at airbases
   -- @type AI_A2G_DISPATCHER.Takeoff
   -- @extends Wrapper.Group#GROUP.Takeoff
@@ -263,7 +270,6 @@ do -- AI_A2G_DISPATCHER
 --    self.Detection:InitDetectVisual( true )
 --    self.Detection:SetRefreshTimeInterval( 30 )
 
-    self:SetEngageRadius()
     self:SetDefenseRadius()
     self:SetIntercept( 300 )  -- A default intercept delay time of 300 seconds.
     self:SetDisengageRadius( 300000 ) -- The default Disengage Radius is 300 km.
@@ -501,6 +507,35 @@ do -- AI_A2G_DISPATCHER
     end 
   end
   
+  do -- Manage the defensive behaviour
+  
+    --- @param #AI_A2G_DISPATCHER self
+    -- @param #string DefenseCoordinateName The name of the coordinate to be defended by A2G defenses.
+    -- @param Core.Point#COORDINATE DefenseCoordinate The coordinate to be defended by A2G defenses.
+    function AI_A2G_DISPATCHER:AddDefenseCoordinate( DefenseCoordinateName, DefenseCoordinate )
+      self.DefenseCoordinates[DefenseCoordinateName] = DefenseCoordinate
+    end
+    
+    --- @param #AI_A2G_DISPATCHER self
+    function AI_A2G_DISPATCHER:SetDefenseReactivityLow()
+      self.DefenseReactivity = 0.05
+      self.DefenseDistance = 20000
+    end
+    
+    --- @param #AI_A2G_DISPATCHER self
+    function AI_A2G_DISPATCHER:SetDefenseReactivityMedium()
+      self.DefenseReactivity = 0.15
+      self.DefenseDistance = 20000
+    end
+    
+    --- @param #AI_A2G_DISPATCHER self
+    function AI_A2G_DISPATCHER:SetDefenseReactivityHigh()
+      self.DefenseReactivity = 0.5
+      self.DefenseDistance = 20000
+    end
+  
+  end
+  
   --- Define the radius to engage any target by airborne friendlies, which are executing cap or returning from an defense mission.
   -- If there is a target area detected and reported, then any friendlies that are airborne near this target area, 
   -- will be commanded to (re-)engage that target when available (if no other tasks were commanded).
@@ -530,7 +565,7 @@ do -- AI_A2G_DISPATCHER
   --   
   function AI_A2G_DISPATCHER:SetEngageRadius( EngageRadius )
 
-    self.Detection:SetFriendliesRange( EngageRadius or 100000 )
+    --self.Detection:SetFriendliesRange( EngageRadius or 100000 )
   
     return self
   end
@@ -2409,6 +2444,8 @@ do -- AI_A2G_DISPATCHER
 
         for SquadronName, DefenderSquadron in pairs( self.DefenderSquadrons or {} ) do
         
+          if DefenderSquadron[DefenseTaskType] then
+
             local SpawnCoord = DefenderSquadron.Airbase:GetCoordinate() -- Core.Point#COORDINATE
             local AttackerCoord = AttackerUnit:GetCoordinate()
             local InterceptCoord = AttackerDetection.InterceptCoord
@@ -2428,6 +2465,7 @@ do -- AI_A2G_DISPATCHER
               end
             end
           end
+        end
         
         if ClosestDefenderSquadronName then
         
@@ -2585,10 +2623,13 @@ do -- AI_A2G_DISPATCHER
   
     local AttackerSet = DetectedItem.Set -- Core.Set#SET_UNIT
     local AttackerCount = AttackerSet:Count()
+    local AttackerRadarCount = AttackerSet:HasSEAD()
     local IsFriendliesNearBy = self.Detection:IsFriendliesNearBy( DetectedItem, Unit.Category.GROUND_UNIT )
-    local IsCas = ( AttackerSet:HasSEAD() == 0 ) and IsFriendliesNearBy -- Is the AttackerSet a CAS group?
+    local IsCas = ( AttackerRadarCount == 0 ) and ( IsFriendliesNearBy == true ) -- Is the AttackerSet a CAS group?
     
-    if IsCas then
+    self:F( { Friendlies = self.Detection:GetFriendliesNearBy( DetectedItem, Unit.Category.GROUND_UNIT ) } )
+    
+    if IsCas == true then
     
       -- First, count the active defenders, engaging the DetectedItem.
       local DefenderCount = self:CountDefendersEngaged( DetectedItem )
@@ -2618,10 +2659,11 @@ do -- AI_A2G_DISPATCHER
   
     local AttackerSet = DetectedItem.Set -- Core.Set#SET_UNIT
     local AttackerCount = AttackerSet:Count()
+    local AttackerRadarCount = AttackerSet:HasSEAD()
     local IsFriendliesNearBy = self.Detection:IsFriendliesNearBy( DetectedItem, Unit.Category.GROUND_UNIT )
-    local IsBai = ( AttackerSet:HasSEAD() == 0 ) and not IsFriendliesNearBy -- Is the AttackerSet a BAI group?
+    local IsBai = ( AttackerRadarCount == 0 ) and ( IsFriendliesNearBy == false ) -- Is the AttackerSet a BAI group?
     
-    if IsBai then
+    if IsBai == true then
     
       -- First, count the active defenders, engaging the DetectedItem.
       local DefenderCount = self:CountDefendersEngaged( DetectedItem )
@@ -2684,6 +2726,7 @@ do -- AI_A2G_DISPATCHER
     local Report = REPORT:New( "\nTactical Overview" )
 
     local DefenderGroupCount = 0
+    local Delay = 0 -- We need to implement a delay for each action because the spawning on airbases get confused if done too quick.
 
     -- Now that all obsolete tasks are removed, loop through the detected targets.
     for DetectedItemID, DetectedItem in pairs( Detection:GetDetectedItems() ) do
@@ -2700,11 +2743,35 @@ do -- AI_A2G_DISPATCHER
       local DetectionIndex = DetectedItem.Index
       local DetectedItemChanged = DetectedItem.Changed
       
+      local AttackerCoordinate = self.Detection:GetDetectedItemCoordinate( DetectedItem )
+      
+      -- Calculate if for this DetectedItem if a defense needs to be initiated.
+      -- This calculation is based on the distance between the defense point and the attackers, and the defensiveness parameter.
+      -- The attackers closest to the defense coordinates will be handled first, or course!
+      
+      local DefenseCoordinate = nil
+      
+      for DefenseCoordinateName, EvaluateCoordinate in pairs( self.DefenseCoordinates ) do
+      
+        local EvaluateDistance = AttackerCoordinate:Get2DDistance( EvaluateCoordinate )
+        local DistanceProbability = ( self.DefenseDistance / EvaluateDistance * self.DefenseReactivity )
+        local DefenseProbability = math.random()
+        
+        self:F({DistanceProbability=DistanceProbability,DefenseProbability=DefenseProbability})
+        
+        if DefenseProbability <= DistanceProbability / ( 300 / 30 ) then
+          DefenseCoordinate = EvaluateCoordinate
+          break
+        end
+      end
+      
+      if DefenseCoordinate then
         do 
           local DefendersMissing, Friendlies = self:Evaluate_SEAD( DetectedItem ) -- Returns a SET_UNIT with the SEAD targets to be engaged...
           if DefendersMissing and DefendersMissing > 0 then
             self:F( { SeadGroups = Friendlies } )
-          self:DEFEND( DetectedItem, DefendersMissing, Friendlies, "SEAD" )
+            self:__DEFEND( Delay, DetectedItem, DefendersMissing, Friendlies, "SEAD", DefenseCoordinate )
+            Delay = Delay + 1
           end
         end
   
@@ -2712,7 +2779,8 @@ do -- AI_A2G_DISPATCHER
           local DefendersMissing, Friendlies = self:Evaluate_CAS( DetectedItem ) -- Returns a SET_UNIT with the CAS targets to be engaged...
           if DefendersMissing and DefendersMissing > 0 then
             self:F( { CasGroups = Friendlies } )
-          self:DEFEND( DetectedItem, DefendersMissing, Friendlies, "CAS" )
+            self:__DEFEND( Delay, DetectedItem, DefendersMissing, Friendlies, "CAS", DefenseCoordinate )
+            Delay = Delay + 1
           end
         end
   
@@ -2720,7 +2788,9 @@ do -- AI_A2G_DISPATCHER
           local DefendersMissing, Friendlies = self:Evaluate_BAI( DetectedItem ) -- Returns a SET_UNIT with the CAS targets to be engaged...
           if DefendersMissing and DefendersMissing > 0 then
             self:F( { BaiGroups = Friendlies } )
-          self:DEFEND( DetectedItem, DefendersMissing, Friendlies, "BAI" )
+            self:__DEFEND( Delay, DetectedItem, DefendersMissing, Friendlies, "BAI", DefenseCoordinate )
+            Delay = Delay + 1
+          end
         end
       end
 
@@ -3248,7 +3318,6 @@ do
 
     local self = BASE:Inherit( self, AI_A2G_DISPATCHER:New( Detection ) ) -- #AI_A2G_GCICAP
     
-    self:SetEngageRadius( EngageRadius )
     self:SetGciRadius( GciRadius )
 
     -- Determine the coalition of the EWRNetwork, this will be the coalition of the GCICAP.

Moose Development/Moose/AI/AI_Air.lua

@@ -252,13 +252,6 @@ function AI_AIR:New( AIGroup )
   return self
 end
 
---- @param Wrapper.Group#GROUP self
--- @param Core.Event#EVENTDATA EventData
-function GROUP:OnEventTakeoff( EventData, Fsm )
-  Fsm:Takeoff()
-  self:UnHandleEvent( EVENTS.Takeoff )
-end
-
 function AI_AIR:SetDispatcher( Dispatcher )
   self.Dispatcher = Dispatcher
 end

Moose Development/Moose/Functional/Detection.lua

@@ -327,6 +327,8 @@ do -- DETECTION_BASE
     self:InitDetectIRST( nil )
     self:InitDetectDLINK( nil )
     
+    self:SetFriendliesRange( 6000 )
+    
     self:FilterCategories( {
       Unit.Category.AIRPLANE,
       Unit.Category.GROUND_UNIT,