ScriptDumper.lua

--[[
    Report any bugs, issues and detections to me if you don't mind (NoTwistedHere#6703)
    V3 SaveInstance isn't the best so I had to make some adjustments in order for this to work with v3 :) (doesn't work though)
]]

local getname = function(Object) if Object:IsA("Script") and getscriptname then return getscriptname(Object) end return Object.Name end
local gethash = function(Object) local Success, Response = pcall(function() return getscripthash(Object) end) if Success and type(Response) == "string" then return Response end return; end
local Threading = loadstring(game:HttpGet("https://raw.githubusercontent.com/NoTwistedHere/Roblox/" .. (Branch or "main") .. "/Threading.lua"))()
local CoreGui, CorePackages, Players, RunService, RunService = game:GetService("CoreGui"), game:GetService("CorePackages"), game:GetService("Players"), game:GetService("RunService"), game:GetService("RunService")
local Result = "<roblox xmlns:xmime=\"http://www.w3.org/2005/05/xmlmime\" xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instance\" xsi:noNamespaceSchemaLocation=\"http://www.roblox.com/roblox.xsd\" version=\"4\">"
local Decompiled, Scripts = 0, {}
local DecompiledScripts = {}
local IgnoreEmpty = IgnoreEmpty or true
local Threads = Threads or 10
local Instances = {
    "LocalScript";
    "ModuleScript";
    "RemoteEvent";
    "RemoteFunction";
}
local Services = {
    "StarterPlayerScripts";
    "StarterCharacterScripts";
}
local SpecialCharacters = {
    ["<"] = "&lt;";
    [">"] = "&gt;";
    ["&"] = "&amp;";
    ["\""] = "&quot;";
    ["'"] = "&apos;";
}

local Timeout = Timeout or 60 --// Decompiler timeout (in seconds)

if not RunService:IsRunning() then --// So you can dump scripts in games that do a bit of funny business (I'm mainly trying to patch the things I come up with)
    local function IsNetworkOwner(Object)
        if Object:IsA("BasePart") and isnetworkowner(Object) then
            return true
        elseif not Object.Parent then
            return false
        end

        return IsNetworkOwner(Object.Parent)
    end

    game.DescendantAdded:Connect(function(Obj)
        if Obj:IsA("LocalScript") then
            --if not Obj:IsDescendantOf(workspace) then --// when will I be able to spoof network replication :(
                Obj.Disabled = true --// Not my fault if a game dev is actually smart (or maybe it is)
            --end
        end
    end)

    repeat
        task.wait(0.5) --// There's no rush
    until RunService:IsRunning()
end

local LocalPlayer = Players.LocalPlayer
local InstancesCreated, InstancesTotal = 0, #game:GetDescendants()
local Place = game:GetService("MarketplaceService"):GetProductInfo(game.PlaceId)
local GameName = tostring(Place and Place.Name or "Unknown Game"):gsub("[^%w%s]", "")
local MainDirectory, SubDirectory, FileName, FileType, Final = "Game Dumps/", ("%d-%s/"):format(game.PlaceId, GameName), ("Scripts for %s [%s-%s]"):format(GameName, game.GameId, game.PlaceVersion), ".rbxlx", ""

if not isfolder(MainDirectory) then
    makefolder(MainDirectory)
end

if not isfolder(MainDirectory..SubDirectory) then
    makefolder(MainDirectory..SubDirectory)
end

if isfile(MainDirectory..SubDirectory..FileName..FileType) then
    local Name, Count = "", 0

    repeat
        Count += 1
        Name = FileName..(" (%d)"):format(Count)
    until not isfile(MainDirectory..SubDirectory..Name..FileType)
    
    FileName = Name
end

Final = MainDirectory..SubDirectory..FileName..FileType

local function GiveColour(Current, Max)
    return (Current < Max * 0.25 and "@@RED@@") or (Current < Max * 0.5 and "@@YELLOW@@") or (Current < Max * 0.75 and "@@CYAN@@") or "@@GREEN@@"
end

local function GetLoading()
    local SpinnerCount = 0

    return function()
        local Chars = { "|", "/", "—", "\\" }

        SpinnerCount += 1

        if SpinnerCount > #Chars then
            SpinnerCount = 1
        end

        return " "..Chars[SpinnerCount]
    end
end

local function ProgressBar(Header, Current, Max, Thread)
    local Size, PreviousCur, PreviousMax, Complete = 80, Current, Max, Current == Max
    local Loading = GetLoading()
    local LoadingChar = Loading()

    local function Update(Current, Max, Extra_After)
        local Progress, Percentage = math.floor(Size * Current / Max), math.floor(100 * Current / Max)

        if Complete then
            return;
        end

        PreviousCur = Current
        PreviousMax = Max
        rconsoleprint(GiveColour(Current, Max))
        rconsoleprint(("\13%s%s %s%s"):format(("#"):rep(Progress), ("."):rep(Size - Progress), Percentage.."%", Percentage == 100 and "!\n" or Extra_After or LoadingChar))
        rconsoleprint("@@WHITE@@")

        if Percentage == 100 then
            Complete = true
        end
    end

    rconsoleprint(Header.."\n")

    task.spawn(function()
        while not Complete and (not Thread and true or coroutine.status(Thread) ~= "dead") do
            LoadingChar = Loading()
            Update(PreviousCur, PreviousMax, LoadingChar)
            task.wait(0.25)
        end
    end)

    return function(...)
        task.spawn(Update, ...)
    end
end

local function CheckObject(Object)
    for _, v in next, Instances do
        if Object:FindFirstChildWhichIsA(v, true) or Object:IsA(v) then
            return true
        end
    end

    return false
end

local function FindService(Service)
    local Success, Response = pcall(game.FindService, game, Service)

    return Success and Response
