MistDBStats

function save_stat(text)
    --initiating IO operation on the file
    local fdir = lfs.writedir() .. [[Logs\Save_stat\]] .. "statistics.lua"
    local f,err = io.open(fdir,"w")
        if not f then
            local errmsg = 'Error: Need to create new folder in the Logs folder with the name' .. 'Save_stat . sample: C:\Users\youname\Saved Games\DCS\Logs\Save_stat'
            trigger.action.outText(errmsg, 10)
            return print(err)
        end

    --dead units tables
    local deadvehicle = {['red'] = {},['blue'] = {}}
    local deadhelicopter = {['red'] = {},['blue'] = {}}
    local deadplane = {['red'] = {},['blue'] = {}}
    local deadship = {['red'] = {},['blue'] = {}}
    local deadstatic = {['red'] = {},['blue'] = {}}
    local deadbuilding = {['red'] = {},['blue'] = {}}
    local deadunknown = {['red'] = {},['blue'] = {}}


    --adding data on each unit to the correct table
    for id, data in pairs(mist.DBs.deadObjects) do
        if mist.DBs.deadObjects[id].objectData.coalition == "red" then
            if mist.DBs.deadObjects[id].objectType == "vehicle" then
                i = 1
                deadvehicle.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "helicopter" then
                i = 1
                deadhelicopter.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "plane" then
                i = 1
                deadplane.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "ship" then
                i = 1
                deadship.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "static" then
                i = 1
                deadstatic.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "building" then
                i = 1
                deadbuilding.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "unknown" then
                i = 1
                deadunknown.red[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            end
        elseif  mist.DBs.deadObjects[id].objectData.coalition == "blue" then
            if mist.DBs.deadObjects[id].objectType == "vehicle" then
                i = 1
                deadvehicle.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "helicopter" then
                i = 1
                deadhelicopter.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "plane" then
                i = 1
                deadplane.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "ship" then
                i = 1
                deadship.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "static" then
                i = 1
                deadstatic.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "building" then
                i = 1
                deadbuilding.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            elseif mist.DBs.deadObjects[id].objectType == "unknown" then
                i = 1
                deadunknown.blue[i] =
                {
                    ["Name"] = mist.DBs.deadObjects[id].objectData.unitName,
                    ["Type"] = mist.DBs.deadObjects[id].objectData.type,
                }
                i = i+1
            end
        end
    end

    --write statistic information to file
    f:write('------MISSION STATISTICS------\n\n')
    for coalition, vlist in pairs(deadvehicle) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadhelicopter) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadplane) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadship) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadstatic) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadbuilding) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end

    for coalition, vlist in pairs(deadunknown) do
        f:write(coalition..' destroyed vehicles\n')
        f:write('ID,Name,Type\n')
        for index, vdata in pairs(vlist) do
            f:write(index..",")
            for id, Ldata in pairs(vdata) do
                f:write(Ldata..",")
            end
            f:write("\n")
        end
        f:write("\n\n")
    end
    f:close()

    timer.scheduleFunction(save_stat, 'Statistics' .. timer.getTime() .. '.lua', timer.getTime() + 600)
    trigger.action.outText('File saved to: ' .. lfs.writedir() .. [[Logs\Save_stat\]] .. text, 15)
end