local component = require("component")
local event = require("event")
local fs = require("filesystem")
local computer = require("computer")
local gpu = component.gpu
local items = {
    {"dwcity:Materia", 0},
    {"minecraft:iron_ingot", 0},
    {"IC2:itemIngot", 0},
    {"IC2:itemIngot", 1},
    {"minecraft:gold_ingot", 0},
    {"minecraft:redstone", 0},
    {"minecraft:coal", 0},
    {"dwcity:X32", 0}
}
--------------------------------------------------------------
local colors= {
    blue = 0x05F5F0,
    black = 0x000000,
    bred = 0xFF2400,
    green = 0x99FF33,
    sun = 0xFFFF00,
    red = 0x0052A3,
    orange = 0xFFA500,
    mem = 0xFFFFFF, -- память
    gray = 0x939393,
    hex = 0xC522A9,
    pur = 0x00FF00,
    red1 = 0xFF2400,
}
-----------------------------------------------------------------------
local friendList = {
    "Skayrons",
    "Lovense",
    "Truncator",
    "Lovense1",
}
local players = {
    {"Skayrons",false},
    {"Lovense",false},
    {"Lovense1",false},
    {"Truncator",false},
}
local blackList = {
    "krissss",
    "combomaster",
    "AliceWay",
    "sima21",
    "SkyDrive_",
    "Phenomenoon",
    "jewiven",
    "_Desert_Eagle_",
    "Samaya",
}
--------------------------------------------------------------------
local chat_box, me, sensor, counter, bridge
local euWorking, average, cb, me_a, s, bridgeCom, allow_mem = true, false, false, false, false,
false, false
-------------{OPTIONS}------------------
local TIME_ZONE = 3
local widthBox = 90
local transBox = 0.3
local timeConstant = 1
local getY = 24
---------------------------------------------
local TC, RO, RN, RD, TPS = 2, 0, 0, 0, 0
local strTPS = ""
---------------------------------------------
local t_correction = TIME_ZONE * 3600
local chat_box_name = "§8[§4Малышка§8]"
local adm = "Truncator" -- Ник админа компа
local allow_mem = false -- Отображать на экране кол-во памяти или нет
--------------------------------------------------ENERGY-PROXY-----------------------------------------------------
local average_counter = {
    molecular = {
        proxy=component.proxy("1f86c069-deca-433e-960b-2c75fd811e0d"),
        icon="AdvancedSolarPanel:BlockMolecularTransformer",
        use=true,
        coordinates = {x = 1, y = getY + 75},
        color = colors.orange
    }
}
---------------------------------------------------------------------------------------------------------------------------------
local localize = {
    join_in_game = " §7вошел в игру!",
    left_from_game = " §7покинул игру!",
}

---------------------VISUAL----------------------------------------VISUAL-------------------------------------------------------------
local function addBox(x, y, w, h, color, tran)
    return bridge.addBox(x, y, w, h, color, tran)
end

local function addText(x, y, text, color)
    return bridge.addText(x, y, text, color)
end

local function addIcon(x, y, name, meta)
    return bridge.addIcon(x, y, name, meta)
end

function gui()
    w, h = gpu.maxResolution()
    gpu.fill(1, 1, w, h, " ")
end
------------------------------------------------------------CHECK-COM---------------------------------------------------
local function digital(n)
    local text=''
    for f in string.gmatch(n,'%d') do text=text..f end
    return text
end

function check()
    if component.isAvailable("average_counter") then
        average = true
        counter = component.average_counter
    end
    if component.isAvailable("chat_box") then
        cb = true
        chat_box = component.chat_box
        chat_box.setName(chat_box_name)
    end
    if component.isAvailable("me_interface") then
        me_a = true
        me = component.me_interface
    end
    if component.isAvailable("openperipheral_sensor") then
        s = true
        sensor = component.openperipheral_sensor
    end
    if component.isAvailable("openperipheral_bridge") then
        bridgeCom = true
        bridge = component.openperipheral_bridge
    end
    componentsOnScreen()
    return false
end
------------------------------------------------------------TIME----------------------------------------------------------
local function getTime()
    local f = io.open("/tmp/TF", "w")
    f:write("test")
    f:close()
    return (fs.lastModified("/tmp/TF"))
end

