------------------------------------------ Библиотеки ---------------------------------------------------------------

local ecs = require("ECSAPI")
local fs = require("filesystem")
local gpu = require("component").gpu
local unicode = require("unicode")
local event = require("event")
local serialization = require("serialization")

------------------------------------------ Переменные ---------------------------------------------------------------

local width, height = 70, 30
local x, y = ecs.correctStartCoords("auto", "auto", width, height)
local oldPixels = ecs.rememberOldPixels(x, y, x + width - 1, y + height - 1)
local dataWidth, dataHeight = width - 6, height - 14
local drawListFrom = 1
local selectedObject = 3
local pathToList = "MineOS/System/AutorunManager/Filelist.txt"
local autorunObjects = {
    -- { path = "OS.lua", enabled = true, size = 30 },
    -- { path = "Cyka/Home.lua", enabled = true, size = 30 },
    -- { path = "Pidar/Lalra/Cyka.lua", enabled = true, size = 30 },
    -- { path = "322File.lua", enabled = false, size = 30 },
    -- { path = "SasiHyu.lua", enabled = true, size = 30 },
    -- { path = "Blabla.cfg", enabled = false, size = 30 },
}

------------------------------------------ Функции ---------------------------------------------------------------

--Объекты для тача
local obj = {}
local function newObj(class, name, ...)
    obj[class] = obj[class] or {}
    obj[class][name] = {...}
end

local function saveAutorun()
    local file = io.open("autorun.lua", "w")
    file:write("local success, reason\n")
    for i = 1, #autorunObjects do
        if autorunObjects[i].enabled then
            file:write("success, reason = pcall(loadfile(\"" .. autorunObjects[i].path .. "\")); if not success then print(\"Ошибка: \" .. tostring(reason)) end\n")
        end
    end
    file:close()
end

local function saveList()
    local file = io.open(pathToList, "w")
    file:write(serialization.serialize(autorunObjects))
    file:close()
end

local function loadList()
    if fs.exists(pathToList) then
        local file = io.open(pathToList, "r")
        local text = file:read("*a")
        autorunObjects = serialization.unserialize(text)
        file:close()
    else
        fs.makeDirectory(fs.path(pathToList))
        saveList()
    end
end

local function drawFiles(x, y)

    local limit, from = dataHeight, drawListFrom

    obj["List"] = {}

    local yPos = y + 1

    ecs.square(x, y, dataWidth, dataHeight, 0xFFFFFF)
    ecs.square(x, y, dataWidth, 1, ecs.colors.blue)
    gpu.setForeground(0xFFFFFF)
    gpu.set(x + 1, y, "Запуск")
    gpu.set(x + 9, y, "Файл")
    gpu.set(x + 48, y, "Размер")

    ecs.srollBar(x + dataWidth - 1, yPos, 1, dataHeight - 1, #autorunObjects == 0 and from or #autorunObjects, from, 0xCCCCCC, ecs.colors.lightBlue)


    local color, color2
    for i = from, (from + #autorunObjects - 1) do
        if i > limit then break end
        if i % 2 == 0 then color = 0xFFFFFF; color2 = 0x262626 else color = 0xEEEEEE; color2 = 0x262626 end
        if i == selectedObject then color = ecs.colors.green; color2 = 0xFFFFFF end

        if autorunObjects[i] then

            ecs.square(x, yPos, dataWidth - 1, 1, color)

            if autorunObjects[i].enabled then
                ecs.colorTextWithBack(x + 3, yPos, ecs.colors.blue, color, "✔")
            else
                ecs.colorTextWithBack(x + 3, yPos, ecs.colors.red, color, "❌")
            end

            gpu.setBackground(color)
            gpu.setForeground(color2)
            gpu.set(x + 9, yPos, ecs.stringLimit("start", autorunObjects[i].path, 37))

            gpu.set(x + 48, yPos, autorunObjects[i].size .. " КБ")

            newObj("List", i, x, yPos, x + dataWidth - 1, yPos)

            yPos = yPos + 1
        end
    end
end

local function drawWindow()
    local xPos, yPos

    ecs.square(x, y, width, height, 0xDDDDDD)

    xPos = x + 3
    yPos = y + 4

    ecs.colorText(xPos, yPos, 0x262626, "Эти объекты будут запускаться автоматически при загрузке:")
    yPos = yPos + 2

    ecs.square(x, y, width, 3, 0xCCCCCC)

    ecs.centerText("x", y + 1, "Менеджер автозагрузки")

    drawFiles(x + 3, y + 6)

    yPos = y + height - 7
    ecs.colorTextWithBack(xPos, yPos, 0x262626, 0xDDDDDD, "Чтобы отключить загрузку файла, снимите галочку рядом с именем")
    yPos = yPos + 1
    gpu.set(xPos, yPos, "программы. Приоритет загузки снижается сверху вниз.")
    yPos = yPos + 2

    local name
    name = "+"; newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0xFFFFFF, 0x262626)); xPos = obj["Buttons"][name][3] + 2
    name = "-"; newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0xFFFFFF, 0x262626)); xPos = obj["Buttons"][name][3] + 2

    name = "Выше"; newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0xFFFFFF, 0x262626)); xPos = obj["Buttons"][name][3] + 2
    name = "Ниже"; newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0xFFFFFF, 0x262626)); xPos = obj["Buttons"][name][3] + 2
    -- if fs.isAutorunEnabled() then
    --  name = "Выключить автозапуск"
    -- else
    --  name = "Включить автозапуск "
    -- end
    -- newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0xAAAAAA, 0xFFFFFF)); xPos = obj["Buttons"][name][3] + 2

    xPos = x + width - 12
    name = "Выход"; newObj("Buttons", name, ecs.drawAdaptiveButton(xPos, yPos, 2, 1, name, 0x888888, 0xFFFFFF))
