OPS

CHIEF
- Added option to customize reaction on strategic zones

AUFTRAG
- Added new type GROUNDATTACK

Moose Development/Moose/Functional/Warehouse.lua

@@ -5453,6 +5453,8 @@ end
 -- @param #WAREHOUSE.Pendingitem request The request of the dead asset.
 function WAREHOUSE:onafterAssetDead(From, Event, To, asset, request)
 
+  if asset and request then
+
     -- Debug message.
     local text=string.format("Asset %s from request id=%d is dead!", asset.templatename, request.uid)
     self:T(self.lid..text)
@@ -5504,6 +5506,10 @@ function WAREHOUSE:onafterAssetDead(From, Event, To, asset, request)
       end
     end
     
+  else
+    self:E(self.lid.."ERROR: Asset and/or Request is nil in onafterAssetDead")
+  
+  end
   
 end
 

Moose Development/Moose/Ops/ArmyGroup.lua

@@ -1405,7 +1405,9 @@ function ARMYGROUP:onbeforeEngageTarget(From, Event, To, Target)
   end
   
   -- Pause current mission.
-  if self.currentmission and self.currentmission>0 then
+  local mission=self:GetMissionCurrent()
+  
+  if mission and mission.type~=AUFTRAG.Type.GROUNDATTACK then
     self:T(self.lid.."Engage command but have current mission ==> Pausing mission!")
     self:PauseMission()
     dt=-0.1
@@ -1533,6 +1535,15 @@ function ARMYGROUP:onafterDisengage(From, Event, To)
   self:SwitchROE(self.engage.roe)
   self:SwitchAlarmstate(self.engage.alarmstate)
   
+  -- Get current task
+  local task=self:GetTaskCurrent()
+  
+  -- Get if current task is ground attack.
+  if task and task.dcstask.id==AUFTRAG.SpecialTask.GROUNDATTACK then
+    self:T(self.lid.."Disengage with current task GROUNDATTACK ==> Task Done!")
+    self:TaskDone(task)
+  end    
+  
   -- Remove current waypoint
   if self.engage.Waypoint then
     self:RemoveWaypointByID(self.engage.Waypoint.uid)    

Moose Development/Moose/Ops/Auftrag.lua

@@ -385,6 +385,7 @@ _AUFTRAGSNR=0
 -- @field #string BARRAGE Barrage.
 -- @field #string ARMORATTACK Armor attack.
 -- @field #string CASENHANCED Enhanced CAS.
