From 8eef039312519c87cbd92d3f79a7ac2f335dbc41 Mon Sep 17 00:00:00 2001
From: phr0gz <phr0gz@hotmail.com>
Date: Thu, 8 Dec 2022 13:15:07 +0100
Subject: [PATCH] New CAP auftrag (#1850)

Add Ability to CAP escort Ground group or helo with a new auftrag: AUFTRAG:NewCAPGROUP
---
 Moose Development/Moose/Ops/Auftrag.lua     | 56 +++++++++++++++++++++
 Moose Development/Moose/Ops/FlightGroup.lua |  2 +-
 2 files changed, 57 insertions(+), 1 deletion(-)

diff --git a/Moose Development/Moose/Ops/Auftrag.lua b/Moose Development/Moose/Ops/Auftrag.lua
index d5e62aab1..fa2d49679 100644
--- a/Moose Development/Moose/Ops/Auftrag.lua	
+++ b/Moose Development/Moose/Ops/Auftrag.lua	
@@ -1312,6 +1312,62 @@ function AUFTRAG:NewCAP(ZoneCAP, Altitude, Speed, Coordinate, Heading, Leg, Targ
   return mission
 end
 
+--- **[AIRPANE]** Create a CAP on group mission.
+-- @param #AUFTRAG self
+-- @param Wrapper.Group#GROUP group.
+-- @param #number Altitude Orbit altitude in feet. Default is 6,000 ft.
+-- @param #number Speed Orbit speed in knots. Default 250 KIAS.
+-- @param #number Leg Length of race-track in NM. Default 14 NM.
+-- @param #number RelHeading Relative heading [0, 360) of race-track pattern in degrees wrt heading of the carrier. Default is heading of the carrier.
+-- @param #number OffsetDist Relative distance of the first race-track point wrt to the carrier. Default 6 NM.
+-- @param #number OffsetAngle Relative angle of the first race-track point wrt. to the carrier. Default 180 (behind the boat).
+-- @param #number UpdateDistance Threshold distance in NM before orbit pattern is updated. Default 5 NM.
+-- @param #table TargetTypes (Optional) Table of target types. Default `{"Helicopters", "Ground Units", "Light armed ships"}`.
+-- @param #number EngageRange Max range in nautical miles that the escort group(s) will engage enemies. Default 32 NM (60 km).
+-- @return #AUFTRAG self
+function AUFTRAG:NewCAPGROUP(Grp, Altitude, Speed, RelHeading, Leg, OffsetDist, OffsetAngle, UpdateDistance, TargetTypes, EngageRange)
+
+  -- Ensure given TargetTypes parameter is a table.
+  if TargetTypes then
+    if type(TargetTypes)~="table" then
+      TargetTypes={TargetTypes}
+    end
+  end
+  -- Six NM astern.
+ local OffsetVec2={r=OffsetDist or 6, phi=OffsetAngle or 180}
+
+ -- Default leg.
+ Leg=Leg or 14
+
+ local Heading=nil
+ if RelHeading then  
+   Heading=-math.abs(RelHeading)
+ end  
+
+ -- Create orbit mission. 
+ local mission=AUFTRAG:NewORBIT_GROUP(Grp, Altitude, Speed, Leg, Heading, OffsetVec2, UpdateDistance)
+ -- Mission type CAP.
+ mission.type=AUFTRAG.Type.CAP
+ mission:_SetLogID()
+
+ -- DCS task parameters:
+ local engage = EngageRange or 32
+ local zoneCAPGroup = ZONE_GROUP:New("CAPGroup", Grp, UTILS.NMToMeters(engage))
+ mission.engageZone=zoneCAPGroup
+ mission.engageTargetTypes=TargetTypes or {"Air"}
+
+ -- Mission options:
+ mission.missionTask=ENUMS.MissionTask.CAP
+ mission.optionROE=ENUMS.ROE.OpenFire
+ mission.optionROT=ENUMS.ROT.EvadeFire
+
+ mission.categories={AUFTRAG.Category.AIRCRAFT}
+
+ mission.DCStask=mission:GetDCSMissionTask()
+
+ return mission
+end
+
 --- **[AIR]** Create a CAS mission.
 -- @param #AUFTRAG self
 -- @param Core.Zone#ZONE_RADIUS ZoneCAS Circular CAS zone. Detected targets in this zone will be engaged.
diff --git a/Moose Development/Moose/Ops/FlightGroup.lua b/Moose Development/Moose/Ops/FlightGroup.lua
index 3d43ee67f..3087195f6 100644
--- a/Moose Development/Moose/Ops/FlightGroup.lua	
+++ b/Moose Development/Moose/Ops/FlightGroup.lua	
@@ -908,7 +908,7 @@ function FLIGHTGROUP:Status()
     if mission and mission.updateDCSTask then
     
       -- Orbit missions might need updates.
-      if (mission:GetType()==AUFTRAG.Type.ORBIT or mission:GetType()==AUFTRAG.Type.RECOVERYTANKER) and mission.orbitVec2 then
+      if (mission:GetType()==AUFTRAG.Type.ORBIT or mission:GetType()==AUFTRAG.Type.RECOVERYTANKER or mission:GetType()==AUFTRAG.Type.CAP) and mission.orbitVec2 then
           
         -- Get 2D vector of orbit target.
         local vec2=mission:GetTargetVec2()