local Players = game:GetService("Players")
local CoreGui = game:GetService("CoreGui")

local LocalPlayer = Players.LocalPlayer
local LocalDrawingCanvas = nil

local BotConfig = {
    Enabled = false,
    ImageURL = "",
}

-- Переменные для библиотек
local Unfilter, BinaryReader, Deflate
local chunks = {}
local PNG = {}
PNG.__index = PNG

---------------------------------------------------------------------------------------------
-- [1. ИНТЕРФЕЙС GUI]
---------------------------------------------------------------------------------------------
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "Canvas_CloneTrooper_Safe_v8"
ScreenGui.ResetOnSpawn = false
pcall(function() ScreenGui.Parent = CoreGui end)
if not ScreenGui.Parent then ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui") end

local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 250, 0, 300)
MainFrame.Position = UDim2.new(0.05, 0, 0.3, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(24, 24, 28)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.Parent = ScreenGui

local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(0, 9)
UICorner.Parent = MainFrame

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0, 40)
Title.Text = "Бот: Анти-Краш Система"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.BackgroundColor3 = Color3.fromRGB(34, 34, 40)
Title.Font = Enum.Font.SourceSansBold
Title.TextSize = 14
Title.Parent = MainFrame
local UTCorner = Instance.new("UICorner")
UTCorner.CornerRadius = UDim.new(0, 9)
UTCorner.Parent = Title

local function CreateButton(text, yPos, callback)
    local Btn = Instance.new("TextButton")
    Btn.Size = UDim2.new(1, -20, 0, 35)
    Btn.Position = UDim2.new(0, 10, 0, yPos)
    Btn.Text = text
    Btn.TextColor3 = Color3.fromRGB(240, 240, 240)
    Btn.BackgroundColor3 = Color3.fromRGB(44, 44, 52)
    Btn.Font = Enum.Font.SourceSansSemibold
    Btn.TextSize = 14
    Btn.Parent = MainFrame
    local c = Instance.new("UICorner")
    c.CornerRadius = UDim.new(0, 5)
    c.Parent = Btn
    Btn.MouseButton1Click:Connect(callback)
    return Btn
end

local TextBox = Instance.new("TextBox")
TextBox.Size = UDim2.new(1, -20, 0, 30)
TextBox.Position = UDim2.new(0, 10, 0, 135)
TextBox.Text = "Вставь прямую URL ссылку на .png"
TextBox.TextColor3 = Color3.fromRGB(200, 200, 200)
TextBox.BackgroundColor3 = Color3.fromRGB(30, 30, 36)
TextBox.Font = Enum.Font.SourceSans
TextBox.TextSize = 12
TextBox.TextWrapped = true
TextBox.ClearTextOnFocus = false
TextBox.Parent = MainFrame
TextBox.FocusLost:Connect(function(ep) if ep then BotConfig.ImageURL = TextBox.Text end end)

local StatusLabel = Instance.new("TextLabel")
StatusLabel.Size = UDim2.new(1, -20, 0, 40)
StatusLabel.Position = UDim2.new(0, 10, 0, 180)
StatusLabel.Text = "Статус: Загрузка библиотек гитхаба..."
StatusLabel.TextColor3 = Color3.fromRGB(255, 165, 0)
StatusLabel.BackgroundTransparency = 1
StatusLabel.TextSize = 13
StatusLabel.TextWrapped = true
StatusLabel.Parent = MainFrame

local ProgressBarBg = Instance.new("Frame")
ProgressBarBg.Size = UDim2.new(1, -20, 0, 6)
ProgressBarBg.Position = UDim2.new(0, 10, 0, 275)
ProgressBarBg.BackgroundColor3 = Color3.fromRGB(45, 45, 55)
ProgressBarBg.Parent = MainFrame
local ProgressBarFill = Instance.new("Frame")
ProgressBarFill.Size = UDim2.new(0, 0, 1, 0)
ProgressBarFill.BackgroundColor3 = Color3.fromRGB(0, 255, 150)
ProgressBarFill.BorderSizePixel = 0
ProgressBarFill.Parent = ProgressBarBg