local function drawTime()
    local time = getTime()
    local lastmod = tonumber(string.sub(time, 1, -4)) + TIME_ZONE * 3600
    local dt = os.date('%H:%M', lastmod)

    local x = 1
    local y = getY + 16
    local width = widthBox
    local height = 17
    local backgroundColor = colors.black
    local transparency = transBox

    addBox(x, y, width, height, backgroundColor, transparency)

    local textX = x + 10
    local textY = y + 5

    local textColor = colors.sun

    addText(textX, textY, "Время " .. dt, textColor)
end
--------------------------------------------

--------------------------------------------
function componentsOnScreen()
    gpu.set(1, 1, "TPS: " .. tostring(getAvgTPS()))
    gpu.set(1, 2, "Molecular AVG: " .. getMolecularAvg())
end

function getSize(name,dmg)
    for _, item in ipairs(me.getItemsInNetwork()) do
        if item.name == name and item.damage == dmg then
            return item.size
        end
    end
    return 0
end

local function string_number(num)
    local answer = ""
    local reverse_num = {}
    local num = tostring(num):gsub(".", function(c)
        table.insert(reverse_num, c)
    end)
    for index, _ in pairs(reverse_num) do
        answer = answer .. reverse_num[#reverse_num - index + 1]
        if index % 3 == 0 and index ~= #reverse_num then
            answer = answer .. " "
        end
    end
    return answer:reverse()
end
-------------------------------------------------------------------ITEMS-------------------------------------------------------
local function formatNumber(num)
    if num >= 1000000 then
        return string.format("%.1fM", num / 1000000)
    elseif num >= 1000 then
        return string.format("%.fK", num / 1000)
    else
        return tostring(num)
    end
end

local function drawItems()
    if me_a then
        local y = getY + 100
        local columnWidth = widthBox / 2 -- Ширина каждого столбца
        local itemsPerColumn = math.ceil(#items / 2) -- Количество элементов в каждом столбце

        addBox(1, y - 5, columnWidth, itemsPerColumn * 19, colors.black, transBox) -- Первый столбец
        addBox(columnWidth + 1, y - 5, columnWidth, itemsPerColumn * 19, colors.black, transBox) -- Второй столбец

        for i = 1, #items do
            local column = math.ceil(i / itemsPerColumn) -- Определение текущего столбца
            local offsetX = (column - 1) * columnWidth -- Смещение по горизонтали в зависимости от текущего столбца

            local itemIndex = i % itemsPerColumn -- Индекс элемента в текущем столбце
            if itemIndex == 0 then
                itemIndex = itemsPerColumn
            end

            local itemY = y + (itemIndex - 1) * 18 -- Рассчитываем позицию Y для текущего элемента
            addIcon(offsetX + 3, itemY - 4, items[i][1], items[i][2])
            local formattedNumber = formatNumber(getSize(items[i][1], items[i][2]))
            addText(offsetX + 21, itemY, formattedNumber, colors.blue)
        end
    end
end
-------------------------------------------------------------MOLECULAR-----------------------------------------------------------------
local function toggleMolecular2Energy()
    local molecular2_data = average_counter["molecular2"]
    if molecular2_data and molecular2_data.use then
        local averageEU = molecular2_data.proxy.getAverage()
        local currentRedstoneState = redstone.getOutput(redstoneSide)

        -- Если значение энергии равно нулю и Redstone включен, выключаем Redstone
        if averageEU == 0 and currentRedstoneState == 15 then
            redstone.setOutput(redstoneSide, 0)
            euWorking = true
            -- Если значение энергии больше нуля и Redstone выключен, включаем Redstone
        elseif averageEU > 0 and currentRedstoneState == 0 then
            redstone.setOutput(redstoneSide, 15)
            euWorking = false
        end
    end
end
----------------------------------------------------------------TICK-PER-SECOND-------------------------------------------------------
local function drawTPS()

    local avgTPS = getAvgTPS()

    local color
    if avgTPS > 18 then
        color = 0x00FF00
    elseif avgTPS > 16 then
        color = 0xAAFF00
    elseif avgTPS > 14 then
        color = 0xFFFF00
    elseif avgTPS > 12 then
        color = 0xFFAA00
    else
        color = 0xFF4400
    end


    local x = 1
    local y = getY -3
    local width = widthBox
    local height = 17


    addBox(x, y, width, height, colors.black, transBox)


    local textOffsetX = 15
    local textX = x + textOffsetX
    local textY = y + 5

    addText(textX, textY, string.format("TPS: %.1f", avgTPS), color)

    return avgTPS
end

function getAvgTPS()
    local TPS = {}
    local avgTPS = 0


    for tSlot=1, 3 do
        TPS[tSlot] = 0
    end


    for tSlot = 1, 3 do
        local realTimeOld = getTime()
        os.sleep(timeConstant)
        local realTimeNew = getTime()
        local realTimeDiff = realTimeNew - realTimeOld
        TPS[tSlot] = 20000 * timeConstant / realTimeDiff
        avgTPS = (TPS[1] + TPS[2] + TPS[3]) / 3
    end
    return avgTPS
end
-------------------------------------------------------------DRAW-ENERGY---------------------------------------------------------
local function drawEnergy()
    local isMolecularActive = false -- Флаг, сигнализирующий об активности устройства "molecular"

    -- Первый проход - проверяем, активен ли "molecular"
    for device, counter in pairs(average_counter) do
        if device == "molecular" and counter.use and euWorking then
            isMolecularActive = true -- "molecular" активен и работает
            break -- Выходим из цикла, так как нашли активное устройство "molecular"
        end
    end

    -- Второй проход - рисуем информацию о энергии
    for device, counter in pairs(average_counter) do
        if device ~= "molecular2" or not isMolecularActive then -- Если устройство не "molecular2" или "molecular" не активно
            if counter.use then
                local averageEU = counter.proxy.getAverage()
                local av = ""

                -- Определение единиц для отображения мощности
                if averageEU / 1000 <= 1 then
                    av = string.format("%.3f EU/t", averageEU)
                elseif averageEU / 1000000 >= 1 then
                    av = string.format("%.3f M EU/t", averageEU / 1000000)
                else
                    av = string.format("%.1f k EU/t", averageEU / 1000)
                end

                -- Рисуем прямоугольник и иконку для всех устройств, кроме "molecular2"
                if device ~= "molecular2" then
                    addBox(counter.coordinates.x, counter.coordinates.y, widthBox, 18, colors.black, transBox)
                    addIcon(counter.coordinates.x + 2, counter.coordinates.y + 1, counter.icon, 0)
                end

                -- Рисуем информацию об энергии
                if device == "molecular" then
                    if euWorking then
                        addText(counter.coordinates.x + 21, counter.coordinates.y + 5, av, counter.color)
                    end
                else
                    addText(counter.coordinates.x + 21, counter.coordinates.y + 5, av, counter.color)
                end
            end
        end
    end
end

function getMolecularAvg()
    local isMolecularActive = false -- Флаг, сигнализирующий об активности устройства "molecular"

    -- Первый проход - проверяем, активен ли "molecular"
    for device, counter in pairs(average_counter) do
        if device == "molecular" and counter.use and euWorking then
            isMolecularActive = true -- "molecular" активен и работает
            break -- Выходим из цикла, так как нашли активное устройство "molecular"
        end
    end

    -- Второй проход - рисуем информацию о энергии
    for device, counter in pairs(average_counter) do
        if device ~= "molecular2" or not isMolecularActive then -- Если устройство не "molecular2" или "molecular" не активно
            if counter.use then
                local averageEU = counter.proxy.getAverage()
                local av = ""

                -- Определение единиц для отображения мощности
                if averageEU / 1000 <= 1 then
                    av = string.format("%.3f EU/t", averageEU)
                elseif averageEU / 1000000 >= 1 then
                    av = string.format("%.3f M EU/t", averageEU / 1000000)
                else
                    av = string.format("%.1f k EU/t", averageEU / 1000)
                end
                return av
            end
        end
    end
end


    -----------------------------------------------------------------------------------------
    local function updateEnergyStateAndDraw()
        -- Синхронизируем изменение энергии с отображением информации
        toggleMolecular2Energy()
        drawEnergy()
    end
    -----------------------------------------------------------CHECK-online--------------------------------------------------------
    function checkOnline(n)
        computer.removeUser(adm)
        if computer.addUser(players[n][1]) then
            computer.removeUser(players[n][1])
            if players[n][2] == false then
                if cb then
                    chat_box.say("§a"..players[n][1] .. localize.join_in_game)
                end
                players[n][2] = true
            end
            return true
        else
            if players[n][2] == true then
                if cb then
                    chat_box.say("§c"..players[n][1] .. localize.left_from_game)
                end
                players[n][2] = false
            end
            computer.removeUser(players[n][1])
            return false
        end
    end
    -------------------------------------------------------------------
    function freeMemory()
        if allow_mem then
            addText(0, 12, "MEM: "..math.floor((computer.freeMemory() / 1000)).."mb".."/"..math.floor((computer.totalMemory() / 1000)).."mb".." "..math.floor(((computer.freeMemory() / computer.totalMemory()) * 100)).."%", colors.mem)
        end
    end
    -----------------------------------------------------------------------ONLINE-------------------------------------------------
    function drawOnline()
        local leftMargin = -19  -- Установите желаемый отступ от левого края экрана
        local yMargin = getY +161
        local onlineCount = 0
        local offlineCount = 0
        local y = getY + 210
        -- Создаем отдельные списки для онлайн и оффлайн игроков
        local onlinePlayers = {}
        local offlinePlayers = {}

        for i = 1, #players do
            if checkOnline(i) then
                onlineCount = onlineCount + 1
                table.insert(onlinePlayers, players[i][1]) -- Добавляем онлайн игроков в список
            else
                offlineCount = offlineCount + 1
                table.insert(offlinePlayers, players[i][1]) -- Добавляем оффлайн игроков в список
            end
        end

        -- Сортируем список онлайн игроков
        table.sort(onlinePlayers)

        -- Показываем сортированный список онлайн игроков и количество оффлайн
        for _, playerName in ipairs(onlinePlayers) do
            y = y + 10
            addText(leftMargin + 23, y, playerName, colors.green, 1) -- Показываем имя игрока с отступом
        end
        addBox(leftMargin + 20, yMargin + 13, widthBox, 18, colors.black, transBox)
        addText(leftMargin + 43, yMargin + 19, "Offline: " .. offlineCount, colors.gray, 1)
        addIcon(leftMargin + 23, yMargin + 14, "dwcity:Dark_spirit")  -- Иконка для оффлайн
        addBox(leftMargin + 20, yMargin + 33, widthBox, 18, colors.black, transBox)
        addText(leftMargin + 43, yMargin + 39, "Online: " .. onlineCount, colors.hex, 1)
        addIcon(leftMargin + 23, yMargin + 34, "dwcity:Dark_spirit2")  -- Иконка для онлайн
    end
    --------------------------------------------------------------------SENSOR------------------------------------------------------------
    local function drawNearPlayers()
        if s then
            local y = getY - 3
            local temp = sensor.getPlayers()
            local actualPlayersCount = 0 -- Переменная для подсчета реального количества игроков (не учитывая тех, кто в блэклисте)

            addBox(93, y, widthBox, 17, colors.black, transBox)

            for i = 1, #temp do
                local playerIsFriend = false
                local playerIsBlacklisted = false

                for j = 1, #blackList do
                    if temp[i].name == blackList[j] then
                        playerIsBlacklisted = true
                        break
                    end
                end

                for j = 1, #friendList do
                    if temp[i].name == friendList[j] then
                        playerIsFriend = true
                        break
                    end
                end

                if not playerIsBlacklisted then
                    actualPlayersCount = actualPlayersCount + 1

                    if playerIsFriend then
                        addText(96, y + 22 + (actualPlayersCount - 1) * 10, temp[i].name, colors.green)
                    else
                        addText(96, y + 22 + (actualPlayersCount - 1) * 10, temp[i].name, colors.red1)
                    end
                end
            end

            addText(95, y + 5, "§b|| Игроки рядом: §a" .. actualPlayersCount, colors.red1)
        end
        return
    end
    -----------------------------------------------------------------------
    check()
    bridge.clear()
    addText(10, 150, "Инициализация", colors.blue)
    bridge.sync()
    gui()

    while true do
        check()
        computer.addUser(adm)
        bridge.clear()
        updateEnergyStateAndDraw()
        drawItems()
        drawTPS()
        drawTime()
        drawOnline()
        drawNearPlayers()
        freeMemory()
        os.sleep(0.1)
        bridge.sync()
    end