-- Init Cold and Dark ---
--ipc.control(65707, 0x12210)
TopSel = ""
BotSel = ""
------------------------
------ TOP Items -------
------------------------

-- Top Left Mode Selector ---


function TLS_COM1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1) ~= 0 then
        TopSel = 'ACOM1'
        ipc.log(TopSel)
        com1 = ipc.readUW(0x034E) -- com1
        com1stb = ipc.readUW(0x311A) -- com1 stand by
        Vleft = com1
        Vright = com1stb
        Get_Val_TOP(Vleft,Vright)
     end
end   
   
function TLS_COM2()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2) ~= 0 then
        TopSel = 'ACOM2'
        ipc.log(TopSel)
        com2 = ipc.readUW(0x3118) -- com2
        com2stb = ipc.readUW(0x311C) -- com2 stand by
        Vleft = com2
        Vright = com2stb
        Get_Val_TOP(Vleft,Vright)
    end
end

function TLS_NAV1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4) ~= 0 then
        ipc.set(TopSel,'ANAV1')
        ipc.display('nav1_haut',10)
    ipc.log('nav1_haut')
    end
end

function TLS_NAV2()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8) ~= 0 then
        TopSel = 'ANAV2'
        ipc.display('nav2_haut',10)
    ipc.log('nav2_haut')
    end
end
   
function TLS_ADF()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,16) ~= 0 then
    TopSel = 'AADF'
        ipc.display('adf_haut',10)
    ipc.log('adf_haut')
    end
end
   
function TLS_DME()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,32) ~= 0 then
    TopSel = 'ADME'
        ipc.display('dme_haut',10)
    ipc.log('dme_haut')   
    end
end

function TLS_XPDR()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,192) ~= 0 then
    TopSel = 'AXPDR'
        ipc.display('xpdr_haut',10)
    ipc.log('xpdr_haut')
    end
end

-- Top Right items ---

function TRI_ACTSTB()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,16384) ~= 0 then
   
        ipc.display('stand-by_haut',10)
    ipc.log('stand-by_haut')
    devradio = ipc.get("devradio")
    wrfradio = ipc.get("wrfradio")
    s=string.char(0,241,242,210,242,245,241,242,210,240,245,240,240,208,240,240,240,240,208,240,240,0,0)
    com.writefeature (devradio, s, wrfradio)
    end
end

function TRI_OUT_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,262144) ~= 0 then
        ipc.display('gros horaire_haut',10)
    ipc.log('gros horaire_haut')
    end
end

function TRI_OUT_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,524288) ~= 0 then
        ipc.display('gros anti-horaire_haut',10)
    ipc.log('gros anti-horaire_haut')
    end
end

function TRI_IN_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,65536) ~= 0 then
        ipc.display('petit horaire_haut',10)
    ipc.log('petit horaire_haut')
    end
end

function TRI_IN_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,131072) ~= 0 then
        ipc.display('petit anti horaire_haut',10)
    ipc.log('petit anti horaire_haut')
    end
end

---------------------------
------ BOTTOM Items -------
---------------------------

-- Bottom Left Mode Selector ---

function BLS_COM1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,128) ~= 0 then
    BotSel = 'BCOM1'
        ipc.display('com1_bas',10)
    ipc.log('com1_bas')
    end
end   
   
function BLS_COM2()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,256) ~= 0 then
    BotSel = 'BCOM2'
        ipc.display('com2_bas',10)
    ipc.log('com2_bas')
    end
end

function BLS_NAV1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,512) ~= 0 then
    BotSel = 'nav1'
    ipc.display('nav1_bas',10)
    ipc.log('nav1_bas')
    ipc.log(BotSel)
    end
end

function BLS_NAV2()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1024) ~= 0 then
    BotSel = 'BNAV2'
        ipc.display('nav2_bas',10)
    ipc.log('nav2_bas')
    end
end
   
function BLS_ADF()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2048) ~= 0 then
    BotSel = 'BADF'
        ipc.display('adf_bas',10)
    ipc.log('adf_bas')
    end
end
   
function BLS_DME()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4096) ~= 0 then
    BotSel = 'BDME'
        ipc.display('dme_bas',10)
    ipc.log('dme_bas')   
    end
end

function BLS_XPDR()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8192) ~= 0 then
    BotSel = 'BXPDR'
        ipc.display('xpdr_bas',10)
    ipc.log('xpdr_bas')
    end
end

-- Bottom Right items ---

function BRI_ACTSTB()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,32768) ~= 0 then
        ipc.display('stand-by_bas',10)
    ipc.log('stand-by_bas')
    end
end