end

------------------------------------------ Программа ---------------------------------------------------------------

loadList()
drawWindow()

while true do
    local e = {event.pull()}
    if e[1] == "touch" then
        --if obj["List"] and #obj["List"] > 0 then
            for key in pairs(obj["List"]) do
                if ecs.clickedAtArea(e[3], e[4], obj["List"][key][1], obj["List"][key][2], obj["List"][key][3], obj["List"][key][4]) then
                    if selectedObject ~= key then
                        selectedObject = key
                        drawFiles(x + 3, y + 6)
                    else
                        if e[3] >= obj["List"][key][1] + 2 and e[3] <= obj["List"][key][1] + 4 then
                            autorunObjects[key].enabled = not autorunObjects[key].enabled
                            drawFiles(x + 3, y + 6)
                            saveList()
                            saveAutorun()
                        end
                    end
                    break
                end
            end
        --end

        for key in pairs(obj["Buttons"]) do
            if ecs.clickedAtArea(e[3], e[4], obj["Buttons"][key][1], obj["Buttons"][key][2], obj["Buttons"][key][3], obj["Buttons"][key][4]) then
                ecs.drawAdaptiveButton(obj["Buttons"][key][1], obj["Buttons"][key][2], 2, 1, key, ecs.colors.blue, 0xFFFFFF)
                os.sleep(0.2)
                ecs.drawAdaptiveButton(obj["Buttons"][key][1], obj["Buttons"][key][2], 2, 1, key, 0xFFFFFF, 0x262626)

                if key == "-" then
                    table.remove(autorunObjects, selectedObject)
                    if drawListFrom == selectedObject then drawListFrom = 1 end
                    drawFiles(x + 3, y + 6)
                    saveList()
                    saveAutorun()
                elseif key == "+" then
                    local data = ecs.universalWindow("auto", "auto", 36, 0xeeeeee, true, {"EmptyLine"}, {"CenterText", 0x880000, "Добавить новый файл"}, {"EmptyLine"}, {"Input", 0x262626, 0x880000, "Путь к файлу"}, {"EmptyLine"}, {"Button", {0x888888, 0xffffff, "Добавить"}, {0xAAAAAA, 0xffffff, "Отмена"}})
                    if data[2] == "Добавить" then
                        if fs.exists(data[1]) then
                            local cyka = false
                            for i = 1, #autorunObjects do
                                if autorunObjects[i].path == data[1] then cyka = true end
                            end
                            if not cyka then
                                table.insert(autorunObjects, { path = data[1], enabled = true, size = math.ceil(fs.size(data[1]) / 1024) })
                                drawFiles(x + 3, y + 6)
                                saveList()
                                saveAutorun()
                            else
                                ecs.error("Файл \"" .. data[1] .. "\" уже есть в этом списке!")
                            end
                        else
                            ecs.error("Файл \"" .. data[1] .. "\" не существует!")
                        end
                    end
                elseif key == "Выше" then
                    if selectedObject > 1 then
                        local cyka = autorunObjects[selectedObject]
                        table.remove(autorunObjects, selectedObject)
                        table.insert(autorunObjects, selectedObject - 1, cyka)
                        selectedObject = selectedObject - 1
                        drawFiles(x + 3, y + 6)
                        saveList()
                        saveAutorun()
                    end
                elseif key == "Ниже" then
                    if selectedObject < #autorunObjects then
                        local cyka = autorunObjects[selectedObject]
                        table.remove(autorunObjects, selectedObject)
                        table.insert(autorunObjects, selectedObject + 1, cyka)
                        selectedObject = selectedObject + 1
                        drawFiles(x + 3, y + 6)
                        saveList()
                        saveAutorun()
                    end
                elseif key == "Выход" then
                    ecs.drawOldPixels(oldPixels)
                    return
                -- elseif key == "Включить автозапуск " then
                --  fs.setAutorunEnabled(true)
                --  drawWindow()
                -- elseif key == "Выключить автозапуск" then
                --  fs.setAutorunEnabled(false)
                --  drawWindow()
                end

                break
            end
        end

    elseif e[1] == "scroll" then
        if e[5] == 1 then
            if drawListFrom > 1 then drawListFrom = drawListFrom - 1; drawFiles(x + 3, y + 6) end
        else
            if drawListFrom < #autorunObjects then drawListFrom = drawListFrom + 1; drawFiles(x + 3, y + 6) end
        end
    end
end