local ToggleBtn = CreateButton("ЗАГРУЗКА...", 50, function() end)
ToggleBtn.BackgroundColor3 = Color3.fromRGB(70, 70, 75)
ToggleBtn.AutoButtonColor = false

---------------------------------------------------------------------------------------------
-- [2. ОПТИМИЗИРОВАННЫЕ ФУНКЦИИ PNG ПАРСЕРА]
---------------------------------------------------------------------------------------------
local function getBytesPerPixel(colorType)
    if colorType == 0 or colorType == 3 then return 1
    elseif colorType == 4 then return 2
    elseif colorType == 2 then return 3
    elseif colorType == 6 then return 4
    else return 0 end
end

local function clampInt(value, min, max)
    local num = tonumber(value) or 0
    num = math.floor(num + 0.5)
    return math.clamp(num, min, max)
end

local function indexBitmap(file, x, y)
    local width = file.Width
    local height = file.Height
    x = clampInt(x, 1, width)
    y = clampInt(y, 1, height)
    local bitmap = file.Bitmap
    local bpp = file.BytesPerPixel
    local i0 = ((x - 1) * bpp) + 1
    local i1 = i0 + bpp
    return bitmap[y], i0, i1
end

function PNG:GetPixel(x, y)
    local row, i0, i1 = indexBitmap(self, x, y)
    if not row then return Color3.new(1,1,1), 0 end
    local colorType = self.ColorType
    local color, alpha
    
    if colorType == 0 then
        local gray = unpack(row, i0, i1)
        color = Color3.fromHSV(0, 0, gray or 0)
        alpha = 255
    elseif colorType == 2 then
        local r, g, b = unpack(row, i0, i1)
        color = Color3.fromRGB(r or 0, g or 0, b or 0)
        alpha = 255
    elseif colorType == 3 then
        local palette = self.Palette
        local alphaData = self.AlphaData
        local index = unpack(row, i0, i1)
        index = (index or 0) + 1
        if palette then color = palette[index] end
        if alphaData then alpha = alphaData[index] end
    elseif colorType == 4 then
        local gray, a = unpack(row, i0, i1)
        color = Color3.fromHSV(0, 0, gray or 0)
        alpha = a
    elseif colorType == 6 then
        local r, g, b, a = unpack(row, i0, i1)
        color = Color3.fromRGB(r or 0, g or 0, b or 0)
        alpha = a
    end
    
    if not color then color = Color3.new(1, 1, 1) end
    if not alpha then alpha = 255 end
    return color, alpha
end

function PNG.new(buffer)
    local reader = BinaryReader.new(buffer)
    local file = { Chunks = {}, Metadata = {}, Reading = true, ZlibStream = "" }
    local header = reader:ReadString(8)
    if header ~= "\137PNG\r\n\26\n" then error("PNG - Input data is not a PNG file.", 2) end
    
    while file.Reading do
        local length = reader:ReadInt32()
        local chunkType = reader:ReadString(4)
        local data, crc
        if length > 0 then
            data = reader:ForkReader(length)
            crc = reader:ReadUInt32()
        end
        local chunk = { Length = length, Type = chunkType, Data = data, CRC = crc }
        local handler = chunks[chunkType]
        if handler then handler(file, chunk) end
        table.insert(file.Chunks, chunk)
    end
    
    -- АНТИ-КРАШ МОДИФИКАЦИЯ РАСПАКОВКИ ИНФЛЕЙТА
    local success, response = pcall(function()
        local result = {}
        local index = 0
        
        Deflate:InflateZlib({
            Input = BinaryReader.new(file.ZlibStream),
            Output = function(byte)
                index = index + 1
                result[index] = string.char(byte)
                
                -- Каждые 40000 распакованных байт даем движку Roblox вздохнуть
                if index % 40000 == 0 then
                    task.wait()
                end
            end
        })
        return table.concat(result)
    end)
    
    if not success then error("PNG - Unable to unpack PNG data. " .. tostring(response), 2) end
    
    local width = file.Width
    local height = file.Height
    local bitDepth = file.BitDepth
    local colorType = file.ColorType
    local buffer = BinaryReader.new(response)
    file.ZlibStream = nil
    local bitmap = {}
    file.Bitmap = bitmap
    local channels = getBytesPerPixel(colorType)
    file.NumChannels = channels
    local bpp = math.max(1, channels * (bitDepth / 8))
    file.BytesPerPixel = bpp
    
    for row = 1, height do
        -- Плавное чтение строк развертки
        if row % 2 == 0 then task.wait() end
        local filterType = buffer:ReadByte()
        local scanline = buffer:ReadBytes(width * bpp, true)
        bitmap[row] = {}
        
        if filterType == 0 then Unfilter:None(scanline, bitmap, bpp, row)
        elseif filterType == 1 then Unfilter:Sub(scanline, bitmap, bpp, row)
        elseif filterType == 2 then Unfilter:Up(scanline, bitmap, bpp, row)
        elseif filterType == 3 then Unfilter:Average(scanline, bitmap, bpp, row)
        elseif filterType == 4 then Unfilter:Paeth(scanline, bitmap, bpp, row) end
    end
    return setmetatable(file, PNG)
