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

-------------------------------------------------------
-- Détection de l'état des sélecteur du module Radio --
-------------------------------------------------------

-- 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

TopSel = " "
BotSel = " "
VleftTop = " "
VrightTop = " "
VleftBottom = " "
VrightBottom = " "

RadioTest = ipc.readUD(0x3358)
    if logic.And(RadioTest,1) ~= 0 then
        TopSel = 'ACOM1'
        VleftTop = com1
        VrightTop = com1stb
        ipc.log("VleftTop : "..com1)
        ipc.log("VrightTop : "..com1stb)
    end
   
    if logic.And(RadioTest,2) ~= 0 then
        TopSel = 'ACOM2'
    end
       
    if logic.And(RadioTest,4) ~= 0 then
        ipc.set(TopSel,'ANAV1')
    end

    if logic.And(RadioTest,8) ~= 0 then
        TopSel = 'ANAV2'
    end

    if logic.And(RadioTest,16) ~= 0 then
        TopSel = 'AADF'
    end

    if logic.And(RadioTest,32) ~= 0 then
        TopSel = 'ADME'
    end

    if logic.And(RadioTest,192) ~= 0 then
        TopSel = 'AXPDR'
    end
   
    if logic.And(RadioTest,128) ~= 0 then
        BotSel = 'BCOM1'
    end
 
    if logic.And(RadioTest,256) ~= 0 then
        BotSel = 'BCOM2'
    end

    if logic.And(RadioTest,512) ~= 0 then
        BotSel = 'BNAV1'
        VleftBottom = nav1
        VrightBottom = nav1stb
        ipc.log("VleftBottom : "..nav1)
        ipc.log("VrightBottom : "..nav1stb)
    end

    if logic.And(RadioTest,1024) ~= 0 then
        BotSel = 'BNAV2'
        VleftBottom = nav2
        VrightBottom = nav2stb
        ipc.log("VleftBottom : "..nav2)
        ipc.log("VrightBottom : "..nav2stb)
    end
   
    if logic.And(RadioTest,2048) ~= 0 then
        BotSel = 'BADF'
    end
   
    if logic.And(RadioTest,4096) ~= 0 then
        BotSel = 'BDME'
    end

    if logic.And(RadioTest,8192) ~= 0 then
        BotSel = 'BXPDR'
    end
   
    ipc.log("TopSel : "..TopSel)
    ipc.log("BotSel : "..BotSel)
   
-------------------------
-- 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)
    else
            ipc.writeLvar('Battery1Switch', 0)
    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)
                        ipc.sleep(2800)
            Get_Val(VleftTop,VrightTop)
    else
            ipc.control(66701,0)
            -- Lecture des variables initialisées dans HidRadio.lua
            devradio = ipc.get("devradio")
            wrfradio = ipc.get("wrfradio")
            -- Définition de la variable s : 250 = blank
            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)
            -- Envoi des valeurs dans le module Saïtek
            com.writefeature (devradio, s, wrfradio)
    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,66079) ~= 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,66080) ~= 0  then
            ipc.control(66080,0)
    end
end

-------------------------------------------
--            Fonctions                  --
-------------------------------------------

function Get_Val(VleftTop,VrightTop)
ipc.log("Get_Val")

ipc.log("Conversion VleftTop : "..VleftTop)
ipc.log("Conversion VrightTop : "..VrightTop)

-- Conversion en HEX de VleftTop
    setval = DEC_HEX(VleftTop)
    -- 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 VrightTop
    setval = DEC_HEX(VrightTop)
    -- 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 VleftBottom
    setval = DEC_HEX(VleftBottom)
    -- 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 VrightBottom
    setval = DEC_HEX(VrightBottom)
    -- 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=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 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]