weyne/DCS-ExportScripts
1
0
Fork 0
mirror of https://github.com/s-d-a/DCS-ExportScripts.git synced 2026-08-13 09:16:17 +00:00
Code Issues Packages Projects Releases Wiki Activity

Optimize function ExportScript.ProcessIkarusDCSConfigLowImportance()

Browse Source 
- PUI-800 Weapon panel
- UV-26
- EKRAN
This commit is contained in:
mcmicha
2017-02-15 23:57:22 +01:00
parent 80563c2627
commit 702c0e1a18
1 changed files with 36 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Scripts/DCS-ExportScript/ExportsModules/Ka-50.lua
+36 -21
View File
@@ -666,11 +666,10 @@ function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
-- function for Ikarus -- function for Ikarus
local lWeaponSystem = GetDevice(12) local lWeaponSystem = GetDevice(12)
local lEKRAN = GetDevice(10) local lCannonAmmoCount = " "
local lCannonAmmoCount = ""
local lStationNumbers = lWeaponSystem:get_selected_weapon_stations() local lStationNumbers = lWeaponSystem:get_selected_weapon_stations()
local lStationCount = "" local lStationCount = " "
local lStationType = "" local lStationType = " "
local lTargetingPower = mainPanelDevice:get_argument_value(433) local lTargetingPower = mainPanelDevice:get_argument_value(433)
local lTrigger = mainPanelDevice:get_argument_value(615) local lTrigger = mainPanelDevice:get_argument_value(615)
if lTrigger == 0 then if lTrigger == 0 then
@@ -698,12 +697,40 @@ function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
end end
end end
-- PUI-800 Weapon panel
---------------------------------------------------
ExportScript.Tools.SendData(2004, string.format("%s", lStationType))
ExportScript.Tools.SendData(2005, string.format("%s", lStationCount))
ExportScript.Tools.SendData(2006, string.format("%s", lCannonAmmoCount))
-- UV-26
local lUV26 = list_indication(7)
lUV26 = lUV26:gsub("-----------------------------------------", "")
lUV26 = lUV26:gsub("txt_digits", "")
lUV26 = lUV26:gsub("%c", "")
ExportScript.Tools.SendData(2007, string.format("%s", lUV26))
-- EKRAN
---------------------------------------------------
local lEKRAN = GetDevice(10)
local lEkranSendString = "" local lEkranSendString = ""
local lEkranText = lEKRAN:get_actual_text_frame() local lEkranText = lEKRAN:get_actual_text_frame()
if lEkranText ~= "" then if lEkranText ~= "" then
lEkranSendString = string.sub(lEkranText,1,8).."\n"..string.sub(lEkranText,12,19).."\n"..string.sub(lEkranText,23,30).."\n"..string.sub(lEkranText,34,41) --lEkranSendString = string.sub(lEkranText,1,8).."\n"..string.sub(lEkranText,12,19).."\n"..string.sub(lEkranText,23,30).."\n"..string.sub(lEkranText,34,41)
ExportScript.Tools.SendData(2010, string.format("%s", string.sub(lEkranText,1,8)))
ExportScript.Tools.SendData(2011, string.format("%s", string.sub(lEkranText,12,19)))
ExportScript.Tools.SendData(2012, string.format("%s", string.sub(lEkranText,23,30)))
ExportScript.Tools.SendData(2013, string.format("%s", string.sub(lEkranText,34,41)))
else
ExportScript.Tools.SendData(2010, " ")
ExportScript.Tools.SendData(2011, " ")
ExportScript.Tools.SendData(2012, " ")
ExportScript.Tools.SendData(2013, " ")
end end
--[[
local lFAILlight = "" -- FAILURE local lFAILlight = "" -- FAILURE
local lMEMORYlight = "" -- MEMORY local lMEMORYlight = "" -- MEMORY
local lTURNlight = "" -- TURN local lTURNlight = "" -- TURN
@@ -718,25 +745,12 @@ function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
--ExportScript.Tools.SendData(2002, string.format("%s", lFAILlight)) --ExportScript.Tools.SendData(2002, string.format("%s", lFAILlight))
--ExportScript.Tools.SendData(2003, string.format("%s", lMEMORYlight)) --ExportScript.Tools.SendData(2003, string.format("%s", lMEMORYlight))
--ExportScript.Tools.SendData(2004, string.format("%s", lTURNlight)) --ExportScript.Tools.SendData(2004, string.format("%s", lTURNlight))
-- PUI-800 Weapon panel
---------------------------------------------------
ExportScript.Tools.SendData(2004, string.format("%s", lStationType))
ExportScript.Tools.SendData(2005, string.format("%s", lStationCount))
ExportScript.Tools.SendData(2006, string.format("%s", lCannonAmmoCount))
-- UV-26
local lUV26 = list_indication(7)
lUV26 = lUV26:gsub("-----------------------------------------", "")
lUV26 = lUV26:gsub("txt_digits", "")
lUV26 = lUV26:gsub("%c", "")
ExportScript.Tools.SendData(2007, string.format("%s", lUV26))
--ExportScript.Tools.WriteToLog('lEkranSendString: '..ExportScript.Tools.dump(lEkranSendString)) --ExportScript.Tools.WriteToLog('lEkranSendString: '..ExportScript.Tools.dump(lEkranSendString))
--ExportScript.Tools.WriteToLog('lFAILlight: '..ExportScript.Tools.dump(lFAILlight)) --ExportScript.Tools.WriteToLog('lFAILlight: '..ExportScript.Tools.dump(lFAILlight))
--ExportScript.Tools.WriteToLog('lMEMORYlight: '..ExportScript.Tools.dump(lMEMORYlight)) --ExportScript.Tools.WriteToLog('lMEMORYlight: '..ExportScript.Tools.dump(lMEMORYlight))
--ExportScript.Tools.WriteToLog('lTURNlight: '..ExportScript.Tools.dump(lTURNlight)) --ExportScript.Tools.WriteToLog('lTURNlight: '..ExportScript.Tools.dump(lTURNlight))
]]
--[[
--ExportScript.Tools.WriteToLog('EKRAN: '..ExportScript.Tools.dump(list_indication(4))) --ExportScript.Tools.WriteToLog('EKRAN: '..ExportScript.Tools.dump(list_indication(4)))
local lEKRAN = list_indication(4) local lEKRAN = list_indication(4)
lEKRAN = lEKRAN:gsub("-----------------------------------------", "") lEKRAN = lEKRAN:gsub("-----------------------------------------", "")
@@ -783,6 +797,7 @@ function ExportScript.ProcessIkarusDCSConfigLowImportance(mainPanelDevice)
ExportScript.Tools.SendData(2011, string.format("%s", string.sub(lEKRANtxt2,11,19))) ExportScript.Tools.SendData(2011, string.format("%s", string.sub(lEKRANtxt2,11,19)))
ExportScript.Tools.SendData(2012, string.format("%s", string.sub(lEKRANtxt2,21,29))) ExportScript.Tools.SendData(2012, string.format("%s", string.sub(lEKRANtxt2,21,29)))
ExportScript.Tools.SendData(2013, string.format("%s", string.sub(lEKRANtxt2,31,39))) ExportScript.Tools.SendData(2013, string.format("%s", string.sub(lEKRANtxt2,31,39)))
]]
-- Cockpit Light -- Cockpit Light
ExportScript.Tools.IkarusCockpitLights(mainPanelDevice, {300, 299, 298}) ExportScript.Tools.IkarusCockpitLights(mainPanelDevice, {300, 299, 298})
@@ -1297,4 +1312,4 @@ function ExportScript.ProcessDACConfigHighImportance(mainPanelDevice)
ExportScript.Tools.WriteToLog(ltmp2..' (metatable): '..ExportScript.Tools.dump(getmetatable(ltmp1))) ExportScript.Tools.WriteToLog(ltmp2..' (metatable): '..ExportScript.Tools.dump(getmetatable(ltmp1)))
end end
]] ]]
end end