dofile("./Scripts/Aircrafts/Ka-50/Cockpit/devices.lua") -- enumeration of cockpit devices
dofile("./Scripts/Aircrafts/Ka-50/Cockpit/command_defs.lua")

function LuaExportStart()
  local file = io.open("./Temp/Export.log", "w")
  if file then
    io.output(file)
  end

  local R_800 = GetDevice(48)
  local radio = R_800:l_get_state()

  iradio = {}

  iradio.time = 0
  iradio.freq = radio["frequency"]
  iradio.state = radio["isOn"]
  iradio.mod = radio["modulation"]
  
end

function LuaExportBeforeNextFrame()
end

function LuaExportAfterNextFrame()
end


function LuaExportStop()
    local DCS_IRadio = require ("luaRun")
    DCS_IRadio.Run(".\\Plugin\\vlc.exe","--qt-start-minimized --one-instance vlc://quit")
    io.close()
end

function LuaExportActivityNextEvent(t)
    local tNext = t

    tNext = tNext + 1.0

    -- если разбился верт
    if not LoGetPlayerPlaneId() then
         if (iradio.state) then iradio.state = false; DCS_IRadio.Run(".\\Plugin\\vlc.exe","--qt-start-minimized --one-instance vlc://quit"); end
         return tNext
    end

    local function iradioJoin(freq)
        local ost = math.fmod(freq,25000)
        if (ost > 5000) then
            freq = freq + (25000-ost)
        else
            freq = freq - ost
        end
        freq = tostring(freq/1000)
        return freq
    end

    --local username = LoGetPilotName()
    --iconv_LocalFromUTF8(string)     and    iconv_UTF8FromLocal(string)

    local DCS_IRadio = require ("luaRun")
    
    local R_800 = GetDevice(48)
    local radio = R_800:l_get_state()

    if (R_800) then

        if (radio["frequency"] ~= iradio.freq) and (radio["isOn"] == true) and (radio["modulation"] == "FM") then
            iradio.time = t
            if (iradio.change == false) then link = "vlc://pause:0" end
            iradio.change = true
            iradio.freq = radio["frequency"]

        end
        if (radio["isOn"] ~= iradio.state) and (radio["isOn"] == true) and (radio["modulation"] == "FM") then -- включили радио
            iradio.time = t
            iradio.state = radio["isOn"]
            iradio.change = true
        elseif (radio["isOn"] ~= iradio.state) and (radio["isOn"] == false) then -- выключили радио
            iradio.state = radio["isOn"]
            iradio.change = false
            link = "vlc://quit"
			
        end
        if (iradio.change) and (radio["isOn"] == true) and (iradio.time + 2 <= t) and (radio["modulation"] == "FM") then -- если при включённом радио изменяется частота
            dofile("./Plugin/ifreq.lua")
            iradio.change = false
            local freq = iradioJoin(radio["frequency"])
            if (ifreq[freq]) then
                link = ifreq[freq]
            end
			
        end

        if (iradio.mod ~= radio["modulation"]) then
            iradio.mod = radio["modulation"]
            if (radio["modulation"] == "AM") then link = "vlc://pause:0"; end
        end

        if (link) then
            link = "--qt-start-minimized --one-instance "..link
            DCS_IRadio.Run(".\\Plugin\\vlc.exe",link)
            link = nil
			
        end
    end
    return tNext
end