function BRI_OUT_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4194304) ~= 0 then
        ipc.display('gros horaire_bas',10)
    ipc.log('gros horaire_bas')
    end
end

function BRI_OUT_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8388608) ~= 0 then
    ipc.display('gros anti-horaire_bas',10)
    ipc.log('gros anti-horaire_bas')
    end
end

function BRI_IN_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1048576) ~= 0 then
        ipc.display('petit horaire_bas',10)
    ipc.log('petit horaire_bas')
    end
end

function BRI_IN_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2097152) ~= 0 then
        ipc.display('petit anti horaire_bas',10)
    ipc.log('petit anti horaire_bas')
    end
end

------------------------------------------
function Get_Val_TOP(Vleft,Vright)

devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")

-- Lecture des offsets
   
com1 = ipc.readUW(0x034E) -- com1
com1stb = ipc.readUW(0x311A) -- com1 stand by
com2 = ipc.readUW(0x3118) -- com2
com2stb = ipc.readUW(0x311C) -- com2 stand by
nav1 = ipc.readUW(0x0350) -- nav1
nav1stb = ipc.readUW(0x311E) -- nav1stb
nav2 = ipc.readUW(0x0352) -- nav2
nav2stb = ipc.readUW(0x3120) -- nav2stb
-- Vleft=com1
-- Vright=com1stb
ipc.log(Vleft)
ipc.log(Vright)
-- Conversion en HEX de Vleft
    setval = DEC_HEX(Vleft)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v1= 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"        
    ipc.log(string.sub(setval, 2, 2))
    v2 = 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v3 = 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v4 = 240 + tonumber(string.sub(setval, 4, 4))   
    --ipc.log(v1..v2..v3..v4)
   
-- Conversion en HEX de Vleft
    setval = DEC_HEX(Vright)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v5 = 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"        
    ipc.log(string.sub(setval, 2, 2))
    v6 = 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v7= 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v8 = 240 + tonumber(string.sub(setval, 4, 4))   
    --ipc.log(v5..v6..v7..v8)
   
-- Lecture de la position du sélecteur du bas
ipc.log("test BotSel")

ipc.log(BotSel)

if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
    ipc.log("traitement de botsel")
    -- Conversion en HEX de BotSel
    -- Vleft = nav1
    setval = DEC_HEX(Vleft)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v9= 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"        
    ipc.log(string.sub(setval, 2, 2))
    v10= 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v11 = 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v12 = 240 + tonumber(string.sub(setval, 4, 4))
    ipc.log(v9..v10..v11..v12)

    -- Conversion en HEX de Vright
    -- Vright = nav1stb
    setval = DEC_HEX(Vright)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v13 = 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"        
    ipc.log(string.sub(setval, 2, 2))
    v14 = 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v15 = 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v16 = 240 + tonumber(string.sub(setval, 4, 4))   
    ipc.log(v13..v14..v15..v16)
   
elseif BotSel == 'BADF' then
    ipc.log("Bottom Selector : ADF")
    ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
    ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
    ipc.log("ADF1A : "..ADF1A)
    ipc.log("ADF1B : "..ADF1B)
    A = DEC_HEX(ADF1A)
    B = DEC_HEX(ADF1B)
    ipc.log("A : "..A)
    ipc.log("B : "..B)
elseif BotSel == 'BXPDR' then
    ipc.log("Bottom Selector : ADF")
elseif BotSel == 'BDME' then
    ipc.log("Bottom Selector : ADF")
end
   
-- Définition de la variable s : Valeurs à écrire dans le module Saïtek
s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
--s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)   
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)
end

function DEC_HEX(IN)
    local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
    while IN>0 do
        I+1
        IN,D=math.floor(IN/B),math.mod(IN,B)+1
        OUT=string.sub(K,D,D)..OUT
    end
    return OUT
end
-----------------------------------------------


-- Events Top Items --

event.offsetmask(0x3358, 1,'UD', 'TLS_COM1')
event.offsetmask(0x3358, 2,'UD', 'TLS_COM2')
event.offsetmask(0x3358, 4,'UD', 'TLS_NAV1')
event.offsetmask(0x3358, 8,'UD', 'TLS_NAV2')
event.offsetmask(0x3358, 16,'UD', 'TLS_ADF')
event.offsetmask(0x3358, 32,'UD', 'TLS_DME')
event.offsetmask(0x3358, 64,'UD', 'TLS_XPDR')
event.offsetmask(0x3358, 16384,'UD', 'TRI_ACTSTB') --
event.offsetmask(0x3358, 524288,'UD', 'TRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 262144,'UD', 'TRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 65536,'UD', 'TRI_IN_KNOB_CW')
event.offsetmask(0x3358, 131072,'UD', 'TRI_IN_KNOB_ACW')

