Slime_Rng.lua

--================ CORE =================--

local Services = {
    Players = game:GetService("Players"),
    RunService = game:GetService("RunService"),
    Stats = game:GetService("Stats"),
    UIS = game:GetService("UserInputService"),
    TweenService = game:GetService("TweenService"),
    VirtualUser = game:GetService("VirtualUser"),
    TeleportService = game:GetService("TeleportService")
}

local player = Services.Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

if not game:IsLoaded() then game.Loaded:Wait() end

--================ LOADING =================--

local loadingGui = Instance.new("ScreenGui", playerGui)
loadingGui.IgnoreGuiInset = true
loadingGui.ResetOnSpawn = false

local loadingFrame = Instance.new("Frame", loadingGui)
loadingFrame.Size = UDim2.new(1,0,1,0)
loadingFrame.BackgroundColor3 = Color3.fromRGB(10,10,15)

local title = Instance.new("TextLabel", loadingFrame)
title.Size = UDim2.new(1,0,0.4,0)
title.Position = UDim2.new(0,0,0.3,0)
title.BackgroundTransparency = 1
title.Text = "SCRIPT LOADING..."
title.Font = Enum.Font.GothamBlack
title.TextScaled = true
title.TextColor3 = Color3.fromRGB(0,255,170)

local author = Instance.new("TextLabel", loadingFrame)
author.Size = UDim2.new(1,0,0.2,0)
author.Position = UDim2.new(0,0,0.7,0)
author.BackgroundTransparency = 1
author.Text = "By: Crow"
author.Font = Enum.Font.GothamBold
author.TextScaled = true
author.TextColor3 = Color3.fromRGB(180,180,180)

for i = 1,3 do
    title.Text = "SCRIPT LOADING" .. string.rep(".", i)
    task.wait(0.4)
end

task.wait(1)

for i = 1,10 do
    loadingFrame.BackgroundTransparency += 0.1
    title.TextTransparency += 0.1
    author.TextTransparency += 0.1
    task.wait(0.05)
end

loadingGui:Destroy()

--================ CONFIG =================--

local CONFIG = {
    AUTO_COLLECT = true,
    AUTO_ISLAND = true,
    AUTO_PET = true
}

--================ UI =================--

local gui = Instance.new("ScreenGui", playerGui)
gui.ResetOnSpawn = false

local frame = Instance.new("Frame", gui)
frame.Size = UDim2.new(0,200,0,110)
frame.Position = UDim2.new(0,10,0,40)
frame.BackgroundColor3 = Color3.fromRGB(20,20,30)
Instance.new("UICorner", frame)

local label = Instance.new("TextLabel", frame)
label.Size = UDim2.new(1,0,0.7,0)
label.BackgroundTransparency = 1
label.Font = Enum.Font.GothamBold
label.TextScaled = true
label.TextColor3 = Color3.fromRGB(0,255,170)

local toggle = Instance.new("TextButton", frame)
toggle.Size = UDim2.new(1,0,0.3,0)
toggle.Position = UDim2.new(0,0,0.7,0)
toggle.Text = "Overlay OFF"
toggle.TextColor3 = Color3.fromRGB(255,255,255)
toggle.BackgroundColor3 = Color3.fromRGB(40,40,60)

local overlay = Instance.new("Frame", gui)
overlay.Size = UDim2.new(1,0,1,0)
overlay.BackgroundColor3 = Color3.new(0,0,0)
overlay.BackgroundTransparency = 0.5
overlay.Visible = false

toggle.MouseButton1Click:Connect(function()
    overlay.Visible = not overlay.Visible
    toggle.Text = overlay.Visible and "Overlay ON" or "Overlay OFF"
end)

-- drag
local dragging, startPos, startFramePos
frame.InputBegan:Connect(function(i)
    if i.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true
        startPos = i.Position
        startFramePos = frame.Position
    end
end)

Services.UIS.InputChanged:Connect(function(i)
    if dragging and i.UserInputType == Enum.UserInputType.MouseMovement then
        local delta = i.Position - startPos
        frame.Position = startFramePos + UDim2.new(0,delta.X,0,delta.Y)
    end
end)

--================ FPS + PING =================--

local fpsSamples, pingSamples = {}, {}
local lastUpdate = 0

