mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-08-15 10:47:21 +00:00
2eeaf7b92d
Added Process_JTAC to coordinate this activity during a CAS or BAI. Removed TASK_CAS and TASK BAI into a generic TASK_A2G task.
87 lines
2.5 KiB
Lua
87 lines
2.5 KiB
Lua
--- @module Task_Route
|
|
|
|
--- PROCESS_ROUTE class
|
|
-- @type PROCESS_ROUTE
|
|
-- @field Task#TASK TASK
|
|
-- @field Unit#UNIT ProcessUnit
|
|
-- @field Zone#ZONE_BASE TargetZone
|
|
-- @extends Task2#TASK2
|
|
PROCESS_ROUTE = {
|
|
ClassName = "PROCESS_ROUTE",
|
|
}
|
|
|
|
|
|
--- Creates a new routing state machine. The task will route a CLIENT to a ZONE until the CLIENT is within that ZONE.
|
|
-- @param #PROCESS_ROUTE self
|
|
-- @param Task#TASK Task
|
|
-- @param Unit#UNIT Unit
|
|
-- @return #PROCESS_ROUTE self
|
|
function PROCESS_ROUTE:New( Task, ProcessUnit, TargetZone )
|
|
|
|
-- Inherits from BASE
|
|
local self = BASE:Inherit( self, PROCESS:New( "ROUTE", Task, ProcessUnit ) ) -- #PROCESS_ROUTE
|
|
|
|
self.TargetZone = TargetZone
|
|
self.DisplayInterval = 30
|
|
self.DisplayCount = 30
|
|
self.DisplayMessage = true
|
|
self.DisplayTime = 10 -- 10 seconds is the default
|
|
self.DisplayCategory = "HQ" -- Route is the default display category
|
|
|
|
self.Fsm = STATEMACHINE_PROCESS:New( self, {
|
|
initial = 'UnArrived',
|
|
events = {
|
|
{ name = 'Start', from = 'UnArrived', to = 'UnArrived' },
|
|
{ name = 'Fail', from = 'UnArrived', to = 'Failed' },
|
|
},
|
|
callbacks = {
|
|
onleaveUnArrived = self.OnLeaveUnArrived,
|
|
onFail = self.OnFail,
|
|
},
|
|
endstates = {
|
|
'Arrived', 'Failed'
|
|
},
|
|
} )
|
|
|
|
return self
|
|
end
|
|
|
|
--- Task Events
|
|
|
|
--- StateMachine callback function for a TASK2
|
|
-- @param #PROCESS_ROUTE self
|
|
-- @param StateMachine#STATEMACHINE_PROCESS Fsm
|
|
-- @param #string Event
|
|
-- @param #string From
|
|
-- @param #string To
|
|
function PROCESS_ROUTE:OnLeaveUnArrived( Fsm, Event, From, To )
|
|
|
|
if self.ProcessUnit:IsAlive() then
|
|
local IsInZone = self.ProcessUnit:IsInZone( self.TargetZone )
|
|
|
|
if self.DisplayCount >= self.DisplayInterval then
|
|
if not IsInZone then
|
|
local ZoneVec2 = self.TargetZone:GetVec2()
|
|
local ZonePointVec2 = POINT_VEC2:New( ZoneVec2.x, ZoneVec2.y )
|
|
local TaskUnitVec2 = self.ProcessUnit:GetVec2()
|
|
local TaskUnitPointVec2 = POINT_VEC2:New( TaskUnitVec2.x, TaskUnitVec2.y )
|
|
local RouteText = self.ProcessUnit:GetCallsign() .. ": Route to " .. TaskUnitPointVec2:GetBRText( ZonePointVec2 ) .. " km to target."
|
|
MESSAGE:New( RouteText, self.DisplayTime, self.DisplayCategory ):ToGroup( self.ProcessUnit:GetGroup() )
|
|
end
|
|
self.DisplayCount = 1
|
|
else
|
|
self.DisplayCount = self.DisplayCount + 1
|
|
end
|
|
|
|
--if not IsInZone then
|
|
self:NextEvent( Fsm.Start )
|
|
--end
|
|
|
|
return IsInZone -- if false, then the event will not be executed...
|
|
end
|
|
|
|
return false
|
|
|
|
end
|
|
|