-- Events Bottom Items --

event.offsetmask(0x3358, 128,'UD', 'BLS_COM1')
event.offsetmask(0x3358, 256,'UD', 'BLS_COM2')
event.offsetmask(0x3358, 512,'UD', 'BLS_NAV1')
event.offsetmask(0x3358, 1024,'UD', 'BLS_NAV2')
event.offsetmask(0x3358, 2048,'UD', 'BLS_ADF')
event.offsetmask(0x3358, 4096,'UD', 'BLS_DME')
event.offsetmask(0x3358, 8192,'UD', 'BLS_XPDR')
event.offsetmask(0x3358, 32768,'UD', 'BRI_ACTSTB')
event.offsetmask(0x3358, 4194304,'UD', 'BRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 8388608,'UD', 'BRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 2097152,'UD', 'BRI_IN_KNOB_ACW')
event.offsetmask(0x3358, 1048576,'UD', 'BRI_IN_KNOB_ACW')
[/Spoiler]

------------------------
-- Init Cold and Dark --
------------------------

ipc.writeLvar('Magnetos1Pct', 0)
ipc.writeLvar('Battery1Switch', 0)
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
ipc.control(66701,0)
ipc.control(66237,0)
ipc.control(66031,0)
ipc.control(65858,0)
ipc.control(66162,0)
ipc.control(66058,0)
ipc.control(66239,0)
ipc.control(66379,0)
ipc.control(66054,0)
ipc.control(66054,0)
ipc.control(66240,0)
ipc.control(66061,0)
ipc.control(66080,0)
percent = 0
radio = 0

-------------------------
-- Gestion du Magneto ---
-------------------------

function Magneto_OFF()
    -- Magneto Selector OFF
    -- 8192 : 2^13
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,8192) ~= 0 then
        ipc.writeLvar('Magnetos1Pct', 0)
        ipc.control(66400,0)
    end
end   
   
function Magneto_LEFT()   
    -- Magneto Selector LEFT
    -- 16384 : 2^14
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,16384) ~= 0 then
        ipc.writeLvar('Magnetos1Pct', 16)
        ipc.control(66400,1)
    end
end

function Magneto_RIGHT()
    -- Magneto Selector RIGHT
    -- 32768 : 2^15
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,32768) ~= 0 then
        ipc.writeLvar('Magnetos1Pct', 38)
        ipc.control(66400,2)
    end
end

function Magneto_BOTH()
    -- Magneto Selector BOTH
    -- 65536 : 2^16
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,65536) ~= 0 then
        ipc.writeLvar('Magnetos1Pct', 64)
        ipc.control(66400,3)
    end
end
   
function Magneto_START()
    -- Magneto Selector START
    -- 131072 : 2^17
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,131072) ~= 0 then
        ipc.writeLvar('Magnetos1Pct', 100)
        ipc.control(66400,4)
    end
end

-- Gestion des Switchs
   
function Master_BAT()   
    -- Master Battery Bit : 2^0 = 1
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,1) ~= 0 then
            ipc.writeLvar('Battery1Switch', 1)
            radio = radio + 1
            if radio == 2 then
            ipc.sleep(2800)
            ipc.runLua("RadioPanel")
            end
    else
            ipc.writeLvar('Battery1Switch', 0)
            radio = radio - 1
    end
end

function Master_ALT()   
    -- Master Alternator Bit : 2^1 = 2
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,2) ~= 0 then
            ipc.writeLvar('Eng1_GeneratorSwitch', 1)
        else
            ipc.writeLvar('Eng1_GeneratorSwitch', 0)
    end
end

function Avionics()
    -- Avionics Bit : 2^2 = 4
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,4) ~= 0  then
        ipc.control(66701,1)       
        radio = radio + 1
        if radio == 2 then
        ipc.sleep(2800)
        ipc.runLua("RadioPanel")
        end
    else
        ipc.control(66701,0)
        radio = radio - 1
    end
end

function Fuel_PUMP()
    -- Fuel Pump Bit : 2^3 = 8
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,8) ~= 0  then
            ipc.control(66237,1)
        else
            ipc.control(66237,0)
    end
end
   
function De_ICE()   
    -- De-Ice Bit : 2^4 = 16
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,16) ~= 0  then
            ipc.control(66031,1)
        else
            ipc.control(66031,0)
    end
end

function Pitot_HEAT()
    -- Pitot Heat Bit : 2^5= 32
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,32) ~= 0  then
            ipc.control(65858,1)
        else
            ipc.control(65858,0)
    end