Services.RunService.RenderStepped:Connect(function(dt)
    local fps = math.floor(1/dt)
    local ping = math.floor(Services.Stats.Network.ServerStatsItem["Data Ping"]:GetValue())

    table.insert(fpsSamples,fps)
    table.insert(pingSamples,ping)

    if #fpsSamples > 20 then table.remove(fpsSamples,1) end
    if #pingSamples > 20 then table.remove(pingSamples,1) end

    if tick() - lastUpdate > 0.5 then
        lastUpdate = tick()

        local f,p = 0,0
        for _,v in ipairs(fpsSamples) do f+=v end
        for _,v in ipairs(pingSamples) do p+=v end

        label.Text = "⚡ FPS: "..math.floor(f/#fpsSamples).."\n📡 Ping: "..math.floor(p/#pingSamples)
    end
end)

--================ ANTI AFK =================--

player.Idled:Connect(function()
    Services.VirtualUser:CaptureController()
    Services.VirtualUser:ClickButton2(Vector2.new())
end)

--================ HELPER =================--

local function getMoney()
    local ls = player:FindFirstChild("leaderstats")
    if not ls then return 0 end
    for _,v in pairs(ls:GetChildren()) do
        if v:IsA("NumberValue") or v:IsA("IntValue") then
            return v.Value
        end
    end
    return 0
end

local function scanIslands()
    local list = {}
    for _,v in pairs(workspace:GetChildren()) do
        if v:IsA("Model") and v.Name:lower():find("island") then
            table.insert(list,v)
        end
    end
    table.sort(list,function(a,b) return a.Name < b.Name end)
    return list
end

--================ AUTO COLLECT =================--

task.spawn(function()
    while CONFIG.AUTO_COLLECT do
        task.wait(2)

        if not player.Character or not player.Character:FindFirstChild("HumanoidRootPart") then continue end

        for _,v in pairs(workspace:GetDescendants()) do
            if v:IsA("ProximityPrompt") and v.Enabled then
                local parent = v.Parent
                if parent and parent:IsA("BasePart") then
                    local dist = (player.Character.HumanoidRootPart.Position - parent.Position).Magnitude
                    if dist < 12 then
                        pcall(function()
                            fireproximityprompt(v)
                        end)
                    end
                end
            end
        end
    end
end)

--================ AUTO ISLAND =================--

task.spawn(function()
    local islands = scanIslands()
    local index = 1

    while CONFIG.AUTO_ISLAND do
        task.wait(3)

        local money = getMoney()
        local island = islands[index]

        if island then
            local costObj = island:FindFirstChild("Cost")
            local part = island:FindFirstChildWhichIsA("BasePart", true)

            if costObj and money >= costObj.Value then
                print("Unlocked:", island.Name)

                if part and player.Character then
                    player.Character:MoveTo(part.Position)
                end

                index += 1
            end
        end
    end
end)

--================ AUTO PET =================--

task.spawn(function()
    while CONFIG.AUTO_PET do
        task.wait(5)

        local pets = player:FindFirstChild("Pets")
        if not pets then continue end

        local best, bestPower = nil, 0

        for _,pet in pairs(pets:GetChildren()) do
            local power = pet:FindFirstChild("Power")
            if power and power.Value > bestPower then
                bestPower = power.Value
                best = pet
            end
        end

        if best then
            print("Best pet:", best.Name)
        end
    end
end)

--================ REJOIN + AUTO LOAD =================--

local SCRIPT_URL = "https://gist.githubusercontent.com/DuyNgao2306/eb8a319ada403ce9344d0bbc6e67a501/raw/ce43ca2aa54f38169777727c446e489a26d344fb/Slime_Rng.lua"

-- đảm bảo game load xong
if not game:IsLoaded() then game.Loaded:Wait() end

-- queue load lại script khi teleport
if queue_on_teleport then
    queue_on_teleport('task.wait(2); loadstring(game:HttpGet("'..SCRIPT_URL..'"))()')
end

-- detect lỗi → rejoin
game:GetService("CoreGui").RobloxPromptGui.promptOverlay.ChildAdded:Connect(function(child)
    if child.Name == "ErrorPrompt" then
        task.wait(2)
        game:GetService("TeleportService"):Teleport(game.PlaceId, game.Players.LocalPlayer)
    end
end)