end

---------------------------------------------------------------------------------------------
-- [3. АСИНХРОННОЕ СКАЧИВАНИЕ МОДУЛЕЙ]
---------------------------------------------------------------------------------------------
task.spawn(function()
    getfenv().bit32 = bit

    local function secureGet(url)
        local s, r = pcall(function() return game:HttpGet(url) end)
        if s then return loadstring(r)() else return nil end
    end

    Unfilter = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Modules/Unfilter.lua")
    BinaryReader = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Modules/BinaryReader.lua")
    Deflate = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Modules/Deflate.lua")

    chunks.IDAT = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/IDAT.lua")
    chunks.IEND = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/IEND.lua")
    chunks.IHDR = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/IHDR.lua")
    chunks.PLTE = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/PLTE.lua")
    chunks.bKGD = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/bKGD.lua")
    chunks.cHRM = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/cHRM.lua")
    chunks.gAMA = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/gAMA.lua")
    chunks.sRGB = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/sRGB.lua")
    chunks.tEXt = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/tEXt.lua")
    chunks.tIME = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/tIME.lua")
    chunks.tRNS = secureGet("https://raw.githubusercontent.com/CloneTrooper1019/Roblox-PNG-Library/master/Chunks/tRNS.lua")

    if Unfilter and BinaryReader and Deflate and chunks.IDAT and chunks.IHDR then
        StatusLabel.Text = "Статус: Модули активны! Готов рисовать."
        StatusLabel.TextColor3 = Color3.fromRGB(0, 200, 100)
        ToggleBtn.Text = "СТАРТ"
        ToggleBtn.BackgroundColor3 = Color3.fromRGB(40, 150, 80)
        ToggleBtn.AutoButtonColor = true
    else
        StatusLabel.Text = "Ошибка: Сбой загрузки гитхаба!"
        StatusLabel.TextColor3 = Color3.fromRGB(255, 50, 50)
        ToggleBtn.Text = "ОШИБКА СЕТИ"
    end
end)

---------------------------------------------------------------------------------------------
-- [4. ПОИСК МОЛЬБЕРТА И ПРОВЕРКА]
---------------------------------------------------------------------------------------------
local function FindLocalDrawingCanvas()
    local playerGui = LocalPlayer:FindFirstChild("PlayerGui")
    if not playerGui then return nil end
    local canvasFrame = nil
    for _, v in ipairs(playerGui:GetDescendants()) do
        if v:IsA("Frame") and v:FindFirstChild("FastCanvas") then canvasFrame = v break end
    end
    if not canvasFrame then return nil end

    local successGC, registry = pcall(getgc, true)
    if successGC then
        for i = 1, #registry do
            local obj = registry[i]
            if type(obj) == "table" and rawget(obj, "DrawLine") then
                if rawget(obj, "CurrentCanvasFrame") == canvasFrame or tostring(rawget(obj, "CurrentCanvasFrame")) == tostring(canvasFrame) then
                    return obj
                end
            end
        end
    end
    return nil
end

