mirror of
https://github.com/FlightControl-Master/MOOSE.git
synced 2025-10-29 16:58:06 +00:00
CT v0.2.0w
This commit is contained in:
funkyfranky
parent
ac074ca23d
commit
b53b1edd29
@ -364,22 +364,28 @@ end
|
||||
-- Use @{#BEACON:StopRadioBeacon}() to stop it.
|
||||
--
|
||||
-- @type BEACON
|
||||
-- @field #string ClassName Name of the class "BEACON".
|
||||
-- @field Wrapper.Positionable#POSITIONABLE Positionable The @{Positionable} that will receive radio capabilities.
|
||||
-- @extends Core.Base#BASE
|
||||
BEACON = {
|
||||
ClassName = "BEACON",
|
||||
Positionable = nil,
|
||||
}
|
||||
|
||||
--- Create a new BEACON Object. This doesn't activate the beacon, though, use @{#BEACON.AATACAN} or @{#BEACON.Generic}
|
||||
--- Create a new BEACON Object. This doesn't activate the beacon, though, use @{#BEACON.AATACAN} or @{#BEACON.Generic}.
|
||||
-- If you want to create a BEACON, you probably should use @{Wrapper.Positionable#POSITIONABLE.GetBeacon}() instead.
|
||||
-- @param #BEACON self
|
||||
-- @param Wrapper.Positionable#POSITIONABLE Positionable The @{Positionable} that will receive radio capabilities.
|
||||
-- @return #BEACON Beacon
|
||||
-- @return #nil If Positionable is invalid
|
||||
-- @return #BEACON Beacon or #nil if Positionable is invalid.
|
||||
function BEACON:New(Positionable)
|
||||
local self = BASE:Inherit(self, BASE:New())
|
||||
|
||||
-- Inherit BASE.
|
||||
local self = BASE:Inherit(self, BASE:New()) --#BEACON
|
||||
|
||||
-- Debug.
|
||||
self:F(Positionable)
|
||||
|
||||
-- Set positionable.
|
||||
if Positionable:GetPointVec2() then -- It's stupid, but the only way I found to make sure positionable is valid
|
||||
self.Positionable = Positionable
|
||||
return self
|
||||
@ -428,6 +434,84 @@ function BEACON:_TACANToFrequency(TACANChannel, TACANMode)
|
||||
return (A + TACANChannel - B) * 1000000
|
||||
end
|
||||
|
||||
--- Activates a TACAN BEACON.
|
||||
-- @param #BEACON self
|
||||
-- @param #number TACANChannel TACAN channel, i.e. the "10" part in "10Y".
|
||||
-- @param #string TACANMode TACAN mode, i.e. the "Y" part in "10Y". Note that AA TACAN are only available on Y Channels.
|
||||
-- @param #string Message The Message that is going to be coded in Morse and broadcasted by the beacon.
|
||||
-- @param #boolean Bearing If true, beacon provides bearing information. If false (or nil), only distance information is available.
|
||||
-- @param #number BeaconDuration How long will the beacon last in seconds. Omit for forever.
|
||||
-- @return #BEACON self
|
||||
-- @usage
|
||||
-- -- Let's create a TACAN Beacon for a tanker
|
||||
-- local myUnit = UNIT:FindByName("MyUnit")
|
||||
-- local myBeacon = myUnit:GetBeacon() -- Creates the beacon
|
||||
--
|
||||
-- myBeacon:TACAN(20, "Y", "TEXACO", true) -- Activate the beacon
|
||||
function BEACON:TACAN(TACANChannel, TACANMode, Message, Bearing, BeaconDuration)
|
||||
self:F({TACANChannel, Message, Bearing, BeaconDuration})
|
||||
|
||||
-- Get frequency.
|
||||
local Frequency = self:_TACANToFrequency(TACANChannel, TACANMode)
|
||||
|
||||
-- Check.
|
||||
if not Frequency then
|
||||
self:E({"The passed TACAN channel is invalid, the BEACON is not emitting"})
|
||||
return self
|
||||
end
|
||||
|
||||
if self.Positionable:IsAir() then
|
||||
--TODO: set TACANMode="Y"
|
||||
self:E({"The POSITIONABLE you want to attach the AA Tacan Beacon is not an aircraft ! The BEACON is not emitting", self.Positionable})
|
||||
end
|
||||
|
||||
|
||||
-- Using the beacon type 4 (BEACON_TYPE_TACAN). For System, I'm using 5 (TACAN_TANKER_MODE_Y) if the beacon shows its bearing or 14 (TACAN_AA_MODE_Y) if it does not.
|
||||
local System=14
|
||||
if Bearing then
|
||||
System = 5
|
||||
end
|
||||
|
||||
-- Beacon command https://wiki.hoggitworld.com/view/DCS_command_activateBeacon
|
||||
local beaconcommand={
|
||||
id = "ActivateBeacon",
|
||||
params = {
|
||||
type = 4, --BEACON_TYPE_TACAN
|
||||
system = System,
|
||||
callsign = Message,
|
||||
frequency = Frequency,
|
||||
}
|
||||
}
|
||||
|
||||
-- Debug
|
||||
self:T2({"TACAN BEACON started!"})
|
||||
|
||||
-- Start beacon.
|
||||
self.Positionable:SetCommand(beaconcommand)
|
||||
|
||||
-- Stop sheduler
|
||||
if BeaconDuration then -- Schedule the stop of the BEACON if asked by the MD
|
||||
SCHEDULER:New(self, self.StopTACAN, {self}, BeaconDuration)
|
||||
end
|
||||
|
||||
return self
|
||||
end
|
||||
|
||||
--- Stops the TACAN BEACON.
|
||||
-- @param #BEACON self
|
||||
-- @return #BEACON self
|
||||
function BEACON:StopTACAN()
|
||||
self:F()
|
||||
if self.Positionable==nil then
|
||||
self:E({"Start the beacon first before stoping it !"})
|
||||
else
|
||||
local commandstop={id='DeactivateBeacon', params={}}
|
||||
self.Positionable:SetCommand(commandstop)
|
||||
end
|
||||
return self
|
||||
end
|
||||
|
||||
|
||||
|
||||
--- Activates a TACAN BEACON on an Aircraft.
|
||||
-- @param #BEACON self
|
||||
@ -591,4 +675,7 @@ function BEACON:StopRadioBeacon()
|
||||
self:F()
|
||||
-- The unique name of the transmission is the class ID
|
||||
trigger.action.stopRadioTransmission(tostring(self.ID))
|
||||
end
|
||||
return self
|
||||
end
|
||||
|
||||
|
||||
|
||||
@ -27,6 +27,11 @@
|
||||
-- @field Wrapper.Unit#UNIT carrier Aircraft carrier unit on which we want to practice.
|
||||
-- @field #string carriertype Type name of aircraft carrier.
|
||||
-- @field #string alias Alias of the carrier trainer.
|
||||
-- @field Core.Radio#BEACON beacon Carrier beacon for TACAN and ICLS.
|
||||
-- @field #number TACANchannel TACAN channel.
|
||||
-- @field #string TACANmode TACAN mode, i.e. "X" or "Y".
|
||||
-- @field Core.Radio#RADIO LSOradio Radio for LSO calls.
|
||||
-- @field Core.Radio#RADIO Carrierradio Radio for carrier calls.
|
||||
-- @field Core.Zone#ZONE_UNIT startZone Zone in which the pattern approach starts.
|
||||
-- @field Core.Zone#ZONE_UNIT giantZone Large zone around the carrier to welcome players.
|
||||
-- @field Core.Zone#ZONE_UNIT registerZone Zone behind the carrier to register for a new approach.
|
||||
@ -63,6 +68,14 @@ CARRIERTRAINER = {
|
||||
carrier = nil,
|
||||
carriertype = nil,
|
||||
alias = nil,
|
||||
beacon = nil,
|
||||
TACANchannel = nil,
|
||||
TACANmode = nil,
|
||||
ICLS = nil,
|
||||
LSOradio = nil,
|
||||
LSOfreq = nil,
|
||||
Carrierradio = nil,
|
||||
Carrierfreq = nil,
|
||||
registerZone = nil,
|
||||
startZone = nil,
|
||||
giantZone = nil,
|
||||
@ -76,8 +89,6 @@ CARRIERTRAINER = {
|
||||
Wake = {},
|
||||
Groove = {},
|
||||
Trap = {},
|
||||
TACAN = nil,
|
||||
ICLS = nil,
|
||||
rwyangle = -10,
|
||||
sterndist =-100,
|
||||
deckheight = 22,
|
||||
@ -264,15 +275,15 @@ CARRIERTRAINER.MenuF10={}
|
||||
|
||||
--- Carrier trainer class version.
|
||||
-- @field #string version
|
||||
CARRIERTRAINER.version="0.2.0"
|
||||
CARRIERTRAINER.version="0.2.0w"
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
-- TODO list
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
-- TODO: Add scoring to radio menu.
|
||||
-- TODO: Optimized debrief.
|
||||
-- TODO: Add automatic grading.
|
||||
-- DONE: Add scoring to radio menu.
|
||||
-- DONE: Optimized debrief.
|
||||
-- DONE: Add automatic grading.
|
||||
-- TODO: Get board numbers.
|
||||
-- TODO: Get fuel state in pounds.
|
||||
-- TODO: Add user functions.
|
||||
@ -312,7 +323,7 @@ function CARRIERTRAINER:New(carriername, alias)
|
||||
self:E(text)
|
||||
return nil
|
||||
end
|
||||
|
||||
|
||||
-- Set some string id for output to DCS.log file.
|
||||
self.lid=string.format("CARRIERTRAINER %s | ", carriername)
|
||||
|
||||
@ -322,6 +333,16 @@ function CARRIERTRAINER:New(carriername, alias)
|
||||
-- Set alias.
|
||||
self.alias=alias or carriername
|
||||
|
||||
-- Get carrier group template.
|
||||
local grouptemplate=self.carrier:GetGroup():GetTemplate()
|
||||
-- TODO: Now I need to get TACAN and ICLS if they were set in the ME.
|
||||
|
||||
-- Create carrier beacon.
|
||||
self.beacon=BEACON:New(self.carrier)
|
||||
|
||||
self.Carrierradio=RADIO:New(self.carrier)
|
||||
self.LSOradio=RADIO:New(self.carrier)
|
||||
|
||||
if self.carriertype==CARRIERTRAINER.CarrierType.STENNIS then
|
||||
self:_InitStennis()
|
||||
elseif self.carriertype==CARRIERTRAINER.CarrierType.VINSON then
|
||||
@ -377,6 +398,41 @@ end
|
||||
-- User functions
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
|
||||
--- Set TACAN channel of carrier.
|
||||
-- @param #CARRIERTRAINER self
|
||||
-- @param #number channel TACAN channel.
|
||||
-- @param #string mode TACAN mode, i.e. "X" or "Y".
|
||||
-- @return #CARRIERTRAINER self
|
||||
function CARRIERTRAINER:SetTACAN(channel, mode)
|
||||
|
||||
self.TACANchannel=channel
|
||||
self.TACANmode=mode or "X"
|
||||
|
||||
return self
|
||||
end
|
||||
|
||||
|
||||
--- Set LSO radio frequency.
|
||||
-- @param #CARRIERTRAINER self
|
||||
-- @param #number freq Frequency in MHz.
|
||||
-- @return #CARRIERTRAINER self
|
||||
function CARRIERTRAINER:SetLSOradio(freq)
|
||||
|
||||
self.LSOfreq=freq
|
||||
|
||||
return self
|
||||
end
|
||||
|
||||
--- Set carrier radio frequency.
|
||||
-- @param #CARRIERTRAINER self
|
||||
-- @param #number freq Frequency in MHz.
|
||||
-- @return #CARRIERTRAINER self
|
||||
function CARRIERTRAINER:SetCarrierradio(freq)
|
||||
|
||||
self.Carrierfreq=freq
|
||||
|
||||
return self
|
||||
end
|
||||
|
||||
-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
|
||||
-- FSM states
|
||||
@ -392,9 +448,13 @@ function CARRIERTRAINER:onafterStart(From, Event, To)
|
||||
-- Events are handled my MOOSE.
|
||||
self:I(self.lid..string.format("Starting Carrier Training %s for carrier unit %s of type %s.", CARRIERTRAINER.version, self.carrier:GetName(), self.carriertype))
|
||||
|
||||
-- Activate TACAN.
|
||||
self.beacon:TACAN(self.TACANchannel, self.TACANmode, "STN", true, nil)
|
||||
|
||||
-- Handle events.
|
||||
self:HandleEvent(EVENTS.Birth)
|
||||
self:HandleEvent(EVENTS.Land)
|
||||
--self:HandleEvent(EVENTS.Crash)
|
||||
|
||||
-- Init status check
|
||||
self:__Status(1)
|
||||
@ -672,7 +732,6 @@ end
|
||||
function CARRIERTRAINER:_InitNewRound(playerData)
|
||||
self:I(self.lid..string.format("New round for player %s.", playerData.callsign))
|
||||
playerData.step=0
|
||||
playerData.score=100
|
||||
playerData.groove={}
|
||||
playerData.debrief={}
|
||||
playerData.patternwo=false
|
||||
@ -1027,17 +1086,17 @@ function CARRIERTRAINER:_Groove(playerData)
|
||||
|
||||
-- Gather pilot data.
|
||||
local groovedata={} --#CARRIERTRAINER.GrooveData
|
||||
groovedata.Step=playerData.step
|
||||
groovedata.Alt=alt
|
||||
groovedata.AoA=aoa
|
||||
groovedata.GSE=self:_Glideslope(playerData)-3.5
|
||||
groovedata.LUE=self:_Lineup(playerData)-self.rwyangle
|
||||
groovedata.Roll=roll
|
||||
groovedata.Step=playerData.step
|
||||
|
||||
|
||||
-- Groove
|
||||
playerData.groove.X0=groovedata
|
||||
|
||||
-- Next step: X call the ball.
|
||||
-- Next step: X start & call the ball.
|
||||
playerData.step=91
|
||||
end
|
||||
|
||||
@ -1119,7 +1178,7 @@ function CARRIERTRAINER:_CallTheBall(playerData)
|
||||
|
||||
elseif rho<=RIM and playerData.step==93 then
|
||||
|
||||
--TODO: grade for IM
|
||||
-- Debug.
|
||||
self:_SendMessageToPlayer("IM", 8, playerData)
|
||||
env.info(string.format("FF IM=%d", rho))
|
||||
|
||||
@ -1131,8 +1190,10 @@ function CARRIERTRAINER:_CallTheBall(playerData)
|
||||
|
||||
elseif rho<=RIC and playerData.step==94 then
|
||||
|
||||
-- Check if player was already waved off.
|
||||
if playerData.waveoff==false then
|
||||
|
||||
-- Debug
|
||||
self:_SendMessageToPlayer("IC", 8, playerData)
|
||||
env.info(string.format("FF IC=%d", rho))
|
||||
|
||||
@ -1155,7 +1216,7 @@ function CARRIERTRAINER:_CallTheBall(playerData)
|
||||
|
||||
return
|
||||
else
|
||||
-- Next step: at the ramp.
|
||||
-- Next step: AR at the ramp.
|
||||
playerData.step=95
|
||||
end
|
||||
|
||||
@ -1163,7 +1224,7 @@ function CARRIERTRAINER:_CallTheBall(playerData)
|
||||
|
||||
elseif rho<=RAR and playerData.step==95 then
|
||||
|
||||
--TODO: grade for AR
|
||||
-- Debug.
|
||||
self:_SendMessageToPlayer("AR", 8, playerData)
|
||||
env.info(string.format("FF AR=%d", rho))
|
||||
|
||||
@ -1235,8 +1296,8 @@ function CARRIERTRAINER:_CheckWaveOff(glideslopeError, lineupError, AoA)
|
||||
|
||||
-- Too slow or too fast?
|
||||
if AoA<6.9 or AoA>9.3 then
|
||||
self:I(self.lid.."Wave off due to AoA<6.9 or AoA>9.3!")
|
||||
waveoff=true
|
||||
self:I(self.lid.."DEACTIVE! Wave off due to AoA<6.9 or AoA>9.3!")
|
||||
waveoff=false
|
||||
end
|
||||
|
||||
return waveoff
|
||||
@ -1251,7 +1312,7 @@ function CARRIERTRAINER:_GS(step)
|
||||
if step==90 then
|
||||
gp="X0" -- Entering the groove.
|
||||
elseif step==91 then
|
||||
gp="XX" -- Starting the groove.
|
||||
gp="X" -- Starting the groove.
|
||||
elseif step==92 then
|
||||
gp="RB" -- Roger ball call.
|
||||
elseif step==93 then
|
||||
@ -1490,9 +1551,10 @@ function CARRIERTRAINER:_Debrief(playerData)
|
||||
|
||||
-- New approach.
|
||||
if playerData.boltered or playerData.waveoff or playerData.patternwo then
|
||||
-- Get heading and distance to register zone ~3 NM astern.
|
||||
local heading=playerData.unit:GetCoordinate():HeadingTo(self.registerZone:GetCoordinate())
|
||||
local distance=playerData.unit:GetCoordinate():Get2DDistance(self.registerZone:GetCoordinate())
|
||||
local text=string.format("fly heading %d for %d NM to restart 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)
|
||||
end
|
||||
|
||||
@ -1684,9 +1746,7 @@ function CARRIERTRAINER:_AbortPattern(playerData, X, Z, posData)
|
||||
|
||||
-- Pattern wave off!
|
||||
playerData.patternwo=true
|
||||
|
||||
--TODO: set score and grade.
|
||||
|
||||
|
||||
-- Next step debrief.
|
||||
playerData.step=999
|
||||
end
|
||||
@ -1743,9 +1803,13 @@ end
|
||||
function CARRIERTRAINER:_InitStennis()
|
||||
|
||||
-- Carrier Parameters.
|
||||
self.rwyangle = -10
|
||||
self.sterndist =-150
|
||||
self.deckheight = 22
|
||||
self.rwyangle = -10
|
||||
self.sterndist =-150
|
||||
self.deckheight = 22
|
||||
self.wire1 =-100
|
||||
self.wire2 =-90
|
||||
self.wire3 =-80
|
||||
self.wire4 =-70
|
||||
|
||||
--[[
|
||||
q0=self.carrier:GetCoordinate():SetAltitude(25)
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user