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
|
||||
|
||||
local base = _G -- game information
|
||||
local os = base.os -- time
|
||||
local Terrain = require('terrain') -- map info
|
||||
|
||||
ExportScript.FoundDCSModule = true
|
||||
ExportScript.Version.F5E3 = "1.2.1"
|
||||
|
||||
@ -501,33 +505,12 @@ ExportScript.ConfigArguments =
|
||||
|
||||
-- Pointed to by ProcessIkarusDCSHighImportance
|
||||
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}
|
||||
ExportScript.Tools.SendData(443, ExportScript.Tools.negate(mainPanelDevice:get_argument_value(443)))
|
||||
end
|
||||
|
||||
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
|
||||
|
||||
-----------------------------------------------------
|
||||
@ -537,95 +520,27 @@ end
|
||||
|
||||
-- Pointed to by ExportScript.ProcessIkarusDCSConfigLowImportance
|
||||
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.Tools.SendData(2001, lUHFRadio_PRESET[ExportScript.Tools.round(mainPanelDevice:get_argument_value(300), 2)])
|
||||
ExportScript.UhfRadio(mainPanelDevice) -- AN/ARC-164 UHF
|
||||
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
|
||||
|
||||
--[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
|
||||
|
||||
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
|
||||
---------------------------------------------------
|
||||
@ -713,6 +628,822 @@ function ExportScript.ProcessDACConfigLowImportance(mainPanelDevice)
|
||||
]]
|
||||
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