FlightControl-Master/MOOSE
1
0
Fork 0
mirror of https://github.com/FlightControl-Master/MOOSE.git synced 2025-10-29 16:58:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

AIRBOSS v0.2.6

Browse Source
This commit is contained in:
Frank
2018-11-14 23:23:46 +01:00
parent 3bc2baaf9d
commit 34d7b18c26
1 changed files with 208 additions and 128 deletions
Download Patch File Download Diff File Expand all files Collapse all files

312
Moose Development/Moose/Functional/CarrierTrainer.lua
View File

@@ -14,8 +14,9 @@
-- * Automatic TACAN and ICLS channel setting. -- * Automatic TACAN and ICLS channel setting.
-- * Different radio channels for LSO and airboss calls. -- * Different radio channels for LSO and airboss calls.
-- * F10 radio menu including carrier info (weather, radio frequencies, TACAN/ICLS channels, pilot grades). -- * F10 radio menu including carrier info (weather, radio frequencies, TACAN/ICLS channels, pilot grades).
-- * Multiple carriers supported.
-- --
-- Please not that his class is work in progress and in an **alpha** stage. -- **PLEASE NOTE** that his class is work in progress and in an **alpha** stage.
-- At the moment training parameters are optimized for F/A-18C Hornet as aircraft and USS Stennis as carrier. -- At the moment training parameters are optimized for F/A-18C Hornet as aircraft and USS Stennis as carrier.
-- Other aircraft and carriers **might** be possible in future but would need a different set of parameters. -- Other aircraft and carriers **might** be possible in future but would need a different set of parameters.
-- --
@@ -44,7 +45,7 @@
-- @field Core.Radio#RADIO Carrierradio Radio for carrier calls. -- @field Core.Radio#RADIO Carrierradio Radio for carrier calls.
-- @field #AIRBOSS.RadioCalls radiocall LSO and Airboss call sound files and texts. -- @field #AIRBOSS.RadioCalls radiocall LSO and Airboss call sound files and texts.
-- @field Core.Zone#ZONE_UNIT startZone Zone in which the pattern approach starts. -- @field Core.Zone#ZONE_UNIT startZone Zone in which the pattern approach starts.
-- @field Core.Zone#ZONE_UNIT carrierZone Large zone around the carrier to welcome players. -- @field Core.Zone#ZONE_UNIT carrierZone Carrier controlled area (CCA), i.e. a zone of 50 NM radius around the carrier.
-- @field Core.Zone#ZONE_UNIT registerZone Zone behind the carrier to register for a new approach. -- @field Core.Zone#ZONE_UNIT registerZone Zone behind the carrier to register for a new approach.
-- @field Core.Zone#ZONE_UNIT zoneHolding Zone where aircraft are holding before entering the landing pattern. -- @field Core.Zone#ZONE_UNIT zoneHolding Zone where aircraft are holding before entering the landing pattern.
-- @field #table players Table of players. -- @field #table players Table of players.
@@ -61,9 +62,6 @@
-- @field #AIRBOSS.Checkpoint C3Descent2k Case III descent at 2000 ft/min at 5000 ft plattform. -- @field #AIRBOSS.Checkpoint C3Descent2k Case III descent at 2000 ft/min at 5000 ft plattform.
-- @field #AIRBOSS.Checkpoint C3DirtyUp Case III dirty up and on speed position at 1200 ft and 10-12 NM from the carrier. -- @field #AIRBOSS.Checkpoint C3DirtyUp Case III dirty up and on speed position at 1200 ft and 10-12 NM from the carrier.
-- @field #AIRBOSS.Checkpoint C3BullsEye Case III intercept glideslope and follow ICLS "bullseye". -- @field #AIRBOSS.Checkpoint C3BullsEye Case III intercept glideslope and follow ICLS "bullseye".
-- @field #number rwyangle Angle of the runway wrt to carrier "nose". For the Stennis ~ -10 degrees.
-- @field #number sterndist Distance in meters from carrier coordinate to the end of the deck.
-- @field #number deckheight Height of the deck in meters.
-- @field #number case Recovery case I, II or III. -- @field #number case Recovery case I, II or III.
-- @field #table Qmarshal Queue of marshalling aircraft groups. -- @field #table Qmarshal Queue of marshalling aircraft groups.
-- @field #table Qpattern Queue of aircraft groups in the landing pattern. -- @field #table Qpattern Queue of aircraft groups in the landing pattern.
@@ -89,7 +87,7 @@ AIRBOSS = {
Debug = true, Debug = true,
carrier = nil, carrier = nil,
carriertype = nil, carriertype = nil,
carrierparam = nil, carrierparam = {},
alias = nil, alias = nil,
airbase = nil, airbase = nil,
beacon = nil, beacon = nil,
@@ -119,7 +117,6 @@ AIRBOSS = {
C3Descent2k = {}, C3Descent2k = {},
C3DirtyUp = {}, C3DirtyUp = {},
C3BullsEye = {}, C3BullsEye = {},
radiocall = nil,
case = 1, case = 1,
Qpattern = {}, Qpattern = {},
Qmarshal = {}, Qmarshal = {},
@@ -164,7 +161,7 @@ AIRBOSS.CarrierType={
-- @type AIRBOSS.PatternStep -- @type AIRBOSS.PatternStep
AIRBOSS.PatternStep={ AIRBOSS.PatternStep={
UNDEFINED="Undefined", UNDEFINED="Undefined",
UNREGISTERED="Unregistered", COMMENCING="Commencing",
HOLDING="Holding", HOLDING="Holding",
DESCENT4K="Descent 4000 ft/min", DESCENT4K="Descent 4000 ft/min",
DESCENT2K="Descent 2000 ft/min", DESCENT2K="Descent 2000 ft/min",
@@ -212,11 +209,13 @@ AIRBOSS.PatternStep={
-- @type AIRBOSS.Soundfile -- @type AIRBOSS.Soundfile
-- @field #AIRBOSS.RadioSound RIGHTFORLINEUP -- @field #AIRBOSS.RadioSound RIGHTFORLINEUP
-- @field #AIRBOSS.RadioSound COMELEFT -- @field #AIRBOSS.RadioSound COMELEFT
-- @field #AIRBOSS.RadioSound -- @field #AIRBOSS.RadioSound HIGH
-- @field #AIRBOSS.RadioSound -- @field #AIRBOSS.RadioSound POWER
-- @field #AIRBOSS.RadioSound -- @field #AIRBOSS.RadioSound CALLTHEBALL
-- @field #AIRBOSS.RadioSound -- @field #AIRBOSS.RadioSound ROGERBALL
-- @field #AIRBOSS.RadioSound -- @field #AIRBOSS.RadioSound WAVEOFF
-- @field #AIRBOSS.RadioSound BOLTER
-- @field #AIRBOSS.RadioSound LONGINGROOVE
AIRBOSS.Soundfile={ AIRBOSS.Soundfile={
RIGHTFORLINEUP={ RIGHTFORLINEUP={
normal="LSO - RightLineUp(L).ogg", normal="LSO - RightLineUp(L).ogg",
@@ -328,6 +327,7 @@ AIRBOSS.GroovePos={
-- @field Wrapper.Group#GROUP group Aircraft group the player is in. -- @field Wrapper.Group#GROUP group Aircraft group the player is in.
-- @field #string callsign Callsign of player. -- @field #string callsign Callsign of player.
-- @field #string difficulty Difficulty level. -- @field #string difficulty Difficulty level.
-- @field #string step Coming pattern step.
-- @field #number passes Number of passes. -- @field #number passes Number of passes.
-- @field #boolean attitudemonitor If true, display aircraft attitude and other parameters constantly. -- @field #boolean attitudemonitor If true, display aircraft attitude and other parameters constantly.
-- @field #table debrief Debrief analysis of the current step of this pass. -- @field #table debrief Debrief analysis of the current step of this pass.
@@ -380,13 +380,14 @@ AIRBOSS.MenuF10={}
--- Airboss class version. --- Airboss class version.
-- @field #string version -- @field #string version
AIRBOSS.version="0.2.5w" AIRBOSS.version="0.2.6"
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- TODO list -- TODO list
------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-- TODO: Handle crash event. Delete ac from queue, send rescue helo, stop carrier? -- TODO: Handle crash event. Delete A/C from queue, send rescue helo, stop carrier?
-- TODO: Add aircraft numbers in queue to carrier info F10 radio output.
-- TODO: Transmission via radio. -- TODO: Transmission via radio.
-- TODO: Get board numbers. -- TODO: Get board numbers.
-- TODO: Get fuel state in pounds. -- TODO: Get fuel state in pounds.
@@ -444,9 +445,11 @@ function AIRBOSS:New(carriername, alias)
-- Set up Airboss radio. -- Set up Airboss radio.
self.Carrierradio=RADIO:New(self.carrier) self.Carrierradio=RADIO:New(self.carrier)
self:SetCarrierradio()
-- Set up LSO radio. -- Set up LSO radio.
self.LSOradio=RADIO:New(self.carrier) self.LSOradio=RADIO:New(self.carrier)
self:SetLSOradio()
-- Init carrier parameters. -- Init carrier parameters.
if self.carriertype==AIRBOSS.CarrierType.STENNIS then if self.carriertype==AIRBOSS.CarrierType.STENNIS then
@@ -465,11 +468,11 @@ function AIRBOSS:New(carriername, alias)
return nil return nil
end end
-- Zone 5 km astern and 100 m starboard of the carrier with radius of 2.5 km. -- Zone 3 NM astern and 100 m starboard of the carrier with radius of 2.0 km.
self.registerZone = ZONE_UNIT:New("registerZone", self.carrier, 2.5*1000, {dx = -5000, dy = 100, relative_to_unit=true}) self.zoneInitial=ZONE_UNIT:New("registerZone", self.carrier, 2.0*1000, {dx=-UTILS.NMToMeters(3), dy=100, relative_to_unit=true})
-- Zone 2 km astern and 100 m starboard of the carrier with a radius of 1 km. -- Zone 2 km astern and 100 m starboard of the carrier with a radius of 1 km.
self.startZone = ZONE_UNIT:New("startZone", self.carrier, 1.0*1000, {dx = -2000, dy = 100, relative_to_unit=true}) self.startZone = ZONE_UNIT:New("startZone", self.carrier, 1.0*1000, {dx=-2000, dy=100, relative_to_unit=true})
-- Zone around the carrier with a radius of 30 km. -- Zone around the carrier with a radius of 30 km.
self:SetCarrierControlledZone() self:SetCarrierControlledZone()
@@ -477,6 +480,13 @@ function AIRBOSS:New(carriername, alias)
-- Default recovery case. -- Default recovery case.
self:SetRecoveryCase(1) self:SetRecoveryCase(1)
env.info("FF sound files:")
for _name,_sound in pairs(AIRBOSS.Soundfile) do
local sound=_sound --#AIRBOSS.RadioSound
self:I{name=_name,sound=_sound}
self.radiocall[_name]=sound
end
----------------------- -----------------------
--- FSM Transitions --- --- FSM Transitions ---
----------------------- -----------------------
@@ -601,22 +611,26 @@ end
--- Set LSO radio frequency. --- Set LSO radio frequency.
-- @param #AIRBOSS self -- @param #AIRBOSS self
-- @param #number freq Frequency in MHz. Default 264 MHz. -- @param #number frequency Frequency in MHz. Default 264 MHz.
-- @param #string modulation Modulation, i.e. "AM" (default) or "FM".
-- @return #AIRBOSS self -- @return #AIRBOSS self
function AIRBOSS:SetLSOradio(freq) function AIRBOSS:SetLSOradio(frequency, modulation)
self.LSOfreq=freq or 264 self.LSOfreq=frequency or 264
self.LSOmodulation=modulation or "AM"
return self return self
end end
--- Set carrier radio frequency. --- Set carrier radio frequency.
-- @param #AIRBOSS self -- @param #AIRBOSS self
-- @param #number freq Frequency in MHz. Default 305. -- @param #number frequency Frequency in MHz. Default 305 MHz.
-- @param #string modulation Modulation, i.e. "AM" (default) or "FM".
-- @return #AIRBOSS self -- @return #AIRBOSS self
function AIRBOSS:SetCarrierradio(freq) function AIRBOSS:SetCarrierradio(frequency, modulation)
self.Carrierfreq=freq or 305 self.Carrierfreq=frequency or 305
self.Carrriermodulation=modulation or "AM"
return self return self
end end
@@ -688,12 +702,12 @@ function AIRBOSS:onafterStatus(From, Event, To)
self:Recover() self:Recover()
end end
local text=string.format("AIRBOSS %s: Status %s.", self.alias, self:GetState())
self:I(text)
-- Update marshal and pattern queue every 30 seconds. -- Update marshal and pattern queue every 30 seconds.
if time-self.Tqueue>30 then if time-self.Tqueue>30 then
local text=string.format("AIRBOSS %s: Status %s.", self.alias, self:GetState())
self:I(text)
-- Scan carrier zone for new aircraft. -- Scan carrier zone for new aircraft.
self:_ScanCarrierZone() self:_ScanCarrierZone()
@@ -708,7 +722,7 @@ function AIRBOSS:onafterStatus(From, Event, To)
self:_CheckPlayerStatus() self:_CheckPlayerStatus()
-- Call status again in one second. -- Call status again in one second.
self:__Status(-1) self:__Status(-0.5)
end end
--- Check if recovery times. --- Check if recovery times.
@@ -850,7 +864,7 @@ function AIRBOSS:_PrintQueue(queue, name)
end end
--- Check if new aircraft arrived --- Scan carrier zone for (new) units.
-- @param #AIRBOSS self -- @param #AIRBOSS self
function AIRBOSS:_ScanCarrierZone() function AIRBOSS:_ScanCarrierZone()
--env.info("FF Scanning Carrier Zone") --env.info("FF Scanning Carrier Zone")
@@ -874,6 +888,7 @@ function AIRBOSS:_ScanCarrierZone()
-- Check if this an aircraft and that it is airborn and closing in. -- Check if this an aircraft and that it is airborn and closing in.
if unit:IsAir() and unit:InAir() and unit:IsInZone(zsma)then if unit:IsAir() and unit:InAir() and unit:IsInZone(zsma)then
-- TODO: check for correct aircraft types and also helos! -- TODO: check for correct aircraft types and also helos!
-- TODO: check for right coalition.
local group=unit:GetGroup() local group=unit:GetGroup()
local unitname=unit:GetName() local unitname=unit:GetName()
@@ -1077,7 +1092,7 @@ function AIRBOSS:_CollapseMarshalStack()
-- Set player step to 0. -- Set player step to 0.
if flight.ai==false then if flight.ai==false then
local playerData=self:_GetPlayerDataGroup(flight.group) local playerData=self:_GetPlayerDataGroup(flight.group)
playerData.step=AIRBOSS.PatternStep.UNREGISTERED playerData.step=AIRBOSS.PatternStep.COMMENCING
end end
-- Time stamp. -- Time stamp.
@@ -1168,6 +1183,7 @@ function AIRBOSS:_CheckPlayerStatus()
-- Player unit. -- Player unit.
local unit=playerData.unit local unit=playerData.unit
-- Check if unit is alive and in air.
if unit:IsAlive() then if unit:IsAlive() then
-- Display aircraft attitude and other parameters as message text. -- Display aircraft attitude and other parameters as message text.
@@ -1175,7 +1191,7 @@ function AIRBOSS:_CheckPlayerStatus()
self:_DetailedPlayerStatus(playerData) self:_DetailedPlayerStatus(playerData)
end end
-- Check if player is in carrier controlled zone. -- Check if player is in carrier controlled area (zone with R=50 NM around the carrier).
if unit:IsInZone(self.carrierZone) then if unit:IsInZone(self.carrierZone) then
-- Check if player was previously not inside the zone. -- Check if player was previously not inside the zone.
@@ -1194,26 +1210,48 @@ function AIRBOSS:_CheckPlayerStatus()
end end
if playerData.step==0 and unit:InAir() then if playerData.step==AIRBOSS.PatternStep.UNDEFINED then
-- New approach. self:I("Player status undefined. Waiting for next step.")
self:_NewRound(playerData)
-- Jump to Groove for testing. -- Jump directly to CASE I straight in approach.
playerData.step=AIRBOSS.PatternStep.COMMENCING
-- Jump to final/groove for testing.
if self.groovedebug then if self.groovedebug then
playerData.step=90 playerData.step=AIRBOSS.PatternStep.FINAL
self.groovedebug=false self.groovedebug=false
end end
elseif playerData.step==AIRBOSS.PatternStep.COMMENCING and unit:InAir() then
-- New approach.
self:_Commencing(playerData)
elseif playerData.step==AIRBOSS.PatternStep.HOLDING then elseif playerData.step==AIRBOSS.PatternStep.HOLDING then
-- TODO: holding check.
elseif playerData.step==AIRBOSS.PatternStep.DESCENT4K then elseif playerData.step==AIRBOSS.PatternStep.DESCENT4K then
-- CASE III: Initial descent with 4000 ft/min.
self:_Descent4k(playerData)
elseif playerData.step==AIRBOSS.PatternStep.DESCENT2K then elseif playerData.step==AIRBOSS.PatternStep.DESCENT2K then
-- CASE III: Player has reached 5k "Platform".
self:_Descent2k(playerData)
elseif playerData.step==AIRBOSS.PatternStep.DIRTYUP then elseif playerData.step==AIRBOSS.PatternStep.DIRTYUP then
-- CASE III: Player has descended to 1200 ft and is going level from now on.
self:_DirtyUp(playerData)
elseif playerData.step==AIRBOSS.PatternStep.BULLSEYE then elseif playerData.step==AIRBOSS.PatternStep.BULLSEYE then
-- CASE III: Player has intercepted the glide slope and should follow "Bullseye" (ICLS).
self:_BullsEye(playerData)
elseif playerData.step==AIRBOSS.PatternStep.INITIAL then elseif playerData.step==AIRBOSS.PatternStep.INITIAL then
-- Player is at the initial position entering the landing pattern. -- Player is at the initial position entering the landing pattern.
@@ -1254,7 +1292,7 @@ function AIRBOSS:_CheckPlayerStatus()
elseif playerData.step==AIRBOSS.PatternStep.FINAL then elseif playerData.step==AIRBOSS.PatternStep.FINAL then
-- Entering the groove. -- Turn to final and enter the groove.
self:_Final(playerData) self:_Final(playerData)
elseif playerData.step==AIRBOSS.PatternStep.GROOVE_XX or elseif playerData.step==AIRBOSS.PatternStep.GROOVE_XX or
@@ -1338,7 +1376,7 @@ function AIRBOSS:OnEventBirth(EventData)
self.players[_playername]=self:_InitPlayer(_unitName) self.players[_playername]=self:_InitPlayer(_unitName)
-- Start in the groove for debugging. -- Start in the groove for debugging.
self.groovedebug=false self.groovedebug=true
end end
end end
@@ -1362,43 +1400,50 @@ function AIRBOSS:OnEventLand(EventData)
local _group=_unit:GetGroup() local _group=_unit:GetGroup()
local _callsign=_unit:GetCallsign() local _callsign=_unit:GetCallsign()
-- Debug output. -- This would be the closest airbase.
local text=string.format("Player %s, callsign %s unit %s (ID=%d) of group %s landed.", _playername, _callsign, _unitName, _uid, _group:GetName()) local airbase=EventData.Place
self:T(self.lid..text) local airbasename=tostring(airbase:GetName())
MESSAGE:New(text, 5):ToAllIf(self.Debug)
-- Player data. -- Check if player landed on the right airbase.
local playerData=self.players[_playername] --#AIRBOSS.PlayerData if airbasename==self.airbase:GetName() then
-- Coordinate at landing event -- Debug output.
local coord=playerData.unit:GetCoordinate() local text=string.format("Player %s, callsign %s unit %s (ID=%d) of group %s landed at airbase %s", _playername, _callsign, _unitName, _uid, _group:GetName(), airbasename)
self:T(self.lid..text)
MESSAGE:New(text, 5):ToAllIf(self.Debug)
-- Debug mark of player landing coord. -- Player data.
local lp=coord:MarkToAll("Landing coord.") local playerData=self.players[_playername] --#AIRBOSS.PlayerData
coord:SmokeGreen()
-- Debug marks of wires. -- Coordinate at landing event
local w1=self.carrier:GetCoordinate():Translate(-104, 0):MarkToAll("Wire 1") local coord=playerData.unit:GetCoordinate()
local w2=self.carrier:GetCoordinate():Translate( -92, 0):MarkToAll("Wire 2")
local w3=self.carrier:GetCoordinate():Translate( -80, 0):MarkToAll("Wire 3")
local w4=self.carrier:GetCoordinate():Translate( -68, 0):MarkToAll("Wire 4")
-- We did land. -- Debug mark of player landing coord.
env.info("FF landed") local lp=coord:MarkToAll("Landing coord.")
playerData.landed=true coord:SmokeGreen()
-- Unkonwn step. -- Debug marks of wires.
playerData.step=AIRBOSS.PatternStep.UNDEFINED local w1=self.carrier:GetCoordinate():Translate(self.carrierparam.wire1, 0):MarkToAll("Wire 1")
local w2=self.carrier:GetCoordinate():Translate(self.carrierparam.wire2, 0):MarkToAll("Wire 2")
local w3=self.carrier:GetCoordinate():Translate(self.carrierparam.wire3, 0):MarkToAll("Wire 3")
local w4=self.carrier:GetCoordinate():Translate(self.carrierparam.wire4, 0):MarkToAll("Wire 4")
--TODO: maybe check that we actually landed on the right carrier. -- We did land.
env.info("FF landed")
playerData.landed=true
-- Call trapped function in 3 seconds to make sure we did not bolter. -- Unkonwn step.
SCHEDULER:New(nil, self._Trapped,{self, playerData, coord}, 3) playerData.step=AIRBOSS.PatternStep.UNDEFINED
end -- Call trapped function in 3 seconds to make sure we did not bolter.
SCHEDULER:New(nil, self._Trapped,{self, playerData, coord}, 3)
end
if self:_InQueue(self.Qpattern, EventData.IniGroup) then
self:_RemoveQueue(self.Qpattern, EventData.IniGroup)
end
if self:_InQueue(self.Qpattern, EventData.IniGroup) then
self:_RemoveQueue(self.Qpattern, EventData.IniGroup)
end end
end end
@@ -1482,7 +1527,7 @@ function AIRBOSS:_InitPlayer(unitname)
playerData.inbigzone=playerData.unit:IsInZone(self.carrierZone) playerData.inbigzone=playerData.unit:IsInZone(self.carrierZone)
-- Init stuff for this round. -- Init stuff for this round.
playerData=self:_InitNewRound(playerData) playerData=self:_InitNewApproach(playerData)
-- Return player data table. -- Return player data table.
return playerData return playerData
@@ -1495,9 +1540,11 @@ end
-- @param #AIRBOSS self -- @param #AIRBOSS self
-- @param #AIRBOSS.PlayerData playerData Player data. -- @param #AIRBOSS.PlayerData playerData Player data.
-- @return #AIRBOSS.PlayerData Initialized player data. -- @return #AIRBOSS.PlayerData Initialized player data.
function AIRBOSS:_InitNewRound(playerData) function AIRBOSS:_InitNewApproach(playerData)
self:I(self.lid..string.format("New round for player %s.", playerData.callsign)) self:I(self.lid..string.format("New approach of player %s.", playerData.callsign))
playerData.step=0
playerData.step=AIRBOSS.PatternStep.UNDEFINED
playerData.groove={} playerData.groove={}
playerData.debrief={} playerData.debrief={}
playerData.patternwo=false playerData.patternwo=false
@@ -1507,23 +1554,30 @@ function AIRBOSS:_InitNewRound(playerData)
playerData.boltered=false playerData.boltered=false
playerData.landed=false playerData.landed=false
playerData.Tlso=timer.getTime() playerData.Tlso=timer.getTime()
return playerData return playerData
end end
--- Initialize player data. --- Commence approach.
-- @param #AIRBOSS self -- @param #AIRBOSS self
-- @param #AIRBOSS.PlayerData playerData Player data. -- @param #AIRBOSS.PlayerData playerData Player data.
function AIRBOSS:_NewRound(playerData) function AIRBOSS:_Commencing(playerData)
if playerData.unit:IsInZone(self.registerZone) then local text="Commencing."
local text="Cleared for approach." self:_SendMessageToPlayer(text, 10, playerData)
self:_SendMessageToPlayer(text, 10, playerData)
self:_InitNewRound(playerData) -- Initialize player data for new approach.
self:_InitNewApproach(playerData)
-- Next step: start of pattern. -- Next step: depends on case recovery.
playerData.step=1 if self.case==1 then
-- CASE I: Player has to fly to the initial which is 3 NM DME astern of the boat.
playerData.step=AIRBOSS.PatternStep.INITIAL
else
-- CASE III: Player has to start the descent at 4000 ft/min.
playerData.step=AIRBOSS.PatternStep.DESCENT4K
end end
end end
--- Start pattern when player enters the initial zone. --- Start pattern when player enters the initial zone.
@@ -1531,8 +1585,8 @@ end
-- @param #AIRBOSS.PlayerData playerData Player data table. -- @param #AIRBOSS.PlayerData playerData Player data table.
function AIRBOSS:_Initial(playerData) function AIRBOSS:_Initial(playerData)
-- Check if player is in start zone and about to enter the pattern. -- Check if player is in initial zone and entering the CASE I pattern.
if playerData.unit:IsInZone(self.startZone) then if playerData.unit:IsInZone(self.zoneInitial) then
-- Inform player. -- Inform player.
local hint = string.format("Entering the pattern.") local hint = string.format("Entering the pattern.")
@@ -1541,7 +1595,7 @@ function AIRBOSS:_Initial(playerData)
end end
-- Send message. -- Send message.
self:_SendMessageToPlayer(hint, 8, playerData) self:_SendMessageToPlayer(hint, 10, playerData)
-- Next step: upwind. -- Next step: upwind.
playerData.step=AIRBOSS.PatternStep.UPWIND playerData.step=AIRBOSS.PatternStep.UPWIND
@@ -1791,11 +1845,8 @@ function AIRBOSS:_CheckForLongDownwind(playerData)
-- Check we are not too far out w.r.t back of the boat. -- Check we are not too far out w.r.t back of the boat.
if X<limit then --and relhead<45 then if X<limit then --and relhead<45 then
-- Message to player.
self:_SendMessageToPlayer(AIRBOSS.LSOcall.LONGGROOVET, 10, playerData)
-- Sound output. -- Sound output.
AIRBOSS.LSOcall.LONGGROOVE:ToGroup(playerData.unit:GetGroup()) self:RadioTransmission(self.LSOradio, self.radiocall.LONGINGROOVE)
-- Debrief. -- Debrief.
self:_AddToSummary(playerData, "Downwind", "Long in the groove.") self:_AddToSummary(playerData, "Downwind", "Long in the groove.")
@@ -2039,10 +2090,10 @@ function AIRBOSS:_Groove(playerData)
-- Ranges in the groove. -- Ranges in the groove.
local RXX=UTILS.NMToMeters(0.750)+math.abs(self.carrierparam.sterndist) -- Start of groove. 0.75 = 1389 m local RXX=UTILS.NMToMeters(0.750)+math.abs(self.carrierparam.sterndist) -- Start of groove. 0.75 = 1389 m
local RRB=UTILS.NMToMeters(0.500)+math.abs(self.sterndist) -- Roger Ball! call. 0.5 = 926 m local RRB=UTILS.NMToMeters(0.500)+math.abs(self.carrierparam.sterndist) -- Roger Ball! call. 0.5 = 926 m
local RIM=UTILS.NMToMeters(0.375)+math.abs(self.sterndist) -- In the Middle 0.75/2. 0.375 = 695 m local RIM=UTILS.NMToMeters(0.375)+math.abs(self.carrierparam.sterndist) -- In the Middle 0.75/2. 0.375 = 695 m
local RIC=UTILS.NMToMeters(0.100)+math.abs(self.sterndist) -- In Close. 0.1 = 185 m local RIC=UTILS.NMToMeters(0.100)+math.abs(self.carrierparam.sterndist) -- In Close. 0.1 = 185 m
local RAR=UTILS.NMToMeters(0.000)+math.abs(self.sterndist) -- At the Ramp. local RAR=UTILS.NMToMeters(0.000)+math.abs(self.carrierparam.sterndist) -- At the Ramp.
-- Data -- Data
local groovedata={} --#AIRBOSS.GrooveData local groovedata={} --#AIRBOSS.GrooveData
@@ -2056,8 +2107,11 @@ function AIRBOSS:_Groove(playerData)
if rho<=RXX and playerData.step==AIRBOSS.PatternStep.GROOVE_XX then if rho<=RXX and playerData.step==AIRBOSS.PatternStep.GROOVE_XX then
-- LSO "Call the ball" call. -- LSO "Call the ball" call.
self:_SendMessageToPlayer("Call the ball.", 8, playerData) -- TODO: take this out.
AIRBOSS.LSOcall.CALLTHEBALL:ToGroup(playerData.unit:GetGroup()) self:_SendMessageToPlayer("Call the ball.", 5, playerData)
-- LSO radio call.
self:RadioTransmission(self.LSOradio, self.radiocall.LONGINGROOVE)
playerData.Tlso=timer.getTime() playerData.Tlso=timer.getTime()
-- Store data. -- Store data.
@@ -2069,8 +2123,11 @@ function AIRBOSS:_Groove(playerData)
elseif rho<=RRB and playerData.step==AIRBOSS.PatternStep.GROOVE_RB then elseif rho<=RRB and playerData.step==AIRBOSS.PatternStep.GROOVE_RB then
-- Pilot: "Roger ball" call. -- Pilot: "Roger ball" call.
self:_SendMessageToPlayer(AIRBOSS.LSOcall.ROGERBALLT, 8, playerData) -- TODO: take this out.
AIRBOSS.LSOcall.ROGERBALL:ToGroup(player) self:_SendMessageToPlayer("Roger ball!", 5, playerData)
-- LSO radio call.
self:RadioTransmission(self.LSOradio, self.radiocall.ROGERBALL)
playerData.Tlso=timer.getTime()+1 playerData.Tlso=timer.getTime()+1
-- Store data. -- Store data.
@@ -2110,8 +2167,10 @@ function AIRBOSS:_Groove(playerData)
if waveoff then if waveoff then
-- Wave off player. -- Wave off player.
self:_SendMessageToPlayer(AIRBOSS.LSOcall.WAVEOFFT, 10, playerData) self:_SendMessageToPlayer("Wave off!", 10, playerData)
AIRBOSS.LSOcall.WAVEOFF:ToGroup(playerData.unit:GetGroup())
-- LSO radio call.
self:RadioTransmission(self.LSOradio, self.radiocall.WAVEOFF)
playerData.Tlso=timer.getTime() playerData.Tlso=timer.getTime()
-- Player was waved off! -- Player was waved off!
@@ -2250,13 +2309,13 @@ function AIRBOSS:_Trapped(playerData, pos)
-- Which wire was caught? -- Which wire was caught?
local wire local wire
if X<-104+wdx then if X<self.carrierparam.wire1+wdx then
wire=1 wire=1
elseif X<-92+wdx then elseif X<self.carrierparam.wire2+wdx then
wire=2 wire=2
elseif X<-80+wdx then elseif X<self.carrierparam.wire3+wdx then
wire=3 wire=3
elseif X<68+wdx then elseif X<self.carrierparam.wire4+wdx then
wire=4 wire=4
else else
wire=0 wire=0
@@ -2278,7 +2337,7 @@ function AIRBOSS:_Trapped(playerData, pos)
end end
-- Next step: debriefing. -- Next step: debriefing.
playerData.step=999 playerData.step=AIRBOSS.PatternStep.DEBRIEF
end end
--- LSO advice call. --- LSO advice call.
@@ -2291,9 +2350,7 @@ function AIRBOSS:_LSOadvice(playerData, glideslopeError, lineupError)
-- Player group. -- Player group.
local player=playerData.unit:GetGroup() local player=playerData.unit:GetGroup()
-- List of calls -- Init delay.
local calls={}
local delay=0 local delay=0
-- Glideslope high/low calls. -- Glideslope high/low calls.
@@ -2396,13 +2453,13 @@ function AIRBOSS:RadioTransmission(radio, call, loud, delay)
if delay==nil or delay and delay==0 then if delay==nil or delay and delay==0 then
local filename=call.soundfilenormal local filename=call.normal
if loud then if loud then
filename=call.soundfileloud filename=call.loud
end end
-- New transmission. -- New transmission.
radio:NewUnitTransmission(filename, call.subtitle, call.subtitleduration, radio.Frequency, radio.Modulation, false) radio:NewUnitTransmission(filename, call.subtitle, call.duration, radio.Frequency, radio.Modulation, false)
-- Broadcast message. -- Broadcast message.
radio:Broadcast() radio:Broadcast()
@@ -2424,8 +2481,8 @@ function AIRBOSS:_Glideslope(playerData)
local X, Z, rho, phi = self:_GetDistances(playerData.unit) local X, Z, rho, phi = self:_GetDistances(playerData.unit)
-- Glideslope. Wee need to correct for the height of the deck. The ideal glide slope is 3.5 degrees. -- Glideslope. Wee need to correct for the height of the deck. The ideal glide slope is 3.5 degrees.
local h=playerData.unit:GetAltitude()-self.deckheight local h=playerData.unit:GetAltitude()-self.carrierparam.deckheight
local x=math.abs(-86-X) --math.abs(self.sterndist-X) --TODO: maybe sterndist should be replaced by position of 3-wire! local x=math.abs(self.carrierparam.wire3-X)
local glideslope=math.atan(h/x) local glideslope=math.atan(h/x)
return math.deg(glideslope) return math.deg(glideslope)
@@ -2442,7 +2499,7 @@ function AIRBOSS:_Lineup(playerData)
local X, Z, rho, phi = self:_GetDistances(playerData.unit) local X, Z, rho, phi = self:_GetDistances(playerData.unit)
-- Position at the end of the deck. From there we calculate the angle. -- Position at the end of the deck. From there we calculate the angle.
local b={x=self.sterndist, z=0} local b={x=self.carrierparam.sterndist, z=0}
-- Position of the aircraft wrt carrier coordinates. -- Position of the aircraft wrt carrier coordinates.
local a={x=X, z=Z} local a={x=X, z=Z}
@@ -2561,7 +2618,7 @@ function AIRBOSS:_Debrief(playerData)
mygrade.points=points mygrade.points=points
mygrade.details=analysis mygrade.details=analysis
-- Add to table. -- Add grade to table.
table.insert(playerData.grades, mygrade) table.insert(playerData.grades, mygrade)
-- LSO grade message. -- LSO grade message.
@@ -2570,15 +2627,24 @@ function AIRBOSS:_Debrief(playerData)
-- New approach. -- New approach.
if playerData.boltered or playerData.waveoff or playerData.patternwo then if playerData.boltered or playerData.waveoff or playerData.patternwo then
-- Get heading and distance to register zone ~3 NM astern. -- Get heading and distance to register zone ~3 NM astern.
local heading=playerData.unit:GetCoordinate():HeadingTo(self.registerZone:GetCoordinate()) local heading=playerData.unit:GetCoordinate():HeadingTo(self.registerZone:GetCoordinate())
local distance=playerData.unit:GetCoordinate():Get2DDistance(self.registerZone:GetCoordinate()) local distance=playerData.unit:GetCoordinate():Get2DDistance(self.registerZone:GetCoordinate())
local text=string.format("fly heading %d for %d NM to re-enter the pattern.", heading, UTILS.MetersToNM(distance)) local text=string.format("fly heading %d for %d NM to re-enter the pattern.", heading, UTILS.MetersToNM(distance))
self:_SendMessageToPlayer(text, 10, playerData, false, nil, 30) self:_SendMessageToPlayer(text, 10, playerData, false, nil, 30)
-- Next step?
-- TODO: CASE I: After bolter/wo turn left and climb to 600 ft and re-enter the pattern. But do not go to initial but reenter earlier?
-- TODO: CASE I: After pattern wo? go back to initial, I guess?
-- TODO: CASE III: After bolter/wo turn left and climb to 1200 ft and re-enter pattern?
-- TODO: CASE III: After pattern wo? No idea...
playerData.step=AIRBOSS.PatternStep.COMMENCING
end end
-- Next step. -- Next step.
playerData.step=0 playerData.step=AIRBOSS.PatternStep.UNDEFINED
end end
--- Get relative heading of player wrt carrier. --- Get relative heading of player wrt carrier.
@@ -2727,7 +2793,7 @@ function AIRBOSS:_AbortPattern(playerData, X, Z, posData)
playerData.patternwo=true playerData.patternwo=true
-- Next step debrief. -- Next step debrief.
playerData.step=999 playerData.step=AIRBOSS.PatternStep.DEBRIEF
end end
@@ -2785,10 +2851,10 @@ function AIRBOSS:_InitStennis()
self.carrierparam.rwyangle = -9 self.carrierparam.rwyangle = -9
self.carrierparam.sterndist =-150 self.carrierparam.sterndist =-150
self.carrierparam.deckheight = 22 self.carrierparam.deckheight = 22
self.carrierparam.wire1 =-100 self.carrierparam.wire1 =-104
self.carrierparam.wire2 = -90 self.carrierparam.wire2 = -92
self.carrierparam.wire3 = -80 self.carrierparam.wire3 = -80
self.carrierparam.wire4 = -70 self.carrierparam.wire4 = -68
--[[ --[[
q0=self.carrier:GetCoordinate():SetAltitude(25) q0=self.carrier:GetCoordinate():SetAltitude(25)
@@ -2857,10 +2923,10 @@ function AIRBOSS:_InitStennis()
-- Upwind leg -- Upwind leg
self.Upwind.name="Upwind" self.Upwind.name="Upwind"
self.Upwind.Xmin=-4000 -- TODO Should be withing 4 km behind carrier. Why? self.Upwind.Xmin=-UTILS.NMToMeters(4)
self.Upwind.Xmax=nil self.Upwind.Xmax=nil
self.Upwind.Zmin=0 self.Upwind.Zmin=0
self.Upwind.Zmax=1200 self.Upwind.Zmax=1000
self.Upwind.LimitXmin=0 self.Upwind.LimitXmin=0
self.Upwind.LimitXmax=nil self.Upwind.LimitXmax=nil
self.Upwind.LimitZmin=0 self.Upwind.LimitZmin=0
@@ -3224,6 +3290,10 @@ end
-- @return #string Debriefing text. -- @return #string Debriefing text.
function AIRBOSS:_AltitudeCheck(playerData, checkpoint, altitude) function AIRBOSS:_AltitudeCheck(playerData, checkpoint, altitude)
if checkpoint.Altitude==nil then
return nil, nil
end
-- Player altitude. -- Player altitude.
local altitude=playerData.unit:GetAltitude() local altitude=playerData.unit:GetAltitude()
@@ -3270,6 +3340,10 @@ end
-- @return #string Debriefing text. -- @return #string Debriefing text.
function AIRBOSS:_DistanceCheck(playerData, checkpoint, distance) function AIRBOSS:_DistanceCheck(playerData, checkpoint, distance)
if checkpoint.Distance==nil then
return nil, nil
end
-- Get relative score. -- Get relative score.
local lowscore, badscore = self:_GetGoodBadScore(playerData) local lowscore, badscore = self:_GetGoodBadScore(playerData)
@@ -3313,6 +3387,10 @@ end
-- @return #string Debriefing text. -- @return #string Debriefing text.
function AIRBOSS:_AoACheck(playerData, checkpoint, aoa) function AIRBOSS:_AoACheck(playerData, checkpoint, aoa)
if checkpoint.AoA==nil then
return nil, nil
end
-- Get relative score. -- Get relative score.
local lowscore, badscore = self:_GetGoodBadScore(playerData) local lowscore, badscore = self:_GetGoodBadScore(playerData)
@@ -3357,6 +3435,7 @@ end
-- @param #string sender The person who sends the message. Default is carrier alias. -- @param #string sender The person who sends the message. Default is carrier alias.
-- @param #number delay Delay in seconds, before the message is send. -- @param #number delay Delay in seconds, before the message is send.
function AIRBOSS:_SendMessageToPlayer(message, duration, playerData, clear, sender, delay) function AIRBOSS:_SendMessageToPlayer(message, duration, playerData, clear, sender, delay)
if message then if message then
delay=delay or 0 delay=delay or 0
@@ -3375,6 +3454,7 @@ function AIRBOSS:_SendMessageToPlayer(message, duration, playerData, clear, send
end end
end end
end end
--- Returns the unit of a player and the player name. If the unit does not belong to a player, nil is returned. --- Returns the unit of a player and the player name. If the unit does not belong to a player, nil is returned.