HttpGet_v

--[[
    Made by IAteYourDog
    Serverhop made by https://discord.gg/FPGVwqV
    Everything else was made by IAteYourDog
]]
local messages = {
    "Lol this game has no security",
    "Probably the easiest script I've ever made tbh",
    "Imagine not having good anti-exploit",
    "Don't like what I'm doing? Thank the devs",
    "Lol, this took less than an hour to make"
}

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

repeat
    wait()
    for _,v in pairs(getconnections(game:GetService("Players").LocalPlayer.PlayerGui.HUD.TeamScreen.PoliceBG.MouseButton1Click)) do
        v:Fire()
    end
until game:GetService("Players").LocalPlayer.PlayerGui.HUD.TeamScreen.Visible == false and game:GetService("Players").LocalPlayer.Character ~= nil

print("Past loading screen")

local function leave()
    game:GetService("ReplicatedStorage").Events.ExitVehicle:FireServer()
end

local function enterCar(car)
    local args = {
        [1] = "EnterVehicle",
        [2] = car
    }

    game:GetService("ReplicatedStorage").NetworkEvents.EventIndex7:FireServer(unpack(args))
    wait(0.3)
end

local function arrest(plr)
    local args = {
        [1] = "ContextCallback",
        [2] = "ArrestPlayer",
        [3] = plr,
        [4] = true
    }

    game:GetService("ReplicatedStorage").NetworkEvents.EventIndex6:FireServer(unpack(args))
end

local function taze(plr)
    local args = {
        [1] = plr.Position,
        [2] = plr.Position,
        [3] = plr
    }

    game:GetService("ReplicatedStorage").Events.CreateTaserProjectile:FireServer(unpack(args))
end

local function go(plr)
    --DEBUG
    local vehicle
    for i,v in pairs(game.Workspace.Vehicles:GetDescendants()) do
        if v.Name == "Caddie" and v.Seats:FindFirstChild("Driver") and v.Seats.Driver.Occupant == nil then
            if v.Seats.Driver:FindFirstChild("VehicleNameTag") then
                if v.Seats.Driver.VehicleNameTag.Username.Text == "UseStarCode_BACON" or v.Seats.Driver.VehicleNameTag.Username.Text == "" then
                    print("car car")
                    vehicle = v.Seats.Driver
                end
            end
        end
    end

    local target = plr
    game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = vehicle.CFrame + Vector3.new(0,3,0)
    game.Players.LocalPlayer.Character.Humanoid:ChangeState(10)
    enterCar(vehicle)
    vehicle.Parent.Parent:SetPrimaryPartCFrame(target.CFrame)

    wait(0.5)
end

local function chat()
    local randomMsg = messages[math.random(1,#messages)]
    local args = {
        [1] = randomMsg,
        [2] = "All"
    }

    game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(unpack(args))
end

local function sererHop()
    print("Work in progress")
    game:GetService("Players").LocalPlayer.OnTeleport:Connect(function(State)
        if State == Enum.TeleportState.Started then
            syn.queue_on_teleport(tostring(game:HttpGet("https://pastebin.com/raw/7r3JgU3n")))
        end
    end)
end

spawn(function()
    while wait(3) do
        chat()
    end
end)

for _,v in pairs(game:GetService("Players"):GetPlayers()) do
    if v.Team and v.Team.Name == "Criminals" then
        local target = v.Character.UpperTorso
        go(target)
        if game.Players.LocalPlayer.Character.Humanoid.Sit == true then
            leave()
            wait(.3)
            game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame = target.CFrame
        end
        taze(target)
        wait(0.4)
        arrest(target)
        wait(2.4)
    end
end

while wait(0.1) do
    local HttpService, TPService = game:GetService"HttpService", game:GetService"TeleportService";
    local OtherServers = HttpService:JSONDecode(game:HttpGet("https://games.roblox.com/v1/games/"..game.PlaceId.."/servers/Public?sortOrder=Asc&limit=100"))
    for Index, Server in next, OtherServers["data"] do
        local ran = math.random(1,5)
        if Server ~= game.JobId and Server.playing ~= Server.maxPlayers then
            if ran == 5 then
                print(Server["id"])
                sererHop()
                wait()
                TPService:TeleportToPlaceInstance(game.PlaceId, Server["id"])
                break
            end
        end
    end
end