end

function Cowl_FLAPS()
    -- Cowl Bit : 2^6= 64
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,64) ~= 0  then
            ipc.control(66162,1)
        else
            ipc.control(66162,0)
    end
end
   
function Panel_LIGHT()   
    -- Panel LIGHTs Bit : 2^7= 128
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,128) ~= 0  then
            ipc.control(66058,1)
        else
            ipc.control(66058,0)
    end
end

function Beacon_LIGHT()
    -- Beacon LIGHTs Bit : 2^8= 256
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,256) ~= 0  then
            ipc.control(66239,1)
        else
            ipc.control(66239,0)
    end       
end
   
function Nav_LIGHT()   
    -- Nav LIGHTs Bit : 2^9= 512
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,512) ~= 0  then
            ipc.control(66379,1)
        else
            ipc.control(66379,0)
    end
end   

function Strobe_LIGHT()
    -- Strobe LIGHTs Bit : 2^10= 1024
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,1024) ~= 0  then
            ipc.control(66054,1)
        else
            ipc.control(66054,0)
    end
end
   
function Taxi_LIGHT()   
    -- Taxi LIGHTs Bit : 2^11= 2048
   if logic.And(testVar,2048) ~= 0  then
            ipc.control(66240,1)
        else
            ipc.control(66240,0)
    end
end

function Landing_LIGHT()   
    -- Landing LIGHTs Bit : 2^12= 4096
    testVar = ipc.readUD(0x66C0)
   if logic.And(testVar,4096) ~= 0  then
            ipc.control(66061,1)
        else
            ipc.control(66061,0)
    end
end
   
-- Gestion du Train ---
   
function Gear_UP()   
    -- Landing Gear Up Bit : 2^12= 262144
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,262144) ~= 0  then
            ipc.control(66079,1)
    end
end   

function Gear_DOWN()
    -- Landing Gear Down Bit : 2^12= 524288
    testVar = ipc.readUD(0x66C0)
    if logic.And(testVar,524288) ~= 0  then
            ipc.control(66080,0)
    end
end

----- INITIALISATION  Lecture position des switchs------

testVar = ipc.readUD(0x66C0)

    if logic.And(testVar,1) ~= 0 then Master_BAT() end
    if logic.And(testVar,2) ~= 0 then Master_ALT() end
    if logic.And(testVar,4) ~= 0 then Avionics() end
    if logic.And(testVar,8) ~= 0 then Fuel_PUMP() end
    if logic.And(testVar,16) ~= 0 then De_ICE() end
    if logic.And(testVar,32) ~= 0 then Pitot_HEAT() end
    if logic.And(testVar,64) ~= 0 then Cowl_FLAPS() end
    if logic.And(testVar,128) ~= 0 then Panel_LIGHT() end
    if logic.And(testVar,256) ~= 0 then Beacon_LIGHT() end
    if logic.And(testVar,512) ~= 0 then Nav_LIGHT() end
    if logic.And(testVar,1024) ~= 0 then Strobe_LIGHT() end
    if logic.And(testVar,2048) ~= 0 then Taxi_LIGHT() end
    if logic.And(testVar,4096) ~= 0 then Landing_LIGHT() end
    if logic.And(testVar,8192) ~= 0 then Magneto_OFF() end
    if logic.And(testVar,16384) ~= 0 then Magneto_LEFT() end
    if logic.And(testVar,32768) ~= 0 then Magneto_RIGHT() end
    if logic.And(testVar,65536) ~= 0 then Magneto_BOTH() end
    if logic.And(testVar,131072) ~= 0 then Magneto_START() end
    if logic.And(testVar,262144) ~= 0 then Gear_UP() end
    if logic.And(testVar,524288) ~= 0 then Gear_DOWN() end
   
-----------------------------------------------

-- Events Magneto --

event.offsetmask(0x66C0, 8192,'UD', 'Magneto_OFF')
event.offsetmask(0x66C0, 16384,'UD', 'Magneto_LEFT')
event.offsetmask(0x66C0, 32768,'UD', 'Magneto_RIGHT')
event.offsetmask(0x66C0, 65536,'UD', 'Magneto_BOTH')
event.offsetmask(0x66C0, 131072,'UD', 'Magneto_START')

-- Events Switchs --

