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

local messages = {
    "Buy any jailbreak vehicle! | Shop now at ⚪⚫BestJailbreak.Store⚪⚫",
    "Store has the Best Prices and Best Delivery! | Shop now at ✨BestJailbreak.Store✨",
    "Get Beignet/Celsior for 25$ only | Shop now at ❤️🔥  BestJailbreak.Store ❤️🔥",
    "Acquire Brulee for 10$! only | Shop now at ✨BestJailbreak.Store✨",
    "Obtain your Torpedo/Javelin today for only $35!! | Shop now at 🛒BestJailbreak.Store🛒",
    "MOST Rare items come from this Store! | Shop now at 🔥BestJailbreak.Store🔥"
}

local Services = setmetatable({}, {
	__index = function(_, service)
		return game:GetService(service)
	end
})

local function SendMessages()
    for i = 1,3 do
        for _, msg in ipairs(messages) do
            pcall(function()
                Services.TextChatService.TextChannels.RBXGeneral:SendAsync(msg)
            end)

            wait(4.5)
        end
    end
end

SendMessages()

local P = game:GetService("Players")
local T = game:GetService("TeleportService")
local H = game:GetService("HttpService")
local pl = P.LocalPlayer
local ScriptFile = "ProjectCrateFarm/Script.lua"
local loaderUrl = "https://api.prnxzdev.lol/JBLoader.lua"
local serverListUrl = "https://api.prnxzdev.lol/large_servers.php"

-- write loader once for the next server to run
pcall(function()
    writefile(ScriptFile, game:HttpGet(loaderUrl))
end)

local hoping, success
pl.OnTeleport:Connect(function(state)
    if state == Enum.TeleportState.Started then success = true end
end)

-- configuration
local ScriptFile = "https://pastebin.com/raw/1BadCJ5P"

-- services
local TS = game:GetService("TeleportService")
local HS = game:GetService("HttpService")
local PL = game.Players.LocalPlayer or game.Players.PlayerAdded:Wait()
local PLACE = game.PlaceId
local JOB  = game.JobId

-- queue script for after-teleport (works with queue_on_teleport or syn.queue_on_teleport)
local q = queue_on_teleport or (syn and syn.queue_on_teleport)
if q then
    q(string.format([[
        if not game:IsLoaded() then game.Loaded:Wait() end
        loadstring(game:HttpGet("%s"))()
    ]], ScriptFile))
end

-- helper: fetch a random under-filled server id (or nil)
local function pickServer()
    local url = ("https://games.roblox.com/v1/games/%d/servers/Public?limit=100"):format(PLACE)
    local ok, body = pcall(HS.GetAsync, HS, url)
    if not ok or not body then return end
    local ok2, j = pcall(HS.JSONDecode, HS, body)
    if not ok2 or not j or not j.data then return end
    local cand = {}
    for _, s in ipairs(j.data) do
        if s.id and type(s.playing) == "number" and s.playing < (s.maxPlayers - 2) and s.id ~= JOB then
            cand[#cand+1] = s.id
        end
    end
    return (#cand > 0) and cand[math.random(1, #cand)] or nil
end

-- try teleports until one starts (pcall success -> assume teleport began)
while true do
    local sid = pickServer()
    if sid then
        local ok = pcall(function() TS:TeleportToPlaceInstance(PLACE, sid, PL) end)
        if ok then break end
    end
    task.wait(0.75)
end