mirror of
https://github.com/weyne85/DCS-ExportScripts.git
synced 2025-10-29 16:58:18 +00:00
added a lot of f-5 stuff
This commit is contained in:
Bailey
GitHub
parent
9a30bce36d
commit
072206e37f
@ -1,5 +1,9 @@
|
|||||||
-- F-5E-3
|
-- F-5E-3
|
||||||
|
|
||||||
|
local base = _G -- game information
|
||||||
|
local os = base.os -- time
|
||||||
|
local Terrain = require('terrain') -- map info
|
||||||
|
|
||||||
ExportScript.FoundDCSModule = true
|
ExportScript.FoundDCSModule = true
|
||||||
ExportScript.Version.F5E3 = "1.2.1"
|
ExportScript.Version.F5E3 = "1.2.1"
|
||||||
|
|
||||||
@ -501,33 +505,12 @@ ExportScript.ConfigArguments =
|
|||||||
|
|
||||||
-- Pointed to by ProcessIkarusDCSHighImportance
|
-- Pointed to by ProcessIkarusDCSHighImportance
|
||||||
function ExportScript.ProcessIkarusDCSConfigHighImportance(mainPanelDevice)
|
function ExportScript.ProcessIkarusDCSConfigHighImportance(mainPanelDevice)
|
||||||
--[[
|
|
||||||
every frame export to Ikarus
|
|
||||||
Example from A-10C
|
|
||||||
Get Radio Frequencies
|
|
||||||
get data from device
|
|
||||||
local lUHFRadio = GetDevice(54)
|
|
||||||
ExportScript.Tools.SendData("ExportID", "Format")
|
|
||||||
ExportScript.Tools.SendData(2000, string.format("%7.3f", lUHFRadio:get_frequency()/1000000)) -- <- special function for get frequency data
|
|
||||||
ExportScript.Tools.SendData(2000, ExportScript.Tools.RoundFreqeuncy((UHF_RADIO:get_frequency()/1000000))) -- ExportScript.Tools.RoundFreqeuncy(frequency (MHz|KHz), format ("7.3"), PrefixZeros (false), LeastValue (0.025))
|
|
||||||
]]
|
|
||||||
|
|
||||||
--[443] = "%.4f", -- SAI_knob_arrow {-1.0, 1.0} {0.0, 1.0}
|
--[443] = "%.4f", -- SAI_knob_arrow {-1.0, 1.0} {0.0, 1.0}
|
||||||
ExportScript.Tools.SendData(443, ExportScript.Tools.negate(mainPanelDevice:get_argument_value(443)))
|
ExportScript.Tools.SendData(443, ExportScript.Tools.negate(mainPanelDevice:get_argument_value(443)))
|
||||||
end
|
end
|
||||||
|
|
||||||
function ExportScript.ProcessDACConfigHighImportance(mainPanelDevice)
|
function ExportScript.ProcessDACConfigHighImportance(mainPanelDevice)
|
||||||
--[[
|
|
||||||
every frame export to DAC
|
|
||||||
Example from A-10C
|
|
||||||
Get Radio Frequencies
|
|
||||||
get data from device
|
|
||||||
local UHF_RADIO = GetDevice(54)
|
|
||||||
ExportScript.Tools.SendDataDAC("ExportID", "Format")
|
|
||||||
ExportScript.Tools.SendDataDAC("ExportID", "Format", HardwareConfigID)
|
|
||||||
ExportScript.Tools.SendDataDAC("2000", string.format("%7.3f", UHF_RADIO:get_frequency()/1000000))
|
|
||||||
ExportScript.Tools.SendDataDAC("2000", ExportScript.Tools.RoundFreqeuncy((UHF_RADIO:get_frequency()/1000000))) -- ExportScript.Tools.RoundFreqeuncy(frequency (MHz|KHz), format ("7.3"), PrefixZeros (false), LeastValue (0.025))
|
|
||||||
]]
|
|
||||||
end
|
end
|
||||||
|
|
||||||
-----------------------------------------------------
|
-----------------------------------------------------
|
||||||
@ -537,95 +520,27 @@ end
|
|||||||
|
|
||||||
-- Pointed to by ExportScript.ProcessIkarusDCSConfigLowImportance
|
-- Pointed to by ExportScript.ProcessIkarusDCSConfigLowImportance
|
||||||
function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
|
function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
|
||||||
--[[
|
|
||||||
export in low tick interval to Ikarus
|
|
||||||
Example from A-10C
|
|
||||||
Get Radio Frequencies
|
|
||||||
get data from device
|
|
||||||
local lUHFRadio = GetDevice(54)
|
|
||||||
ExportScript.Tools.SendData("ExportID", "Format")
|
|
||||||
ExportScript.Tools.SendData(2000, string.format("%7.3f", lUHFRadio:get_frequency()/1000000)) -- <- special function for get frequency data
|
|
||||||
ExportScript.Tools.SendData(2000, ExportScript.Tools.RoundFreqeuncy((UHF_RADIO:get_frequency()/1000000))) -- ExportScript.Tools.RoundFreqeuncy(frequency (MHz|KHz), format ("7.3"), PrefixZeros (false), LeastValue (0.025))
|
|
||||||
]]
|
|
||||||
--AN/ARC-164 UHF
|
|
||||||
---------------------------------------------------
|
|
||||||
local lUHFRadio = GetDevice(23)
|
|
||||||
if lUHFRadio:is_on() then
|
|
||||||
--ExportScript.Tools.SendData(2000, string.format("%.3f", lUHFRadio:get_frequency()/1000000))
|
|
||||||
ExportScript.Tools.SendData(2000, ExportScript.Tools.RoundFreqeuncy(lUHFRadio:get_frequency()/1000000))
|
|
||||||
|
|
||||||
local lUHFRadio_PRESET = {[0]="01",[0.05]="02",[0.1]="03",[0.15]="04",[0.2]="05",[0.25]="06",[0.3]="07",[0.35]="08",[0.4]="09",[0.45]="10",[0.5]="11",[0.55]="12",[0.6]="13",[0.65]="14",[0.7]="15",[0.75]="16",[0.80]="17",[0.85]="18",[0.90]="19",[0.95]="20"}
|
ExportScript.UhfRadio(mainPanelDevice) -- AN/ARC-164 UHF
|
||||||
ExportScript.Tools.SendData(2001, lUHFRadio_PRESET[ExportScript.Tools.round(mainPanelDevice:get_argument_value(300), 2)])
|
ExportScript.UhfRadioPresets(mainPanelDevice) -- AN/ARC-164 UHF Preset List
|
||||||
|
ExportScript.TacanRadio(mainPanelDevice) -- TACAN Channel
|
||||||
|
ExportScript.FuelQuantityIndicator(mainPanelDevice) -- Fuel Quantity Indicator (Dual)
|
||||||
|
ExportScript.UhfRadioKnobs(mainPanelDevice) -- AN/ARC-164 UHF
|
||||||
|
|
||||||
|
if LoIsObjectExportAllowed() then -- returns true if world objects data is available
|
||||||
|
if LoIsOwnshipExportAllowed() then -- returns true if ownship data is available
|
||||||
|
ExportScript.LoAircraftInfo(mainPanelDevice) -- Provides a lot of aircraft properties
|
||||||
|
ExportScript.AirportInfo(mainPanelDevice) -- Provides info on the two closest airports
|
||||||
|
ExportScript.WindsAloft(mainPanelDevice) -- Gets winds at the aircraft
|
||||||
|
ExportScript.GroundRadar(mainPanelDevice) -- Reports 2 closest friendlies and 2 enemies
|
||||||
|
ExportScript.AirRadar(mainPanelDevice) -- Reports 2 closest friendlies and 2 enemies
|
||||||
|
ExportScript.IglaHunter(mainPanelDevice) -- Locates closest Igla
|
||||||
|
end
|
||||||
end
|
end
|
||||||
|
|
||||||
--[327] = "%.1f", -- AN/ARC-164, UHF Radio 100 MHz Frequency Selector Knob {0.0, 0.1, 0.2, 0.3}
|
|
||||||
--[328] = "%.1f", -- AN/ARC-164, UHF Radio 10 MHz Frequency Selector Knob {0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
|
|
||||||
--[329] = "%.1f", -- AN/ARC-164, UHF Radio 1 MHz Frequency Selector Knob {0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
|
|
||||||
--[330] = "%.1f", -- AN/ARC-164, UHF Radio 0.1 MHz Frequency Selector Knob {0.0, 0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9}
|
|
||||||
--[331] = "%.2f", -- AN/ARC-164, UHF Radio 0.025 MHz Frequency Selector Knob {0.0, 0.25, 0.5, 0.75}
|
|
||||||
--F5E_UHF
|
|
||||||
--327: 0.0=A, 0.1=3, 0.2=2, 0.3=T
|
|
||||||
--1: 0.0=A, 0.1=T, 0.2=2, 0.3=3
|
|
||||||
|
|
||||||
--328: 0.0=0, 0.1=9, 0.2=8, 0.3=7, 0.4=6, 0.5=5, 0.6=4, 0.7=3, 0.8=2, 0.9=1, 1.0=0
|
|
||||||
--2: 0.0=0, 0.1=1, 0.2=2, 0.3=3, 0.4=4, 0.5=5, 0.6=6, 0.7=7, 0.8=8, 0.9=9, 1.0=0
|
|
||||||
|
|
||||||
--329: 0.0=0, 0.1=9, 0.2=8, 0.3=7, 0.4=6, 0.5=5, 0.6=4, 0.7=3, 0.8=2, 0.9=1, 1.0=0
|
|
||||||
--3: 0.0=0, 0.1=1, 0.2=2, 0.3=3, 0.4=4, 0.5=5, 0.6=6, 0.7=7, 0.8=8, 0.9=9, 1.0=0
|
|
||||||
|
|
||||||
--330: 0.0=0, 0.1=9, 0.2=8, 0.3=7, 0.4=6, 0.5=5, 0.6=4, 0.7=3, 0.8=2, 0.9=1, 1.0=0
|
|
||||||
--4: 0.0=0, 0.1=1, 0.2=2, 0.3=3, 0.4=4, 0.5=5, 0.6=6, 0.7=7, 0.8=8, 0.9=9, 1.0=0
|
|
||||||
|
|
||||||
--331: 0.0=00, 0.25=75, 0.5=50, 0.75=25, 1.0=00
|
|
||||||
--5: 0.0=00, 0.25=25, 0.5=50, 0.75=75
|
|
||||||
|
|
||||||
local lTmp327 = tonumber(string.format("%0.1f", mainPanelDevice:get_argument_value(327)))
|
|
||||||
local lTmp327_2 = lTmp327
|
|
||||||
if lTmp327 == 0.0 then lTmp327_2 = 0.0
|
|
||||||
elseif lTmp327 == 0.1 then lTmp327_2 = 0.3
|
|
||||||
elseif lTmp327 == 0.2 then lTmp327_2 = 0.2
|
|
||||||
elseif lTmp327 == 0.3 then lTmp327_2 = 0.1
|
|
||||||
else lTmp327_2 = lTmp327 end
|
|
||||||
|
|
||||||
local lTmp328_2 = 1 - mainPanelDevice:get_argument_value(328)
|
|
||||||
local lTmp329_2 = 1 - mainPanelDevice:get_argument_value(329)
|
|
||||||
local lTmp330_2 = 1 - mainPanelDevice:get_argument_value(330)
|
|
||||||
|
|
||||||
local lTmp331 = mainPanelDevice:get_argument_value(331)
|
|
||||||
local lTmp331_2 = 0
|
|
||||||
if lTmp331 == 0.0 then lTmp331_2 = 0.0
|
|
||||||
elseif lTmp331 == 0.25 then lTmp331_2 = 0.75
|
|
||||||
elseif lTmp331 == 0.5 then lTmp331_2 = 0.5
|
|
||||||
elseif lTmp331 == 0.75 then lTmp331_2 = 0.25
|
|
||||||
else lTmp331_2 = lTmp331 end
|
|
||||||
|
|
||||||
ExportScript.Tools.SendData(327, lTmp327_2)
|
|
||||||
ExportScript.Tools.SendData(328, lTmp328_2)
|
|
||||||
ExportScript.Tools.SendData(329, lTmp329_2)
|
|
||||||
ExportScript.Tools.SendData(330, lTmp330_2)
|
|
||||||
ExportScript.Tools.SendData(331, lTmp331_2)
|
|
||||||
|
|
||||||
|
|
||||||
-- TACAN Channel
|
|
||||||
-------------------------------------------------
|
|
||||||
ExportScript.Tools.SendData(2002, (string.format("%0.2f", (mainPanelDevice:get_argument_value(263))) == "1.00" and "0" or "1")..ExportScript.Tools.round(mainPanelDevice:get_argument_value(264) * 10, 0)..ExportScript.Tools.round(mainPanelDevice:get_argument_value(265) * 10, 0)..(string.format("%1d", (mainPanelDevice:get_argument_value(266))) == "0" and "X" or "Y"))
|
|
||||||
--[266] = "%.4f", -- XYwheel
|
|
||||||
ExportScript.Tools.SendData(266, mainPanelDevice:get_argument_value(266) == 0 and 0 or 1)
|
|
||||||
|
|
||||||
end
|
end
|
||||||
|
|
||||||
function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
|
function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
|
||||||
--[[
|
|
||||||
export in low tick interval to DAC
|
|
||||||
Example from A-10C
|
|
||||||
Get Radio Frequencies
|
|
||||||
get data from device
|
|
||||||
local UHF_RADIO = GetDevice(54)
|
|
||||||
ExportScript.Tools.SendDataDAC("ExportID", "Format")
|
|
||||||
ExportScript.Tools.SendDataDAC("ExportID", "Format", HardwareConfigID)
|
|
||||||
ExportScript.Tools.SendDataDAC("2000", string.format("%7.3f", UHF_RADIO:get_frequency()/1000000))
|
|
||||||
ExportScript.Tools.SendDataDAC("2000", ExportScript.Tools.RoundFreqeuncy((UHF_RADIO:get_frequency()/1000000))) -- ExportScript.Tools.RoundFreqeuncy(frequency (MHz|KHz), format ("7.3"), PrefixZeros (false), LeastValue (0.025))
|
|
||||||
]]
|
|
||||||
|
|
||||||
--AN/ARC-164 UHF
|
--AN/ARC-164 UHF
|
||||||
---------------------------------------------------
|
---------------------------------------------------
|
||||||
@ -713,6 +628,822 @@ function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
|
|||||||
]]
|
]]
|
||||||
end
|
end
|
||||||
|
|
||||||
-----------------------------
|
----------------------
|
||||||
-- Custom functions --
|
-- Custom Functions --
|
||||||
-----------------------------
|
----------------------
|
||||||
|
|
||||||
|
function ExportScript.LoAircraftInfo(mainPanelDevice)
|
||||||
|
|
||||||
|
-- General
|
||||||
|
local aircraftName = LoGetSelfData().Name -- DCS Name of the aircraft eg "F-5E-3"
|
||||||
|
local pilotName = LoGetPilotName() -- Logbook Pilot name
|
||||||
|
|
||||||
|
-- Times DCS times are default in seconds
|
||||||
|
local dcsModelTime = LoGetModelTime() -- time since aircraft spawn
|
||||||
|
local missionStartTime = LoGetMissionStartTime() -- second after midnight that the mission started
|
||||||
|
local dcsTimeLocal = formatTime(LoGetMissionStartTime() + LoGetModelTime()) -- up-to-date time in dcs
|
||||||
|
local utcOffset = -1 * Terrain.GetTerrainConfig('SummerTimeDelta') * 3600 -- eg -1 * 4 * 3600 (for seconds to get hours)
|
||||||
|
local dcsTimeUtc = formatTime(dcsModelTime + LoGetMissionStartTime() + utcOffset) -- dcs zulu time
|
||||||
|
local realTimeLocal = os.date("%H-%M-%S") -- real life time
|
||||||
|
local realTimeUtc = os.date("!%H-%M-%S") -- real life zulu time
|
||||||
|
--local playTime = formatTime(DCS.getRealTime()) -- does not work, export environment no access
|
||||||
|
|
||||||
|
-- Player Aircraft Properties
|
||||||
|
local altMsl_meters = LoGetAltitudeAboveSeaLevel()
|
||||||
|
local altMsl_feet = meters2feet(altMsl_meters)
|
||||||
|
local altAgl_meters = LoGetAltitudeAboveGroundLevel()
|
||||||
|
local altAgl_feet = meters2feet(altAgl_meters)
|
||||||
|
|
||||||
|
local verticalVelocity_metric = LoGetVerticalVelocity()
|
||||||
|
local verticalVelocity_imperial = metersPerSecond2feetPerMinute(LoGetVerticalVelocity())
|
||||||
|
|
||||||
|
local ias_metric = LoGetIndicatedAirSpeed()
|
||||||
|
local ias_knots = metersPerSecond2knots(LoGetIndicatedAirSpeed())
|
||||||
|
local ias_mph = metersPerSecond2milesPerHour(LoGetIndicatedAirSpeed())
|
||||||
|
|
||||||
|
local tas_metric = LoGetTrueAirSpeed()
|
||||||
|
local tas_knots = metersPerSecond2knots(LoGetTrueAirSpeed())
|
||||||
|
local tas_mph = metersPerSecond2milesPerHour(LoGetTrueAirSpeed())
|
||||||
|
|
||||||
|
local speed_mach = LoGetMachNumber()
|
||||||
|
local accel_g = LoGetAccelerationUnits().y
|
||||||
|
local aoa = LoGetAngleOfAttack()
|
||||||
|
|
||||||
|
--local atmosphericPressure_mmhg = LoGetBasicAtmospherePressure() -- does not seem to work
|
||||||
|
|
||||||
|
local aircraftPitch, aircraftBank, aircraftYawTrue = LoGetADIPitchBankYaw()
|
||||||
|
aircraftPitch = aircraftPitch * 57.3
|
||||||
|
aircraftBank = aircraftBank * 57.3
|
||||||
|
aircraftYawTrue = aircraftYawTrue * 57.3 -- true heading
|
||||||
|
local aircraftYawMagnetic = LoGetMagneticYaw() * 57.3 -- magnetic heading
|
||||||
|
local aircraftHeading = aircraftYawMagnetic -- this cound be negative
|
||||||
|
if aircraftHeading < 0 then aircraftHeading = aircraftHeading + 360 end -- removes the negative
|
||||||
|
local magneticVariance = aircraftYawTrue - aircraftYawMagnetic -- works for all maps
|
||||||
|
|
||||||
|
local selfData = LoGetSelfData() -- relative the the player
|
||||||
|
local lLatitude = selfData.LatLongAlt.Lat
|
||||||
|
local lLongitude = selfData.LatLongAlt.Long
|
||||||
|
local mgrs = Terrain.GetMGRScoordinates(LoGetSelfData().Position.x, LoGetSelfData().Position.z)
|
||||||
|
local mgrsTable = mgrsTableize(mgrs) -- format is mgrsTable[1][1], mgrsTable[1][2], mgrsTable[1][3], mgrsTable[1][4]
|
||||||
|
|
||||||
|
local aircraftHeadingTrue = selfData.Heading * 57.3 -- true yeading (same as trueYaw for fixed wing aircraft)
|
||||||
|
|
||||||
|
-- Engine Info
|
||||||
|
local engineInfo = LoGetEngineInfo()
|
||||||
|
local lEngineRPMleft = engineInfo.RPM.left -- ENG1 RPM %
|
||||||
|
local lEngineRPMright = engineInfo.RPM.right -- ENG2 RPM %
|
||||||
|
local lEngineFuelInternal = engineInfo.fuel_internal -- 1 = full. 0 = empty. Includes external tanks for FF aircraft
|
||||||
|
local lEngineFuelExternal = engineInfo.fuel_external -- TANK2 (EXT) (KG) -- does not seem to work for FF modules
|
||||||
|
local lEngineFuelTotal = lEngineFuelInternal + lEngineFuelExternal
|
||||||
|
local lEngineTempLeft = engineInfo.Temperature.left -- ENG1 EGT ºC. May get odd numbers
|
||||||
|
local lEngineTempRight = engineInfo.Temperature.right -- ENG2 EGT ºC. May get odd numbers
|
||||||
|
|
||||||
|
local lFuelConsumptionLeft = engineInfo.FuelConsumption.left -- {left ,right},kg per sec
|
||||||
|
local lFuelConsumptionRight = engineInfo.FuelConsumption.right -- {left ,right},kg per sec
|
||||||
|
local lFuelConsumptionTotal = lFuelConsumptionLeft + lFuelConsumptionRight -- total,kg per sec
|
||||||
|
local lHydraulicPressureLeft = engineInfo.HydraulicPressure.left -- {left ,right},kg per square centimeter
|
||||||
|
local lHydraulicPressureRight = engineInfo.HydraulicPressure.right -- {left ,right},kg per square centimeter
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8000, aircraftName)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8001, pilotName)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8002, 'Real Time\n'.. realTimeLocal .. '\nDCS Time\n' .. dcsTimeLocal) -- clocks
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8003, 'HDG ' .. prefixZerosFixedLength(round(aircraftHeading,0),3) .. 'º'
|
||||||
|
.. '\nALT ' .. format_int(round(altMsl_feet,-1)) .. ' ft'
|
||||||
|
.. '\nIAS ' .. round(ias_knots,0) .. ' kts'
|
||||||
|
.. '\nV/S ' .. format_int(round(verticalVelocity_imperial,-2)) .. ' ft/min'
|
||||||
|
) -- Aircraft Instrument panel (western)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8004, 'HDG ' .. prefixZerosFixedLength(round(aircraftHeading,0),3) .. 'º'
|
||||||
|
.. '\nALT ' .. format_int(round(altMsl_meters,-1)) .. ' m'
|
||||||
|
.. '\nIAS ' .. round(ias_metric,0) .. ' km/h'
|
||||||
|
.. '\nV/S ' .. format_int(round(verticalVelocity_metric,0)) .. ' m/s'
|
||||||
|
) -- Aircraft Instrument panel (eastern)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8005, 'HDG ' .. prefixZerosFixedLength(round(aircraftHeading,0),3) .. 'º'
|
||||||
|
.. '\nALT ' .. format_int(round(altMsl_feet,-1)) .. ' ft'
|
||||||
|
.. '\nIAS ' .. round(ias_mph,0) .. ' mph'
|
||||||
|
.. '\nV/S ' .. format_int(round(verticalVelocity_imperial,-2)) .. ' ft/min'
|
||||||
|
) -- Aircraft Instrument panel (western ww2)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8006, "Lat-Long-DMS\n" .. formatCoord("DMS",true, lLatitude)
|
||||||
|
.. "\n" .. formatCoord("DMS",false, lLongitude)
|
||||||
|
) -- Player coordinates in DMS
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8007, "Lat-Long-DDM\n" .. formatCoord("DDM",true, lLatitude)
|
||||||
|
.. "\n" .. formatCoord("DDM",false, lLongitude)
|
||||||
|
) -- Player coordinates in DDM
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8008, 'MGRS\n'.. mgrsTable[1][1] .. ' ' .. mgrsTable[1][2]
|
||||||
|
.. '\n' .. mgrsTable[1][3] .. ' ' .. mgrsTable[1][4]
|
||||||
|
) -- Player coordinates in MGRS on 2 rows + title
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8009, 'Mag Var\n' .. format_int(round(magneticVariance, 2))) -- also called magnetic deviation
|
||||||
|
|
||||||
|
-- Example for using the Lo Data. Feel free to make your own!
|
||||||
|
ExportScript.Tools.SendData(8010, format_int(round(kgPerSecond2poundPerHour(lFuelConsumptionLeft), -1))) -- fuel use in pph
|
||||||
|
|
||||||
|
end
|
||||||
|
function ExportScript.AirportInfo(mainPanelDevice)
|
||||||
|
|
||||||
|
local airdromes = LoGetWorldObjects("airdromes") -- returns a list of runways and their popperties
|
||||||
|
local airportInfo = {} -- contains generated table of important properties
|
||||||
|
-- the table will be sorted by nearest airport first
|
||||||
|
-- for this table:
|
||||||
|
-- airportInfo[1] is the first element
|
||||||
|
-- airportInfo[1][1] is the airport name of the first element/airport
|
||||||
|
-- airportInfo[1][2] is the distance to the airport of the first element/airport
|
||||||
|
-- airportInfo[1][3] is the bearing to the airport of the first element/airport
|
||||||
|
-- airportInfo[1][4] is the extimated time en route
|
||||||
|
-- airportInfo[1][5] is the direction of the wind
|
||||||
|
-- airportInfo[1][6] is the windStrength of the wind
|
||||||
|
-- airportInfo[1][7] is the main runway heading
|
||||||
|
-- airportInfo[1][8] is the reverse of the main runway
|
||||||
|
-- airportInfo[1][9] is the prefered runway based on winds
|
||||||
|
|
||||||
|
for key,value in pairs(airdromes) do
|
||||||
|
|
||||||
|
-- remove the woRunWay entries so that only named runways are in the list
|
||||||
|
if value.Name ~= 'woRunWay' then
|
||||||
|
|
||||||
|
-- get the distance from the player to the runway
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
-- get the direction from the player to the runway
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
-- estimate the runway heading based on the reported values
|
||||||
|
local runwayHeading = round(value.Heading * 57.3,-1) / 10
|
||||||
|
if runwayHeading < 0 then
|
||||||
|
runwayHeading = 36 + runwayHeading
|
||||||
|
end
|
||||||
|
-- Reverse it for the reciprocal runway
|
||||||
|
local runwayHeadingReciprocal
|
||||||
|
if runwayHeading > 18 then
|
||||||
|
runwayHeadingReciprocal = runwayHeading-18
|
||||||
|
else
|
||||||
|
runwayHeadingReciprocal = runwayHeading+18
|
||||||
|
end
|
||||||
|
|
||||||
|
local ete = distance / metersPerSecond2knots(LoGetTrueAirSpeed()) * (60 * 60) --based on tas bc dcs is flat...
|
||||||
|
-- if ete is more than 24hrs, make it 24 hrs, which shows up as 00-00-00
|
||||||
|
-- this case is for choppers and aircraft that arent moving
|
||||||
|
if ete > 86400 then ete = 86400 end
|
||||||
|
ete = formatTime(ete)
|
||||||
|
|
||||||
|
-- wind at airport calculations. Each airport has slighty different winds
|
||||||
|
-- https://forum.dcs.world/topic/165136-logetwindatpoint-in-exportlua/#comment-3294428
|
||||||
|
-- LoGetWindAtPoint(x,y,z,is_radio_alt), 2 meters off the ground for the "wind sensor"
|
||||||
|
local vx,_vy,vz,_absolute_height = LoGetWindAtPoint(value.Position.x,2,value.Position.y,true)
|
||||||
|
local windDirectionInRadians = math.atan2(vz,vx)
|
||||||
|
local windDirection = windDirectionInRadians * 57.3
|
||||||
|
local windStrength = math.sqrt((vx)^2 + (vz)^2)
|
||||||
|
if windDirection < 0 then
|
||||||
|
windDirection = 360 + windDirection
|
||||||
|
end
|
||||||
|
-- Convert to direction to from direction
|
||||||
|
if windDirection > 180 then
|
||||||
|
windDirection = windDirection - 180
|
||||||
|
else
|
||||||
|
windDirection = windDirection + 180
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Calculate the prefered runway for landing
|
||||||
|
-- if the rounded runway is within +- 9 of the rounded wind, then it is prefered
|
||||||
|
local windRounded = round(windDirection, -1)
|
||||||
|
if windRounded >= runwayHeading - 9 and windRounded <= runwayHeading + 9 then
|
||||||
|
runwayHeadingPrefered = runwayHeading
|
||||||
|
else
|
||||||
|
runwayHeadingPrefered = runwayHeadingReciprocal
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Populate the table with the important info for each airport
|
||||||
|
table.insert(airportInfo, -- the table name
|
||||||
|
{value.Name, -- airport name [1]
|
||||||
|
distance, bearing, ete, --[2][3][4]
|
||||||
|
windDirection,windStrength, --wind direction [5], wind Strength [6]
|
||||||
|
runwayHeading, runwayHeadingReciprocal,runwayHeadingPrefered}) -- [7][8][9]
|
||||||
|
|
||||||
|
end -- end of woRunWay
|
||||||
|
end -- end of FOR loop
|
||||||
|
|
||||||
|
-- sort the table based on the second value, which is distance
|
||||||
|
-- https://stackoverflow.com/questions/51276613/how-to-sort-table-by-value-and-then-print-index-in-order
|
||||||
|
-- https://www.tutorialspoint.com/sort-function-in-lua-programming
|
||||||
|
table.sort(airportInfo, function(a,b) return a[2] < b[2] end)
|
||||||
|
|
||||||
|
-- Primary Airport (closest)
|
||||||
|
ExportScript.Tools.SendData(8101, airportInfo[1][1] .. '\n' -- name of airport
|
||||||
|
--[[.. 'BRG ']] .. format_int(addZeros3(round(airportInfo[1][3],0))) .. 'º ' -- bearing
|
||||||
|
--[[.. 'DIST ']] .. format_int(round(airportInfo[1][2], 0)) .. 'nm\n' -- distance
|
||||||
|
.. 'ETE ' .. airportInfo[1][4] .. '\n' -- estimated time in route
|
||||||
|
.. '' .. prefixZerosFixedLength(round(airportInfo[1][5], 0),3) .. 'º ' -- wind bearing
|
||||||
|
.. round(metersPerSecond2knots(airportInfo[1][6]),0) .. 'kts' -- wing strength
|
||||||
|
.. '\n' .. prefixZerosFixedLength(airportInfo[1][7],2) -- runway 1
|
||||||
|
.. '-' .. prefixZerosFixedLength(airportInfo[1][8],2) -- runway 2
|
||||||
|
.. ' (' .. prefixZerosFixedLength(airportInfo[1][9],2) .. ')') -- prefered runway based on wind in parens
|
||||||
|
|
||||||
|
-- Secondary Airport (second closest)
|
||||||
|
ExportScript.Tools.SendData(8102, airportInfo[2][1] .. '\n' -- name of airport
|
||||||
|
--[[.. 'BRG ']] .. format_int(addZeros3(round(airportInfo[2][3],0))) .. 'º ' -- bearing
|
||||||
|
--[[.. 'DIST ']] .. format_int(round(airportInfo[2][2], 0)) .. 'nm\n' -- distance
|
||||||
|
.. 'ETE ' .. airportInfo[2][4] .. '\n' -- estimated time in route
|
||||||
|
.. '' .. prefixZerosFixedLength(round(airportInfo[2][5], 0),3) .. 'º ' -- wind bearing
|
||||||
|
.. round(metersPerSecond2knots(airportInfo[2][6]),0) .. 'kts' -- wing strength
|
||||||
|
.. '\n' .. prefixZerosFixedLength(airportInfo[2][7],2) -- runway 1
|
||||||
|
.. '-' .. prefixZerosFixedLength(airportInfo[2][8],2) -- runway 2
|
||||||
|
.. ' (' .. prefixZerosFixedLength(airportInfo[2][9],2) .. ')') -- prefered runway based on wind in parens
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.WindsAloft(mainPanelDevice)
|
||||||
|
|
||||||
|
-- Winds relative to the aircraft, aka, winds aloft
|
||||||
|
local windAloft = LoGetVectorWindVelocity()
|
||||||
|
local windStrengthAloft = math.sqrt((windAloft.x)^2 + (windAloft.z)^2)
|
||||||
|
local windDirectionAloft = math.deg(math.atan2(windAloft.z, windAloft.x))
|
||||||
|
if windDirectionAloft < 0 then
|
||||||
|
windDirectionAloft = 360 + windDirectionAloft
|
||||||
|
end
|
||||||
|
|
||||||
|
-- Convert to direction to from direction
|
||||||
|
if windDirectionAloft > 180 then
|
||||||
|
windDirectionAloft = windDirectionAloft - 180
|
||||||
|
else
|
||||||
|
windDirectionAloft = windDirectionAloft + 180
|
||||||
|
end
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8100, 'Wind Aloft\n' .. addZeros3(round(windDirectionAloft,0)) .. 'º '
|
||||||
|
.. round(metersPerSecond2knots(windStrengthAloft,0)) .. 'kts'
|
||||||
|
) -- winds at the aircraft
|
||||||
|
end
|
||||||
|
function ExportScript.GroundRadar(mainPanelDevice) -- may return some odd things
|
||||||
|
|
||||||
|
local tableOfUnits = LoGetWorldObjects('units')
|
||||||
|
|
||||||
|
local tableOfGround = {}
|
||||||
|
-- relative to the player...
|
||||||
|
local tableOfGround_friendly = {}
|
||||||
|
local tableOfGround_friendlyReports = {}
|
||||||
|
local tableOfGround_enemy = {}
|
||||||
|
local tableOfGround_enemyReports = {}
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfUnits) do
|
||||||
|
if value.Type.level1 == 2 then
|
||||||
|
table.insert(tableOfGround, value)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
local selfData = LoGetSelfData()
|
||||||
|
local selfCoalitionID = selfData.CoalitionID
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfGround) do
|
||||||
|
if value.CoalitionID == selfCoalitionID then
|
||||||
|
table.insert(tableOfGround_friendly, value)
|
||||||
|
else
|
||||||
|
table.insert(tableOfGround_enemy, value)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- TODO: only do enemy reports if there is an awacs unit(?)
|
||||||
|
for key,value in pairs(tableOfGround_enemy) do
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
table.insert(tableOfGround_enemyReports, -- the table name
|
||||||
|
{value.Name, distance, bearing}) --[1][2][3]
|
||||||
|
end
|
||||||
|
table.sort(tableOfGround_enemyReports, function(a,b) return a[2] < b[2] end) -- sort based on the second value, which is distance
|
||||||
|
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfGround_friendly) do
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
table.insert(tableOfGround_friendlyReports, -- the table name
|
||||||
|
{value.Name, distance, bearing}) --[1][2][3]
|
||||||
|
|
||||||
|
end
|
||||||
|
table.sort(tableOfGround_friendlyReports, function(a,b) return a[2] < b[2] end) -- sort based on the second value, which is distance
|
||||||
|
|
||||||
|
local string_8200 = 'No Ground\nEnemy\nDetected'
|
||||||
|
if tableOfGround_enemyReports[1] ~= nill then
|
||||||
|
string_8200 = 'Enemy Ground\n' .. tableOfGround_enemyReports[1][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfGround_enemyReports[1][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfGround_enemyReports[1][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8201 = 'No Ground\nEnemy\nDetected'
|
||||||
|
if tableOfGround_enemyReports[2] ~= nill then
|
||||||
|
string_8201 = 'Enemy Ground\n'.. tableOfGround_enemyReports[2][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfGround_enemyReports[2][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfGround_enemyReports[2][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8202 = 'No Ground\nFriend\nDetected'
|
||||||
|
if tableOfGround_friendlyReports[1] ~= nill then
|
||||||
|
string_8202 = 'Friend Ground\n' .. tableOfGround_friendlyReports[1][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfGround_friendlyReports[1][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfGround_friendlyReports[1][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8203 = 'No Ground\nFriend\nDetected'
|
||||||
|
if tableOfGround_friendlyReports[2] ~= nill then
|
||||||
|
string_8203 = 'Friend Ground\n' .. tableOfGround_friendlyReports[2][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfGround_friendlyReports[2][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfGround_friendlyReports[2][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8200, string_8200)
|
||||||
|
ExportScript.Tools.SendData(8201, string_8201)
|
||||||
|
ExportScript.Tools.SendData(8202, string_8202)
|
||||||
|
ExportScript.Tools.SendData(8203, string_8203)
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.AirRadar(mainPanelDevice)
|
||||||
|
|
||||||
|
local tableOfUnits = LoGetWorldObjects('units')
|
||||||
|
|
||||||
|
local tableOfAircraft = {}
|
||||||
|
-- relative to the player...
|
||||||
|
local tableOfAircraft_friendly = {}
|
||||||
|
local tableOfAircraft_friendlyReports = {}
|
||||||
|
local tableOfAircraft_enemy = {}
|
||||||
|
local tableOfAircraft_enemyReports = {}
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfUnits) do
|
||||||
|
if value.Type.level1 == 1 then
|
||||||
|
table.insert(tableOfAircraft, value)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
local selfData = LoGetSelfData()
|
||||||
|
local selfCoalitionID = selfData.CoalitionID
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfAircraft) do
|
||||||
|
if value.CoalitionID == selfCoalitionID then
|
||||||
|
table.insert(tableOfAircraft_friendly, value)
|
||||||
|
else
|
||||||
|
table.insert(tableOfAircraft_enemy, value)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
-- TODO: only do enemy reports if there is a awacs unit
|
||||||
|
for key,value in pairs(tableOfAircraft_enemy) do
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
table.insert(tableOfAircraft_enemyReports, -- the table name
|
||||||
|
{value.Name, distance, bearing}) --[1][2][3]
|
||||||
|
|
||||||
|
-- https://stackoverflow.com/questions/51276613/how-to-sort-table-by-value-and-then-print-index-in-order
|
||||||
|
-- https://www.tutorialspoint.com/sort-function-in-lua-programming
|
||||||
|
|
||||||
|
end
|
||||||
|
table.sort(tableOfAircraft_enemyReports, function(a,b) return a[2] < b[2] end) -- sort based on the second value, which is distance
|
||||||
|
|
||||||
|
|
||||||
|
for key,value in pairs(tableOfAircraft_friendly) do -- [1] will always be the player
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
table.insert(tableOfAircraft_friendlyReports, -- the table name
|
||||||
|
{value.Name, distance, bearing}) --[1][2][3]
|
||||||
|
|
||||||
|
end
|
||||||
|
table.sort(tableOfAircraft_friendlyReports, function(a,b) return a[2] < b[2] end) -- sort based on the second value, which is distance
|
||||||
|
|
||||||
|
local string_8210 = 'No Air\nEnemy\nDetected'
|
||||||
|
if tableOfAircraft_enemyReports[1] ~= nill then
|
||||||
|
string_8210 = 'Enemy Air\n' .. tableOfAircraft_enemyReports[1][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfAircraft_enemyReports[1][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfAircraft_enemyReports[1][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8211 = 'No Air\nEnemy\nDetected'
|
||||||
|
if tableOfAircraft_enemyReports[2] ~= nill then
|
||||||
|
string_8211 = 'Enemy Air\n' .. tableOfAircraft_enemyReports[2][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfAircraft_enemyReports[2][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfAircraft_enemyReports[2][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8212 = 'No Air\nFriend\nDetected'
|
||||||
|
if tableOfAircraft_friendlyReports[2] ~= nill then
|
||||||
|
string_8212 = 'Friend Air\n' .. tableOfAircraft_friendlyReports[2][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfAircraft_friendlyReports[2][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfAircraft_friendlyReports[2][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
local string_8213 = 'No Air\nFriend\nDetected'
|
||||||
|
if tableOfAircraft_friendlyReports[3] ~= nill then
|
||||||
|
string_8213 = 'Friend Air\n' .. tableOfAircraft_friendlyReports[3][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfAircraft_friendlyReports[3][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfAircraft_friendlyReports[3][2],0) .. 'nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8210,string_8210)
|
||||||
|
ExportScript.Tools.SendData(8211, string_8211)
|
||||||
|
ExportScript.Tools.SendData(8212, string_8212)
|
||||||
|
ExportScript.Tools.SendData(8213, string_8213)
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.IglaHunter(mainPanelDevice) -- Locates the nearest Igla
|
||||||
|
|
||||||
|
local tableOfUnits = LoGetWorldObjects('units')
|
||||||
|
local selfData = LoGetSelfData()
|
||||||
|
local selfCoalitionID = selfData.CoalitionID
|
||||||
|
|
||||||
|
local tableOfIgla = {}
|
||||||
|
local tableOfIgla_report = {}
|
||||||
|
|
||||||
|
--TODO: Might have to refine this.
|
||||||
|
for key,value in pairs(tableOfUnits) do
|
||||||
|
if value.CoalitionID ~= selfCoalitionID then
|
||||||
|
if value.Type.level3 == 27 then
|
||||||
|
if value.Type.level2 == 16 then
|
||||||
|
if value.Type.level1 == 2 then
|
||||||
|
if value.Type.level4 == 55 or 54 or 53 or 52 or 62 then
|
||||||
|
table.insert(tableOfIgla, value)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
--if tableOfIgla ~= null then
|
||||||
|
for key,value in pairs(tableOfIgla) do
|
||||||
|
local distance = getdistance(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, "nm")
|
||||||
|
|
||||||
|
local bearing = getBearing(LoGetSelfData().LatLongAlt.Lat,
|
||||||
|
value.LatLongAlt.Lat,
|
||||||
|
LoGetSelfData().LatLongAlt.Long,
|
||||||
|
value.LatLongAlt.Long, true)
|
||||||
|
|
||||||
|
table.insert(tableOfIgla_report, -- the table name
|
||||||
|
{value.Name, distance, bearing}) --[1][2][3]
|
||||||
|
--end
|
||||||
|
end
|
||||||
|
table.sort(tableOfIgla_report, function(a,b) return a[2] < b[2] end) -- sort based on the second value, which is distance
|
||||||
|
|
||||||
|
local string_8666 = 'Igla Hunter\nSearching...'
|
||||||
|
if tableOfIgla_report[1] ~= nill then
|
||||||
|
string_8666 = 'Igla Detected\n' .. tableOfIgla_report[1][1]
|
||||||
|
.. '\n ' .. prefixZerosFixedLength(tableOfIgla_report[1][3],3) -- bearing
|
||||||
|
.. 'º ' .. round(tableOfIgla_report[1][2],0) .. ' nm'--distance
|
||||||
|
end
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(8666, string_8666)
|
||||||
|
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.UhfRadioPresets(mainPanelDevice)
|
||||||
|
|
||||||
|
local UhfPresetReadout = ExportScript.Tools.getListIndicatorValue(4) -- uhf radio presets
|
||||||
|
|
||||||
|
local UhfCh1 = UhfPresetReadout.SheetTable_Channel1
|
||||||
|
local UhfCh2 = UhfPresetReadout.SheetTable_Channel2
|
||||||
|
local UhfCh3 = UhfPresetReadout.SheetTable_Channel3
|
||||||
|
local UhfCh4 = UhfPresetReadout.SheetTable_Channel4
|
||||||
|
local UhfCh5= UhfPresetReadout.SheetTable_Channel5
|
||||||
|
local UhfCh6 = UhfPresetReadout.SheetTable_Channel6
|
||||||
|
local UhfCh7 = UhfPresetReadout.SheetTable_Channel7
|
||||||
|
local UhfCh8 = UhfPresetReadout.SheetTable_Channel8
|
||||||
|
local UhfCh9 = UhfPresetReadout.SheetTable_Channel9
|
||||||
|
local UhfCh10 = UhfPresetReadout.SheetTable_Channel10
|
||||||
|
local UhfCh11 = UhfPresetReadout.SheetTable_Channel11
|
||||||
|
local UhfCh12 = UhfPresetReadout.SheetTable_Channel12
|
||||||
|
local UhfCh13 = UhfPresetReadout.SheetTable_Channel13
|
||||||
|
local UhfCh14 = UhfPresetReadout.SheetTable_Channel14
|
||||||
|
local UhfCh15 = UhfPresetReadout.SheetTable_Channel15
|
||||||
|
local UhfCh16 = UhfPresetReadout.SheetTable_Channel16
|
||||||
|
local UhfCh17 = UhfPresetReadout.SheetTable_Channel17
|
||||||
|
local UhfCh18 = UhfPresetReadout.SheetTable_Channel18
|
||||||
|
local UhfCh19 = UhfPresetReadout.SheetTable_Channel19
|
||||||
|
local UhfCh20 = UhfPresetReadout.SheetTable_Channel20
|
||||||
|
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(3016, "UHF 1-4"
|
||||||
|
.. "\n" .. UhfCh1
|
||||||
|
.. "\n" .. UhfCh2
|
||||||
|
.. "\n" .. UhfCh3
|
||||||
|
.. "\n" .. UhfCh4
|
||||||
|
)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(3017, "UHF 5-8"
|
||||||
|
.. "\n" .. UhfCh5
|
||||||
|
.. "\n" .. UhfCh6
|
||||||
|
.. "\n" .. UhfCh7
|
||||||
|
.. "\n" .. UhfCh8
|
||||||
|
)
|
||||||
|
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(3018, "UHF 9-12"
|
||||||
|
.. "\n" .. UhfCh9
|
||||||
|
.. "\n" .. UhfCh10
|
||||||
|
.. "\n" .. UhfCh11
|
||||||
|
.. "\n" .. UhfCh12
|
||||||
|
)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(3019, "UHF 13-16"
|
||||||
|
.. "\n" .. UhfCh13
|
||||||
|
.. "\n" .. UhfCh14
|
||||||
|
.. "\n" .. UhfCh15
|
||||||
|
.. "\n" .. UhfCh16
|
||||||
|
)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(3020, "UHF 16-20"
|
||||||
|
.. "\n" .. UhfCh17
|
||||||
|
.. "\n" .. UhfCh18
|
||||||
|
.. "\n" .. UhfCh19
|
||||||
|
.. "\n" .. UhfCh20
|
||||||
|
)
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
function ExportScript.UhfRadio(mainPanelDevice)
|
||||||
|
local lUHFRadio = GetDevice(23)
|
||||||
|
if lUHFRadio:is_on() then
|
||||||
|
--ExportScript.Tools.SendData(2000, string.format("%.3f", lUHFRadio:get_frequency()/1000000))
|
||||||
|
ExportScript.Tools.SendData(2000, ExportScript.Tools.RoundFreqeuncy(lUHFRadio:get_frequency()/1000000))
|
||||||
|
|
||||||
|
local lUHFRadio_PRESET = {[0]="01",[0.05]="02",[0.1]="03",[0.15]="04",[0.2]="05",
|
||||||
|
[0.25]="06",[0.3]="07",[0.35]="08",[0.4]="09",[0.45]="10",
|
||||||
|
[0.5]="11",[0.55]="12",[0.6]="13",[0.65]="14",[0.7]="15",
|
||||||
|
[0.75]="16",[0.80]="17",[0.85]="18",[0.90]="19",[0.95]="20"}
|
||||||
|
ExportScript.Tools.SendData(2001, lUHFRadio_PRESET[ExportScript.Tools.round(mainPanelDevice:get_argument_value(300), 2)])
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
function ExportScript.TacanRadio(mainPanelDevice) -- TACAN Channel
|
||||||
|
ExportScript.Tools.SendData(2002, (string.format("%0.2f", (mainPanelDevice:get_argument_value(263))) == "1.00" and "0" or "1")..ExportScript.Tools.round(mainPanelDevice:get_argument_value(264) * 10, 0)..ExportScript.Tools.round(mainPanelDevice:get_argument_value(265) * 10, 0)..(string.format("%1d", (mainPanelDevice:get_argument_value(266))) == "0" and "X" or "Y"))
|
||||||
|
--[266] = "%.4f", -- XYwheel
|
||||||
|
ExportScript.Tools.SendData(266, mainPanelDevice:get_argument_value(266) == 0 and 0 or 1)
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.FuelQuantityIndicator(mainPanelDevice) -- Fuel Quantity Indicator (Dual)
|
||||||
|
|
||||||
|
local lLeftFuel = ExportScript.Tools.round(mainPanelDevice:get_argument_value(22) * 2500, 0)
|
||||||
|
local lRightFuel = ExportScript.Tools.round(mainPanelDevice:get_argument_value(23) * 2500, 0)
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(2006, lLeftFuel)
|
||||||
|
ExportScript.Tools.SendData(2007, lRightFuel)
|
||||||
|
ExportScript.Tools.SendData(2008, lLeftFuel + lRightFuel)
|
||||||
|
end
|
||||||
|
|
||||||
|
function ExportScript.UhfRadioKnobs(mainPanelDevice) --AN/ARC-164 UHF
|
||||||
|
|
||||||
|
local lTmp327 = tonumber(string.format("%0.1f", mainPanelDevice:get_argument_value(327)))
|
||||||
|
local lTmp327_2 = lTmp327
|
||||||
|
if lTmp327 == 0.0 then lTmp327_2 = 0.0
|
||||||
|
elseif lTmp327 == 0.1 then lTmp327_2 = 0.3
|
||||||
|
elseif lTmp327 == 0.2 then lTmp327_2 = 0.2
|
||||||
|
elseif lTmp327 == 0.3 then lTmp327_2 = 0.1
|
||||||
|
else lTmp327_2 = lTmp327 end
|
||||||
|
|
||||||
|
local lTmp328_2 = 1 - mainPanelDevice:get_argument_value(328)
|
||||||
|
local lTmp329_2 = 1 - mainPanelDevice:get_argument_value(329)
|
||||||
|
local lTmp330_2 = 1 - mainPanelDevice:get_argument_value(330)
|
||||||
|
|
||||||
|
local lTmp331 = mainPanelDevice:get_argument_value(331)
|
||||||
|
local lTmp331_2 = 0
|
||||||
|
if lTmp331 == 0.0 then lTmp331_2 = 0.0
|
||||||
|
elseif lTmp331 == 0.25 then lTmp331_2 = 0.75
|
||||||
|
elseif lTmp331 == 0.5 then lTmp331_2 = 0.5
|
||||||
|
elseif lTmp331 == 0.75 then lTmp331_2 = 0.25
|
||||||
|
else lTmp331_2 = lTmp331 end
|
||||||
|
|
||||||
|
ExportScript.Tools.SendData(327, lTmp327_2)
|
||||||
|
ExportScript.Tools.SendData(328, lTmp328_2)
|
||||||
|
ExportScript.Tools.SendData(329, lTmp329_2)
|
||||||
|
ExportScript.Tools.SendData(330, lTmp330_2)
|
||||||
|
ExportScript.Tools.SendData(331, lTmp331_2)
|
||||||
|
end
|
||||||
|
|
||||||
|
----------------------
|
||||||
|
-- Helper Functions --
|
||||||
|
----------------------
|
||||||
|
|
||||||
|
function formatTime(time)
|
||||||
|
local seconds = math.floor(time) % 60
|
||||||
|
local minutes = math.floor(time / 60) % 60
|
||||||
|
local hours = math.floor(time / (60 * 60)) % 24
|
||||||
|
return string.format("%02d", hours) .. "-" .. string.format("%02d", minutes) .. "-" .. string.format("%02d", seconds)
|
||||||
|
end
|
||||||
|
|
||||||
|
function meters2feet(meters)
|
||||||
|
local feet = meters * 3.281
|
||||||
|
return feet
|
||||||
|
end
|
||||||
|
|
||||||
|
function feet2meters(feet)
|
||||||
|
local meters = feet / 3.281
|
||||||
|
return feet
|
||||||
|
end
|
||||||
|
|
||||||
|
function metersPerSecond2milesPerHour(metersPerSecond)
|
||||||
|
local milesPerHour = metersPerSecond * 2.237
|
||||||
|
return milesPerHour
|
||||||
|
end
|
||||||
|
|
||||||
|
function metersPerSecond2knots(metersPerSecond)
|
||||||
|
local knots = metersPerSecond * 1.944
|
||||||
|
return knots
|
||||||
|
end
|
||||||
|
|
||||||
|
function kgPerSecond2poundPerHour(kgPerSecond)
|
||||||
|
poundPerHour = kgPerSecond * 7937
|
||||||
|
return poundPerHour
|
||||||
|
end
|
||||||
|
|
||||||
|
function metersPerSecond2feetPerMinute(metersPerSecond)
|
||||||
|
local feetPerMinute = metersPerSecond * 197
|
||||||
|
return feetPerMinute
|
||||||
|
end
|
||||||
|
|
||||||
|
function round(num, numDecimalPlaces) --http://lua-users.org/wiki/SimpleRound
|
||||||
|
local mult = 10^(numDecimalPlaces or 0)
|
||||||
|
return math.floor(num * mult + 0.5) / mult
|
||||||
|
end
|
||||||
|
|
||||||
|
function format_int(number) --https://stackoverflow.com/questions/10989788/format-integer-in-lua
|
||||||
|
local i, j, minus, int, fraction = tostring(number):find('([-]?)(%d+)([.]?%d*)')
|
||||||
|
-- reverse the int-string and append a comma to all blocks of 3 digits
|
||||||
|
int = int:reverse():gsub("(%d%d%d)", "%1,")
|
||||||
|
-- reverse the int-string back remove an optional comma and put the
|
||||||
|
-- optional minus and fractional part back
|
||||||
|
return minus .. int:reverse():gsub("^,", "") .. fraction
|
||||||
|
end
|
||||||
|
|
||||||
|
function formatCoord(type, isLat, d)
|
||||||
|
local h
|
||||||
|
if isLat then
|
||||||
|
if d < 0 then
|
||||||
|
h = 'S'
|
||||||
|
d = -d
|
||||||
|
else
|
||||||
|
h = 'N'
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if d < 0 then
|
||||||
|
h = 'W'
|
||||||
|
d = -d
|
||||||
|
else
|
||||||
|
h = 'E'
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
local g = math.floor(d)
|
||||||
|
local m = math.floor(d * 60 - g * 60)
|
||||||
|
local s = d * 3600 - g * 3600 - m * 60
|
||||||
|
|
||||||
|
if type == "DMS" then -- Degree Minutes Seconds
|
||||||
|
s = math.floor(s * 100) / 100
|
||||||
|
return string.format('%s %2d°%.2d\'%05.2f"', h, g, m, s)
|
||||||
|
elseif type == "DDM" then -- Degree Decimal Minutes
|
||||||
|
s = math.floor(s / 60 * 1000)
|
||||||
|
return string.format('%s %2d°%02d.%3.3d\'', h, g, m, s)
|
||||||
|
else -- Decimal Degrees
|
||||||
|
return string.format('%f',d)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
|
||||||
|
function getdistance(lat1,lat2,lon1,lon2,unit) -- https://www.geeksforgeeks.org/program-distance-two-points-earth/
|
||||||
|
--Example Locations
|
||||||
|
--lat1 = 42.1578 -- POTI
|
||||||
|
--lat2 = 42.3269 -- HONI
|
||||||
|
--lon1 = 41.6777
|
||||||
|
--lon2 = 42.4122
|
||||||
|
|
||||||
|
local lon1 = toRadians(lon1)
|
||||||
|
local lon2 = toRadians(lon2)
|
||||||
|
local lat1 = toRadians(lat1)
|
||||||
|
local lat2 = toRadians(lat2)
|
||||||
|
|
||||||
|
-- Haversine formula
|
||||||
|
local dlon = lon2 - lon1
|
||||||
|
local dlat = lat2 - lat1
|
||||||
|
local a = math.pow(math.sin(dlat / 2), 2) +
|
||||||
|
math.cos(lat1) * math.cos(lat2) *
|
||||||
|
math.pow(math.sin(dlon / 2),2)
|
||||||
|
|
||||||
|
local c = 2 * math.asin(math.sqrt(a))
|
||||||
|
|
||||||
|
local r -- Radius of earth in X.
|
||||||
|
if unit == 'nm' then
|
||||||
|
r = 6371 / 1.852 -- times 1.852 because I could not find a good NM source
|
||||||
|
elseif unit == 'km' then
|
||||||
|
r = 6371 -- Use 6371 for kilometers
|
||||||
|
elseif unit == 'miles' then
|
||||||
|
r = 3956 -- Use 3956 for miles
|
||||||
|
elseif unit == 'meters' then
|
||||||
|
r = 6371 * 1000
|
||||||
|
end
|
||||||
|
|
||||||
|
-- calculate the result
|
||||||
|
return (c * r)
|
||||||
|
end
|
||||||
|
|
||||||
|
function toRadians(angleIn10thofaDegree)
|
||||||
|
return (angleIn10thofaDegree * math.pi) / 180
|
||||||
|
end
|
||||||
|
|
||||||
|
|
||||||
|
function getBearing(lat1,lat2,lon1,lon2, magnetic)
|
||||||
|
local bearing_rad = math.atan2(lon2 - lon1, lat2 - lat1)
|
||||||
|
if bearing_rad < 0 then
|
||||||
|
bearing_rad = bearing_rad + (2 * math.pi)
|
||||||
|
end
|
||||||
|
|
||||||
|
bearing = math.deg(bearing_rad)
|
||||||
|
|
||||||
|
-- start calculation for getting the magnetic bar
|
||||||
|
local _aircraftPitch, _aircraftBank, aircraftYawTrue = LoGetADIPitchBankYaw()
|
||||||
|
aircraftYawTrue = aircraftYawTrue * 57.3 -- actually heading
|
||||||
|
local aircraftYawMagnetic = LoGetMagneticYaw() * 57.3
|
||||||
|
local magneticVariance = aircraftYawTrue - aircraftYawMagnetic
|
||||||
|
|
||||||
|
if magnetic == true then
|
||||||
|
bearing = bearing - magneticVariance
|
||||||
|
end
|
||||||
|
|
||||||
|
-- correction for bearings less than 0 due to the calculation above
|
||||||
|
if bearing < 0 then
|
||||||
|
bearing = bearing + 360
|
||||||
|
end
|
||||||
|
|
||||||
|
return bearing
|
||||||
|
end
|
||||||
|
|
||||||
|
function addZeros3(number)
|
||||||
|
number = string.format("%.1d" , number)
|
||||||
|
if #number == 2 then
|
||||||
|
number = "0" .. number
|
||||||
|
elseif #number == 1 then
|
||||||
|
number = "00" .. number
|
||||||
|
end
|
||||||
|
return number
|
||||||
|
end
|
||||||
|
|
||||||
|
function prefixZerosFixedLength(number, digitLength) -- prefixZerosFixedLength(99, 3) --> 099
|
||||||
|
number = string.format("%.1d" , number) -- make the number a string
|
||||||
|
local zerosToAdd = digitLength - #number
|
||||||
|
s = ''
|
||||||
|
for i = 1, zerosToAdd do
|
||||||
|
s = s .. 0
|
||||||
|
end
|
||||||
|
return s .. number
|
||||||
|
end
|
||||||
|
|
||||||
|
function mgrsTableize(mgrsString)
|
||||||
|
-- Reference: https://upload.wikimedia.org/wikipedia/commons/b/b7/Universal_Transverse_Mercator_zones.svg
|
||||||
|
-- example: 38 T LM 12345 54321
|
||||||
|
-- (\d+\s\w)\s(\w+)\s(.+)\s(.+) --c# version of regex
|
||||||
|
-- UTMZone = string,
|
||||||
|
-- MGRSDigraph = string,
|
||||||
|
-- Easting = number,
|
||||||
|
-- Northing = number
|
||||||
|
local UTMZone , MGRSDigraph, Easting, Northing = mgrsString:match('(%d+%s%w)%s(%w+)%s(.+)%s(.+)')
|
||||||
|
local mgrsTbl = {}
|
||||||
|
table.insert(mgrsTbl, {UTMZone,MGRSDigraph,Easting,Northing})
|
||||||
|
return mgrsTbl
|
||||||
|
end
|
||||||
Loading…
x
Reference in New Issue
Block a user