event.offsetmask(0x66C0, 1,'UD', 'Master_BAT')
event.offsetmask(0x66C0, 2,'UD', 'Master_ALT')
event.offsetmask(0x66C0, 4,'UD', 'Avionics')
event.offsetmask(0x66C0, 8,'UD', 'Fuel_PUMP')
event.offsetmask(0x66C0, 16,'UD', 'De_ICE')
event.offsetmask(0x66C0, 32,'UD', 'Pitot_HEAT')
event.offsetmask(0x66C0, 64,'UD', 'Cowl_FLAPS')
event.offsetmask(0x66C0, 128,'UD', 'Panel_LIGHT')
event.offsetmask(0x66C0, 256,'UD', 'Beacon_LIGHT')
event.offsetmask(0x66C0, 512,'UD', 'Nav_LIGHT')
event.offsetmask(0x66C0, 1024,'UD', 'Strobe_LIGHT')
event.offsetmask(0x66C0, 2048,'UD', 'Taxi_LIGHT')
event.offsetmask(0x66C0, 4096,'UD', 'Landing_LIGHT')

-- Events Gear ---

event.offsetmask(0x66C0, 262144,'UD', 'Gear_UP')
event.offsetmask(0x66C0, 524288,'UD', 'Gear_DOWN')
[/Spoiler]

Les modifs sur le RadioPanel.lua :

[Spoiler]
function Radio_Off () --- A placer à la fin des fonctions et avant l'initialisation---
    if logic.And(0x66C0,1) == 0 or logic.And(0x66C0,4) == 0 then
    devradio = ipc.get("devradio")
    wrfradio = ipc.get("wrfradio")
     s=string.char(0,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,0,0)
     ipc.sleep(2000)
     com.writefeature (devradio, s, wrfradio)
     ipc.exit()
     end
end

--- Event Switch Panel Batterie et Avionique---
event.offsetmask(0x66C0, 1,'UD', 'Radio_Off')
event.offsetmask(0x66C0, 4,'UD', 'Radio_Off')
[/Spoiler]

-- Init Cold and Dark ---
--ipc.control(65707, 0x12210)


------------------------
------ TOP Items -------
------------------------

-- Top Left Mode Selector ---


function TLS_COM1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1) ~= 0 then
        TopSel = 'ACOM1'
        ipc.log(TopSel)
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A) -- com1 stand by       
        Get_Val_TOP(Vleft,Vright)
     end
end   
   
function TLS_COM2()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2) ~= 0 then
        TopSel = 'ACOM2'
        ipc.log(TopSel)
        Vleft = ipc.readUW(0x3118) -- com2
        Vright = ipc.readUW(0x311C) -- com2 stand by       
        Get_Val_TOP(Vleft,Vright)
    end
end

function TLS_NAV1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4) ~= 0 then
        ipc.set(TopSel,'ANAV1')
        ipc.display('nav1_haut',10)
    ipc.log('nav1_haut')
    end
end

function TLS_NAV2()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8) ~= 0 then
        TopSel = 'ANAV2'
        ipc.display('nav2_haut',10)
    ipc.log('nav2_haut')
    end
end
   
function TLS_ADF()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,16) ~= 0 then
    TopSel = 'AADF'
        ipc.display('adf_haut',10)
    ipc.log('adf_haut')
    end
end
   
function TLS_DME()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,32) ~= 0 then
    TopSel = 'ADME'
        ipc.display('dme_haut',10)
    ipc.log('dme_haut')   
    end
end

function TLS_XPDR()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,64) ~= 0 then
    TopSel = 'AXPDR'
        ipc.display('xpdr_haut',10)
    ipc.log('xpdr_haut')
    end
end

-- Top Right items ---

function TRI_ACTSTB()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,16384) ~= 0 then   
    ipc.display('stand-by_haut',10)
    ipc.log('stand-by_haut')
        if TopSel == "ACOM1" then
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A)-- com1 stdby
        ipc.writeUW(0x034E,Vright)
        ipc.writeUW(0x0311A,Vleft) -- on permute gauche et droite
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A)-- com1 stdby
        Get_Val_TOP(Vleft,Vright)
        elseif TopSel == "ACOM2" then
        Vleft = ipc.readUW(0x03118) -- com2
        Vright = ipc.readUW(0x311C)-- com2 stdby
        ipc.writeUW(0x03118,Vright)
        ipc.writeUW(0x0311C,Vleft) -- on permute gauche et droite
        Vleft = ipc.readUW(0x03118) -- com2
        Vright = ipc.readUW(0x311C)-- com2 stdby
        Get_Val_TOP(Vleft,Vright)
        end
    end
end

function TRI_OUT_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,262144) ~= 0 then
        ipc.display('gros horaire_haut',10)
    ipc.log('gros horaire_haut')
    end
end

function TRI_OUT_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,524288) ~= 0 then
        ipc.display('gros anti-horaire_haut',10)
    ipc.log('gros anti-horaire_haut')
    end