end

local function FindScripts(Table)
    for i, v in next, Table do
        if typeof(v) == "Instance" and (v:IsA("LocalScript") or v:IsA("ModuleScript")) or (not IgnoreEmpty or IgnoreEmpty and not gethash(v)) then
            return true
        end
    end

    return false
end

local function GetClassName(Object)
    local ClassName = Object.ClassName

    if (Object:IsA("LocalScript") or Object:IsA("ModuleScript")) and not gethash(Object) and IgnoreEmpty then
        if not FindScripts(Object:GetDescendants()) then
            return;
        end
    end

    if table.find(Instances, ClassName) or table.find(Services, ClassName) or FindService(ClassName) then
        return ClassName
    end

    return "Folder"
end

local function SteralizeString(String)
    return String:gsub("['\"<>&]", SpecialCharacters)
end

local function MakeInstance(Object, PGB)
    local ClassName = GetClassName(Object)

    if not ClassName then
        return ""
    end

    local IntResult = ("<Item class=\"%s\" referent=\"RBX%s\"><Properties><string name=\"Name\">%s</string>"):format(ClassName, Object:GetDebugId(0), SteralizeString(getname(Object)))
    
    if (ClassName == "LocalScript" or ClassName == "ModuleScript") then
        local Hash = gethash(Object)
        local Source = Hash and (DecompiledScripts[Hash] or "--// Failed to decompile") or "--// Script has no bytecode"

        if ClassName == "LocalScript" then
            IntResult ..= ("<bool name=\"Disabled\">%s</bool>"):format(tostring(Object.Disabled or not Hash))
        end
        
        IntResult ..= ([==[<ProtectedString name="Source"><![CDATA[%s]]></ProtectedString>]==]):format(("--// Hash: %s\n%s"):format(Hash or "nil", Source))
    end

    IntResult ..= "</Properties>"
    for _, v in next, Object:GetChildren() do
        if v ~= nil and v ~= game and CheckObject(v) then --// Give me stength
            IntResult ..= MakeInstance(v, PGB)
        end
    end

    IntResult ..= "</Item>"
    InstancesCreated += 1
    PGB(InstancesCreated, InstancesTotal)

    return IntResult
end

local function Save()
    Result ..= "</roblox>"
    
    writefile(Final, Result)
end

local function GetScripts(Table, C)
    local PGB = ProgressBar(("Collecting Scripts [%s]"):format(C), 0, 1, coroutine.running())

    for i, v in next, Table do
        if (not v:IsA("LocalScript") and not v:IsA("ModuleScript")) or (v:IsDescendantOf(CoreGui) or v:IsDescendantOf(CorePackages)) or table.find(Scripts, v) then
            continue;
        end

        PGB(i, #Table)
        
        table.insert(Scripts, v)
    end

    PGB(1, 1)
end

local function Decompile(...)
    --if Timeout == 0 then
        return decompile(...)
    --end

    --[[local Thread, Completed = coroutine.running(), false
    local DecompThread = task.spawn(function(...)
        local Source = decompile(...)

        Completed = true

        if coroutine.status(Thread) ~= "suspended" then
            repeat
                task.wait(0.2) --// There's no rush
            until coroutine.status(Thread) == "suspended"
        end

        return coroutine.resume(Thread, Source)
    end, ...)

    task.delay(Timeout, function()
        if Completed then
            return;
        end

        coroutine.close(DecompThread)

        return coroutine.resume(Thread)
    end)

    return coroutine.yield()]]
end

local function FindNextScript()
    for i, v in next, Scripts do
        Scripts[i] = nil

        return v
    end
end

local function DecompileScripts()
    local ThreadingGroup = Threading.new("Group", true)
    local Ended = false
    local PGB = ProgressBar(("\nDecompiling Scripts [%s]"):format(#Scripts), 0, #Scripts, coroutine.running())

    while true do
        if Ended then
            break;
        elseif ThreadingGroup.Active == Threads then
            ThreadingGroup.Available:Wait("fg", Threads)
        end

        ThreadingGroup:Add(function()
            local Script = FindNextScript()

            if not Script then
                Ended = true
                ThreadingGroup.Ended:Fire()
                return;
            end

            local Hash = gethash(Script)

            if Hash and not DecompiledScripts[Hash] then    
                DecompiledScripts[Hash] = "--// Decompiling..."
                DecompiledScripts[Hash] = Decompile(Script) or "--// Failed to decompile"
            end

            Decompiled += 1
            PGB(Decompiled, #Scripts)
        end)
    end

    ThreadingGroup.Ended:Wait()
end

RunService:Set3dRenderingEnabled(false)
rconsoleclear()
rconsolename("Script Dumper")
GetScripts(getscripts(), "Running")
GetScripts(getnilinstances(), "Nil")
GetScripts(game:GetDescendants(), "Game")
DecompileScripts()

local InstanceCreatedPGB = ProgressBar("\nCreating XML", InstancesCreated, InstancesTotal, coroutine.running())

for i, v in next, game:GetChildren() do
    if v == CoreGui or v == CorePackages then
        continue;
    end

    Result ..= MakeInstance(v, InstanceCreatedPGB)
end

Result..= MakeInstance({
    ClassName = "Folder";
    Name = "Nil Instances";
    Parent = game;
    GetChildren = function()
        return getnilinstances()
    end;
    GetDebugId = function()
        return Instance.new("Folder"):GetDebugId(0)
    end;
    FindFirstChildWhichIsA = function()
        return true
    end;
    IsA = function(_, IsA)
        return IsA == "Folder"
    end
}, InstanceCreatedPGB)

InstanceCreatedPGB(1, 1)
Save()
rconsoleprint("\nFinished")
RunService:Set3dRenderingEnabled(true)