s-d-a/DCS-ExportScripts
1
0
Fork 0
mirror of https://github.com/s-d-a/DCS-ExportScripts.git synced 2025-10-29 16:59:03 +00:00
Code Issues Packages Projects Releases Wiki Activity
DCS-ExportScripts/ExportsModules/F-15C.lua
mcmicha 3e545e6c53 Changes for the DCS Version 1.5.2 
This is the last version for HT.
2016-01-24 17:06:15 +01:00

1410 lines
56 KiB
Lua
Raw Blame History

-- F-15C Export
-- Version 0.9.9 BETA
gES_FoundFCModule = true
-- auxiliary function
dofile(gES_ExportModulePath.."FC_AuxiliaryFuntions.lua")
-----------------------------------------
-- FLAMING CLIFFS AIRCRAFT / F-15C --
-- FC aircraft don't support GetDevice --
-----------------------------------------
function ProcessGlassCockpitFCHighImportanceConfig()
local myData = LoGetSelfData()
if (myData) then
local lLatitude = myData.LatLongAlt.Lat -- LATITUDE
local lLongitude = myData.LatLongAlt.Long -- LONGITUDE
local lBasicAtmospherePressure = LoGetBasicAtmospherePressure() -- BAROMETRIC PRESSURE
local lAltBar = LoGetAltitudeAboveSeaLevel() -- ALTITUDE SEA LEVEL (Meter)
local lAltRad = LoGetAltitudeAboveGroundLevel() -- ALTITUDE GROUND LEVEL (Meter)
--local lTrueAirSpeed = LoGetTrueAirSpeed() -- TRUE AIRSPEED (Meter/Second)
local lPitch, lBank, lYaw = LoGetADIPitchBankYaw() -- PITCH, BANK, YAW (Radian)
local lHeading = myData.Heading -- HEADING (Radian)
local lVVI = LoGetVerticalVelocity() -- VERTICAL SPEED (Meter/Second)
local lIAS = LoGetIndicatedAirSpeed() -- INDICATED AIRSPEED (Meter/Second)
local lMachNumber = LoGetMachNumber() -- MACH
local lAoA = LoGetAngleOfAttack() -- ANGLE OF ATTACK AoA (Radian)
local lGlide = LoGetGlideDeviation() -- VOR1 HORIZONTAL DEFLECTION (-1 +1)
local lSide = LoGetSideDeviation() -- VOR1 VERTICAL DEFLECTION (-1 +1)
--local lSlipBallPosition = LoGetSlipBallPosition() -- SLIP BALL (-1 +1)
local lAccelerationUnits = LoGetAccelerationUnits().y -- G-LOAD
--local lMagneticYaw = LoGetMagneticYaw() -- Magnetic Yaw(Radian)
--local lNavInfoPitch = LoGetNavigationInfo().Requirements.pitch -- AP REQUIRED PITCH (Radian)
--local lNavInfoRoll = LoGetNavigationInfo().Requirements.roll -- AP REQUIRED BANK (Radian)
--local lNavInfoSpeed = LoGetNavigationInfo().Requirements.speed -- AP SPEED (Meter/Second)
--local lNavInfoAltitude = LoGetNavigationInfo().Requirements.altitude -- AP ALTITUDE (Meter)
--local lNavInfoVerticalSpeed = LoGetNavigationInfo().Requirements.vertical_speed -- AP VERTICAL SPEED (Meter/Second)
--local lControlPanel_HSI = LoGetControlPanel_HSI() -- HSI Data
local lHSI_RMI = LoGetControlPanel_HSI().RMI_raw -- VOR1 OBS (Radian)
local lHSI_ADF = LoGetControlPanel_HSI().ADF_raw -- ADF OBS (Radian)
--local lHSI_Heading = LoGetControlPanel_HSI().Heading_raw -- Heading (Radian)
local lEngineRPMleft = LoGetEngineInfo().RPM.left -- ENG1 RPM %
local lEngineRPMright = LoGetEngineInfo().RPM.right -- ENG2 RPM %
local lEngineTempLeft = LoGetEngineInfo().Temperature.left -- ENG1 EGT <20>C
local lEngineTempRight = LoGetEngineInfo().Temperature.right -- ENG2 EGT <20>C
local lEngineFuelConsumptionLeft = LoGetEngineInfo().FuelConsumption.left
local lEngineFuelConsumptionRight = LoGetEngineInfo().FuelConsumption.right
local lEngineHydraulicPressureLeft = LoGetEngineInfo().HydraulicPressure.left
local lEngineHydraulicPressureRight = LoGetEngineInfo().HydraulicPressure.right
local lEngineFuelInternal = LoGetEngineInfo().fuel_internal -- TANK1 (INT) (KG)
local lEngineFuelExternal = LoGetEngineInfo().fuel_external -- TANK2 (EXT) (KG)
--local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,...
--local lPayloadInfo = LoGetPayloadInfo() -- Paylod, e.g. bombs, guns, rockets, fuel tanks,...
local lDistanceToWay = 999
local lRoute = LoGetRoute()
if (myData and lRoute) then -- if neither are nil
local myLoc = LoGeoCoordinatesToLoCoordinates(lLongitude, lLatitude)
--lDistanceToWay = math.sqrt((myLoc.x - lRoute.goto_point.world_point.x)^2 + (myLoc.y - lRoute.goto_point.world_point.y)^2)
lDistanceToWay = math.sqrt((myLoc.x - lRoute.goto_point.world_point.x)^2 + (myLoc.z - lRoute.goto_point.world_point.z)^2)
end
if gES_GlassCockpitType == 1 then
-- HELIOS Version 1.3
-- customizing for HELOS
--lBasicAtmospherePressure = lBasicAtmospherePressure * 0.03937 -- BAROMETRIC PRESSURE (MM TO IN)
--lTrueAirSpeed = lTrueAirSpeed * 1.94 -- TRUE AIRSPEED (M/S TO KNOTS)
lAltBar = lAltBar --* 3.28084 -- ALTITUDE SEA LEVEL (MTS TO FT)
lAltRad = lAltRad * 3.28084 -- ALTITUDE GROUND LEVEL (MTS TO FT)
lVVI = lVVI --* 196.8504 -- VERTICAL SPEED (M/S TO FPM)
lIAS = lIAS * 1.9438444924574 -- INDICATED AIRSPEED (M/S TO KNOTS)
lPitch = math.deg(lPitch) -- PITCH, (Radian to Grad)
lBank = math.deg(lBank) -- BANK (Radian to Grad)
lYaw = math.deg(lYaw) -- YAW (Radian to Grad)
lHSI_RMI = math.deg(lHSI_RMI) -- VOR1 OBS (Radian to Grad)
lHSI_ADF = math.deg(lHSI_ADF) -- ADF OBS (Radian to Grad)
lAoA = math.deg(lAoA) -- ANGLE OF ATTACK AoA (Radian to Grad)
lHeading = math.deg(lHeading) -- Heading (Radian to Grad)
lHSI_ADF = 360 - lHSI_ADF --(360 - lHSI_ADF) + (360 - lHeading)
lHSI_RMI = 360 - lHSI_RMI
local lnavInfo = LoGetNavigationInfo()
SendData("1", string.format("%.2f", lPitch) )
SendData("2", string.format("%.2f", lBank) )
SendData("3", string.format("%.2f", lYaw) )
SendData("4", string.format("%.2f", lAltBar) )
SendData("5", string.format("%.2f", lAccelerationUnits) )
SendData("6", string.format("%.2f", lHSI_ADF) )
SendData("7", string.format("%.2f", lHSI_RMI) )
SendData("8", string.format("%.2f", lHeading) )
SendData("9", string.format("%.2f", (math.floor(lEngineFuelInternal) + (lEngineRPMleft /1000))) )
SendData("10", string.format("%.2f", (math.floor(lEngineFuelExternal) + (lEngineRPMright /1000))) )
SendData("11", string.format("%.2f", (math.floor(lEngineFuelInternal + lEngineFuelExternal) + (lEngineTempLeft/1000))) )
if math.floor(lRoute.goto_point.world_point.x) < 0 then
SendData("12", string.format("%.4f", (math.floor(lRoute.goto_point.world_point.x) - (lEngineRPMright/1000)) ) ) --x coord + eng temp left in eng temp rifgt import data
else
SendData("12", string.format("%.4f", (math.floor(lRoute.goto_point.world_point.x) + (lEngineTempLeft/1000)) ) ) --x coord + eng temp left in eng temp rifgt import data
end
--SendData("12", string.format("%.2f", lEngineTempRight) )
SendData("13", string.format("%.2f", lVVI) )
SendData("14", string.format("%.2f", (math.floor(lDistanceToWay) + (lIAS /10000))) ) --distance to way + ias in IAS import data
SendData("15", string.format("%s", lnavInfo.SystemMode.master .." / ".. lnavInfo.SystemMode.submode)) -- HUD MODE and SUBMODE in distancetoway import data
--SendData("15", string.format("%.2f", lDistanceToWay) )
SendData("16", string.format("%.2f", lAoA) )
SendData("17", string.format("%.2f", lGlide) )
SendData("18", string.format("%.2f", lSide) )
elseif gES_GlassCockpitType == 2 then
-- HawgTouch version 1.6
-- Barometrisic Altimeter
--local lAltCounter = {[0] = 0.0, [1] = 0.11, [2] = 0.22, [3] = 0.33, [4] = 0.44, [5] = 0.55, [6] = 0.66, [7] = 0.77, [8] = 0.88, [9] = 0.99}
local lAltCounter = {[0] = 0.0, [1] = 0.1, [2] = 0.2, [3] = 0.3, [4] = 0.4, [5] = 0.5, [6] = 0.6, [7] = 0.7, [8] = 0.8, [9] = 0.9}
--local lAltBarTmp2 = string.format("%03d", ((lAltBar * 3.28084) / 100)) -- meter to feeds
lAltBar = lAltBar - (9.5 * (760 - lBasicAtmospherePressure)) -- 9.5 m per 1mmHg difference
local lAltBarTmp = lAltBar * 3.28084 -- meter to feeds
local lAltBarTmp2 = ((lAltBar * 3.28084) / 100) -- meter to feeds
lAltBarTmp = lAltBarTmp / 1000
lAltBarTmp = lAltBarTmp - math.round(lAltBarTmp, 0, "floor")
local lAltCounter1 = 0
local lAltCounter2 = 0
local lAltCounter3 = 0
local lAltCounter4 = 0
local lAltBarTmp3 = string.format("%03d", lAltBarTmp2)
--[[
if lAltBarTmp2 > 10000 then
lAltCounter1 = math.round((lAltBarTmp2 / 10000), 0, "floor") * 0.1
lAltCounter1 = lAltCounter1 - math.round(lAltCounter1, 0, "floor")
end
if lAltBarTmp2 > 1000 then
lAltCounter2 = math.round((lAltBarTmp2 / 1000), 0, "floor") * 0.1
lAltCounter2 = lAltCounter2 - math.round(lAltCounter1, 0, "floor")
end
if lAltBarTmp2 > 100 then
if lAltBarTmp2 > 100 then
lAltCounter3 = (math.round((lAltBarTmp2 - (math.round(lAltBarTmp2 / 100, 0, "floor") * 100)), 0, "floor") / 10) * 0.1
else
lAltCounter3 = (lAltBarTmp2 / 100) * 0.1
lAltCounter3 = lAltCounter3 - math.round(lAltCounter3, 0, "floor")
end
end
if lAltBarTmp2 > 10 then
lAltCounter4 = (lAltBarTmp2 - (math.round(lAltBarTmp2 / 10, 0, "floor") * 10)) * 0.1
else
lAltCounter4 = lAltBarTmp2 --* 0.1
end]]
lAltCounter4 = lAltBarTmp * 10
if lAltCounter4 > 1.0 then
lAltCounter4 = lAltCounter4 - math.round(lAltCounter4, 0, "floor")
end
-- AltBar {0.0,1.0}
-- AltBar_10000 {0.0,1.0}
-- AltBar_1000 {0.0,1.0}
-- AltBar_100 {0.0,1.0}
-- AltBar_10 {0.0,1.0}
SendData(1, string.format("%.4f;%.2f;%.2f;%.2f;%.2f",
lAltBarTmp,
--lAltCounter1,
--lAltCounter2,
--lAltCounter3,
--lAltCounter4,
lAltCounter[tonumber(string.sub(lAltBarTmp3, 1, 1))],
lAltCounter[tonumber(string.sub(lAltBarTmp3, 2, 2))],
lAltCounter[tonumber(string.sub(lAltBarTmp3, 3, 3))],
--lAltCounter[tonumber(string.sub(lAltBarTmp3, 4, 4))],
lAltCounter4))
-- Barometrisic Altimeter end
-- Air Speed Indicator (IAS, Mach)
--[[
y_min = 0.0 -- minimaler Ausgabewert
y_max = 1.0 -- maximaler Ausgabewert
x_min = 0.0 -- minimaler Eingangswert
x_max = 514,44444443999953012349519517095 -- maximaler Eingangswert
x = 257.0 -- aktueller Eingangswert
d_y = 1.0 -- Delta Ausgabewerte (y_max - y_min)
d_x = 514,44444443999953012349519517095 -- Delta Eingangswerte (x_max - x_min)
m = 0.0019438444924574 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.4995680345615518 -- Ergebnis (m * x + n)
]]
lIAS = 0.0019438444924574 * lIAS
if lMachNumber < 1.01 then
--[[
y_min = 0.0 0.1 -- minimaler Ausgabewert
y_max = 0.1 1.0 -- maximaler Ausgabewert
x_min = 0.0 1.0 -- minimaler Eingangswert
x_max = 1.0 3.6 -- maximaler Eingangswert
x = 0.5 2.0 -- aktueller Eingangswert
d_y = 0.1 0.9 -- Delta Ausgabewerte (y_max - y_min)
d_x = 1.0 2.6 -- Delta Eingangswerte (x_max - x_min)
m = 0.1 0.34615384615384615384615384615385 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 -0.24615384615384615384615384615385 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.05 0.44615384615384615384615384615384 -- Ergebnis (m * x + n)
]]
lMachNumber = 0.1 * lMachNumber
else
lMachNumber = 0.34615384615384615384615384615385 * lMachNumber + -0.24615384615384615384615384615385
end
-- IAS {0.0,1.0}
-- MachNumber
SendData(2, string.format("%.4f;%.4f", lIAS, lMachNumber))
-- Air Speed Indicator End
-- RPM Engine Left
FC_OneNeedleGauge3Digits(lEngineRPMleft, 110, 0, 3)
-- RPM Engine Right
FC_OneNeedleGauge3Digits(lEngineRPMright, 110, 0, 4)
-- Oil Pressure Left, no value but similar to Engine RPM
--[[
y_min = 0.0 0.76 -- minimaler Ausgabewert
y_max = 0.76 1.0 -- maximaler Ausgabewert
x_min = 0.0 74.0 -- minimaler Eingangswert
x_max = 74.0 95.0 -- maximaler Eingangswert
x = 74.0 90.0 -- aktueller Eingangswert
d_y = 0.76 0.24 -- Delta Ausgabewerte (y_max - y_min)
d_x = 74.0 21.0 -- Delta Eingangswerte (x_max - x_min)
m = 0.01027027027027027027027027027027 0.01142857142857142857142857142857 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 -0.08571428571428571428571428571415 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.7599999 0.943-- Ergebnis (m * x + n)
]]
if lEngineRPMleft < 74 then
FC_OneNeedleGauge(1.027027027027027027027027027027 * lEngineRPMleft, 100, 11)
else
FC_OneNeedleGauge(1.142857142857142857142857142857 * lEngineRPMleft + -8.571428571428571428571428571415, 100, 11)
end
-- Oil Pressure Right, no value but similar to Engine RPM
if lEngineRPMright < 74 then
FC_OneNeedleGauge(1.027027027027027027027027027027 * lEngineRPMright, 100, 12)
else
FC_OneNeedleGauge(1.142857142857142857142857142857 * lEngineRPMright + -8.571428571428571428571428571415, 100, 12)
end
-- Engine Exhaust Nozzle Position Indicator Left, very imprecise
--[[
y_min = 0.0 -- minimaler Ausgabewert
y_max = 0.76 -- maximaler Ausgabewert
x_min = 95.0 -- minimaler Eingangswert
x_max = 96.0 -- maximaler Eingangswert
x = 95.5 -- aktueller Eingangswert
d_y = 0.76 -- Delta Ausgabewerte (y_max - y_min)
d_x = 1.0 -- Delta Eingangswerte (x_max - x_min)
m = 0.76 -- Steigung der linearen Funktion (d_y / d_x)
n = -72.2 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.5 -- Ergebnis (m * x + n)
]]
if lEngineRPMleft > 95.0 then
FC_OneNeedleGauge((0.76 * lEngineRPMleft + -72.2) * 100, 100, 5)
else
FC_OneNeedleGauge(0, 100, 5)
end
-- Engine Exhaust Nozzle Position Indicator Right, very imprecise
if lEngineRPMright > 95.0 then
FC_OneNeedleGauge((0.76 * lEngineRPMright + -72.2) * 100, 100, 6)
else
FC_OneNeedleGauge(0, 100, 6)
end
-- Exaust Gas Temperature Left
FC_F15C_ExaustGasTemp(lEngineTempLeft - 1.4, 7)
-- Exaust Gas Temperature Right
FC_F15C_ExaustGasTemp(lEngineTempLeft - 1.4, 8)
-- Fuel Flow Left
FC_OneNeedleGauge3Digits((lEngineFuelConsumptionLeft * 2.2046223302272) * 3600, 10000, 2, 9)
-- Fuel Flow Right
FC_OneNeedleGauge3Digits((lEngineFuelConsumptionRight * 2.2046223302272) * 3600, 10000, 2, 10)
-- Hydraulic Pressure Left
FC_OneNeedleGauge(lEngineHydraulicPressureLeft, 100, 13)
-- Hydraulic Pressure Right
FC_OneNeedleGauge(lEngineHydraulicPressureRight, 100, 14)
-- VVI
FC_US_VVI(15)
-- AOA
--FC_US_AOA(16)
--WriteToLog('lAoA 1: '..dump(lAoA))
--local lAoATmp = math.deg(lAoA) + 10
--WriteToLog('lAoA 2: '..dump(lAoATmp))
--[[
y_min = 0.0 -- minimaler Ausgabewert
y_max = 1.0 -- maximaler Ausgabewert
x_min = 0.0 -- minimaler Eingangswert
x_max = 45.0 -- maximaler Eingangswert
x = 12.6 -- aktueller Eingangswert
d_y = 1.0 -- Delta Ausgabewerte (y_max - y_min)
d_x = 45.0 -- Delta Eingangswerte (x_max - x_min)
m = 0.02222222222222222222222222222222 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0000000000000000000000000000001 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.2800000000000000000000000000001 -- Ergebnis (m * x + n)
]]
--lAoATmp = 0.02222222222222222222222222222222 * lAoATmp + 0.0000000000000000000000000000001
--SendData(16, string.format("%.4f;%d", lAoATmp, 0) )
WriteToLog('lAoA: '..dump(lAoA))
if lAoA > 0.0 then -- positive AOA
--[[
y_min = 0.22 -- minimaler Ausgabewert
y_max = 1.0 -- maximaler Ausgabewert
x_min = 0.0 -- minimaler Eingangswert
x_max = 35.0 -- maximaler Eingangswert
x = 12.6 -- aktueller Eingangswert
d_y = 0.78 -- Delta Ausgabewerte (y_max - y_min)
d_x = 35.0 -- Delta Eingangswerte (x_max - x_min)
m = 0.02228571428571428571428571428571 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.22 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.50079999999999999999999999999995 -- Ergebnis (m * x + n)
]]
lAoA = 0.02228571428571428571428571428571 * lAoA + 0.22
SendData(16, string.format("%.4f;%d", lAoA, 0) )
else
--[[
y_min = 0.0 -- minimaler Ausgabewert
y_max = 0.22 -- maximaler Ausgabewert
x_min = 0.0 -- minimaler Eingangswert
x_max = -10.0 -- maximaler Eingangswert
x = -2.6 -- aktueller Eingangswert
d_y = 0.22 -- Delta Ausgabewerte (y_max - y_min)
d_x = -10.0 -- Delta Eingangswerte (x_max - x_min)
m = -0.022 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.1628 -- Ergebnis 0.22 - (m * x + n)
]]
lAoA = 0.22 - (-0.022 * lAoA)
SendData(16, string.format("%.4f;%d", lAoA, 0) )
end
-- G-LOAD
FC_US_GLOAD(17)
-- Clock
FC_US_Clock(18)
-- Standby Compass
FC_US_Compass(19)
-- ADI
FC_US_ADI(20)
-- Standby ADI
FC_US_stbyADI(21)
-- HSI
FC_US_HSI(lDistanceToWay, 22)
-- Hydraulic Pressure Util, no value but similar to Engine Hydraulic Pressure (left or right)
local lEngineHydraulicPressure = lEngineHydraulicPressureLeft
lEngineHydraulicPressure = lEngineHydraulicPressureRight > lEngineHydraulicPressureLeft and lEngineHydraulicPressureRight or lEngineHydraulicPressureLeft
FC_OneNeedleGauge(lEngineHydraulicPressure, 100, 23)
-- Standby Barometrisic Altimeter
--lAltBarTmp = lAltBar - (9.5 * (760 - lBasicAtmospherePressure)) -- 9.5 m per 1mmHg difference, has been calculated
lAltBarTmp = lAltBar * 3.28084 -- meter to feeds
local AltBar_kilofeet_needle = 0
local AltBar_hektofeet_needle = 0
local AltBar_dafeet_needle = 0
if lAltBarTmp > 1000 then
AltBar_kilofeet_needle = lAltBarTmp / 10000
end
if lAltBarTmp > 10000 then
AltBar_hektofeet_needle = (lAltBarTmp - (math.round(lAltBarTmp / 10000, 0, "floor") * 10000)) / 1000
else
AltBar_hektofeet_needle = lAltBarTmp / 1000
end
if lAltBarTmp > 1000 then
AltBar_dafeet_needle = (lAltBarTmp - (math.round(lAltBarTmp / 1000, 0, "floor") * 1000)) / 100
else
AltBar_dafeet_needle = lAltBarTmp / 100
end
--[[
y_min = 0.0 -- minimaler Ausgabewert
y_max = 1.0 -- maximaler Ausgabewert
x_min = 0.0 -- minimaler Eingangswert
x_max = 10.0 -- maximaler Eingangswert
x = 2.5 -- aktueller Eingangswert
d_y = 1.0 -- Delta Ausgabewerte (y_max - y_min)
d_x = 10.0 -- Delta Eingangswerte (x_max - x_min)
m = 0.1 -- Steigung der linearen Funktion (d_y / d_x)
n = 0.0 -- Schnittpunkt der Funktion mit y-Achse (y_max - m * x_max)
y = 0.25 -- Ergebnis (m * x + n)
]]
AltBar_kilofeet_needle = 0.1 * AltBar_kilofeet_needle
AltBar_hektofeet_needle = 0.1 * AltBar_hektofeet_needle
AltBar_dafeet_needle = 0.1 * AltBar_dafeet_needle
-- AltBar_kilofeet_needle {0.0,1.0}
-- AltBar_hektofeet_needle {0.0,1.0}
-- AltBar_dafeet_needle {0.0,1.0}
SendData(24, string.format("%.4f;%.4f;%0.4f",
AltBar_kilofeet_needle,
AltBar_hektofeet_needle,
AltBar_dafeet_needle))
-- Standby Barometrisic Altimeter end
-- Standby Air Speed Indicator (IAS, Mach)
-- value has been calculated (from top)
-- IAS {0.0,1.0}
SendData(25, string.format("%.4f", lIAS))
-- Standby Air Speed Indicator End
end
else
WriteToLog("Unknown FC Error, no LoGetSelfData.")
end
end
function ProcessHARDWAREConfigHighImportance(mainPanelDevice)
--[[
local lPayloadInfo = LoGetPayloadInfo()
WriteToLog('lPayloadInfo: '..dump(lPayloadInfo))
local lSnares = LoGetSnares() -- Flare and Chaff
WriteToLog('lSnares: '..dump(lSnares))
local lSightingSystemInfo = LoGetSightingSystemInfo()
WriteToLog('lSightingSystemInfo: '..dump(lSightingSystemInfo))
local lTWSInfo = LoGetTWSInfo() -- SPO Informationen, z.B. Radarwarner F15C
WriteToLog('lTWSInfo: '..dump(lTWSInfo))
local lTargetInformation = LoGetTargetInformation() -- detalierte Radar Infos z.B. F15C
WriteToLog('lTargetInformation: '..dump(lTargetInformation))
local lLockedTargetInformation = LoGetLockedTargetInformation()
WriteToLog('lLockedTargetInformation: '..dump(lLockedTargetInformation))
local lF15_TWS_Contacs = LoGetF15_TWS_Contacts() -- the same information but only for F-15 in TWS mode
WriteToLog('lF15_TWS_Contacs: '..dump(lF15_TWS_Contacs))
local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,...
WriteToLog('lMechInfo: '..dump(lMechInfo))
local lMCPState = LoGetMCPState() -- Warnlichter
WriteToLog('lMCPState: '..dump(lMCPState))
local lControlPanel_HSI = LoGetControlPanel_HSI()
WriteToLog('lControlPanel_HSI: '..dump(lControlPanel_HSI))
local lRadioBeaconsStatus = LoGetRadioBeaconsStatus()
WriteToLog('lRadioBeaconsStatus: '..dump(lRadioBeaconsStatus))
local lEngineInfo = LoGetEngineInfo()
WriteToLog('lEngineInfo: '..dump(lEngineInfo))
]]
end
function ProcessGlassCockpitFCLowImportanceConfig()
local lEngineFuelInternal = LoGetEngineInfo().fuel_internal -- TANK1 (INT) (KG)
local lEngineFuelExternal = LoGetEngineInfo().fuel_external -- TANK2 (EXT) (KG)
local lEngineRPMleft = LoGetEngineInfo().RPM.left -- ENG1 RPM %
local lEngineRPMright = LoGetEngineInfo().RPM.right -- ENG2 RPM %
local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,...
local lPayloadInfo = LoGetPayloadInfo() -- Paylod, e.g. bombs, guns, rockets, fuel tanks,...
if gES_GlassCockpitType == 1 then
-- HELIOS Version 1.3
elseif gES_GlassCockpitType == 2 then
-- HawgTouch version 1.6
-- Gear Lamps
local lGearValue = lMechInfo.gear.value
local lGear1, lGear2, lGear3 = 0, 0, 0
if lGearValue > 0.85 then
lGear1 = 1
end
if lGearValue > 0.9 then
lGear2 = 1
end
if lGearValue == 1.0 then
lGear3 = 1
end
SendData(26, string.format("%d;%d;%d",
lGear1, -- GEAR_N_SAFE
lGear2, -- GEAR_L_SAFE
lGear3)) -- GEAR_R_SAFE
-- Gear Lamps end
-- Fuel Indicator
local lEngineFuelTotal = (lEngineFuelInternal + lEngineFuelExternal) * 2.2046223302272 -- kg to lbs
local lFuelNeedle = lEngineFuelTotal / 12000 -- 12000 = scala
lFuelNeedle = (lFuelNeedle > 1.0 and 1.0 or lFuelNeedle)
--lEngineFuelTotal = math.round(lEngineFuelTotal, 0, "floor")
--[[
local lFuelCounter1 = 0
local lFuelCounter2 = 0
local lFuelCounter3 = 0
if lEngineFuelInternal > 100 then
lFuelCounter1 = math.round((lEngineFuelInternal / 100), 0, "floor") * 0.11
lFuelCounter1 = lFuelCounter1 - math.round(lFuelCounter1, 0, "floor")
end
if lEngineFuelInternal > 10 then
if lEngineFuelInternal > 100 then
lFuelCounter2 = (math.round((lEngineFuelInternal - (math.round(lEngineFuelInternal / 100, 0, "floor") * 100)), 0, "floor") / 10) * 0.11
else
lFuelCounter2 = (lEngineFuelInternal / 10) * 0.11
lFuelCounter2 = lFuelCounter2 - math.round(lFuelCounter2, 0, "floor")
end
end
if lEngineFuelInternal > 10 then
lFuelCounter3 = (lEngineFuelInternal - (math.round(lEngineFuelInternal / 10, 0, "floor") * 10)) * 0.11
else
lFuelCounter3 = lEngineFuelInternal * 0.11
end
]]
local lFuelCounterLeft = 1200
local lFuelCounterRight = 1500
if lEngineRPMleft > 0 then
if lEngineRPMright > 0 then
if lEngineFuelTotal < 2700 then
lFuelCounterLeft = lEngineFuelTotal * 0.44444444444444444444444444444444
end
else
if lEngineFuelTotal < 1200 then
lFuelCounterLeft = lEngineFuelTotal
end
end
end
if lEngineRPMright > 0 then
if lEngineRPMleft > 0 then
if lEngineFuelTotal < 2700 then
lFuelCounterRight = lEngineFuelTotal * 0.55555555555555555555555555555556
end
else
if lEngineFuelTotal < 1500 then
lFuelCounterRight = lEngineFuelTotal
end
end
end
--lFuelCounterLeft = math.round(lFuelCounterLeft, 0, "floor")
--lFuelCounterRight = math.round(lFuelCounterRight, 0, "floor")
SendData(27, string.format("%04d;%04d;%05d;%.4f",
lFuelCounterLeft,
lFuelCounterRight,
lEngineFuelTotal,
lFuelNeedle))
-- Fuel Indicator end
FC_US_RWR(28)
end
end
function ProcessHARDWAREConfigLowImportance(mainPanelDevice)
-- where necessary, specify HardwareID, example SightingSystem(2)
SightingSystem()
FuelQuantityIndicator()
StatusLamp()
MechanicalDevicesIndicator()
FlareChaff()
WeaponStatusPanel()
RWRlite()
end
-----------------------------
-- Custom functions --
-----------------------------
function SightingSystem(hardware)
local lHardware = hardware or 1
local lSightingSystemInfo = LoGetSightingSystemInfo()
if lSightingSystemInfo == nil then
return
end
--WriteToLog('lSightingSystemInfo: '..dump(lSightingSystemInfo)9
--[[
[PRF] = {
[selection] = string: "ILV"
[current] = string: "MED"
}
[laser_on] = boolean: "false"
[scale] = {
[azimuth] = number: "0.52359873056412"
[distance] = number: "10000"
}
[radar_on] = boolean: "false"
[optical_system_on] = boolean: "false"
[LaunchAuthorized] = boolean: "false"
[ECM_on] = boolean: "false"
[Manufacturer] = string: "RUS"
[TDC] = {
[y] = number: "0"
[x] = number: "0"
}
[ScanZone] = {
[coverage_H] = {
[min] = number: "0"
[max] = number: "20000"
}
[size] = {
[azimuth] = number: "1.0471974611282"
[elevation] = number: "0.17453290522099"
}
[position] = {
[exceeding_manual] = number: "0"
[distance_manual] = number: "0"
[azimuth] = number: "0"
[elevation] = number: "0"
}
}
]]
SendDataHW("600", lSightingSystemInfo.ECM_on == true and 1 or 0, lHardware )
--SendDataHW("601", lSightingSystemInfo.laser_on == true and 1 or 0, lHardware )
--SendDataHW("602", lSightingSystemInfo.optical_system_on == true and 1 or 0, lHardware )
SendDataHW("603", lSightingSystemInfo.LaunchAuthorized == true and 1 or 0, lHardware )
SendDataHW("604", lSightingSystemInfo.radar_on == true and 1 or 0, lHardware )
end
function FuelQuantityIndicator(hardware)
-- Fuel quantity shows the fuel remaining in all tanks
local lHardware = hardware or 1
local lEngineInfo = LoGetEngineInfo()
if lEngineInfo == nil then
return
end
--WriteToLog('lEngineInfo: '..dump(lEngineInfo))
--[[
[fuel_external] = number: "0"
[Temperature] = {
[left] = number: "626.99444580078"
[right] = number: "626.99444580078"
}
[RPM] = {
[left] = number: "87.453765869141"
[right] = number: "87.453758239746"
}
[FuelConsumption] = {
[left] = number: "0.1500396137767"
[right] = number: "0.1500396137767"
}
[fuel_internal] = number: "3773.2749023438"
[EngineStart] = {
[left] = number: "0"
[right] = number: "0"
}
[HydraulicPressure] = {
[left] = number: "210"
[right] = number: "210"
}
lPayloadInfo.Stations[8].CLSID == E8D4652F-FD48-45B7-BA5B-2AE05BB5A9CF -- ext 800l Fuel Tank
]]
SendDataHW("300", string.format("%d", math.round((((lEngineInfo.fuel_internal + lEngineInfo.fuel_external) * 2.2) / 100), 0, "ceil") * 100), lHardware ) -- total fuel in lbs
--SendDataHW("301", string.format("%d", lEngineInfo.fuel_internal * 2.2), lHardware ) -- internal fuel in lbs
--SendDataHW("302", string.format("%d", lEngineInfo.fuel_external * 2.2), lHardware ) -- external fuel in lbs
--[[
local lPayloadInfo = LoGetPayloadInfo()
if lPayloadInfo == nil then
return
end
SendDataHW("303", ((lPayloadInfo.Stations[5].count > 0 and lPayloadInfo.Stations[5].CLSID == "Fuel_Tank_FT600") and 1 or 0), lHardware ) -- weapon presend > 0 (panel 5)
SendDataHW("304", ((lPayloadInfo.Stations[6].count > 0 and lPayloadInfo.Stations[6].CLSID == "Fuel_Tank_FT600") and 1 or 0), lHardware ) -- weapon presend > 0 (panel 6)
SendDataHW("305", ((lPayloadInfo.Stations[7].count > 0 and lPayloadInfo.Stations[7].CLSID == "Fuel_Tank_FT600") and 1 or 0), lHardware ) -- weapon presend > 0 (panel 7)
SendDataHW("307", (lEngineInfo.fuel_internal < 600.0 and 1 or 0), lHardware ) -- Bingo Fuel
]]
end
function StatusLamp(hardware)
local lHardware = hardware or 1
local lMCPState = LoGetMCPState() -- Warning Lights
--WriteToLog('lMCPState: '..dump(lMCPState))
--[[
[RightTailPlaneFailure] = boolean: "false"
[EOSFailure] = boolean: "false"
[ECMFailure] = boolean: "false"
[RightAileronFailure] = boolean: "false"
[MasterWarning] = boolean: "false"
[RightEngineFailure] = boolean: "false"
[CannonFailure] = boolean: "false"
[MLWSFailure] = boolean: "false"
[ACSFailure] = boolean: "false"
[RadarFailure] = boolean: "false"
[HelmetFailure] = boolean: "false"
[HUDFailure] = boolean: "false"
[LeftMainPumpFailure] = boolean: "false"
[RightWingPumpFailure] = boolean: "false"
[LeftWingPumpFailure] = boolean: "false"
[MFDFailure] = boolean: "false"
[RWSFailure] = boolean: "false"
[GearFailure] = boolean: "false"
[HydraulicsFailure] = boolean: "false"
[AutopilotFailure] = boolean: "true"
[FuelTankDamage] = boolean: "false"
[LeftAileronFailure] = boolean: "false"
[CanopyOpen] = boolean: "false"
[RightMainPumpFailure] = boolean: "false"
[StallSignalization] = boolean: "false"
[LeftEngineFailure] = boolean: "false"
[AutopilotOn] = boolean: "false"
[LeftTailPlaneFailure] = boolean: "false"
]]
if lMCPState ~= nil then
SendDataHW("700", lMCPState.LeftTailPlaneFailure == true and 1 or 0, lHardware )
SendDataHW("701", lMCPState.RightTailPlaneFailure == true and 1 or 0, lHardware )
SendDataHW("702", lMCPState.MasterWarning == true and 1 or 0, lHardware )
SendDataHW("703", lMCPState.LeftEngineFailure == true and 1 or 0, lHardware )
SendDataHW("704", lMCPState.RightEngineFailure == true and 1 or 0, lHardware )
SendDataHW("705", lMCPState.LeftAileronFailure == true and 1 or 0, lHardware )
SendDataHW("706", lMCPState.RightAileronFailure == true and 1 or 0, lHardware )
SendDataHW("707", lMCPState.LeftMainPumpFailure == true and 1 or 0, lHardware )
SendDataHW("708", lMCPState.RightMainPumpFailure == true and 1 or 0, lHardware )
SendDataHW("709", lMCPState.LeftWingPumpFailure == true and 1 or 0, lHardware )
SendDataHW("710", lMCPState.RightWingPumpFailure == true and 1 or 0, lHardware )
SendDataHW("711", lMCPState.EOSFailure == true and 1 or 0, lHardware )
SendDataHW("712", lMCPState.ECMFailure == true and 1 or 0, lHardware )
SendDataHW("713", lMCPState.CannonFailure == true and 1 or 0, lHardware )
SendDataHW("714", lMCPState.MLWSFailure == true and 1 or 0, lHardware )
SendDataHW("715", lMCPState.ACSFailure == true and 1 or 0, lHardware )
SendDataHW("716", lMCPState.RadarFailure == true and 1 or 0, lHardware )
SendDataHW("717", lMCPState.HelmetFailure == true and 1 or 0, lHardware )
SendDataHW("718", lMCPState.HUDFailure == true and 1 or 0, lHardware )
SendDataHW("719", lMCPState.MFDFailure == true and 1 or 0, lHardware )
SendDataHW("720", lMCPState.RWSFailure == true and 1 or 0, lHardware )
SendDataHW("721", lMCPState.GearFailure == true and 1 or 0, lHardware )
SendDataHW("722", lMCPState.HydraulicsFailure == true and 1 or 0, lHardware )
SendDataHW("723", lMCPState.AutopilotFailure == true and 1 or 0, lHardware )
SendDataHW("724", lMCPState.FuelTankDamage == true and 1 or 0, lHardware )
SendDataHW("725", lMCPState.CanopyOpen == true and 1 or 0, lHardware )
SendDataHW("726", lMCPState.StallSignalization == true and 1 or 0, lHardware )
SendDataHW("727", lMCPState.AutopilotOn == true and 1 or 0, lHardware )
end
local lEngineInfo = LoGetEngineInfo()
if lEngineInfo ~= nil then
--WriteToLog('lEngineInfo: '..dump(lEngineInfo))
SendDataHW("728", lEngineInfo.EngineStart.left, lHardware ) -- lamp start left engine 1 (0|1)
SendDataHW("729", lEngineInfo.EngineStart.right, lHardware ) -- lamp start right engine 1 (0|1)
SendDataHW("730", lEngineInfo.RPM.left < 45 and 1 or 0, lHardware ) -- lamp generator left engine 1 (0|1)
SendDataHW("731", lEngineInfo.RPM.right < 45 and 1 or 0, lHardware ) -- lamp generator right engine 1 (0|1)
end
end
function FlareChaff(hardware)
local lHardware = hardware or 1
local lSnares = LoGetSnares() -- Flare and Chaff
if lSnares == nil then
return
end
--WriteToLog('lSnares: '..dump(lSnares))
--[chaff] = number: "30"
--[flare] = number: "30"
if gES_maxChaff == nil then
gES_maxChaff = lSnares.chaff
gES_tmpChaff = gES_maxChaff
end
if gES_maxFlare == nil then
gES_maxFlare = lSnares.flare
gES_tmpFlare = gES_maxFlare
end
if gES_timerChaff == nil then
gES_timerChaff = 0
gES_timerChaffCounter = 3
end
if gES_timerFlare == nil then
gES_timerFlare = 0
gES_timerFlareCounter = 3
end
local lblinkChaff = 0
local lblinkFlare = 0
local ltmp = 0
if gES_tmpChaff == 0 then
lblinkChaff = 1
end
if lSnares.chaff < gES_tmpChaff then
WriteToLog('Chaff: '..dump(lSnares.chaff)..', gES_tmpChaff:'..dump(gES_tmpChaff))
gES_tmpChaff = lSnares.chaff
--gES_timerChaff = os.time()
gES_timerChaff = os.clock()
WriteToLog('Chaff ausgeworfen, Zeit: '..dump(gES_timerChaff))
gES_timerChaffCounter = 3
end
if lblinkChaff == 0 and gES_timerChaff > 0.0 and gES_timerChaffCounter > 0 then
--local ldiffTimer = os.difftime (os.time(), gES_timerChaff)
local ldiffTimer = os.clock() - gES_timerChaff
ltmp, ldiffTimer = math.modf(ldiffTimer)
WriteToLog('Zeit: '..gES_timerChaff..', Counter: '..gES_timerChaffCounter)
WriteToLog('Zeit Diff: '..ldiffTimer)
if gES_timerChaffCounter == 1 and ldiffTimer > 0.9 then
WriteToLog('0')
lblinkChaff = 0
gES_timerChaffCounter = 3
gES_timerChaff = 0.0
elseif gES_timerChaffCounter == 1 and ldiffTimer > 0.8 then
WriteToLog('1')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer > 0.6 then
WriteToLog('2')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer > 0.4 then
WriteToLog('3')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 3 and ldiffTimer > 0.2 then
WriteToLog('4')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 3 and ldiffTimer > 0.0 then
WriteToLog('5')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif ldiffTimer > 0.95 then
WriteToLog('else')
lblinkChaff = 0
gES_timerChaffCounter = 3
gES_timerChaff = 0.0
end
--[[
if gES_timerChaffCounter == 3 and ldiffTimer < 0.5 then
WriteToLog('0')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 3 and ldiffTimer < 1.0 then
WriteToLog('1')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer < 1.5 then
WriteToLog('2')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer < 2.0 then
WriteToLog('3')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 1 and ldiffTimer < 2.5 then
WriteToLog('4')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 1 and ldiffTimer < 3.0 then
WriteToLog('5')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 0 or ldiffTimer > 3.0 then
WriteToLog('else')
lblinkChaff = 0
gES_timerChaffCounter = 3
gES_timerChaff = 0
end]]
--[[
if gES_timerChaffCounter == 1 and ldiffTimer == 5 then
WriteToLog('0')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 1 and ldiffTimer == 4 then
WriteToLog('1')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer == 3 then
WriteToLog('2')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 2 and ldiffTimer == 2 then
WriteToLog('3')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 3 and ldiffTimer == 1 then
WriteToLog('4')
lblinkChaff = 0
gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 3 and ldiffTimer == 0 then
WriteToLog('5')
lblinkChaff = 1
--gES_timerChaffCounter = gES_timerChaffCounter - 1
elseif gES_timerChaffCounter == 0 or ldiffTimer > 5 then
WriteToLog('else')
lblinkChaff = 0
gES_timerChaffCounter = 3
gES_timerChaff = 0
end]]
end
--WriteToLog('lblinkChaff: '..lblinkChaff)
SendDataHW("800", lSnares.chaff, lHardware ) -- display chaff
SendDataHW("801", lSnares.flare, lHardware ) -- display flare
SendDataHW("802", lblinkChaff, lHardware ) -- blink chaff active/aktive empty chaff
SendDataHW("803", lblinkFlare, lHardware ) -- blink flare active/aktive empty flare
SendDataHW("804", gES_tmpChaff < 20 and 1 or 0, lHardware ) -- minimum chaff lamp
SendDataHW("805", gES_tmpFlare < 10 and 1 or 0, lHardware ) -- minimum flare lamp
end
function MechanicalDevicesIndicator(hardware)
-- The mechanical devices indicator shows the position of the landing gear, flaps, leading edge flaps and airbrake
local lHardware = hardware or 1
local lMechInfo = LoGetMechInfo() -- mechanical components, e.g. Flaps, Wheelbrakes,...
if lMechInfo == nil then
--WriteToLog('lMechInfo nil')
return
end
--[[
[hook] = {
[status] = number: "0"
[value] = number: "0"
}
[parachute] = {
[status] = number: "0"
[value] = number: "0"
}
[controlsurfaces] = {
[eleron] = {
[left] = number: "0"
[right] = number: "-0.21084336936474"
}
[elevator] = {
[left] = number: "-0"
[right] = number: "-0"
}
[rudder] = {
[left] = number: "0"
[right] = number: "0"
}
}
[airintake] = {
[status] = number: "0"
[value] = number: "0"
}
[canopy] = {
[status] = number: "0"
[value] = number: "0"
}
[refuelingboom] = {
[status] = number: "0"
[value] = number: "0"
}
[wing] = {
[status] = number: "0"
[value] = number: "0"
}
[noseflap] = {
[status] = number: "0"
[value] = number: "0"
}
[gear] = {
[value] = number: "0"
[nose] = {
[rod] = number: "0"
}
[main] = {
[left] = {
[rod] = number: "0"
}
[right] = {
[rod] = number: "0"
}
}
[status] = number: "0"
}
[speedbrakes] = {
[status] = number: "0"
[value] = number: "0"
}
[wheelbrakes] = {
[status] = number: "0"
[value] = number: "0"
}
[flaps] = {
[status] = number: "0"
[value] = number: "0"
}]]
--SendDataHW("500", lMechInfo.gear.status )
--SendDataHW("501", lMechInfo.gear.value )
--SendDataHW("502", lMechInfo.gear.nose.rod ) -- zeigt an wie weit das Fahrwerk einsackt wenn das Flugzeug auf dem Boden ist
--SendDataHW("503", lMechInfo.gear.main.left.rod ) -- zeigt an wie weit das Fahrwerk einsackt wenn das Flugzeug auf dem Boden ist
--SendDataHW("504", lMechInfo.gear.main.right.rod ) -- zeigt an wie weit das Fahrwerk einsackt wenn das Flugzeug auf dem Boden ist
--SendDataHW("500", ((lMechInfo.gear.status == 1 and lMechInfo.gear.value < 1) and 1 or 0 ) ) -- gear warning light, go up
--SendDataHW("500", ((lMechInfo.gear.status == 0 and lMechInfo.gear.value > 0) and 1 or 0 ) ) -- gear warning light, go down
--SendDataHW("500", (((lMechInfo.gear.status == 1 and lMechInfo.gear.value < 1) or (lMechInfo.gear.status == 0 and lMechInfo.gear.value > 0)) and 1 or 0 ), lHardware ) -- gear warning light
SendDataHW("501", (lMechInfo.gear.value > 0.85 and 1 or 0), lHardware ) -- nose gear
SendDataHW("502", (lMechInfo.gear.value > 0.95 and 1 or 0), lHardware ) -- left gear
SendDataHW("503", (lMechInfo.gear.value == 1 and 1 or 0), lHardware ) -- right gear
--SendDataHW("510", lMechInfo.speedbrakes.status ) -- speedbreakes on 1 (0|1)
SendDataHW("510", (lMechInfo.speedbrakes.value > 0.1 and 1 or 0), lHardware ) -- speedbreakes on > 0.1 (0 - 1)
--SendDataHW("520", lMechInfo.wheelbrakes.status ) -- not in use
--SendDataHW("521", lMechInfo.wheelbrakes.value ) -- not in use
local lGetTrueAirSpeed = LoGetTrueAirSpeed()
if lGetTrueAirSpeed == nil then
lGetTrueAirSpeed = 0
end
--SendDataHW("530", lMechInfo.flaps.status ) -- flap switch off 0, 1. position 1, 2. position 2 (0|1|2)
--SendDataHW("531", lMechInfo.flaps.value ) -- flap 1. position > 0.25, 2. position > 0.93 (0 - 1)
SendDataHW("531", (lMechInfo.flaps.value > 0.25 and 1 or 0), lHardware ) -- flap 1. position
SendDataHW("532", (lMechInfo.flaps.value > 0.93 and 1 or 0), lHardware ) -- flap 2. position
SendDataHW("533", ((lMechInfo.flaps.value > 0.93 and lGetTrueAirSpeed > 340) and 1 or 0), lHardware ) -- Speed Warning for Flaps, same light as gear warning light, but blinking light
end
function WeaponStatusPanel(hardware)
-- The weapon status panel, quantity and readiness of the currently selected weapon and the remaining gun ammunition are indicated.
local lHardware = hardware or 1
gES_PayloadInfo = LoGetPayloadInfo()
if gES_PayloadInfo == nil then
return
end
--WriteToLog('gES_PayloadInfo: '..dump(gES_PayloadInfo))
--[[ exsample
[Stations] = {
[1] = {
[CLSID] = string: "{6D21ECEA-F85B-4E8D-9D51-31DC9B8AA4EF}"
[container] = boolean: "false"
[count] = number: "1"
[weapon] = {
[level3] = number: "45"
[level1] = number: "4"
[level4] = number: "25"
[level2] = number: "15"
}
}
[2] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "117"
[level2] = number: "7"
}
[count] = number: "7"
[CLSID] = string: "{69926055-0DA8-4530-9F2F-C86B157EA9F6}"
[adapter] = {
[level3] = number: "0"
[level1] = number: "0"
[level4] = number: "0"
[level2] = number: "0"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "33"
[level1] = number: "4"
[level4] = number: "147"
[level2] = number: "7"
}
}
[3] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "135"
[level2] = number: "4"
}
[count] = number: "2"
[CLSID] = string: "LAU_88_AGM_65H_2_L"
[adapter] = {
[level3] = number: "47"
[level1] = number: "4"
[level4] = number: "4"
[level2] = number: "15"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "8"
[level1] = number: "4"
[level4] = number: "138"
[level2] = number: "4"
}
}
[4] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "114"
[level2] = number: "5"
}
[count] = number: "3"
[CLSID] = string: "BRU-42_3*BDU-33"
[adapter] = {
[level3] = number: "0"
[level1] = number: "0"
[level4] = number: "0"
[level2] = number: "0"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "9"
[level1] = number: "4"
[level4] = number: "69"
[level2] = number: "5"
}
}
[5] = {
[CLSID] = string: "{5335D97A-35A5-4643-9D9B-026C75961E52}"
[container] = boolean: "false"
[count] = number: "1"
[weapon] = {
[level3] = number: "38"
[level1] = number: "4"
[level4] = number: "35"
[level2] = number: "5"
}
}
[6] = {
[CLSID] = string: "Fuel_Tank_FT600"
[container] = boolean: "false"
[count] = number: "1"
[weapon] = {
[level3] = number: "43"
[level1] = number: "1"
[level4] = number: "103"
[level2] = number: "3"
}
}
[7] = {
[CLSID] = string: "{5335D97A-35A5-4643-9D9B-026C75961E52}"
[container] = boolean: "false"
[count] = number: "1"
[weapon] = {
[level3] = number: "38"
[level1] = number: "4"
[level4] = number: "35"
[level2] = number: "5"
}
}
[8] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "114"
[level2] = number: "5"
}
[count] = number: "3"
[CLSID] = string: "BRU-42_3*BDU-33"
[adapter] = {
[level3] = number: "0"
[level1] = number: "0"
[level4] = number: "0"
[level2] = number: "0"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "9"
[level1] = number: "4"
[level4] = number: "69"
[level2] = number: "5"
}
}
[9] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "106"
[level2] = number: "4"
}
[count] = number: "2"
[CLSID] = string: "{E6A6262A-CA08-4B3D-B030-E1A993B98453}"
[adapter] = {
[level3] = number: "47"
[level1] = number: "4"
[level4] = number: "4"
[level2] = number: "15"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "8"
[level1] = number: "4"
[level4] = number: "77"
[level2] = number: "4"
}
}
[10] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "117"
[level2] = number: "7"
}
[count] = number: "7"
[CLSID] = string: "{69926055-0DA8-4530-9F2F-C86B157EA9F6}"
[adapter] = {
[level3] = number: "0"
[level1] = number: "0"
[level4] = number: "0"
[level2] = number: "0"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "33"
[level1] = number: "4"
[level4] = number: "147"
[level2] = number: "7"
}
}
[11] = {
[wstype] = {
[level3] = number: "32"
[level1] = number: "4"
[level4] = number: "50"
[level2] = number: "4"
}
[count] = number: "2"
[CLSID] = string: "{DB434044-F5D0-4F1F-9BA9-B73027E18DD3}"
[adapter] = {
[level3] = number: "0"
[level1] = number: "0"
[level4] = number: "0"
[level2] = number: "0"
}
[container] = boolean: "true"
[weapon] = {
[level3] = number: "7"
[level1] = number: "4"
[level4] = number: "22"
[level2] = number: "4"
}
}
}
[CurrentStation] = number: "0"
[Cannon] = {
[shells] = number: "1150"
}
]]
--[[
Weapon Panel
|
---------------------------------------------------
| | | | | | | | | | |
1 2 3 4 5 6 7 8 9 10 11
]]
-- Payload Info
-- weapon stations (panel) 1 (left) - 11 (right) reserved
SendDataHW("100", gES_PayloadInfo.Cannon.shells, lHardware ) -- count cannon shells
SendDataHW("101", (gES_PayloadInfo.Stations[1].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 1)
SendDataHW("102", (gES_PayloadInfo.Stations[2].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 2)
SendDataHW("103", (gES_PayloadInfo.Stations[3].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 3)
SendDataHW("104", (gES_PayloadInfo.Stations[4].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 4)
SendDataHW("105", (gES_PayloadInfo.Stations[5].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 5)
SendDataHW("106", (gES_PayloadInfo.Stations[6].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 6, center station)
SendDataHW("107", (gES_PayloadInfo.Stations[7].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 7)
SendDataHW("108", (gES_PayloadInfo.Stations[8].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 8)
SendDataHW("109", (gES_PayloadInfo.Stations[9].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 9)
SendDataHW("110", (gES_PayloadInfo.Stations[10].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 10)
SendDataHW("111", (gES_PayloadInfo.Stations[11].count > 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 11)
-- weapon stations (panel) 1 (left) - 11 (right) empty
SendDataHW("121", (gES_PayloadInfo.Stations[1].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 1)
SendDataHW("122", (gES_PayloadInfo.Stations[2].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 2)
SendDataHW("123", (gES_PayloadInfo.Stations[3].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 3)
SendDataHW("124", (gES_PayloadInfo.Stations[4].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 4)
SendDataHW("125", (gES_PayloadInfo.Stations[5].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 5)
SendDataHW("126", (gES_PayloadInfo.Stations[6].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 6, center station)
SendDataHW("127", (gES_PayloadInfo.Stations[7].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 7)
SendDataHW("128", (gES_PayloadInfo.Stations[8].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 8)
SendDataHW("129", (gES_PayloadInfo.Stations[9].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 9)
SendDataHW("130", (gES_PayloadInfo.Stations[10].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 10)
SendDataHW("131", (gES_PayloadInfo.Stations[11].count == 0 and 1 or 0), lHardware ) -- weapon presend > 0 (panel 11)
--SendDataHW("CurrentStation", gES_PayloadInfo.CurrentStation, lHardware )
-- air-to-air missils panel 1 and 11, air combat modus, CurrentStation = 1, panel 1 and 11 on
-- wenn die Waffenstationen gleichm<68>ssig belegt sind, hat bei Auswahl CurrentStation immer den Wert der linken Station
-- bei ungleichm<68><6D>iger Belegung, hat CurrentStation immer den Wert der jeweiligen Station
-- Waffenbezeichnung als UUID, gES_PayloadInfo.Stations[X].CLSID
-- defination
if gES_CurrentStationTmp == nil then
gES_CurrentStationTmp = -1
end
if gES_PayloadInfo.CurrentStation > 0 and
gES_CurrentStationTmp ~= gES_PayloadInfo.CurrentStation then
gES_CurrentStationTmp = gES_PayloadInfo.CurrentStation
gTmpStationToPanel = {}
gTmpStationToPanel[1] = {Panel = 1, StationID = 101, CurrentID = 201, CurrentID2 = 221, HardwareID = lHardware } -- left
gTmpStationToPanel[2] = {Panel = 2, StationID = 102, CurrentID = 202, CurrentID2 = 222, HardwareID = lHardware }
gTmpStationToPanel[3] = {Panel = 3, StationID = 103, CurrentID = 203, CurrentID2 = 223, HardwareID = lHardware }
gTmpStationToPanel[4] = {Panel = 4, StationID = 104, CurrentID = 204, CurrentID2 = 224, HardwareID = lHardware }
gTmpStationToPanel[5] = {Panel = 5, StationID = 105, CurrentID = 205, CurrentID2 = 225, HardwareID = lHardware }
gTmpStationToPanel[6] = {Panel = 6, StationID = 106, CurrentID = 206, CurrentID2 = 226, HardwareID = lHardware }
gTmpStationToPanel[7] = {Panel = 7, StationID = 107, CurrentID = 207, CurrentID2 = 227, HardwareID = lHardware }
gTmpStationToPanel[8] = {Panel = 8, StationID = 108, CurrentID = 208, CurrentID2 = 228, HardwareID = lHardware }
gTmpStationToPanel[9] = {Panel = 9, StationID = 109, CurrentID = 209, CurrentID2 = 229, HardwareID = lHardware }
gTmpStationToPanel[10] = {Panel = 10, StationID = 110, CurrentID = 210, CurrentID2 = 230, HardwareID = lHardware }
gTmpStationToPanel[11] = {Panel = 11, StationID = 111, CurrentID = 211, CurrentID2 = 231, HardwareID = lHardware } -- right
WeaponStatusPanel_Reset(201, 211, lHardware)
WeaponStatusPanel_Reset(221, 231, lHardware)
SendDataHW(gTmpStationToPanel[gES_PayloadInfo.CurrentStation].CurrentID, 1, lHardware) -- eigentliche Auswahl
--WriteToLog('aktiv: '..gTmpStationToPanel[gES_PayloadInfo.CurrentStation].CurrentID)
if gES_PayloadInfo.Stations[gES_PayloadInfo.CurrentStation].container then
if gES_PayloadInfo.Stations[gES_PayloadInfo.CurrentStation].count > 1 then
SendDataHW(gTmpStationToPanel[gES_PayloadInfo.CurrentStation].CurrentID2, 1, lHardware) -- eigentliche Auswahl
--WriteToLog('aktiv2: '..gTmpStationToPanel[gES_PayloadInfo.CurrentStation].CurrentID2)
end
end
table.foreach(gES_PayloadInfo.Stations, WeaponStatusPanel_selectCurrentPayloadStation) -- zugeh<65>rige Stationen
elseif gES_PayloadInfo.CurrentStation == 0 and gES_CurrentStationTmp > 0 then
WeaponStatusPanel_Reset(201, 211, lHardware)
WeaponStatusPanel_Reset(221, 231, lHardware)
gES_CurrentStationTmp = -1
end
end
function RWRlite(hardware)
local lHardware = hardware or 1
local lTWSInfo = LoGetTWSInfo() -- RWR Information
if lTWSInfo == nil then
return
end
local lPriorityTmp = 0
local lPrimaryThreatTmp = 0
if(#lTWSInfo.Emitters > 0) then
for EmitterIndex = 1, #lTWSInfo.Emitters, 1 do
if(lTWSInfo.Emitters[EmitterIndex].Priority > lPriorityTmp) then
lPriorityTmp = lTWSInfo.Emitters[EmitterIndex].Priority
lPrimaryThreatTmp = EmitterIndex
end
end
for EmitterIndex = 1, #lTWSInfo.Emitters, 1 do
local lType = lTWSInfo.Emitters[EmitterIndex].Type
--WriteToLog('level: '..lType.level1..', '..lType.level2..', '..lType.level3..', '..lType.level4)
local lAzimut = math.round(lTWSInfo.Emitters[EmitterIndex].Azimuth * 90, 1)
if EmitterIndex == lPrimaryThreatTmp then
gES_RWRlite_FoundErmitter = true
SendDataHW("400", (lType.level1 == 1 and 1 or 0), lHardware ) -- primary Air
SendDataHW("401", ((lType.level1 == 2 and lType.level2 == 16) and 1 or 0), lHardware ) -- primary SAM
end
end
else
if gES_RWRlite_FoundErmitter ~= nil and gES_RWRlite_FoundErmitter then
SendDataHW("400", 0, lHardware ) -- primary Air
SendDataHW("401", 0, lHardware ) -- primary SAM
end
end
end
-- Helper functions
function WeaponStatusPanel_selectCurrentPayloadStation(_index)
if gES_PayloadInfo.Stations[gES_PayloadInfo.CurrentStation].CLSID == gES_PayloadInfo.Stations[_index].CLSID and gES_PayloadInfo.CurrentStation ~= _index then
SendDataHW(gTmpStationToPanel[_index].CurrentID, 1, gTmpStationToPanel[_index].HardwareID)
--WriteToLog('aktiv3: '..gTmpStationToPanel[_index].CurrentID)
if gES_PayloadInfo.Stations[gES_PayloadInfo.CurrentStation].container then
if gES_PayloadInfo.Stations[gES_PayloadInfo.CurrentStation].count > 1 then
SendDataHW(gTmpStationToPanel[_index].CurrentID2, 1, gTmpStationToPanel[_index].HardwareID)
--WriteToLog('aktiv3: '..gTmpStationToPanel[_index].CurrentID2)
end
end
end
end
function WeaponStatusPanel_Reset(lMinId, lMaxID, lHardware)
--WriteToLog('WeaponStatusPanel_Reset')
for lCounter = lMinId, lMaxID, 1 do
SendDataHW(lCounter, 0, lHardware)
end
end
Reference in New Issue View Git Blame Copy Permalink