Teste

O único que deu certo foi esse aq ó

local ServerData = {} -- Armazena os dados do servidor

-- Função para coletar dados do servidor de maneira mais eficaz
local function CollectServerData()
    ServerData = {} -- Limpa dados antigos

    -- Função para procurar por todos os valores dentro do jogo
    local function SearchForValues(container)
        if container then
            for _, item in ipairs(container:GetChildren()) do
                if item:IsA("NumberValue") or item:IsA("StringValue") or item:IsA("BoolValue") then
                    -- Armazena os dados encontrados
                    ServerData[item.Name] = item.Value
                elseif item:IsA("ObjectValue") then
                    -- Coleta dados de ObjectValues
                    ServerData[item.Name] = item.Value
                elseif item:IsA("Folder") or item:IsA("Model") then
                    -- Se for uma pasta ou modelo, também tenta procurar dentro dela
                    SearchForValues(item)
                end
            end
        end
    end

    -- Procura dados em várias áreas do jogo
    local searchContainers = {
        game:GetService("ReplicatedStorage"),
        game:GetService("Workspace"),
        game:GetService("ServerStorage"),
        game:GetService("Players"),
        game:GetService("Teams"),
        game:GetService("Lighting"),
        game:GetService("Chat") -- Exemplo de outras áreas que podem ter dados interessantes
    }

    -- Inicia a busca nos locais
    for _, container in ipairs(searchContainers) do
        SearchForValues(container)
    end

    -- Caso não encontre nenhum dado
    if next(ServerData) == nil then
        ServerData["Aviso"] = "Nenhum dado encontrado no servidor!"
    end
end

-- Função para atualizar a UI com dados coletados
local function UpdateUI()
    local collectedData = ""
    if next(ServerData) then
        -- Se houver dados, exibe-os
        for key, value in pairs(ServerData) do
            collectedData = collectedData .. key .. ": " .. tostring(value) .. "\n"
        end
    else
        -- Se não houver dados, exibe uma mensagem padrão
        collectedData = "Nenhum dado encontrado no servidor."
    end
    DataText.Text = collectedData
end

-- Criar UI
local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local CloseButton = Instance.new("TextButton")
local CopyButton = Instance.new("TextButton")
local DataText = Instance.new("TextLabel")
local CountdownLabel = Instance.new("TextLabel")

ScreenGui.Parent = game.CoreGui
ScreenGui.Name = "ServerDataUI"

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.new(0.2, 0.2, 0.2)
Frame.Size = UDim2.new(0, 500, 0, 400)
Frame.Position = UDim2.new(0.5, -250, 0.5, -200)
Frame.Draggable = true
Frame.Active = true

Title.Parent = Frame
Title.Text = "Carregando Dados..."
Title.Size = UDim2.new(1, 0, 0, 30)
Title.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
Title.TextColor3 = Color3.new(1, 1, 1)
Title.Font = Enum.Font.SourceSansBold
Title.TextSize = 18

CloseButton.Parent = Frame
CloseButton.Text = "X"
CloseButton.Size = UDim2.new(0, 30, 0, 30)
CloseButton.Position = UDim2.new(1, -35, 0, 0)
CloseButton.BackgroundColor3 = Color3.new(0.8, 0.1, 0.1)
CloseButton.TextColor3 = Color3.new(1, 1, 1)
CloseButton.Font = Enum.Font.SourceSansBold
CloseButton.TextSize = 18

CopyButton.Parent = Frame
CopyButton.Text = "Copiar Dados"
CopyButton.Size = UDim2.new(0, 100, 0, 30)
CopyButton.Position = UDim2.new(1, -135, 0, 0)
CopyButton.BackgroundColor3 = Color3.new(0.1, 0.8, 0.1)
CopyButton.TextColor3 = Color3.new(1, 1, 1)
CopyButton.Font = Enum.Font.SourceSansBold
CopyButton.TextSize = 16

DataText.Parent = Frame
DataText.Text = ""
DataText.Size = UDim2.new(1, -10, 1, -40)
DataText.Position = UDim2.new(0, 5, 0, 35)
DataText.BackgroundColor3 = Color3.new(0.15, 0.15, 0.15)
DataText.TextColor3 = Color3.new(1, 1, 1)
DataText.Font = Enum.Font.SourceSans
DataText.TextSize = 16
DataText.TextWrapped = true
DataText.TextXAlignment = Enum.TextXAlignment.Left
DataText.TextYAlignment = Enum.TextYAlignment.Top
DataText.ClipsDescendants = true

CountdownLabel.Parent = Frame
CountdownLabel.Text = "Aguarde 10 segundos (Vendo dados)"
CountdownLabel.Size = UDim2.new(1, 0, 0, 30)
CountdownLabel.Position = UDim2.new(0, 0, 0, 30)
CountdownLabel.BackgroundColor3 = Color3.new(0.1, 0.1, 0.1)
CountdownLabel.TextColor3 = Color3.new(1, 1, 1)
CountdownLabel.Font = Enum.Font.SourceSansBold
CountdownLabel.TextSize = 18

-- Função para fechar a UI
CloseButton.MouseButton1Click:Connect(function()
    ScreenGui:Destroy()
end)

-- Função para copiar dados
CopyButton.MouseButton1Click:Connect(function()
    local copiedData = ""
    if next(ServerData) then
        -- Se houver dados, copia-os
        for key, value in pairs(ServerData) do
            copiedData = copiedData .. key .. ": " .. tostring(value) .. "\n"
        end
    else
        -- Caso não haja dados, informa que não foi encontrado nada
        copiedData = "Nenhum dado para copiar."
    end

    -- Função para copiar dados no Delta Executor
    if setclipboard then
        setclipboard(copiedData)
        print("Dados copiados para a área de transferência!")
    else
        warn("Seu executor não suporta 'setclipboard'.")
    end
end)

-- Função para efeito de carregamento
local function LoadingEffect()
    local countdown = 10 -- Tempo de contagem regressiva em segundos
    local interval = 1 -- Intervalo de 1 segundo entre as atualizações
    local count = countdown

    -- Inicia o efeito de carregamento
    while count > 0 do
        CountdownLabel.Text = "Aguarde " .. count .. " segundos (Vendo dados)"
        wait(interval)
        count = count - 1
    end

    -- Depois que o tempo acabar, começa a coletar os dados
    CountdownLabel.Text = "Coletando dados..."
    wait(2) -- Dá um tempo para a última mensagem ser vista

    CollectServerData() -- Coleta os dados do servidor
    UpdateUI() -- Atualiza a UI com os dados encontrados
end

-- Inicia o efeito de carregamento
LoadingEffect()

print("Script para Delta Executor carregado!")