+-- @field #string GROUNDATTACK Ground attack.
 AUFTRAG.Type={
   ANTISHIP="Anti Ship",
   AWACS="AWACS",  
@@ -419,6 +420,7 @@ AUFTRAG.Type={
   ARMORATTACK="Armor Attack",
   CASENHANCED="CAS Enhanced",
   HOVER="Hover",
+  GROUNDATTACK="Ground Attack"
 }
 
 --- Mission status of an assigned group.
@@ -431,6 +433,7 @@ AUFTRAG.Type={
 -- @field #string ONGUARD On guard.
 -- @field #string ARMOREDGUARD On guard with armor.
 -- @field #string BARRAGE Barrage.
+-- @field #string GROUNDATTACK Ground attack.
 AUFTRAG.SpecialTask={
   PATROLZONE="PatrolZone",
   RECON="ReconMission",
@@ -442,6 +445,7 @@ AUFTRAG.SpecialTask={
   BARRAGE="Barrage",
   ARMORATTACK="AmorAttack",
   HOVER="Hover",
+  GROUNDATTACK="Ground Attack",
 }
 
 --- Mission status.
@@ -562,7 +566,7 @@ AUFTRAG.Category={
 
 --- AUFTRAG class version.
 -- @field #string version
-AUFTRAG.version="0.8.5"
+AUFTRAG.version="0.9.0"
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- TODO list
@@ -1792,6 +1796,35 @@ function AUFTRAG:NewARMORATTACK(Target, Speed, Formation)
   return mission
 end
 
+--- **[GROUND]** Create a GROUNDATTACK mission. Ground group(s) will go to a target object and attack.
+-- @param #AUFTRAG self
+-- @param Wrapper.Positionable#POSITIONABLE Target The target to attack. Can be a GROUP, UNIT or STATIC object.
+-- @param #number Speed Speed in knots.
+-- @param #string Formation The attack formation, e.g. "Wedge", "Vee" etc. 
+-- @return #AUFTRAG self
+function AUFTRAG:NewGROUNDATTACK(Target, Speed, Formation)
+
+  local mission=AUFTRAG:New(AUFTRAG.Type.GROUNDATTACK)
+  
+  mission:_TargetFromObject(Target)
+  
+  mission.missionTask=mission:GetMissionTaskforMissionType(AUFTRAG.Type.GROUNDATTACK)
+    
+  mission.optionROE=ENUMS.ROE.OpenFire
+  mission.optionAlarm=ENUMS.AlarmState.Auto
+  mission.optionFormation="On Road"
+  mission.optionAttackFormation=Formation or "Wedge"
+  
+  mission.missionFraction=0.75
+  mission.missionSpeed=Speed and UTILS.KnotsToKmph(Speed) or 20
+  
+  mission.categories={AUFTRAG.Category.GROUND}
+  
+  mission.DCStask=mission:GetDCSMissionTask()
+
+  return mission
+end
+
 --- **[AIR, GROUND, NAVAL]** Create a RECON mission.
 -- @param #AUFTRAG self
 -- @param Core.Set#SET_ZONE ZoneSet The recon zones.
@@ -3315,6 +3348,7 @@ function AUFTRAG:onafterStatus(From, Event, To)
 
       -- Cancel mission if mission targets are gone (if there were any in the beginning).
       -- TODO: I commented this out for some reason but I forgot why...
+      self:T(self.lid.."No targets left cancelling mission!")
       self:Cancel()
       
     elseif self:IsExecuting() then
@@ -5098,6 +5132,26 @@ function AUFTRAG:GetDCSMissionTask(TaskControllable)
     
     table.insert(DCStasks, DCStask)   
 
+   elseif self.type==AUFTRAG.Type.GROUNDATTACK then
+
+    ---------------------------
+    -- GROUND ATTACK Mission --
+    ---------------------------
+  
+    local DCStask={}
+    
+    DCStask.id=AUFTRAG.SpecialTask.GROUNDATTACK
+    
+    -- We create a "fake" DCS task and pass the parameters to the ARMYGROUP.
+    local param={}
+    param.target=self:GetTargetData()
+    param.action="Wedge"
+    param.speed=self.missionSpeed
+    
+    DCStask.params=param
+    
+    table.insert(DCStasks, DCStask)   
+
   elseif self.type==AUFTRAG.Type.AMMOSUPPLY then
 
     -------------------------

Moose Development/Moose/Ops/Chief.lua

@@ -101,14 +101,106 @@
 --       MESSAGE:New(text, 120):ToAll()
 --     end
 --     
+-- # Resources
+-- 
+-- A chief needs resources such as air, ground and naval assets. These can be added in form of AIRWINGs, BRIGADEs and FLEETs.
+-- 
+-- Whenever the chief detects a target or receives a mission, he will select the best available assets and assign them to the mission.
+-- The best assets are determined by their mission performance, payload performance (in case of air), distance to the target, skill level, etc.
+-- 
+-- ## Adding Airwings 
+-- 
+-- Airwings can be added via the @{#CHIEF.AddAirwing}() function.
+-- 
+-- ## Adding Brigades
+-- 
+-- Brigades can be added via the @{#CHIEF.AddBrigade}() function.
+-- 
+-- ## Adding Fleets
+-- 
+-- Fleets are not implemented yet.
+-- 
+--  
 -- # Strategic (Capture) Zones
 -- 
--- Strategically important zones, which should be captured can be added via the @{#CHIEF.AddStrategicZone}() function.
+-- Strategically important zones, which should be captured can be added via the @{#CHIEF.AddStrategicZone}(*OpsZone, Prio, Importance*) function.
+-- The first parameter *OpsZone* is an @{Ops.OpsZone#OPSZONE} specifying the zone. This has to be a **circular zone** due to DCS API restrictions.
+-- The second parameter *Prio* is the priority. The zone queue is sorted wrt to lower prio values. By default this is set to 50.
+-- The third parameter *Importance* is the importance of the zone. By default this is `nil`. If you specify one zone with importance 2 and a second zone with
+-- importance 3, then the zone of importance 2 is attacked first and only if that zone has been captured, zones that have importances with higher values are attacked.
 -- 
--- If the zone is currently owned by another coalition and enemy ground troops are present in the zone, a CAS and an ARTY mission are lauchned, provided assets are available.
+-- For example:
 -- 
--- Once the zone is cleaned of enemy forces, ground (infantry) troops are send there. These require a transportation via helicopters.
--- So in order to deploy our own troops, infantry assets with `AUFTRAG.Type.ONGUARD` and helicopters with `AUFTRAG.Type.OPSTRANSPORT` need to be available.
+--     local myStratZone=myChief:AddStrategicZone(myOpsZone, nil , 2)
+-- 
+-- Will at a strategic zone with importance 2.
+-- 
+-- If the zone is currently owned by another coalition and enemy ground troops are present in the zone, a CAS and an ARTY mission are lauchned:
+-- 
+-- * A mission of type `AUFTRAG.Type.CASENHANCED` is started if assets are available that can carry out this mission type.
+-- * A mission of type `AUFTRAG.Type.ARTY` is started provided assets are available.
+-- 
+-- The CAS flight(s) will patrol the zone randomly and take out enemy ground units they detect. It can always be possible that the enemies cannot be detected however.
+-- The assets will shell the zone. However, it is unlikely that they hit anything as they do not have any information about the location of the enemies.
+-- 
+-- Once the zone is cleaned of enemy forces, ground troops are send there. By default, two missions are launched:
+-- 
+-- * First mission is of type `AUFTRAG.Type.ONGUARD` and will send infantry groups. These are transported by helicopters. Therefore, helo assets with `AUFTRAG.Type.OPSTRANSPORT` need to be available.
+-- * The second mission is also of type `AUFTRAG.Type.ONGUARD` but will send tanks if these are available.
+-- 
+-- ## Customized Reaction
+-- 
+-- The default mission types and number of assets can be customized for the two scenarious (zone empty or zone occupied by the enemy).
+-- 
+-- In order to do this, you need to create resource lists (one for each scenario) via the @{#CHIEF.CreateResource}() function.
+-- These list can than be used to replace the default resources employed with
+-- 
+-- * @{CHIEF.SetStrategicZoneResourceOccupied}(*StrateticZone, ResourceOccupied*) for the case that the zone is occupied by the enemy and
+-- * @{CHIEF.SetStrategicZoneResourceEmpty}(*StrateticZone, ResourceEmpty*) for the case that the zone is empty.
+-- 
+-- The first parameter *StrateticZone* is the strategic zone object that is returned by the @{#CHIEF.AddStrategicZone}() function.
+-- The second parameter is the resource list created with the @{#CHIEF.CreateResource}() function.
+-- 
+-- For example:
+--     
+--     -- Create a resource list of mission types and required assets for the case that the zone is occupied.
+--     -- Here, we create an enhanced CAS mission and employ at least on and at most two asset groups.
+--     local ResourceOccupied=myChief:CreateResource(AUFTRAG.Type.CASENHANCED, 1, 2)
+--     -- We also add ARTY missions with at least one and at most two assets. We additionally require these to be MLRS groups (and not howitzers).
+--     myChief:AddToResource(ResourceOccupied, AUFTRAG.Type.ARTY, 1, 2, nil, "MLRS")
+--     -- Add at least one RECON mission that uses UAV type assets.
+--     myChief:AddToResource(ResourceOccupied, AUFTRAG.Type.RECON, 1, nil, GROUP.Attribute.AIR_UAV)
+--     -- Add at least one but at most two BOMBCARPET missions.
+--     myChief:AddToResource(ResourceOccupied, AUFTRAG.Type.BOMBCARPET, 1, 2)
+--     
+--     -- Replace the default list with the customized one.
+--     myChief:SetStrategicZoneResourceOccupied(myStratZone, ResourceOccupied)  
+--     
+--     
+--     -- Create a resource list of mission types and required assets for the case that the zone is empty.
+--     -- Here, we create an ONGUARD mission and employ at least on and at most five infantry assets.
+--     local ResourceEmpty=myChief:CreateResource(AUFTRAG.Type.ONGUARD, 1, 5, GROUP.Attribute.GROUND_INFANTRY)
+--     -- Additionally, we send up to three tank groups.
+--     myChief:AddToResource(ResourceEmpty, AUFTRAG.Type.ONGUARD, 1, 3, GROUP.Attribute.GROUND_TANK)
+--     -- Finally, we send two groups that patrol the zone.
+--     myChief:AddToResource(ResourceEmpty, AUFTRAG.Type.PATROLZONE, 2)
+--     
+--     -- Set this to be the resources employed when the zone is empty.
+--     myChief:SetStrategicZoneResourceEmpty(myStratZone, ResourceEmpty)
+-- 
+-- As the location of the enemies is not known, only mission types that don't require and explicit target group are possible. These are
+-- 
+-- * `AUFTRAG.Type.CASENHANCED`
+-- * `AUFTRAG.Type.ARTY`
+-- * `AUFTRAG.Type.PATROLZONE`
+-- * `AUFTRAG.Type.ONGUARD`
+-- * `AUFTRAG.Type.RECON`
+-- * `AUFTRAG.Type.AMMOSUPPLY`
+-- * `AUFTRAG.Type.BOMBING`
+-- * `AUFTRAG.Type.BOMBCARPET`
+-- * `AUFTRAG.Type.BARRAGE`
+-- 
+-- ## Events
 -- 
 -- Whenever a strategic zone is captured by us the FSM event @{#CHIEF.ZoneCaptured} is triggered and customized further actions can be executed 
 -- with the @{#CHIEF.OnAfterZoneCaptured}() function.
@@ -176,16 +268,23 @@ CHIEF.Strategy = {
 -- @type CHIEF.StrategicZone
 -- @field Ops.OpsZone#OPSZONE opszone OPS zone.
 -- @field #number prio Priority.
--- @field #number importance Importance
--- @field Ops.Auftrag#AUFTRAG missionPatrol Patrol mission.
--- @field Ops.Auftrag#AUFTRAG missionCAS CAS mission.
--- @field Ops.Auftrag#AUFTRAG missionPatrol Patrol mission.
--- @field Ops.Auftrag#AUFTRAG missionARTY Artillery mission.
+-- @field #number importance Importance.
+-- @field #table resourceEmpty Resource list.
+-- @field #table resourceOccup Resource list.
+-- @field #table missions Mission.
 
+--- Resource.
+-- @type CHIEF.Resource
+-- @field #string MissionType Mission type, e.g. `AUFTRAG.Type.BAI`.
+-- @field #number Nmin Min number of assets.
+-- @field #number Nmax Max number of assets.
+-- @field #table Attributes Generalized attribute, e.g. `{GROUP.Attribute.GROUND_INFANTRY}`.
+-- @field #table Properties Properties ([DCS attributes](https://wiki.hoggitworld.com/view/DCS_enum_attributes)), e.g. `"Attack helicopters"` or `"Mobile AAA"`.
+-- @field Ops.Auftrag#AUFTRAG mission Attached mission.
 
 --- CHIEF class version.
 -- @field #string version
-CHIEF.version="0.2.0"
+CHIEF.version="0.3.0"
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- TODO list
@@ -600,6 +699,88 @@ function CHIEF:SetDefcon(Defcon)
   return self
 end
 
+--- Create a new resource list of required assets.
+-- @param #CHIEF self
+-- @param #string MissionType The mission type.
+-- @param #number Nmin Min number of required assets. Default 1.
+-- @param #number Nmax Max number of requried assets. Default 1.
+-- @param #table Attributes Generalized attribute(s). Default `nil`.
+-- @param #table Properties DCS attribute(s). Default `nil`.
+-- @return #table The resource object.
+function CHIEF:CreateResource(MissionType, Nmin, Nmax, Attributes, Properties)
+
+  local resource={}
+  
+  self:AddToResource(resource, MissionType, Nmin, Nmax, Attributes, Properties)
+    
+  return resource
+end
+
+--- Add mission type and number of required assets to resource.
+-- @param #CHIEF self
+-- @param #table Resource Resource table.
+-- @param #string MissionType Mission Type.
+-- @param #number Nmin Min number of required assets.
+-- @param #number Nmax Max number of requried assets.
+-- @param #table Attributes Generalized attribute(s).
+-- @param #table Properties DCS attribute(s). Default `nil`.
+-- @return #CHIEF self
+function CHIEF:AddToResource(Resource, MissionType, Nmin, Nmax, Attributes, Properties)
+  
+  -- Ensure table.
+  if Attributes and type(Attributes)~="table" then
+    Attributes={Attributes}
+  end
+  
+  -- Ensure table.
+  if Properties and type(Properties)~="table" then
+    Properties={Properties}
+  end
+  
+  -- Create new resource table.
+  local resource={} --#CHIEF.Resource
+  resource.MissionType=MissionType
+  resource.Nmin=Nmin or 1
+  resource.Nmax=Nmax or 1
+  resource.Attributes=Attributes or {}
+  resource.Properties=Properties or {}
+  
+  -- Add to table.
+  table.insert(Resource, resource)
+  
+  -- Debug output.
+  if self.verbose>10 then
+    local text="Resource:"
+    for _,_r in pairs(Resource) do
+      local r=_r --#CHIEF.Resource
+      text=text..string.format("\nmission=%s, Nmin=%d, Nmax=%d, attribute=%s, properties=%s", r.MissionType, r.Nmin, r.Nmax, tostring(r.Attributes[1]), tostring(r.Properties[1]))
+    end
+    self:I(self.lid..text)
+  end
+    
+  return self
+end
+
+--- Delete mission type from resource list. All running missions are cancelled.
+-- @param #CHIEF self
+-- @param #table Resource Resource table.
+-- @param #string MissionType Mission Type.
+-- @return #CHIEF self
+function CHIEF:DeleteFromResource(Resource, MissionType)
+  
+  for i=#Resource,1,-1 do
+    local resource=Resource[i] --#CHIEF.Resource
+    if resource.MissionType==MissionType then
+      if resource.mission and resource.mission:IsNotOver() then
+        resource.mission:Cancel()
+      end
+      table.remove(Resource, i)
+    end    
+  end
+  
+  return self
+end
+
 --- Get defence condition.
 -- @param #CHIEF self
 -- @param #string Current Defence condition. See @{#CHIEF.DEFCON}, e.g. `CHIEF.DEFCON.RED`.
@@ -813,11 +994,22 @@ function CHIEF:RemoveTarget(Target)
 end
 
 --- Add strategically important zone.
+-- By default two resource lists are created. One for the case that the zone is empty and the other for the case that the zone is occupied
+-- Empty:
+-- 
+-- * `AUFTRAG.Type.ARTY` with Nmin=1, Nmax=2
+-- * `AUFTRAG.Type.CASENHANCED` with Nmin=1, Nmax=2
+-- 
+-- Occupied:
+-- 
+-- * `AUFTRAG.Type.ONGUARD` with Nmin=1 and Nmax=3 assets, Attribute=`GROUP.Attribute.GROUND_INFANTRY`.
+-- * `AUFTRAG.Type.ONGURAD` with Nmin=1 and Nmax=1 assets, Attribute=`GROUP.Attribute.GROUND_TANK`.
+-- 
 -- @param #CHIEF self
 -- @param Ops.OpsZone#OPSZONE OpsZone OPS zone object.
 -- @param #number Priority Priority.
 -- @param #number Importance Importance.
--- @return #CHIEF self
+-- @return #CHIEF.StrategicZone The strategic zone.
 function CHIEF:AddStrategicZone(OpsZone, Priority, Importance)
 
   local stratzone={} --#CHIEF.StrategicZone
@@ -826,20 +1018,77 @@ function CHIEF:AddStrategicZone(OpsZone, Priority, Importance)
   stratzone.prio=Priority or 50
   stratzone.importance=Importance
   
+  stratzone.missions={}
+
   -- Start ops zone.
   if OpsZone:IsStopped() then
     OpsZone:Start()
   end
   
+  -- Add resources if zone is occupied.
+  stratzone.resourceOccup=self:CreateResource(AUFTRAG.Type.ARTY, 1, 2)
+  self:AddToResource(stratzone.resourceOccup, AUFTRAG.Type.CASENHANCED, 1, 2)
+  
+  -- Add resources if zone is empty
+  stratzone.resourceEmpty=self:CreateResource(AUFTRAG.Type.ONGUARD, 1, 3, GROUP.Attribute.GROUND_INFANTRY)
+  self:AddToResource(stratzone.resourceEmpty, AUFTRAG.Type.ONGUARD, 1, 1, GROUP.Attribute.GROUND_TANK)
+
   -- Add to table.
   table.insert(self.zonequeue, stratzone)
   
   -- Add chief so we get informed when something happens.
   OpsZone:_AddChief(self)
 
+  return stratzone
+end
+
+--- Set the resource list of missions and assets employed when the zone is empty.
+-- @param #CHIEF self
+-- @param #CHIEF.StrategicZone StrategicZone The strategic zone.
+-- @param #CHIEF.Resource Resource Resource list of missions and assets.
+-- @param #boolean NoCopy If `true`, do **not** create a deep copy of the resource.
+-- @return #CHIEF self
+function CHIEF:SetStrategicZoneResourceEmpty(StrategicZone, Resource, NoCopy)
+  if NoCopy then
+    StrategicZone.resourceEmpty=Resource
+  else
+    StrategicZone.resourceEmpty=UTILS.DeepCopy(Resource)
+  end
   return self
 end
 
+--- Set the resource list of missions and assets employed when the zone is occupied by the enemy.
+-- @param #CHIEF self
+-- @param #CHIEF.StrategicZone StrategicZone The strategic zone.
+-- @param #CHIEF.Resource Resource Resource list of missions and assets.
+-- @param #boolean NoCopy If `true`, do **not** create a deep copy of the resource.
+-- @return #CHIEF self
+function CHIEF:SetStrategicZoneResourceOccupied(StrategicZone, Resource, NoCopy)
+  if NoCopy then
+    StrategicZone.resourceOccup=Resource
+  else
+    StrategicZone.resourceOccup=UTILS.DeepCopy(Resource)
+  end
+  return self
+end
+
+--- Get the resource list of missions and assets employed when the zone is empty.
+-- @param #CHIEF self
+-- @param #CHIEF.StrategicZone StrategicZone The strategic zone.
+-- @return #CHIEF.Resource Resource list of missions and assets.
+function CHIEF:GetStrategicZoneResourceEmpty(StrategicZone)
+  return StrategicZone.resourceEmpty
+end
+
+--- Get the resource list of missions and assets employed when the zone is occupied by the enemy.
+-- @param #CHIEF self
+-- @param #CHIEF.StrategicZone StrategicZone The strategic zone.
+-- @return #CHIEF.Resource Resource list of missions and assets.
+function CHIEF:GetStrategicZoneResourceOccupied(StrategicZone)
+  return StrategicZone.resourceOccup
+end
+
+
 --- Remove strategically important zone. All runing missions are cancelled.
 -- @param #CHIEF self
 -- @param Ops.OpsZone#OPSZONE OpsZone OPS zone object.
@@ -861,11 +1110,19 @@ function CHIEF:RemoveStrategicZone(OpsZone, Delay)
         -- Debug info.
         self:T(self.lid..string.format("Removing OPS zone \"%s\" from queue! All running missions will be cancelled", OpsZone.zoneName))
 
-        -- Cancel all running missions.
-        for _,_entry in pairs(OpsZone.Missions or {}) do
-          local entry = _entry -- Ops.OpsZone#OPSZONE.MISSION
-          if entry.Coalition==self.coalition and entry.Mission and entry.Mission:IsNotOver() then
-            entry.Mission:Cancel()
+        -- Cancel running missions.
+        for _,_resource in pairs(stratzone.resourceEmpty) do
+          local resource=_resource --#CHIEF.Resource
+          if resource.mission and resource.mission:IsNotOver() then
+            resource.mission:Cancel()
+          end
+        end
+        
+        -- Cancel running missions.
+        for _,_resource in pairs(stratzone.resourceOccup) do
+          local resource=_resource --#CHIEF.Resource
+          if resource.mission and resource.mission:IsNotOver() then
+            resource.mission:Cancel()
           end
         end
                 
@@ -1566,13 +1823,14 @@ function CHIEF:_TacticalOverview()
     local NmissionsRunni=self.commander:CountMissions(AUFTRAG.Type, true)
     local Ntargets=#self.targetqueue
     local Nzones=#self.zonequeue
+    local Nagents=self.detectionset:CountAlive()
     
     -- Info message
     local text=string.format("Tactical Overview\n")
     text=text..string.format("=================\n")
     
     -- Strategy and defcon info.
-    text=text..string.format("Strategy: %s - Defcon: %s\n", self.strategy, self.Defcon)
+    text=text..string.format("Strategy: %s - Defcon: %s - Agents=%s\n", self.strategy, self.Defcon, Nagents)
     
     -- Contact info.
     text=text..string.format("Contacts: %d [Border=%d, Conflict=%d, Attack=%d]\n", Ncontacts, self.Nborder, self.Nconflict, self.Nattack)
@@ -1866,11 +2124,6 @@ end
 -- @param #CHIEF self 
 function CHIEF:CheckOpsZoneQueue()
 
-  -- Passive strategy ==> Do not act.
-  if self:IsPassive() then
-    return
-  end
-
   -- Number of zones.
   local Nzones=#self.zonequeue
 
@@ -1879,9 +2132,44 @@ function CHIEF:CheckOpsZoneQueue()
     return nil
   end
 
+  -- Loop over strategic zone and remove stopped zones.
+  for i=Nzones, 1, -1 do
+    local stratzone=self.zonequeue[i] --#CHIEF.StrategicZone
+    if stratzone.opszone:IsStopped() then
+      self:RemoveStrategicZone(stratzone.opszone)
+    end
+  end
+  
+  -- Loop over strategic zones and cancel missions for occupied zones if zone is not occupied any more.
+  for _,_startzone in pairs(self.zonequeue) do
+    local stratzone=_startzone --#CHIEF.StrategicZone
+    
+    -- Current owner of the zone.
+    local ownercoalition=stratzone.opszone:GetOwner()
+
+    -- Check if we own the zone or it is empty.
+    if ownercoalition==self.coalition or stratzone.opszone:IsEmpty() then
+
+      -- Loop over resources.
+      for _,_resource in pairs(stratzone.resourceOccup or {}) do
+        local resource=_resource --#CHIEF.Resource
+        
+        -- Cancel running missions.
+        if resource.mission then
+          resource.mission:Cancel()
+        end
+        
+      end
+    end
+  end  
+
+  -- Passive strategy ==> Do not act.
+  if self:IsPassive() then
+    return
+  end
+  
   -- Check if total number of missions is reached.
   local NoLimit=self:_CheckMissionLimit("Total")
-  --env.info("FF chief zone total nolimit="..tostring(NoLimit))
   if NoLimit==false then
     return nil
   end  
@@ -1912,18 +2200,14 @@ function CHIEF:CheckOpsZoneQueue()
     -- Current owner of the zone.
     local ownercoalition=stratzone.opszone:GetOwner()
     
+    -- Name of the zone.
+    local zoneName=stratzone.opszone.zone:GetName()
+        
     -- Check coalition and importance.
     if ownercoalition~=self.coalition and (stratzone.importance==nil or stratzone.importance<=vip) and (not stratzone.opszone:IsStopped()) then
 
-      -- Has a patrol mission?
-      local hasMissionPatrol=stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.ONGUARD) or stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.ARMOREDGUARD)
-      -- Has a CAS mission?
-      local hasMissionCAS=stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.CASENHANCED)
-      -- Has a ARTY mission?
-      local hasMissionARTY=stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.ARTY) 
-
       -- Debug info.
-      self:T(self.lid..string.format("Zone %s [%s] is owned by coalition %d", stratzone.opszone.zone:GetName(), stratzone.opszone:GetState(), ownercoalition))
+      self:T(self.lid..string.format("Zone %s [%s] is owned by coalition %d", zoneName, stratzone.opszone:GetState(), ownercoalition))
     
       if stratzone.opszone:IsEmpty() then
       
@@ -1933,18 +2217,28 @@ function CHIEF:CheckOpsZoneQueue()
         -- We send ground troops to capture the zone.
         ---
 
-        if not hasMissionPatrol then
+        for _,_resource in pairs(stratzone.resourceEmpty or {}) do
+          local resource=_resource --#CHIEF.Resource
+          
+          -- Mission type.
+          local missionType=resource.MissionType
+
+          if (not resource.mission) or resource.mission:IsOver() then
 
             -- Debug info.
-          self:T3(self.lid..string.format("Zone is empty ==> Recruit Patrol zone infantry assets"))
+            self:T2(self.lid..string.format("Zone \"%s\" is empty ==> Recruiting for mission type %s: Nmin=%d, Nmax=%d", zoneName, missionType, resource.Nmin, resource.Nmax))          
           
-          -- Recruit ground assets that
-          local recruitedI=self:RecruitAssetsForZone(stratzone, AUFTRAG.Type.ONGUARD,      1, 3, {Group.Category.GROUND}, {GROUP.Attribute.GROUND_INFANTRY})
-          local recruitedT=self:RecruitAssetsForZone(stratzone, AUFTRAG.Type.ARMOREDGUARD, 1, 1, {Group.Category.GROUND}, {GROUP.Attribute.GROUND_TANK})
+            -- Recruit assets.
+            local recruited=self:RecruitAssetsForZone(stratzone, resource)
+            
+            if recruited then
+              self:T(self.lid..string.format("Successfully recruited assets for empty zone \"%s\" [mission type=%s]", zoneName, missionType))
+            else
+              self:T(self.lid..string.format("Could not recruited assets for empty zone \"%s\" [mission type=%s]", zoneName, missionType))
+            end
+            
+          end
         
-          -- Debug info.
-          self:T(self.lid..string.format("Zone is empty ==> Recruit Patrol zone infantry assets=%s", tostring(recruitedI)))
-          self:T(self.lid..string.format("Zone is empty ==> Recruit Patrol zone armored assets=%s",  tostring(recruitedT)))
         end
         
       else
@@ -1955,76 +2249,32 @@ function CHIEF:CheckOpsZoneQueue()
         -- We first send a CAS flight to eliminate enemy activity.
         ---
 
-        if not hasMissionCAS then
+        for _,_resource in pairs(stratzone.resourceOccup or {}) do
+          local resource=_resource --#CHIEF.Resource
           
-          -- Debug message.
-          self:T3(self.lid..string.format("Zone is NOT empty ==> Recruit CAS assets"))          
+          -- Mission type.
+          local missionType=resource.MissionType
           
+          if (not resource.mission) or resource.mission:IsOver() then
 
-          -- Recruite CAS assets.
-          local recruited=self:RecruitAssetsForZone(stratzone, AUFTRAG.Type.CASENHANCED, 1, 1)
+            -- Debug info.
+            self:T2(self.lid..string.format("Zone %s is NOT empty ==> Recruiting for mission type %s: Nmin=%d, Nmax=%d", zoneName, missionType, resource.Nmin, resource.Nmax))
           
-          -- Debug message.
-          self:T(self.lid..string.format("Zone is NOT empty ==> Recruit CAS assets=%s", tostring(recruited)))
+            -- Recruit assets.
+            local recruited=self:RecruitAssetsForZone(stratzone, resource)
             
+            if recruited then
+              self:T(self.lid..string.format("Successfully recruited assets for occupied zone %s, mission type=%s", zoneName, missionType))
+            else
+              self:T(self.lid..string.format("Could not recruited assets for occupied zone %s, mission type=%s", zoneName, missionType))
             end            
             
-        if not hasMissionARTY then
-
-          -- Debug message.
-          self:T3(self.lid..string.format("Zone is NOT empty ==> Recruit ARTY assets"))          
-
-            
-          -- Recruite CAS assets.
-          local recruited=self:RecruitAssetsForZone(stratzone, AUFTRAG.Type.ARTY, 1, 1)
-          
-          -- Debug message.
-          self:T(self.lid..string.format("Zone is NOT empty ==> Recruit ARTY assets=%s", tostring(recruited)))
-          
           end
         
         end
 
       end
-  end
           
-  -- Loop over strategic zone.
-  for _,_startzone in pairs(self.zonequeue) do
-    local stratzone=_startzone --#CHIEF.StrategicZone
-    
-    -- Current owner of the zone.
-    local ownercoalition=stratzone.opszone:GetOwner()
-            
-    -- Has a patrol mission?
-    local hasMissionPATROL=stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.PATROLZONE)
-    
-    -- Has a CAS mission?
-    local hasMissionCAS, CASMissions = stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.CASENHANCED)
-    local hasMissionARTY, ARTYMissions = stratzone.opszone:_FindMissions(self.coalition,AUFTRAG.Type.ARTY)
-    
-    if ownercoalition==self.coalition and stratzone.opszone:IsEmpty() and hasMissionCAS then
-      -- Cancel CAS mission if zone is ours and no enemies are present.
-      -- TODO: Might want to check if we still have CAS capable assets in stock?!
-      --stratzone.missionCAS:Cancel()
-      for _,_auftrag in pairs(CASMissions) do
-        _auftrag:Cancel()
-      end
-    end
-    
-    if ownercoalition==self.coalition and hasMissionARTY then
-      -- Cancel ARTY mission if zone is ours and no enemies are present.
-      for _,_auftrag in pairs(ARTYMissions) do
-        _auftrag:Cancel()
-      end
-    end
-    
-  end
-
-  -- Loop over strategic zone and remove stopped zones.
-  for i=#self.zonequeue, 1, -1 do
-    local stratzone=self.zonequeue[i] --#CHIEF.StrategicZone
-    if stratzone.opszone:IsStopped() then
-      self:RemoveStrategicZone(stratzone.opszone)
     end    
   end
     
@@ -2360,13 +2610,9 @@ end
 --- Recruit assets for a given OPS zone.
 -- @param #CHIEF self
 -- @param #CHIEF.StrategicZone StratZone The strategic zone.
--- @param #string MissionType Mission Type.
--- @param #number NassetsMin Min number of required assets.
--- @param #number NassetsMax Max number of required assets.
--- @param #table Categories Group categories of the assets.
--- @param #table Attributes Generalized group attributes.
+-- @param #CHIEF.Resource Resource The required resources.
 -- @return #boolean If `true` enough assets could be recruited.
-function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsMax, Categories, Attributes)
+function CHIEF:RecruitAssetsForZone(StratZone, Resource)
 
   -- Cohorts.
   local Cohorts={}
@@ -2387,6 +2633,14 @@ function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsM
     end
   end
   
+  -- Shortcuts.
+  local MissionType=Resource.MissionType
+  local NassetsMin=Resource.Nmax
+  local NassetsMax=Resource.Nmax
+  local Categories=Resource.Categories
+  local Attributes=Resource.Attributes
+  local Properties=Resource.Properties
+
   -- Target position.
   local TargetVec2=StratZone.opszone.zone:GetVec2()
   
@@ -2398,26 +2652,36 @@ function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsM
     RangeMax=UTILS.NMToMeters(250)
   end
   
-    -- Set max range to 50 NM because we use armor
+  -- Set max range to 50 NM because we use armor.
   if MissionType==AUFTRAG.Type.ARMOREDGUARD then
     RangeMax=UTILS.NMToMeters(50)
   end
 
   -- Recruite infantry assets.
-  local recruited, assets, legions=LEGION.RecruitCohortAssets(Cohorts, MissionType, nil, NassetsMin, NassetsMax, TargetVec2, nil, RangeMax, nil, nil, nil, Categories, Attributes)
+  local recruited, assets, legions=LEGION.RecruitCohortAssets(Cohorts, MissionType, nil, NassetsMin, NassetsMax, TargetVec2, nil, RangeMax, nil, nil, nil, Categories, Attributes, Properties)
   
   if recruited then
   
+    -- Mission for zone.
+    local mission=nil  --Ops.Auftrag#AUFTRAG  
+  
     -- Debug messgage.
     self:T2(self.lid..string.format("Recruited %d assets for %s mission STRATEGIC zone %s", #assets, MissionType, tostring(StratZone.opszone.zoneName)))
     
+    local TargetZone  = StratZone.opszone.zone
+    local TargetCoord = TargetZone:GetCoordinate()    
+  
     if MissionType==AUFTRAG.Type.PATROLZONE or MissionType==AUFTRAG.Type.ONGUARD then
     
+      ---
+      -- PATROLZONE or ONGUARD
+      ---
+     
       -- Debug messgage.
       self:T2(self.lid..string.format("Recruited %d assets for PATROL mission", #assets))
       
-      local recruitedTrans=true
-      local transport=nil
+      -- First check if we need a transportation.
+      local recruitedTrans=true ; local transport=nil
       if Attributes and Attributes[1]==GROUP.Attribute.GROUND_INFANTRY then
       
         -- Categories. Currently only helicopters are allowed due to problems with ground transports (might get stuck, might not be a land connection.
@@ -2425,55 +2689,47 @@ function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsM
         local Categories=self.TransportCategories
   
         -- Recruit transport assets for infantry.    
-        recruitedTrans, transport=LEGION.AssignAssetsForTransport(self.commander, self.commander.legions, assets, 1, 1, StratZone.opszone.zone, nil, Categories)
+        recruitedTrans, transport=LEGION.AssignAssetsForTransport(self.commander, self.commander.legions, assets, 1, 1, TargetZone, nil, Categories)
         
       end
       
       if recruitedTrans then
         
-        -- Create Patrol zone mission.
-        local mission=nil  --Ops.Auftrag#AUFTRAG
-        
         if MissionType==AUFTRAG.Type.PATROLZONE then
-          mission=AUFTRAG:NewPATROLZONE(StratZone.opszone.zone)
-          mission:SetEngageDetected(25, {"Ground Units", "Light armed ships", "Helicopters"})
-        elseif MissionType==AUFTRAG.Type.ONGUARD then 
-          mission=AUFTRAG:NewONGUARD(StratZone.opszone.zone:GetRandomCoordinate(), nil, nil, {land.SurfaceType.LAND})
-        end
-        mission:SetEngageDetected()            
+          mission=AUFTRAG:NewPATROLZONE(TargetZone)
           
-        -- Add assets to mission.
-        for _,asset in pairs(assets) do
-          mission:AddAsset(asset)
+        elseif MissionType==AUFTRAG.Type.ONGUARD then 
+          mission=AUFTRAG:NewONGUARD(TargetZone:GetRandomCoordinate(nil, nil, {land.SurfaceType.LAND}))
         end
         
+        -- Engage detected targets.
+        mission:SetEngageDetected(25, {"Ground Units", "Light armed ships", "Helicopters"})            
+                        
         -- Attach OPS transport to mission.
         mission.opstransport=transport
                     
-        -- Assign mission to legions.
-        self:MissionAssign(mission, legions)
-      
-        -- Attach mission to ops zone.
-        StratZone.opszone:_AddMission(self.coalition, MissionType, mission)
-        
         -- Set ops zone to transport.
+        if transport then
           transport.opszone=StratZone.opszone
           transport.chief=self
           transport.commander=self.commander
+        end
 
-        return true
       else
+        -- No transport ==> no mission!
+        self:T(self.lid..string.format("Could not allocate transport of OPSZONE infantry!"))
         LEGION.UnRecruitAssets(assets)
         return false
       end
       
-      
     elseif MissionType==AUFTRAG.Type.CASENHANCED then
     
+      ---
+      -- CAS ENHANCED
+      ---
+
       -- Create Patrol zone mission.
-      local caszone = StratZone.opszone.zone
-      local coord = caszone:GetCoordinate()
-      local height = UTILS.MetersToFeet(coord:GetLandHeight())+2500
+      local height = UTILS.MetersToFeet(TargetCoord:GetLandHeight())+2500
       
       local Speed=200
       if assets[1] then
@@ -2482,80 +2738,97 @@ function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsM
         end
       end
 
-      --local mission=AUFTRAG:NewCAS(caszone,height,Speed,coord,math.random(0,359),Leg)
-      local mission=AUFTRAG:NewCASENHANCED(caszone, height, Speed)
-      
-      -- Add assets to mission.
-      for _,asset in pairs(assets) do
-        mission:AddAsset(asset)
-      end
-          
-      -- Assign mission to legions.
-      self:MissionAssign(mission, legions)
-    
-      -- Attach mission to ops zone.
-      StratZone.opszone:_AddMission(self.coalition, MissionType, mission)
-
-      return true
+      -- CAS mission.
+      mission=AUFTRAG:NewCASENHANCED(TargetZone, height, Speed)
 
     elseif MissionType==AUFTRAG.Type.CAS then
     
+      ---
+      -- CAS
+      ---
+
       -- Create Patrol zone mission.
-      local caszone = StratZone.opszone.zone
-      local coord = caszone:GetCoordinate()
-      local height = UTILS.MetersToFeet(coord:GetLandHeight())+2500
+      local height = UTILS.MetersToFeet(TargetCoord:GetLandHeight())+2500
+      
       local Speed = 200      
-      --local mission=AUFTRAG:NewPATROLZONE(caszone)
       if assets[1] then
         if assets[1].speedmax then
           Speed = UTILS.KmphToKnots(assets[1].speedmax * 0.7) or 200
         end
       end
-      --local Speed = UTILS.KmphToKnots(assets[1].speedmax * 0.7) or 200
-      local Leg = caszone:GetRadius() <= 10000 and 5 or UTILS.MetersToNM(caszone:GetRadius())
-      local mission=AUFTRAG:NewCAS(caszone,height,Speed,coord,math.random(0,359),Leg)
-      mission:SetEngageDetected(25, {"Ground Units", "Light armed ships", "Helicopters"})
-      mission:SetWeaponExpend(AI.Task.WeaponExpend.ALL)    
-      mission:SetMissionSpeed(Speed)
       
-      -- Add assets to mission.
-      for _,asset in pairs(assets) do
-        mission:AddAsset(asset)
-      end
+      -- Leg length.
+      local Leg = TargetZone:GetRadius() <= 10000 and 5 or UTILS.MetersToNM(TargetZone:GetRadius())
       
-      -- Assign mission to legions.
-      self:MissionAssign(mission, legions)
+      -- CAS mission.
+      mission=AUFTRAG:NewCAS(TargetZone, height, Speed, TargetCoord, math.random(0,359), Leg)
 
-      -- Attach mission to ops zone.
-      StratZone.opszone:_AddMission(self.coalition, MissionType, mission)
-
-      return true
     elseif MissionType==AUFTRAG.Type.ARTY then
     
+      ---
+      -- ARTY
+      ---
+      
       -- Create ARTY zone mission.
-      local TargetZone = StratZone.opszone.zone
-      local Target = TargetZone:GetCoordinate()
       local Radius = TargetZone:GetRadius()
-      local mission=AUFTRAG:NewARTY(Target,120,Radius)
       
-      -- Add assets to mission.
-      for _,asset in pairs(assets) do
-        mission:AddAsset(asset)
-      end
+      mission=AUFTRAG:NewARTY(TargetCoord, 120, Radius)
 
-      -- Assign mission to legions.
-      self:MissionAssign(mission, legions)
-    
-      -- Attach mission to ops zone.
-      StratZone.opszone:_AddMission(self.coalition, MissionType, mission)
-    
-      return true
     elseif MissionType==AUFTRAG.Type.ARMOREDGUARD then
     
+      --- 
+      -- ARMORGUARD
+      ---
+      
       -- Create Armored on guard mission
-      local TargetZone = StratZone.opszone.zone
-      local Target = TargetZone:GetCoordinate()
-      local mission=AUFTRAG:NewARMOREDGUARD(Target)
+      mission=AUFTRAG:NewARMOREDGUARD(TargetCoord)
+      
+    elseif MissionType==AUFTRAG.Type.BOMBCARPET then
+    
+      ---
+      -- BOMB CARPET
+      ---
+    
+      -- Create ARTY zone mission.
+      mission=AUFTRAG:NewBOMBCARPET(TargetCoord, nil, 1000)
+
+    elseif MissionType==AUFTRAG.Type.BOMBING then
+
+      ---
+      -- BOMBING
+      ---
+    
+      local coord=TargetZone:GetRandomCoordinate()
+    
+      mission=AUFTRAG:NewBOMBING(TargetCoord)
+      
+    elseif MissionType==AUFTRAG.Type.RECON then
+    
+      ---
+      -- RECON
+      ---    
+    
+      mission=AUFTRAG:NewRECON(TargetZone, nil, 5000)
+      
+    elseif MissionType==AUFTRAG.Type.BARRAGE then
+
+      ---
+      -- BARRAGE
+      ---    
+      
+      mission=AUFTRAG:NewBARRAGE(TargetZone)
+      
+    elseif MissionType==AUFTRAG.Type.AMMOSUPPLY then
+
+      ---
+      -- AMMO SUPPLY
+      ---    
+    
+      mission=AUFTRAG:NewAMMOSUPPLY(TargetZone)
+
+    end
+    
+    if mission then
 
       -- Add assets to mission.
       for _,asset in pairs(assets) do
@@ -2568,7 +2841,17 @@ function CHIEF:RecruitAssetsForZone(StratZone, MissionType, NassetsMin, NassetsM
       -- Attach mission to ops zone.
       StratZone.opszone:_AddMission(self.coalition, MissionType, mission)
       
+      -- Attach mission to resource.
+      Resource.mission=mission
+    
       return true      
+    else
+      
+      -- Mission not supported.
+      self:E(self.lid..string.format("ERROR: Mission type not supported for OPSZONE! Unrecruiting assets..."))
+      LEGION.UnRecruitAssets(assets)
+      
+      return false  
     end
     
   end

Moose Development/Moose/Ops/Cohort.lua

@@ -35,6 +35,8 @@
 -- @field #number Nkilled Number of destroyed asset groups.
 -- @field #number engageRange Mission range in meters.
 -- @field #string attribute Generalized attribute of the cohort template group.
+-- @field #table descriptors DCS descriptors.
+-- @field #table properties DCS attributes.
 -- @field #table tacanChannel List of TACAN channels available to the cohort.
 -- @field #number radioFreq Radio frequency in MHz the cohort uses.
 -- @field #number radioModu Radio modulation the cohort uses.
@@ -73,17 +75,20 @@ COHORT = {
   tacanChannel   =    {},
   weightAsset    = 99999,
   cargobayLimit  =     0,
+  descriptors    =    {},
+  properties     =    {},
 }
 
 --- COHORT class version.
 -- @field #string version
-COHORT.version="0.1.0"
+COHORT.version="0.2.0"
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- TODO list
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 -- TODO: Create FLOTILLA class.
+-- DONE: Added check for properties.
 -- DONE: Make general so that PLATOON and SQUADRON can inherit this class.
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -128,6 +133,15 @@ function COHORT:New(TemplateGroupName, Ngroups, CohortName)
   -- Aircraft type.
   self.aircrafttype=self.templategroup:GetTypeName()
   
+  -- Get descriptors.
+  self.descriptors=self.templategroup:GetUnit(1):GetDesc()
+  
+  -- Properties (DCS attributes).
+  self.properties=self.descriptors.attributes
+  
+  -- Print properties.
+  --self:I(self.properties)
+
   -- Defaults.
   self.Ngroups=Ngroups or 3  
   self:SetSkill(AI.Skill.GOOD)
@@ -321,6 +335,21 @@ function COHORT:AddMissionCapability(MissionTypes, Performance)
   return self
 end
 
+--- Check if cohort assets have a given property (DCS attribute).
+-- @param #COHORT self
+-- @param #string Property The property.
+-- @return #boolean If `true`, cohort assets have the attribute.
+function COHORT:HasProperty(Property)
+
+  for _,property in pairs(self.properties) do
+    if Property==property then
+      return true
+    end
+  end
+
+  return false
+end
+
 --- Get mission types this cohort is able to perform.
 -- @param #COHORT self
 -- @return #table Table of mission types. Could be empty {}.

Moose Development/Moose/Ops/FlightGroup.lua

@@ -166,6 +166,20 @@ FLIGHTGROUP.Attribute = {
   OTHER="Other",
 }
 
+--- Radio Text.
+-- @type FLIGHTGROUP.RadioText
+-- @field #string normal
+-- @field #string enhanced
+
+--- Radio messages.
+-- @type FLIGHTGROUP.RadioMessage
+-- @field #FLIGHTGROUP.RadioText AIRBORNE
+-- @field #FLIGHTGROUP.RadioText TAXIING
+FLIGHTGROUP.RadioMessage = {
+  AIRBORNE={normal="Airborn", enhanced="Airborn"},
+  TAXIING={normal="Taxiing", enhanced="Taxiing"},
+}
+
 --- FLIGHTGROUP class version.
 -- @field #string version
 FLIGHTGROUP.version="0.7.1"

Moose Development/Moose/Ops/Legion.lua

@@ -1964,10 +1964,11 @@ end
 -- @param #number TotalWeight Total cargo weight in kg.
 -- @param #table Categories Group categories. 
 -- @param #table Attributes Group attributes. See `GROUP.Attribute.`
+-- @param #table Properties DCS attributes.
 -- @return #boolean If `true` enough assets could be recruited.
 -- @return #table Recruited assets. **NOTE** that we set the `asset.isReserved=true` flag so it cant be recruited by anyone else.
 -- @return #table Legions of recruited assets.
-function LEGION.RecruitCohortAssets(Cohorts, MissionTypeRecruit, MissionTypeOpt, NreqMin, NreqMax, TargetVec2, Payloads, RangeMax, RefuelSystem, CargoWeight, TotalWeight, Categories, Attributes)
+function LEGION.RecruitCohortAssets(Cohorts, MissionTypeRecruit, MissionTypeOpt, NreqMin, NreqMax, TargetVec2, Payloads, RangeMax, RefuelSystem, CargoWeight, TotalWeight, Categories, Attributes, Properties)
 
   -- The recruited assets.
   local Assets={}
@@ -2008,6 +2009,25 @@ function LEGION.RecruitCohortAssets(Cohorts, MissionTypeRecruit, MissionTypeOpt,
     end
   end
   
+  --- Function to check property.
+  local function CheckProperty(_cohort)
+    local cohort=_cohort --Ops.Cohort#COHORT
+    if Properties and #Properties>0 then
+      for _,Property in pairs(Properties) do
+        for _,property in pairs(cohort.properties) do
+          if Property==property then
+            return true
+          end
+        end
+      end
+    else
+      return true
+    end
+  end
+  
+  --BASE:I({Attributes=Attributes})
+  --BASE:I({Properties=Properties})
+  
   -- Loops over cohorts.
   for _,_cohort in pairs(Cohorts) do
     local cohort=_cohort --Ops.Cohort#COHORT
@@ -2045,12 +2065,15 @@ function LEGION.RecruitCohortAssets(Cohorts, MissionTypeRecruit, MissionTypeOpt,
     -- Right attribute.
     local RightAttribute=CheckAttribute(cohort)
     
+    -- Right property (DCS attribute).
+    local RightProperty=CheckProperty(cohort)
+    
     -- Debug info.
-    cohort:T(cohort.lid..string.format("State=%s: Capable=%s, InRange=%s, Refuel=%s, CanCarry=%s, RightCategory=%s, RightAttribute=%s",
-    cohort:GetState(), tostring(Capable), tostring(InRange), tostring(Refuel), tostring(CanCarry), tostring(RightCategory), tostring(RightAttribute)))
+    cohort:T2(cohort.lid..string.format("State=%s: Capable=%s, InRange=%s, Refuel=%s, CanCarry=%s, RightCategory=%s, RightAttribute=%s, RightProperty=%s",
+    cohort:GetState(), tostring(Capable), tostring(InRange), tostring(Refuel), tostring(CanCarry), tostring(RightCategory), tostring(RightAttribute), tostring(RightProperty)))
     
     -- Check OnDuty, capable, in range and refueling type (if TANKER).
-    if cohort:IsOnDuty() and Capable and InRange and Refuel and CanCarry and RightCategory and RightAttribute then
+    if cohort:IsOnDuty() and Capable and InRange and Refuel and CanCarry and RightCategory and RightAttribute and RightProperty then
 
       -- Recruit assets from cohort.
       local assets, npayloads=cohort:RecruitAssets(MissionTypeRecruit, 999)

Moose Development/Moose/Ops/OpsGroup.lua

@@ -3808,11 +3808,25 @@ function OPSGROUP:onafterTaskExecute(From, Event, To, Task)
       -- FLIGHTGROUP not implemented (intended!) for this AUFTRAG type.
     end
 
+  elseif Task.dcstask.id==AUFTRAG.SpecialTask.GROUNDATTACK then  
+
+    ---
+    -- Task "Ground Attack" Mission.
+    ---
+    
+    -- Engage target.
+    local target=Task.dcstask.params.target --Ops.Target#TARGET
+    
+    if target then
+      self:EngageTarget(target)
+    end
+    
+  elseif Task.dcstask.id==AUFTRAG.SpecialTask.HOVER then
+
     ---
     -- Task "Hover" Mission.
     ---
     
-  elseif Task.dcstask.id==AUFTRAG.SpecialTask.HOVER then
     if self.isFlightgroup then
       self:T("We are Special Auftrag HOVER, hovering now ...")
       --self:I({Task.dcstask.params})
@@ -3836,6 +3850,7 @@ function OPSGROUP:onafterTaskExecute(From, Event, To, Task)
       local timer = TIMER:New(FlyOn,helo,Speed,CruiseAlt,Task)
       timer:Start(time)
     end
+    
   else
 
     -- If task is scheduled (not waypoint) set task.
@@ -3952,6 +3967,8 @@ function OPSGROUP:onafterTaskCancel(From, Event, To, Task)
         done=true
       elseif Task.dcstask.id==AUFTRAG.SpecialTask.ONGUARD or Task.dcstask.id==AUFTRAG.SpecialTask.ARMOREDGUARD then
         done=true
+      elseif Task.dcstask.id==AUFTRAG.SpecialTask.GROUNDATTACK then
+        done=true
       elseif stopflag==1 or (not self:IsAlive()) or self:IsDead() or self:IsStopped() then
         -- Manual call TaskDone if setting flag to one was not successful.
         done=true
@@ -4714,8 +4731,7 @@ function OPSGROUP:RouteToMission(mission, delay)
     end
 
     -- Get ingress waypoint.
-    if mission.type==AUFTRAG.Type.PATROLZONE or mission.type==AUFTRAG.Type.BARRAGE or mission.type==AUFTRAG.Type.AMMOSUPPLY
-      or mission.type.FUELSUPPLY then
+    if mission.type==AUFTRAG.Type.PATROLZONE or mission.type==AUFTRAG.Type.BARRAGE or mission.type==AUFTRAG.Type.AMMOSUPPLY or mission.type.FUELSUPPLY then
       local zone=mission.engageTarget:GetObject() --Core.Zone#ZONE
       waypointcoord=zone:GetRandomCoordinate(nil , nil, surfacetypes)
     elseif mission.type==AUFTRAG.Type.ONGUARD or mission.type==AUFTRAG.Type.ARMOREDGUARD then

Moose Development/Moose/Ops/OpsZone.lua

@@ -588,14 +588,6 @@ function OPSZONE:onafterStop(From, Event, To)
   -- Unhandle events.
   self:UnHandleEvent(EVENTS.BaseCaptured)
 
-  -- Cancel all running missions.
-  for _,_entry in pairs(self.Missions or {}) do
-    local entry = _entry -- Ops.OpsZone#OPSZONE.MISSION
-    if entry.Mission and entry.Mission:IsNotOver() then
-      entry.Mission:Cancel()
-    end
-  end
-
   -- Stop FSM scheduler.
   self.CallScheduler:Clear()
   if self.Scheduler then