diff --git a/Moose Development/Moose/Ops/Auftrag.lua b/Moose Development/Moose/Ops/Auftrag.lua index 9edd38838..09ee24a8a 100644 --- a/Moose Development/Moose/Ops/Auftrag.lua +++ b/Moose Development/Moose/Ops/Auftrag.lua @@ -400,6 +400,7 @@ _AUFTRAGSNR=0 -- @field #string CAP Combat Air Patrol. -- @field #string CAS Close Air Support. -- @field #string ESCORT Escort mission. +-- @field #string FAC Forward AirController mission. -- @field #string FACA Forward AirController airborne mission. -- @field #string FERRY Ferry mission. -- @field #string INTERCEPT Intercept mission. @@ -443,6 +444,7 @@ AUFTRAG.Type={ CAP="CAP", CAS="CAS", ESCORT="Escort", + FAC="FAC", FACA="FAC-A", FERRY="Ferry Flight", INTERCEPT="Intercept", @@ -1457,6 +1459,43 @@ function AUFTRAG:NewCASENHANCED(CasZone, Altitude, Speed, RangeMax, NoEngageZone return mission end +--- **[AIR]** Create a FAC mission. Group(s) will go to the zone and patrol it randomly and act as FAC for detected units. +-- @param #AUFTRAG self +-- @param Core.Zone#ZONE CasZone The CAS zone. +-- @param #number Speed Speed in knots. +-- @param #number Altitude Altitude in feet. Only for airborne units. Default 2000 feet ASL. +-- @param #number Frequency Frequency in MHz. +-- @param #number Modulation Modulation. +-- @return #AUFTRAG self +function AUFTRAG:NewFAC(FacZone, Speed, Altitude, Frequency, Modulation) + + local mission=AUFTRAG:New(AUFTRAG.Type.FAC) + + -- Ensure we got a ZONE and not just the zone name. + if type(FacZone)=="string" then + FacZone=ZONE:FindByName(FacZone) + end + + mission:_TargetFromObject(FacZone) + + mission.missionTask=mission:GetMissionTaskforMissionType(AUFTRAG.Type.FAC) + + mission.optionROE=ENUMS.ROE.ReturnFire + mission.optionROT=ENUMS.ROT.EvadeFire + mission.optionAlarm=ENUMS.AlarmState.Auto + + mission.missionFraction=1.0 + mission.missionSpeed=Speed and UTILS.KnotsToKmph(Speed) or nil + mission.missionAltitude=Altitude and UTILS.FeetToMeters(Altitude) or nil + + mission.categories={AUFTRAG.Category.AIRCRAFT} + + mission.DCStask=mission:GetDCSMissionTask() + + + return mission +end + --- **[AIR]** Create a FACA mission. -- @param #AUFTRAG self @@ -2567,6 +2606,7 @@ function AUFTRAG:NewAUTO(EngageGroup) mission=AUFTRAG:NewESCORT(EscortGroup,OffsetVector,EngageMaxDistance,TargetTypes) elseif auftrag==AUFTRAG.Type.FACA then mission=AUFTRAG:NewFACA(Target,Designation,DataLink,Frequency,Modulation) + elseif auftrag==AUFTRAG.Type.FERRY then -- Not implemented yet. elseif auftrag==AUFTRAG.Type.GCICAP then @@ -5749,14 +5789,38 @@ function AUFTRAG:GetDCSMissionTask() elseif self.type==AUFTRAG.Type.FACA then - ----------------- - -- FAC Mission -- - ----------------- + ------------------ + -- AFAC Mission -- + ------------------ local DCStask=CONTROLLABLE.TaskFAC_AttackGroup(nil, self.engageTarget:GetObject(), self.engageWeaponType, self.facDesignation, self.facDatalink, self.facFreq, self.facModu, CallsignName, CallsignNumber) table.insert(DCStasks, DCStask) + elseif self.type==AUFTRAG.Type.FAC then + + ----------------- + -- FAC Mission -- + ----------------- + + local DCStask={} + + DCStask.id=AUFTRAG.SpecialTask.PATROLZONE + + -- We create a "fake" DCS task and pass the parameters to the OPSGROUP. + local param={} + param.zone=self:GetObjective() + param.altitude=self.missionAltitude + param.speed=self.missionSpeed + + DCStask.params=param + + table.insert(DCStasks, DCStask) + + -- Enroute task FAC + local DCSenroute=CONTROLLABLE.EnRouteTaskFAC(self, self.facFreq, self.facModu) + table.insert(self.enrouteTasks, DCSenroute) + elseif self.type==AUFTRAG.Type.FERRY then ------------------- @@ -6400,6 +6464,8 @@ function AUFTRAG:GetMissionTaskforMissionType(MissionType) mtask=ENUMS.MissionTask.ESCORT elseif MissionType==AUFTRAG.Type.FACA then mtask=ENUMS.MissionTask.AFAC + elseif MissionType==AUFTRAG.Type.FAC then + mtask=ENUMS.MissionTask.AFAC elseif MissionType==AUFTRAG.Type.FERRY then mtask=ENUMS.MissionTask.NOTHING elseif MissionType==AUFTRAG.Type.INTERCEPT then