end

function TRI_IN_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,65536) ~= 0 then
        ipc.display('petit horaire_haut',10)
    ipc.log('petit horaire_haut')
    end
end

function TRI_IN_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,131072) ~= 0 then
        ipc.display('petit anti horaire_haut',10)
    ipc.log('petit anti horaire_haut')
    end
end

---------------------------
------ BOTTOM Items -------
---------------------------

-- Bottom Left Mode Selector ---

function BLS_COM1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,128) ~= 0 then
    BotSel = 'BCOM1'   
    ipc.log(BotSel)
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A) -- com1 stand by       
        Get_Val_BOT(Vleft,Vright)
    end
end   
   
function BLS_COM2()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,256) ~= 0 then
    BotSel = 'BCOM2'       
    ipc.log(BotSel)
        Vleft = ipc.readUW(0x3118) -- com2
        Vright = ipc.readUW(0x311C) -- com2 stand by       
        Get_Val_BOT(Vleft,Vright)
    end
end

function BLS_NAV1()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,512) ~= 0 then
    BotSel = 'nav1'
    ipc.display('nav1_bas',10)
    ipc.log('nav1_bas')
    ipc.log(BotSel)
    end
end

function BLS_NAV2()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1024) ~= 0 then
    BotSel = 'BNAV2'
        ipc.display('nav2_bas',10)
    ipc.log('nav2_bas')
    end
end
   
function BLS_ADF()
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2048) ~= 0 then
    BotSel = 'BADF'
        ipc.display('adf_bas',10)
    ipc.log('adf_bas')
    end
end
   
function BLS_DME()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4096) ~= 0 then
    BotSel = 'BDME'
        ipc.display('dme_bas',10)
    ipc.log('dme_bas')   
    end
end

function BLS_XPDR()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8192) ~= 0 then
    BotSel = 'BXPDR'
        ipc.display('xpdr_bas',10)
    ipc.log('xpdr_bas')
    end
end

-- Bottom Right items ---

function BRI_ACTSTB()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,32768) ~= 0 then
        ipc.display('stand-by_bas',10)
        ipc.log('stand-by_bas')
        if BotSel == "BCOM1" then
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A)-- com1 stdby
        ipc.writeUW(0x034E,Vright)
        ipc.writeUW(0x0311A,Vleft) -- on permute gauche et droite
        Vleft = ipc.readUW(0x034E) -- com1
        Vright = ipc.readUW(0x311A)-- com1 stdby
        Get_Val_BOT(Vleft,Vright)
        elseif BotSel == "BCOM2" then
        Vleft = ipc.readUW(0x03118) -- com2
        Vright = ipc.readUW(0x311C)-- com2 stdby
        ipc.writeUW(0x03118,Vright)
        ipc.writeUW(0x0311C,Vleft) -- on permute gauche et droite
        Vleft = ipc.readUW(0x03118) -- com2
        Vright = ipc.readUW(0x311C)-- com2 stdby
        Get_Val_BOT(Vleft,Vright)
        end
    end
end

function BRI_OUT_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,4194304) ~= 0 then
        ipc.display('gros horaire_bas',10)
    ipc.log('gros horaire_bas')
    end
end

function BRI_OUT_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,8388608) ~= 0 then
    ipc.display('gros anti-horaire_bas',10)
    ipc.log('gros anti-horaire_bas')
    end
end

function BRI_IN_KNOB_CW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,1048576) ~= 0 then
        ipc.display('petit horaire_bas',10)
    ipc.log('petit horaire_bas')
    end
end

function BRI_IN_KNOB_ACW()   
    testVar = ipc.readUD(0x3358)
    if logic.And(testVar,2097152) ~= 0 then
        ipc.display('petit anti horaire_bas',10)
    ipc.log('petit anti horaire_bas')
    end
end

------------------------------------------
function Get_Val_TOP(Vleft,Vright)
-- Lecture des offsets
    ipc.log("Fonction Get_Val_TOP")
--com1 = ipc.readUW(0x034E) -- com1
--com1stb = ipc.readUW(0x311A) -- com1 stand by
--com2 = ipc.readUW(0x3118) -- com2
--com2stb = ipc.readUW(0x311C) -- com2 stand by
--nav1 = ipc.readUW(0x0350) -- nav1
--nav1stb = ipc.readUW(0x311E) -- nav1stb
--nav2 = ipc.readUW(0x0352) -- nav2
--nav2stb = ipc.readUW(0x3120) -- nav2stb
-- Vleft=com1
-- Vright=com1stb
ipc.log("Vleft = "..Vleft)
ipc.log("Vright = "..Vright)
-- Conversion en HEX de Vleft
    setval = DEC_HEX(Vleft)
    ipc.log("Frq gauche apres conversion dec hex : 1 "..setval)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v1= 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"       
    ipc.log(string.sub(setval, 2, 2))
    v2 = 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v3 = 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v4 = 240 + tonumber(string.sub(setval, 4, 4))   
    ipc.log("v1="..v1.." v2="..v2.." v3="..v3.." v4="..v4)
   
