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

local http = game:GetService("HttpService")
local tp = game:GetService("TeleportService")
local players = game:GetService("Players")
local lp = players.LocalPlayer
local placeId = game.PlaceId
local jobId = game.JobId

local secrets = G_ and G_.Secrets or {
    "La Vacca Saturno Saturnita",
    "Los Tralaleritos",
    "Graipuss Medussi"
}

local webhook = G_ and G_.Webhook or "LINK HERE"

local renameRadius = 8
local req = http_request or request or (syn and syn.request)

local function sendWebhook(msg)
    if webhook == "" or not req then return end
    pcall(function()
        req({
            Url = webhook,
            Method = "POST",
            Headers = {["Content-Type"] = "application/json"},
            Body = http:JSONEncode({content = msg})
        })
    end)
end

local function renameModelsInRadius()
    local root = lp.Character and lp.Character:FindFirstChild("HumanoidRootPart")
    if not root then return end
    for _, model in ipairs(workspace:GetChildren()) do
        if model:IsA("Model") then
            local part = model:FindFirstChild("HumanoidRootPart") or model.PrimaryPart
            if part and (part.Position - root.Position).Magnitude <= renameRadius then
                model.Name = "ghhhw"
            end
        end
    end
end

local function waitForSecrets(timeout)
    local start = tick()
    while tick() - start < timeout do
        for _, name in ipairs(secrets) do
            if workspace:FindFirstChild(name) then
                return
            end
        end
        task.wait(0.2)
    end
end

local function hasSecrets()
    waitForSecrets(5)
    renameModelsInRadius()
    local foundMap = {}
    for _, name in ipairs(secrets) do
        foundMap[name] = 0
    end
    for _, obj in ipairs(workspace:GetChildren()) do
        if foundMap[obj.Name] ~= nil then
            foundMap[obj.Name] += 1
        end
    end
    local foundAny = false
    for _, name in ipairs(secrets) do
        local count = foundMap[name]
        if count > 0 then
            foundAny = true
            local msg = (count == 1) and ("• Found: " .. name) or ("• Found: " .. name .. " ×" .. count)
            print(msg)
            sendWebhook(msg)
        end
    end
    return foundAny
end

local function getServerList()
    local ok, res = pcall(function()
        local url = string.format("https://games.roblox.com/v1/games/%d/servers/Public?sortOrder=Desc&limit=100&excludeFullGames=true", placeId)
        return http:JSONDecode(game:HttpGet(url))
    end)
    if not ok or not res or not res.data then
        return nil
    end
    local servers = {}
    for _, s in ipairs(res.data) do
        if s.id ~= jobId and s.playing < s.maxPlayers then
            table.insert(servers, s.id)
        end
    end
    return servers
end

local retryTeleport = false
tp.TeleportInitFailed:Connect(function(plr, result, msg)
    if plr == lp then
        retryTeleport = true
    end
end)

local function serverHopLoop()
    if hasSecrets() then return end
    while true do
        local list = getServerList()
        if not list or #list == 0 then
            task.wait(3)
        else
            local target = list[math.random(1, #list)]
            retryTeleport = false
            tp:TeleportToPlaceInstance(placeId, target, lp)
            local t = 0
            while t < 5 do
                if retryTeleport then break end
                task.wait(0.5)
                t += 0.5
            end
            if retryTeleport then
                task.wait(3)
            else
                return
            end
        end
    end
end

serverHopLoop()