CreateButton("Залить холст (проверка)", 90, function()
    LocalDrawingCanvas = FindLocalDrawingCanvas()
    if LocalDrawingCanvas then
        local randomColor = Color3.fromRGB(math.random(0,255), math.random(0,255), math.random(0,255))
        if LocalDrawingCanvas.Fill then
            LocalDrawingCanvas:Fill(randomColor)
        else
            local resX = LocalDrawingCanvas.CurrentResX or 150
            local resY = LocalDrawingCanvas.CurrentResY or 150
            LocalDrawingCanvas:DrawLine(Vector2.new(1,1), Vector2.new(resX, resY), randomColor, resX)
        end
        if LocalDrawingCanvas.Render then LocalDrawingCanvas:Render() end
    end
end)

local drawingThread = nil

ToggleBtn.MouseButton1Click:Connect(function()
    if not Deflate then return end 

    if BotConfig.Enabled then
        BotConfig.Enabled = false
        ToggleBtn.Text = "СТАРТ"
        ToggleBtn.BackgroundColor3 = Color3.fromRGB(40, 150, 80)
        if drawingThread then task.cancel(drawingThread) end
        StatusLabel.Text = "Остановлено."
        ProgressBarFill.Size = UDim2.new(0, 0, 1, 0)
    else
        LocalDrawingCanvas = FindLocalDrawingCanvas()
        if not LocalDrawingCanvas then StatusLabel.Text = "Ошибка: Открой мольберт!" return end
        if BotConfig.ImageURL == "" or not string.match(BotConfig.ImageURL, "http") then StatusLabel.Text = "Ошибка: Нет рабочей URL ссылки!" return end

        BotConfig.Enabled = true
        ToggleBtn.Text = "ОСТАНОВИТЬ"
        ToggleBtn.BackgroundColor3 = Color3.fromRGB(170, 40, 40)
        
        drawingThread = task.spawn(function()
            StatusLabel.Text = "Скачивание .png..."
            local successFetch, resultBuffer = pcall(function() return game:HttpGet(BotConfig.ImageURL) end)
            if not successFetch then StatusLabel.Text = "Ошибка HTTP загрузки файла!" BotConfig.Enabled = false ToggleBtn.Text = "СТАРТ" return end

            StatusLabel.Text = "Распаковка PNG (Защита от лагов)..."
            task.wait() -- Даем кадр перед тяжелым парсингом
            
            local successPng, pngImage = pcall(function() return PNG.new(resultBuffer) end)
            if not successPng or not pngImage then 
                StatusLabel.Text = "Ошибка декомпрессии файла! Файл слишком большой или поврежден." 
                BotConfig.Enabled = false ToggleBtn.Text = "СТАРТ" return 
            end

            local resX = tonumber(LocalDrawingCanvas.CurrentResX or 150)
            local resY = tonumber(LocalDrawingCanvas.CurrentResY or 150)
            
            StatusLabel.Text = "Отрисовка на холст..."
            
            for y = 1, resY do
                if not BotConfig.Enabled then return end
                
                for x = 1, resX do
                    local srcX = math.clamp(math.floor((x / resX) * pngImage.Width), 1, pngImage.Width)
                    local srcY = math.clamp(math.floor((y / resY) * pngImage.Height), 1, pngImage.Height)
                    
                    local color, alpha = pngImage:GetPixel(srcX, srcY)
                    
                    if alpha > 15 then
                        local pPos = Vector2.new(x, y)
                        LocalDrawingCanvas:DrawLine(pPos, pPos, color, 1)
                    end
                end
                
                ProgressBarFill.Size = UDim2.new(y / resY, 0, 1, 0)
                
                if y % 3 == 0 then
                    if LocalDrawingCanvas.Render then LocalDrawingCanvas:Render() end
                    task.wait()
                end
            end
            
            if LocalDrawingCanvas.Render then LocalDrawingCanvas:Render() end
            StatusLabel.Text = "Готово!"
            BotConfig.Enabled = false
            ToggleBtn.Text = "СТАРТ"
            ToggleBtn.BackgroundColor3 = Color3.fromRGB(40, 150, 80)
        end)
    end
end)