local Settings = {
    IncludeNils = false -- If true, functions that's names cannot be obtained (Most likely empty functions) will also be included in the decompiled code.
}
local HTTPs = game:GetService('HttpService');
function encode(a)
    return HTTPs:JSONEncode(a)
end
function decode(a)
    return HTTPs:JSONDecode(a)
end
if not isfolder("SimpleDecompile") then
    makefolder("SimpleDecompile")
    writefile("SimpleDecompile/config.json", encode(Settings))
elseif isfolder("SimpleDecompile") and isfile("SimpleDecompile/config.json") then
    Settings = decode(readfile("SimpleDecompile/config.json"))
end
function startswith(str, thing)
    if str:sub(1, #thing) == thing then
        return true
    else
        return false
    end
end
function pKey(key)
    if startswith(tostring(key), "__") then
        return tostring(key)
    end
    if type(key) == "number" then
        return "[" .. tostring(key) .. "]"
    else
        return '["' .. tostring(key) .. '"]'
    end
end
function pKey1(key, val)
 if type(key) == "number" then
  if typeof(val):lower() == "boolean" then
   return "bool_" .. tostring(key)
  else
   return typeof(val):lower() .. "_" .. tostring(key)
  end
 elseif type(key) == 'string' then
  return val
 end
end
function isStrFunc(str)
 for i, v in getrenv() do
  if tostring(i) == str and type(v) == "function" then return true end
 end
 return false
end
function gcsenv(Scr)
    local funcs = {}
    for i, v in next, getgc(true) do
        if (type(v) == "function" and islclosure(v) and getfenv(v).script == Scr) then
            table.insert(funcs, v)
        end
    end
    return funcs
end

function GetMetaMethods(regularTable)
    local meta = getmetatable(regularTable)
    if not meta then
        return {}
    end
    setreadonly(meta, false)
    local mms = {}
    for i, v in meta do
        if startswith(tostring(i), "__") then
            table.insert(mms, {Name = i, Value = v})
        end
    end
    return mms
end
function GetFullName(instance)
    local p = instance
    local lo = {}
    while (p ~= game and p.Parent ~= nil) do
        table.insert(lo, p)
        p = p.Parent
    end
    local fullName
    if #lo == 0 then
        return "nil -- Instance parented to nil"
    end
    if lo[#lo].ClassName ~= "Workspace" then
        fullName = 'game:GetService("' .. lo[#lo].ClassName .. '")'
    else
        fullName = "workspace"
    end
    for i = #lo - 1, 1, -1 do
        fullName = fullName .. ':FindFirstChild("' .. lo[i].Name .. '")'
    end
    return fullName
end
function processTableDescendants(tbl, indent, tblname)
    indent = indent or 0
    tblname = tblname or "{}"
    local metacount = 1
    local result = ""
    local count = 1
    for key, value in pairs(tbl) do
        if type(value) == "table" and not startswith(tostring(key), "__") then
            result = result .. string.rep("  ", indent) .. pKey(key) .. " = {"
            if #value == 0 then
                result = result .. "}"
            else
                result = result .. "\n" .. processTableDescendants(value, indent + 1)
                result = result .. string.rep("  ", indent) .. "}\n"
            end
            if getrawmetatable(value) ~= nil then
                result =
                    result ..
                    string.rep("  ", indent) ..
                        "local meta" .. tostring(metacount) .. " = setmetatable(" .. tostring(tblname) .. ", {})\n"
                metacount = metacount + 1
                for _, v in GetMetaMethods(value) do
                    result =
                        result ..
                        string.rep("  ", indent) .. "meta" .. tostring(metacount) .. "." .. tostring(v.Name) .. " = "
                    if typeof(v.Value) == "table" then
                        result =
                            result ..
                            string.rep("  ", indent) ..
                                "{" ..
                                    processTableDescendants(v.Value, indent + 1) ..
                                        "\n" .. string.rep("  ", indent) .. "}"
                    elseif typeof(v.Value) == "function" then
                        result = result .. string.rep("  ", indent) .. "function() --[[ Function Source ]] end"
                    else
                        result = result .. string.rep("  ", indent) .. tostring(v.Value)
                    end
                    result = result .. ";\n"
                end
            end
        elseif type(value) == "function" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) .. " = function() --[[Function Source]] end" .. string.rep("  ", indent + 1)
        elseif typeof(value):lower() == "vector3" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) ..
                        " = Vector3.new(" ..
                            tostring(value.X) .. ", " .. tostring(value.Y) .. ", " .. tostring(value.Z) .. ");\n"
        elseif typeof(value):lower() == "vector2" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) .. " = Vector2.new(" .. tostring(value.X) .. ", " .. tostring(value.Y) .. ");\n"
        elseif typeof(value):lower() == "udim" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) .. " = UDim.new(" .. tostring(value.Scale) .. ", " .. tostring(value.Offset) .. ");\n"
        elseif typeof(value):lower() == "udim2" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) ..
                        " = UDim2.new(" ..
                            tostring(value.X.Scale) ..
                                ", " ..
                                    tostring(value.X.Offset) ..
                                        ", " .. tostring(value.Y.Scale) .. ", " .. tostring(value.Y.Offset) .. ");\n"
        elseif typeof(value):lower() == "instance" and not startswith(tostring(key), "__") then
            result = result .. string.rep("  ", indent) .. pKey(key) .. " = " .. GetFullName(value) .. ";\n"
        elseif typeof(value) == "string" and not startswith(tostring(key), "__") then
            result = result .. string.rep("  ", indent) .. pKey(key) .. ' = "' .. tostring(value) .. '";\n'
        elseif typeof(value) == "number" and not startswith(tostring(key), "__") then
            result = result .. string.rep("  ", indent) .. pKey(key) .. " = " .. tostring(value) .. ";\n"
        elseif typeof(value) == "nil" and not startswith(tostring(key), "__") then -- nil value
            result = result .. string.rep("  ", indent) .. pKey(key) .. " = " .. tostring(value) .. ";\n"
        elseif typeof(value):lower() == "cframe" and not startswith(tostring(key), "__") then -- Enum/Other value
            result = result .. string.rep("  ", indent) .. pKey(key) .. " = CFrame.new(" .. tostring(value) .. ");\n"
        elseif typeof(value):lower() == "color3" and not startswith(tostring(key), "__") then
            result =
                result ..
                string.rep("  ", indent) ..
                    pKey(key) ..
                        " = Color3.fromRGB(" ..
                            tostring(value.R * 255) ..
                                ", " .. tostring(value.G * 255) .. ", " .. tostring(value.B * 255) .. ");\n"
        end
    end
    if #tbl == 0 then
        return result
    else
        return "\n" .. result
    end
