AB, FG

Moose Development/Moose/Ops/Airboss.lua

@@ -1671,6 +1671,7 @@ AIRBOSS.Difficulty={
 -- @field #boolean showhints If true, show step hints.
 -- @field #table trapsheet Groove data table recorded every 0.5 seconds.
 -- @field #boolean trapon If true, save trap sheets.
+-- @field #string debriefschedulerID Debrief scheduler ID.
 -- @extends #AIRBOSS.FlightGroup
 
 --- Main group level radio menu: F10 Other/Airboss.
@@ -1683,7 +1684,7 @@ AIRBOSS.MenuF10Root=nil
 
 --- Airboss class version.
 -- @field #string version
-AIRBOSS.version="1.0.7"
+AIRBOSS.version="1.0.8"
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- TODO list
@@ -2517,7 +2518,8 @@ end
 function AIRBOSS:CloseCurrentRecoveryWindow(delay)
 
   if delay and delay>0 then
-    SCHEDULER:New(nil, self.CloseCurrentRecoveryWindow, {self}, delay)
+    --SCHEDULER:New(nil, self.CloseCurrentRecoveryWindow, {self}, delay)
+    self:ScheduleOnce(delay, self.CloseCurrentRecoveryWindow, self)
   else
     if self:IsRecovering() and self.recoverywindow and self.recoverywindow.OPEN then
       self:RecoveryStop()
@@ -2567,7 +2569,8 @@ function AIRBOSS:DeleteRecoveryWindow(window, delay)
 
   if delay and delay>0 then
     -- Delayed call.
-    SCHEDULER:New(nil, self.DeleteRecoveryWindow, {self, window}, delay)
+    --SCHEDULER:New(nil, self.DeleteRecoveryWindow, {self, window}, delay)
+    self:ScheduleOnce(delay, self.DeleteRecoveryWindow, self, window)
   else
 
     for i,_recovery in pairs(self.recoverytimes) do
@@ -2987,7 +2990,8 @@ function AIRBOSS:SoundCheckLSO(delay)
 
   if delay and delay>0 then
     -- Delayed call.
-    SCHEDULER:New(nil, AIRBOSS.SoundCheckLSO, {self}, delay)
+    --SCHEDULER:New(nil, AIRBOSS.SoundCheckLSO, {self}, delay)
+    self:ScheduleOnce(delay, AIRBOSS.SoundCheckLSO, self)
   else
 
 
@@ -3022,7 +3026,8 @@ function AIRBOSS:SoundCheckMarshal(delay)
 
   if delay and delay>0 then
     -- Delayed call.
-    SCHEDULER:New(nil, AIRBOSS.SoundCheckMarshal, {self}, delay)
+    --SCHEDULER:New(nil, AIRBOSS.SoundCheckMarshal, {self}, delay)
+    self:ScheduleOnce(delay, AIRBOSS.SoundCheckMarshal, self)
   else
 
 
@@ -5871,7 +5876,8 @@ function AIRBOSS:_SetPlayerStep(playerData, step, delay)
 
   if delay and delay>0 then
     -- Delayed call.
-    SCHEDULER:New(nil, self._SetPlayerStep, {self, playerData, step}, delay)
+    --SCHEDULER:New(nil, self._SetPlayerStep, {self, playerData, step}, delay)
+    self:ScheduleOnce(delay, self._SetPlayerStep, self, playerData, step)
   else
 
     -- Check if player still exists after possible delay.
@@ -7339,6 +7345,7 @@ function AIRBOSS:_InitPlayer(playerData, step)
   playerData.TIG0=nil
   playerData.wire=nil
   playerData.flag=-100
+  playerData.debriefschedulerID=nil
 
   -- Set us up on final if group name contains "Groove". But only for the first pass.
   if playerData.group:GetName():match("Groove") and playerData.passes==0 then
@@ -7820,6 +7827,14 @@ function AIRBOSS:_RemoveFlight(flight, completely)
 
   else
   
+    -- Remove all grades until a final grade is reached.
+    local grades=self.playerscores[flight.name]
+    if grades and #grades>0 then
+      while #grades>0 and grades[#grades].finalscore==nil do
+        table.remove(grades, #grades)
+      end
+    end  
+
     -- Check if flight should be completely removed, e.g. after the player died or simply left the slot.
     if completely then
 
@@ -7829,15 +7844,6 @@ function AIRBOSS:_RemoveFlight(flight, completely)
       -- Remove completely.
       self:_RemoveFlightFromQueue(self.flights, flight)
 
-      -- Remove all grades until a final grade is reached.
-      local grades=self.playerscores[flight.name]
-      if grades and #grades>0 then
-        while #grades>0 and grades[#grades].finalscore==nil do
-          table.remove(grades, #grades)
-        end
-      end
-
-
       -- Remove player from players table.
       local playerdata=self.players[flight.name]
       if playerdata then
@@ -8028,7 +8034,8 @@ function AIRBOSS:_CheckPlayerStatus()
           elseif playerData.step==AIRBOSS.PatternStep.DEBRIEF then
 
             -- Debriefing in 5 seconds.
-            SCHEDULER:New(nil, self._Debrief, {self, playerData}, 5)
+            --SCHEDULER:New(nil, self._Debrief, {self, playerData}, 5)
+            playerData.debriefschedulerID=self:ScheduleOnce(5, self._Debrief, self, playerData)
 
             -- Undefined status.
             playerData.step=AIRBOSS.PatternStep.UNDEFINED
@@ -8209,7 +8216,8 @@ function AIRBOSS:OnEventBirth(EventData)
     self:_AddF10Commands(_unitName)
 
     -- Delaying the new player for a second, because AI units of the flight would not be registered correctly.
-    SCHEDULER:New(nil, self._NewPlayer, {self, _unitName}, 1)
+    --SCHEDULER:New(nil, self._NewPlayer, {self, _unitName}, 1)
+    self:ScheduleOnce(1, self._NewPlayer, self, _unitName)
 
   end
 end
@@ -8362,7 +8370,8 @@ function AIRBOSS:OnEventLand(EventData)
             self:_SetPlayerStep(playerData, AIRBOSS.PatternStep.UNDEFINED)
 
             -- Call trapped function in 1 second to make sure we did not bolter.
-            SCHEDULER:New(nil, self._Trapped, {self, playerData}, 1)
+            --SCHEDULER:New(nil, self._Trapped, {self, playerData}, 1)
+            self:ScheduleOnce(1, self._Trapped, self, playerData)
 
           end
 
@@ -10256,7 +10265,8 @@ function AIRBOSS:_Trapped(playerData)
       end
 
       -- Call function again and check if converged or back in air.
-      SCHEDULER:New(nil, self._Trapped, {self, playerData}, 0.1)
+      --SCHEDULER:New(nil, self._Trapped, {self, playerData}, 0.1)
+      self:ScheduleOnce(0.1, self._Trapped, self, playerData)
       return
     end
 
@@ -12696,6 +12706,9 @@ end
 function AIRBOSS:_Debrief(playerData)
   self:F(self.lid..string.format("Debriefing of player %s.", playerData.name))
   
+  -- Delete scheduler ID.
+  playerData.debriefschedulerID=nil
+
   -- Switch attitude monitor off if on.
   playerData.attitudemonitor=false
 
@@ -14766,7 +14779,8 @@ function AIRBOSS:MessageToPlayer(playerData, message, sender, receiver, duration
 
     if delay and delay>0 then
       -- Delayed call.
-      SCHEDULER:New(nil, self.MessageToPlayer, {self, playerData, message, sender, receiver, duration, clear}, delay)
+      --SCHEDULER:New(nil, self.MessageToPlayer, {self, playerData, message, sender, receiver, duration, clear}, delay)
+      self:ScheduleOnce(delay, self.MessageToPlayer, self, playerData, message, sender, receiver, duration, clear)
     else
 
       -- Wait until previous sound finished.
@@ -15821,6 +15835,11 @@ function AIRBOSS:_ResetPlayerStatus(_unitName)
       -- Section members are removed from the Spinning queue. If flight is member, he is removed from the section.
       self:_RemoveFlight(playerData)
       
+      -- Stop pending debrief scheduler.
+      if playerData.debriefschedulerID and self.Scheduler then
+        self.Scheduler:Stop(playerData.debriefschedulerID)
+      end
+
       -- Initialize player data.
       self:_InitPlayer(playerData)
 

Moose Development/Moose/Ops/FlightGroup.lua

@@ -44,6 +44,8 @@ FLIGHTGROUP = {
   element        =    {},
   taskqueue      =    {},
   detectedunits  =   nil,
+  homebase       =   nil,
+  destination    =   nil,
 }
 
 
@@ -77,7 +79,7 @@ FLIGHTGROUP.ElementStatus={
 -- @field #string status Status, i.e. born, parking, taxiing.
 
 --- Flight group tasks.
--- @type FLIGHTGROUP.Task
+-- @type FLIGHTGROUP.Mission
 -- @param #string INTERCEPT Intercept task.
 -- @param #string CAP Combat Air Patrol task.s
 -- @param #string BAI Battlefield Air Interdiction task.
@@ -85,7 +87,7 @@ FLIGHTGROUP.ElementStatus={
 -- @param #string STRIKE Strike task.
 -- @param #string AWACS AWACS task.
 -- @param #string TANKER Tanker task.
-FLIGHTGROUP.Task={
+FLIGHTGROUP.Mission={
   INTERCEPT="Intercept",
   CAP="CAP",
   BAI="BAI",
@@ -96,6 +98,18 @@ FLIGHTGROUP.Task={
   TANKER="Tanker",
 }
 
+--- Flight group tasks.
+-- @type FLIGHTGROUP.Task
+-- @param #
+-- @param #number time Abs. mission time when to execute the task.
+
+--- Flight group tasks.
+-- @type FLIGHTGROUP.TaskCAP
+-- @param #
+-- @param #number time Abs. mission time when to execute the task.
+
+
+
 --- FLIGHTGROUP class version.
 -- @field #string version
 FLIGHTGROUP.version="0.0.1"
@@ -162,8 +176,12 @@ function FLIGHTGROUP:New(groupname)
   
   self:AddTransition("*",             "FlightStatus",    "*")           -- FLIGHTGROUP status update.
   self:AddTransition("*",             "AddDetectedUnit", "*")           -- Add a newly detected unit to the detected units set.
+  self:AddTransition("*",             "LostDetectedUnit", "*")          -- Group lost a detected target.
     
-  self:AddTransition("*",             "ElementTakeoff",  "*")           -- An element took off.
+  self:AddTransition("*",             "ElementSpawned",  "*")           -- An element was spawned.
+  self:AddTransition("*",             "ElementParking",  "*")           -- An element was spawned.
+  self:AddTransition("*",             "ElementTaxiing",  "*")           -- An element spooled up the engines.
+  self:AddTransition("*",             "ElementAirborne", "*")           -- An element took off.
   self:AddTransition("*",             "ElementLanded",   "*")           -- An element landed.
   self:AddTransition("*",             "ElementArrived",  "*")           -- An element arrived.
   self:AddTransition("*",             "ElementDead",     "*")           -- An element crashed, ejected, or pilot dead.
@@ -233,6 +251,28 @@ function FLIGHTGROUP:GetDetectedUnits()
   return self.detectedunits
 end
 
+
+--- Check if flight is airborne.
+-- @param #FLIGHTGROUP self
+-- @return #boolean
+function FLIGHTGROUP:IsSpawned()
+  return self:Is("Spawned")
+end
+
+--- Check if flight is parking.
+-- @param #FLIGHTGROUP self
+-- @return #boolean
+function FLIGHTGROUP:IsParking()
+  return self:Is("Parking")
+end
+
+--- Check if flight is parking.
+-- @param #FLIGHTGROUP self
+-- @return #boolean
+function FLIGHTGROUP:IsTaxiing()
+  return self:Is("Taxiing")
+end
+
 --- Check if flight is airborne.
 -- @param #FLIGHTGROUP self
 -- @return #boolean
@@ -534,6 +574,60 @@ function FLIGHTGROUP:onafterAddDetectedUnit(From, Event, To, Unit)
   self.detectedunits:AddUnit(Unit)
 end
 
+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+-- Task functions
+-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+--- Function called when a group has reached the holding zone.
+--@param Wrapper.Group#GROUP group Group that reached the holding zone.
+--@param #FLIGHTGROUP.Mission
+--@param #FLIGHTGROUP flight Flight group that has reached the holding zone.
+function FLIGHTGROUP._TaskDone(group, flightgroup, task)
+
+  -- Debug message.
+  local text=string.format("Flight %s reached holding zone.", group:GetName())
+
+  -- Set holding flag true and set timestamp for marshal time check.
+  if flightgroup then
+    flight.holding=true
+    flight.time=timer.getAbsTime()
+  end
+end
+
+
+--- Launch a flight group to intercept an intruder.
+-- @param #FLIGHTGROUP self
+-- @param Wrapper.Group#GROUP bandits Bandit group.
+function FLIGHTGROUP:TaskIntercept(bandit)
+
+  -- Task orbit.
+  local tasks={}
+  
+  for _,unit in pairs(bandit:GetUnits()) do
+    tasks[#tasks+1]=self.flightgroup:TaskAttackUnit(unit)
+  end
+  
+  -- Passing waypoint task function.
+  tasks[#tasks+1]=self.flightgroup:TaskFunction("FLIGHTGROUP._TaskDone", self)  
+  
+  local speed=self.flightgroup:GetSpeedMax()
+  local altitude=bandit:GetAltitude()
+  
+  -- Create waypoints.
+  local wp={}
+  wp[1]=self:GetCoordinate():WaypointAirTakeOffParking()
+  wp[2]=self:GetCoordinate():SetAltitude(altitude):WaypointAirTurningPoint(COORDINATE.WaypointAltType.BARO, speed, {tasks}, "Intercept")
+  
+  -- Start uncontrolled group.
+  self.flightgroup:StartUncontrolled()
+  
+  --airboss:SetExcludeAI()
+  
+  -- Route group
+  self.flightgroup:Route(wp)
+  
+end
+
 
 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 -- Misc functions
@@ -734,10 +828,10 @@ function FLIGHTGROUP:_UpdateStatus(element, newstatus)
     -- TAXIING
     ---
     
-    self:ElementParking(element)
+    self:ElementTaxiing(element)
     
     if self:_AllSimilarStatus(newstatus) then
-      self:FlightParking(group)
+      self:FlightTaxiing(group)
     end
     
   elseif newstatus==FLIGHTGROUP.ElementStatus.AIRBORNE then
@@ -831,7 +925,7 @@ function FLIGHTGROUP:_CheckAllStatus(status)
 end
 
 --- Get onboard number.
--- @param #AIRBOSS self
+-- @param #FLIGHTGROUP self
 -- @param #string unitname Name of the unit.
 -- @return #string Modex.
 function FLIGHTGROUP:_GetOnboardNumber(unitname)