require("package").loaded["doublebuffer"] = nil
    require("package").loaded["control"] = nil
    require("package").loaded["casino"] = nil
    require("package").loaded["sgui"] = nil

    local controlLib = require("control")
    local charSpace = ' '

    local component = require("component")
    local computer = require("computer")
    local event = require("event")
    local unicode = require("unicode")
    local thread = require("thread")

    local Casino = require("casino")
    local gui = require("sgui")

    local gpu = component.gpu
    local radar = component.radar
    local chatbox = component.chat_box

    chatbox.setName("§6BAZAR CASINO§7§o")
    chatbox.say("§aМодули успешно загружены")

    local width, height = gpu.getResolution()

    gpu.setResolution(112,50)

    local win = {}
    --Резервируем места
    local function reservWin()
        local x = 10 -- начальная Координата x
        local y = 6  -- начальная координата y
        for i = 1, 63 do
            local id = controlLib.createLabel{
                x = x;
                y = y;
                text = ""
            }
            table.insert(win, id)
            x = x + 36
            if x > 108 then
                x = 10
                y = y+2
            end
        end
        local id = controlLib.createLabel{
            x = 46;
            y = y;
            text = ""
        }
        table.insert(win, id)
    end

    reservWin()

    local function ClearWin()
        for i = 1, 64 do
            controlLib.updateControl(win[i], {
                text = ""
            })
        end
    end

    local function saveToFile(filename, data)
        local file = io.open(filename, "w")
        if file then
            file:write(serialization.serialize(data))
            file:close()
        else
            error("Не удалось открыть файл для записи!")
        end
    end

    local function loadFromFile(filename)
        local file = io.open(filename, "r")
        if file then
            local data = file:read("*a")
            file:close()
            return serialization.unserialize(data)
        else
            error("Не удалось открыть файл для чтения!")
        end
    end

    local myCasino = Casino:new()

    myCasino:addItem("&9Панель 6-го уровня", "Ultimate Hybrid Solar Panel", 1, 0.01)
    myCasino:addItem("&9Панель 7-го уровня", "Hybrid Solar Panel", 1, 0.01)

    myCasino:search_transposers()
    --myCasino:get_list()

    controlLib.drawAll()
    --myCasino:displayItems()

    local function mainCasino(money)
        local rewardsList = {}
        local itemCounts = {}
        myCasino:sendMoney(money)
        chatbox.say("§6Баланс пополнен на §a$" .. money)
        for i = 1, 64 do
            controlLib.updateControl(win[i], {
                text = string.rep(" ", 36),
            })
        end
        controlLib.drawAll()

        for i = 1, money do
            local reward = myCasino:weightedRoll()
            local displayName = string.gsub(reward.name, "&", "§", 1)

            component.proxy(reward.address).transferItem(0, 1, reward.count, reward.slot, i)

            local secondChar = string.sub(reward.name, 2, 2)
            local modifiedString = string.sub(reward.name, 3)

            if reward and reward.name and reward.count then
                -- Суммируем количество одинаковых предметов и сохраняем шанс
                if itemCounts[displayName] then
                    itemCounts[displayName].count = itemCounts[displayName].count + reward.count
                else
                    itemCounts[displayName] = {count = reward.count, chance = reward.chance}
                end
            end
            controlLib.updateControl(win[i], {
                text = modifiedString,
                foreColor = gui.colors[secondChar],
            })
            controlLib.drawAll()
            os.sleep(0.5)
        end

        -- Создаем список для отсортированных результатов
        for name, data in pairs(itemCounts) do
            table.insert(rewardsList, {name = name, count = data.count, chance = data.chance})
        end

        table.sort(rewardsList, function(a, b) return a.chance < b.chance end)

        local results = {}
        for _, item in ipairs(rewardsList) do
            table.insert(results, item.name .. ": " .. item.count .. "x")
        end
        local resultString = "\n" .. table.concat(results, "\n")
        chatbox.say(resultString)
    end

    local totalCash = 0

    local permissions = {}
    permissions["Stawlie_"] = true
    permissions["NikkyFreaky"] = true

    local function chatMessageHandler()
        chatbox.say("Модуль чата запущен")
        while true do
            local _, address, nick, msg = event.pull(0.1, "chat_message")
            local words = {}
            local countWords = 0

            if msg then
                msg = string.lower(msg)
                for word in msg:gmatch("%S+") do
                    table.insert(words, word)
                    countWords = countWords + 1
                end

                if msg == "@list" then
                    myCasino:get_list()
                end

                if permissions[nick] then
                    if words[1] == "@try" then
                        chatbox.say("§fПопыток: §a§l" .. totalCash)
                    elseif words[1] == "@off" then
                        chatbox.say("§e§lПерезагружаюсь")
                        computer.shutdown(true)
                    elseif words[1] == "@add" then
                        if words[2] then
                            chatbox.say("§с&lПополняю")
                            mainCasino(tonumber(words[2]))
                        end
                    elseif words[1] == "@owner" then
                        if words[2] then
                            permissions[words[2]] = true
                        end
                    end
                end
            end
        end
    end

    thread.create(chatMessageHandler)

    local colors = { {0xFF0000, 0x0000FF}, {0x0000FF, 0x00FF00}, {0x00FF00, 0xFF0000} }
    local indexColorGradient = 1

    while true do
        gui.drawMain("[Casino BAZAR]", 0.3, colors[indexColorGradient][1], colors[indexColorGradient][2])

        indexColorGradient = indexColorGradient % #colors + 1

        local money = myCasino:SearchMoney()

        if money then
            --totalCash = 0
            mainCasino(money)
            totalCash = totalCash + money
            --saveToFile("/try.data", totalCash)
        end
        computer.pullSignal(2)
    end

    --Проблемы
    --Если существует 2 одинаковых предмета, например камень с шансом 0.3 и камень с шансом 0.2, алгоритм записывает адрес только первого камня, который попадется в списке