end
function DecompileFunction(func, excludename, indent, customname)
    if not indent then
        indent = 1
    end
    local metatablecount = 1
    local inf, String = debug.getinfo(func), "function " .. tostring(debug.getinfo(func).name) .. "("

    if excludename then
        String = "function("
    end
    if customname then
        String = "function " .. customname .. "("
    end
    if tostring(inf.is_vararg) == "1" then
        String = String .. "...\n"
    else
        local ab={"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z","A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z"}
        if inf.numparams > 0 then
            local paramcount = inf.numparams
            for i = 1, paramcount do
                String = String .. ab[i]
                if i < paramcount then
                    String = String .. ", "
                end
            end
            if paramcount > #ab then
                String = String .. ", ..."
            end
        end
        String = String .. ")"
        StringHolder = String
        String = ""
        UString = ""
        for i, v in getupvalues(func) do
        if typeof(v):lower() == "vector2" then
            UString = UString .. ("\n%s = Vector2.new(%d, %d)"):format(pKey1(i, v), v.X, v.Y)
        elseif typeof(v):lower() == "vector3" then
            UString = UString .. ("\n%s = Vector3.new(%d, %d, %d)"):format(pKey1(i, v), v.X, v.Y, v.Z)
        elseif typeof(v):lower() == "udim" then
            UString = UString .. ("\n%s = UDim.new(%d, %d)"):format(pKey1(i, v), v.Scale, v.Offset)
        elseif typeof(v):lower() == "udim2" then
            UString =
                UString ..
                ("\n%s = UDim2.new(%d, %d, %d, %d)"):format(
                    pKey1(i, v),
                    v.X.Scale,
                    v.X.Offset,
                    v.Y.Scale,
                    v.Y.Offset
                )
        elseif typeof(v):lower() == "number" then
            if os.time() - v < 1 then
                UString = UString .. ("\n%s = %s --[[ Possibly os.time() ]]"):format(pKey1(i, v), tostring(v))
            elseif tick() - v < 1 then
                UString = UString .. ("\n%s = %s -- [[ Possibly tick() ]]"):format(pKey1(i, v), tostring(v))
            else
                -- Reasons not to add userid checks: False alarms (Really rare, But why would they it in a modulescript or a localscript.)
                UString = UString .. ("\n%s = %s"):format(pKey1(i, v), tostring(v))
            end
        elseif typeof(v):lower() == "instance" then
            UString = UString .. ("\n%s = %s"):format(v.Name:gsub(" ", "_"),GetFullName(v))
        elseif typeof(v):lower() == "color3" then
            UString = UString .. ("\n%s = Color3.fromRGB(%d, %d, %d"):format(pKey1(i, v), v.R * 255, v.G * 255, v.B * 255)
        elseif typeof(v):lower() == "string" then
            UString = UString .. ('\n%s = "%s"'):format(pKey1(i, v), v)
        elseif typeof(v):lower() == "boolean" then
            UString = UString .. ("\n%s = %s"):format(pKey1(i, v), tostring(v))
        elseif typeof(v):lower() == "cframe" then
            UString = UString .. ("\n%s = CFrame.new(%s)"):format(pKey1(i, v), tostring(v))
        end
     end
    end
    if #getupvalues(func) == 0 then
        String = StringHolder
    else
        String = UString .. "\n" .. StringHolder or ''
    end
    local consts = string.rep("  ", indent) .. "--[[ Detected roblox functions list"
    local Aconsts = ""
    local UnknownProtos = 0
    for i, v in getconstants(func) do
     if isStrFunc(v) then
      consts = consts .. "\n" .. string.rep("  ", indent) ..v.."()"
     else
      Aconsts = Aconsts .. "\n" .. string.rep("  ", indent) .. "local c_" .. tostring(i) .. " = '" .. tostring(v) .. "'"
     end
    end
    consts = consts .. "\n" .. string.rep("  ", indent) .. "]]\n"
    for i, v in getprotos(func) do
        if debug.getinfo(v).name == nil then
            UnknownProtos = UnknownProtos + 1
            String =
                String ..
                ("\n%slocal %s\n"):format(
                    string.rep("  ", indent),
                    DecompileFunction(v, false, indent + 1, "nil" .. tostring(UnknownProtos))
                )
        else
            String = String .. ("\n%slocal %s\n"):format(string.rep("  ", indent), DecompileFunction(v, false, indent + 1))
        end
    end
    return String .. "\n" .. consts .. Aconsts .. "\n" .. string.rep(" ", indent) .. "end"