-- Conversion en HEX de Vright
    setval = DEC_HEX(Vright)
    ipc.log("Frq droite apres conversion dec hex : 1 "..setval)
    -- Extraction du 1er chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 1, 1))
    v5 = 240 + tonumber(string.sub(setval, 1, 1))
    -- Extraction du 2eme chiffre et conversion "saïtek"       
    ipc.log(string.sub(setval, 2, 2))
    v6 = 208 + tonumber(string.sub(setval, 2, 2))
    -- Extraction du 3eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 3, 3))
    v7= 240 + tonumber(string.sub(setval, 3, 3))
    -- Extraction du 4eme chiffre et conversion "saïtek"
    ipc.log(string.sub(setval, 4, 4))
    v8 = 240 + tonumber(string.sub(setval, 4, 4))   
    ipc.log("v5="..v5.." v6="..v6.." v7="..v7.." v8="..v8)
    gvt = 1
    Write_Panel ()
end
   
-- Lecture de la position du sélecteur du bas

function Get_Val_BOT(Vleft,Vright)
ipc.log("Fonction Get_Val_BOT")
ipc.log("Botsel= "..BotSel)
ipc.log("Vleft = "..Vleft)
ipc.log("Vright = "..Vright)
    if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
        ipc.log("traitement de botsel")
        -- Conversion en HEX de BotSel
        -- Vleft = nav1
        setval = DEC_HEX(Vleft)
        ipc.log("Frq gauche apres conversion dec hex : 1 "..setval)
        -- Extraction du 1er chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 1, 1))
        v9= 240 + tonumber(string.sub(setval, 1, 1))
        -- Extraction du 2eme chiffre et conversion "saïtek"       
        ipc.log(string.sub(setval, 2, 2))
        v10= 208 + tonumber(string.sub(setval, 2, 2))
        -- Extraction du 3eme chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 3, 3))
        v11 = 240 + tonumber(string.sub(setval, 3, 3))
        -- Extraction du 4eme chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 4, 4))
        v12 = 240 + tonumber(string.sub(setval, 4, 4))
        ipc.log("v9="..v9.." v10="..v10.." v11="..v11.." v12="..v12)

        -- Conversion en HEX de Vright
        -- Vright = nav1stb
        setval = DEC_HEX(Vright)
        ipc.log("Frq droite apres conversion dec hex : 1 "..setval)
        -- Extraction du 1er chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 1, 1))
        v13 = 240 + tonumber(string.sub(setval, 1, 1))
        -- Extraction du 2eme chiffre et conversion "saïtek"       
        ipc.log(string.sub(setval, 2, 2))
        v14 = 208 + tonumber(string.sub(setval, 2, 2))
        -- Extraction du 3eme chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 3, 3))
        v15 = 240 + tonumber(string.sub(setval, 3, 3))
        -- Extraction du 4eme chiffre et conversion "saïtek"
        ipc.log(string.sub(setval, 4, 4))
        v16 = 240 + tonumber(string.sub(setval, 4, 4))   
        ipc.log("v13="..v13.." v14="..v14.." v15="..v15.." v16="..v16)
      
    elseif BotSel == 'BADF' then
        ipc.log("Bottom Selector : ADF")
        ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
        ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
        ipc.log("ADF1A : "..ADF1A)
        ipc.log("ADF1B : "..ADF1B)
        A = DEC_HEX(ADF1A)
        B = DEC_HEX(ADF1B)
        ipc.log("A : "..A)
        ipc.log("B : "..B)
    elseif BotSel == 'BXPDR' then
        ipc.log("Bottom Selector : ADF")
    elseif BotSel == 'BDME' then
        ipc.log("Bottom Selector : ADF")
    end
    gvb = 1
    Write_Panel ()
end

function Write_Panel ()
    ipc.log("fonction Write_Panel")
    if gvt ~= nil and gvb ~= nil then
    devradio = ipc.get("devradio")
    wrfradio = ipc.get("wrfradio")   
    -- Définition de la variable s : Valeurs à écrire dans le module Saïtek
    s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
    ipc.log("s="..s)
    --s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)   
    -- Envoi des valeurs dans le module Saïtek
    com.writefeature (devradio, s, wrfradio)
    end
