-- Attempt TEST — ServerUtil Source Dump (Core Script Source Leak)
-- By Chxris TEST

local log = warn
local out = print
local flagname = "ServerCoreScriptSourceCode"
local flagok = false

log("[Attempt] ServerUtil source dump — starting")

if setfflag then
    local ok = pcall(setfflag, flagname, "true")
    if ok and game.GetFastFlag then
        local ok2, v = pcall(function() return game:GetFastFlag(flagname) end)
        flagok = ok2 and v == true
    end
end

local restore
if not flagok and hookfunction and getrawmetatable then
    local mok, mt = pcall(getrawmetatable, game)
    if mok and mt then
        local old = game.DefineFastFlag
        if old then
            local new = function(n, d)
                if n == flagname then return old(n, true) end
                return old(n, d)
            end
            pcall(function() game.DefineFastFlag = new end)
            restore = function() pcall(function() game.DefineFastFlag = old end) end
        end
    end
end

local modules = game:GetService("CoreGui"):WaitForChild("RobloxGui").Modules
local util = modules.Server.ServerUtil

if package and package.loaded then
    for k, v in pairs(package.loaded) do
        if v == util or (type(k) == "string" and k:find("ServerUtil")) then
            package.loaded[k] = nil
        end
    end
end

local rok, S = pcall(require, util)
if not rok or not S then
    log("[Attempt] require failed: " .. tostring(S))
    if restore then restore() end
    return
end

local live = false
if S.getFFlagServerCoreScriptSourceCode then
    local ok, v = pcall(function() return S.getFFlagServerCoreScriptSourceCode() end)
    live = ok and v == true
end

if not live then
    log("[Attempt] flag inactive after require")
    if restore then restore() end
    return
end

if S.initSourceCodeFolder then
    local ok, err = pcall(S.initSourceCodeFolder)
    if not ok then log("[Attempt] init failed: " .. tostring(err)) end
end

task.wait(1.5)

local folder = modules:FindFirstChild("SourceCode")
if not folder then
    log("[Attempt] SourceCode absent")
    if restore then restore() end
    return
end

local count = 0
local bytes = 0
local buf = {}

local function walk(inst, depth)
    for _, c in ipairs(inst:GetChildren()) do
        if c:IsA("LuaSourceContainer") then
            local src = c.Source
            if src and #src > 0 then
                count += 1
                bytes += #src
                local pad = string.rep("  ", depth)
                table.insert(buf, pad .. "=== " .. c.Name .. " [" .. c.ClassName .. "] " .. #src .. " bytes ===")
                table.insert(buf, src)
                table.insert(buf, "")
            end
        end
        if c:IsA("Folder") or c:IsA("Model") then
            walk(c, depth + 1)
        end
    end
end

walk(folder, 0)

out(string.rep("=", 60))
out("SourceCode dump: " .. count .. " scripts, " .. bytes .. " bytes")
out(string.rep("=", 60))
out(table.concat(buf, "\n"))

if writefile then
    local ok = pcall(writefile, "ServerCodeDump.txt", table.concat(buf, "\n"))
    if ok then out("dump written to ServerCodeDump.txt") end
end

pcall(function() folder:Destroy() end)
if restore then restore() end

local function readsrc(inst)
    if S.getSourceForServerScript then
        local ok, src = pcall(S.getSourceForServerScript, inst)
        if ok then return src end
    end
    return nil
end

if getgenv then getgenv().readServerSource = readsrc end

log("[Attempt] done — " .. count .. " scripts, " .. bytes .. " bytes")