end

function DecompileScript(Script)
    local Decompiled = "--[[ DECOMPILED WITH SIMPLEDECOMPILE ]]\n"
    if typeof(Script) == "Instance" and Script.ClassName == "ModuleScript" then
        local s, e =
            pcall(
            function()
                for i, v in require(Script) do
                    if type(v) == "table" then
                        if #v == 0 then
                            if type(i) == "number" then
                                Decompiled = Decompiled .. ("\nlocal table_%d = {}; --[[ EMPTY TABLE ]]\n"):format(pKey1(i, v))
                            else
                                Decompiled = Decompiled .. ("\nlocal %s = {}; --[[ EMPTY TABLE ]]\n"):format(i)
                            end
                        else
                            if type(i) == "number" then
                                Decompiled =
                                    Decompiled ..
                                    ("local table_%d = {\n%s};\n"):format(
                                        pKey1(i, v),
                                        processTableDescendants(v, 0, "t_" .. tostring(i))
                                    )
                            else
                                Decompiled =
                                    Decompiled ..
                                    ("local %s = {\n%s};\n"):format(
                                        i,
                                        processTableDescendants(v, 0, "t_" .. tostring(i))
                                    )
                            end
                        end
                elseif type(v) == 'function' then
                 if type(i) == 'number' then
                    Decompiled = Decompiled .. ("\n%s"):format(DecompileFunction(v, false, 0, "f_"..tostring(i)))
                 else
                    Decompiled = Decompiled .. ("\n%s"):format(DecompileFunction(v, false, 0))
                 end
                end
             end
            end
        )
        if not s then
            return "-- Error occured when trying to iterate over ModuleScript, Message: " .. e
        end
        return Decompiled
    end
    local s, e =
        pcall(
        function()
            local uks = 1
            for i, v in getsenv(Script) do
                if type(v) == "table" then
                    if #v == 0 then
                        if type(i) == "number" then
                            Decompiled = Decompiled .. ("\nlocal table_%d = {}; --[[ EMPTY TABLE ]]\n"):format(pKey1(i, v))
                        else
                            Decompiled = Decompiled .. ("\nlocal %s = {}; --[[ EMPTY TABLE ]]\n"):format(i)
                        end
                    else
                        if type(i) == "number" then
                            Decompiled =
                                Decompiled ..
                                ("local table_%d = {\n%s};"):format(
                                    pKey1(i, v),
                                    processTableDescendants(v, 0, "t_" .. tostring(i))
                                )
                        else
                            Decompiled =
                                Decompiled ..
                                ("local %s = {\n%s};\n"):format(i, processTableDescendants(v, 0, "t_" .. tostring(i)))
                        end
                    end
                end
            end
            for i, v in gcsenv(Script) do -- garbage collection senv
                local name = debug.getinfo(v).name
                if name == nil and Settings.IncludeNils then
                    Decompiled = Decompiled .. ("\n%s"):format(DecompileFunction(v, false, 0, "nil" .. tostring(uks)))
                    uks = uks + 1
                elseif name ~= nil then
                    Decompiled = Decompiled .. ("\n%s"):format(DecompileFunction(v, false, 0))
                end
            end
        end
    )
    if not s then
        return " --An error occured while attempting to iterate over Script's enviroment!\nMessage: " .. e
    end
    return Decompiled
end

getgenv().decompile = DecompileScript
return DecompileScript