end

function DEC_HEX(IN)
    local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
    while IN>0 do
        I=I+1
        IN,D=math.floor(IN/B),math.mod(IN,B)+1
        OUT=string.sub(K,D,D)..OUT
    end
    return OUT
end

function Radio_Off ()
    testvar = ipc.readUD(0x66c0)
    ipc.log("fonction Radio_Off "..testvar)
    if logic.And(testvar,1) == 0 or logic.And(testvar,4) == 0 then
    ipc.log("0x66C0,1 "..logic.And(testvar,1))
    ipc.log("0x66C0,4 "..logic.And(testvar,4))
    devradio = ipc.get("devradio")
    wrfradio = ipc.get("wrfradio")
     s=string.char(0,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,0,0)
     ipc.log("s="..s)
     ipc.sleep(2000)
     ipc.log("Sortie du script")
     com.writefeature (devradio, s, wrfradio)
     ipc.exit()
     end
end
-----------------------------------------------
----- INITIALISATION  Lecture position des switchs------

testVar = ipc.readUD(0x3358)
ipc.log("Initialisation RadioPanel. testVar = "..testVar)
--- Bouton haut --
    if logic.And(testVar,1) ~= 0 then TLS_COM1()
    elseif logic.And(testVar,2) ~= 0 then TLS_COM2()
    elseif logic.And(testVar,4) ~= 0 then TLS_NAV1()
    elseif logic.And(testVar,8) ~= 0 then TLS_NAV2()
    elseif logic.And(testVar,16) ~= 0 then TLS_ADF()
    elseif logic.And(testVar,32) ~= 0 then TLS_DME()
    elseif logic.And(testVar,64) ~= 0 then TLS_XPDR()
    end
--- Bouton bas --
    if logic.And(testVar,128) ~= 0 then BLS_COM1()
    elseif logic.And(testVar,256) ~= 0 then BLS_COM2()
    elseif logic.And(testVar,512) ~= 0 then BLS_NAV1()
    elseif logic.And(testVar,1024) ~= 0 then BLS_NAV2()
    elseif logic.And(testVar,2048) ~= 0 then BLS_ADF()
    elseif logic.And(testVar,4096) ~= 0 then BLS_DME()
    elseif logic.And(testVar,8192) ~= 0 then BLS_XPDR()
    end
ipc.log("Fin initialisation")

-- Events Top Items --

event.offsetmask(0x3358, 1,'UD', 'TLS_COM1')
event.offsetmask(0x3358, 2,'UD', 'TLS_COM2')
event.offsetmask(0x3358, 4,'UD', 'TLS_NAV1')
event.offsetmask(0x3358, 8,'UD', 'TLS_NAV2')
event.offsetmask(0x3358, 16,'UD', 'TLS_ADF')
event.offsetmask(0x3358, 32,'UD', 'TLS_DME')
event.offsetmask(0x3358, 64,'UD', 'TLS_XPDR')
event.offsetmask(0x3358, 16384,'UD', 'TRI_ACTSTB') --
event.offsetmask(0x3358, 524288,'UD', 'TRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 262144,'UD', 'TRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 65536,'UD', 'TRI_IN_KNOB_CW')
event.offsetmask(0x3358, 131072,'UD', 'TRI_IN_KNOB_ACW')

-- Events Bottom Items --

event.offsetmask(0x3358, 128,'UD', 'BLS_COM1')
event.offsetmask(0x3358, 256,'UD', 'BLS_COM2')
event.offsetmask(0x3358, 512,'UD', 'BLS_NAV1')
event.offsetmask(0x3358, 1024,'UD', 'BLS_NAV2')
event.offsetmask(0x3358, 2048,'UD', 'BLS_ADF')
event.offsetmask(0x3358, 4096,'UD', 'BLS_DME')
event.offsetmask(0x3358, 8192,'UD', 'BLS_XPDR')
event.offsetmask(0x3358, 32768,'UD', 'BRI_ACTSTB')
event.offsetmask(0x3358, 4194304,'UD', 'BRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 8388608,'UD', 'BRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 2097152,'UD', 'BRI_IN_KNOB_ACW')
event.offsetmask(0x3358, 1048576,'UD', 'BRI_IN_KNOB_ACW')

--- Event Switch Panel Batterie et Avionique
event.offsetmask(0x66C0, 1,'UD', 'Radio_Off')
event.offsetmask(0x66C0, 4,'UD', 'Radio_Off')
[/Spoiler]