Binos

--// Roblox Delta GUI Script by Rip_BinosBey (Tam Versiyon: Key + Server Hop + ESP + Drag + Anti Kick)

local Players = game:GetService("Players")
local TeleportService = game:GetService("TeleportService")
local HttpService = game:GetService("HttpService")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")

local correctKey = "coolscript"
local keyGuiActive = true

-- Anti Kick Başlangıç
do
    local LocalPlayer = Players.LocalPlayer
    if LocalPlayer then
        local mt = getrawmetatable(game)
        setreadonly(mt, false)

        local oldKick = hookfunction(LocalPlayer.Kick, function(...)
            print("Kick engellendi!")
            return wait(9e9)
        end)

        setreadonly(mt, true)
    end
end
-- Anti Kick Bitiş

-- Drag Fonksiyonu (Frame için)
local function dragGui(gui)
    local dragging = false
    local dragInput
    local dragStart
    local startPos

    local function update(input)
        local delta = input.Position - dragStart
        gui.Position = UDim2.new(
            startPos.X.Scale,
            startPos.X.Offset + delta.X,
            startPos.Y.Scale,
            startPos.Y.Offset + delta.Y
        )
    end

    gui.InputBegan:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 then
            dragging = true
            dragStart = input.Position
            startPos = gui.Position

            input.Changed:Connect(function()
                if input.UserInputState == Enum.UserInputState.End then
                    dragging = false
                end
            end)
        end
    end)

    gui.InputChanged:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseMovement then
            dragInput = input
        end
    end)

    UserInputService.InputChanged:Connect(function(input)
        if input == dragInput and dragging then
            update(input)
        end
    end)
end

-- Player ESP Fonksiyonu
local function createESP(player)
    local function removeESP()
        if player.Character and player.Character:FindFirstChild("Head") then
            local head = player.Character.Head
            for _, child in pairs(head:GetChildren()) do
                if child.Name == "ESPBox" then
                    child:Destroy()
                end
            end
        end
    end

    local function addESP()
        if player.Character and player.Character:FindFirstChild("Head") then
            local head = player.Character.Head
            if head:FindFirstChild("ESPBox") then return end

            local box = Instance.new("BoxHandleAdornment")
            box.Name = "ESPBox"
            box.Adornee = head
            box.AlwaysOnTop = true
            box.ZIndex = 10
            box.Size = Vector3.new(2, 2, 2)
            box.Color3 = Color3.fromRGB(0, 255, 0)
            box.Transparency = 0.5
            box.Parent = head
        end
    end

    player.CharacterAdded:Connect(function()
        wait(1)
        addESP()
    end)

    addESP()

    player.AncestryChanged:Connect(function(_, parent)
        if not parent then
            removeESP()
        end
    end)
end

-- Server Hop Fonksiyonu
local function serverHop()
    local placeId = game.PlaceId
    local serversUrl = ("https://games.roblox.com/v1/games/%d/servers/Public?sortOrder=Asc&limit=100"):format(placeId)
    local success, response = pcall(function()
        return game:HttpGet(serversUrl)
    end)

    if success and response then
        local data = HttpService:JSONDecode(response)
        if data and data.data then
            for _, server in pairs(data.data) do
                if server.playing < server.maxPlayers then
                    TeleportService:TeleportToPlaceInstance(placeId, server.id, Players.LocalPlayer)
                    return
                end
            end
        end
    end
    warn("No available server found for server hop.")
end

-- GUI oluşturma fonksiyonu
local function loadDeltaGui()
    -- Önce var olanı temizle
    if CoreGui:FindFirstChild("DeltaGui") then
        CoreGui.DeltaGui:Destroy()
    end

    local ScreenGui = Instance.new("ScreenGui")
    local Frame = Instance.new("Frame")
    local Title = Instance.new("TextLabel")

    ScreenGui.Name = "DeltaGui"
    ScreenGui.Parent = CoreGui

    Frame.Size = UDim2.new(0, 200, 0, 310)
    Frame.Position = UDim2.new(0, 10, 0.5, -155)
    Frame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
    Frame.BorderSizePixel = 0
    Frame.Parent = ScreenGui

    Title.Text = "Binos Hub"
    Title.Size = UDim2.new(1, 0, 0, 40)
    Title.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
    Title.TextColor3 = Color3.fromRGB(255, 255, 255)
    Title.Font = Enum.Font.GothamBlack
    Title.TextSize = 20
    Title.Parent = Frame

    -- Buton oluşturma fonksiyonu
    local function addButton(y, text, color)
        local btn = Instance.new("TextButton")
        btn.Size = UDim2.new(1, -20, 0, 40)
        btn.Position = UDim2.new(0, 10, 0, y)
        btn.BackgroundColor3 = color
        btn.Text = text
        btn.Font = Enum.Font.GothamBold
        btn.TextColor3 = Color3.new(1, 1, 1)
        btn.TextSize = 16
        btn.Parent = Frame
        return btn
    end

    local speedOn = false
    local noclipOn = false
    local autoStealOn = false
    local espEnabled = false

    local SpeedButton = addButton(50, "Speed Boost: OFF", Color3.fromRGB(0, 170, 255))
    local AutoStealButton = addButton(100, "Auto Steal: OFF", Color3.fromRGB(0, 255, 127))
    local NoclipButton = addButton(150, "Noclip: OFF", Color3.fromRGB(255, 85, 0))
    local ServerHopButton = addButton(200, "Server Hop", Color3.fromRGB(180, 0, 255))
    local EspButton = addButton(250, "ESP: OFF", Color3.fromRGB(0, 255, 0))

    dragGui(Frame)

    -- Speed toggle
    SpeedButton.MouseButton1Click:Connect(function()
        speedOn = not speedOn
        if speedOn then
            SpeedButton.Text = "Speed Boost: ON"
            if Players.LocalPlayer.Character and Players.LocalPlayer.Character:FindFirstChild("Humanoid") then
                Players.LocalPlayer.Character.Humanoid.WalkSpeed = 100
            end
        else
            SpeedButton.Text = "Speed Boost: OFF"
            if Players.LocalPlayer.Character and Players.LocalPlayer.Character:FindFirstChild("Humanoid") then
                Players.LocalPlayer.Character.Humanoid.WalkSpeed = 16
            end
        end
    end)

    -- Auto Steal toggle
    AutoStealButton.MouseButton1Click:Connect(function()
        autoStealOn = not autoStealOn
        AutoStealButton.Text = "Auto Steal: " .. (autoStealOn and "ON" or "OFF")
    end)

    -- Noclip toggle
    local noclipConnection
    NoclipButton.MouseButton1Click:Connect(function()
        noclipOn = not noclipOn
        if noclipOn then
            NoclipButton.Text = "Noclip: ON"
            noclipConnection = RunService.Stepped:Connect(function()
                if noclipOn then
                    local char = Players.LocalPlayer.Character
                    if char then
                        for _, v in pairs(char:GetDescendants()) do
                            if v:IsA("BasePart") then
                                v.CanCollide = false
                            end
                        end
                    end
                end
            end)
        else
            NoclipButton.Text = "Noclip: OFF"
            if noclipConnection then
                noclipConnection:Disconnect()
            end
            local char = Players.LocalPlayer.Character
            if char then
                for _, v in pairs(char:GetDescendants()) do
                    if v:IsA("BasePart") then
                        v.CanCollide = true
                    end
                end
            end
        end
    end)

    -- Server Hop
    ServerHopButton.MouseButton1Click:Connect(function()
        serverHop()
    end)

    -- ESP toggle
    EspButton.MouseButton1Click:Connect(function()
        espEnabled = not espEnabled
        if espEnabled then
            EspButton.Text = "ESP: ON"
            for _, plr in pairs(Players:GetPlayers()) do
                if plr ~= Players.LocalPlayer then
                    createESP(plr)
                end
            end
        else
            EspButton.Text = "ESP: OFF"
            for _, plr in pairs(Players:GetPlayers()) do
                if plr.Character and plr.Character:FindFirstChild("Head") then
                    local head = plr.Character.Head
                    for _, child in pairs(head:GetChildren()) do
                        if child.Name == "ESPBox" then
                            child:Destroy()
                        end
                    end
                end
            end
        end
    end)

    Players.PlayerAdded:Connect(function(plr)
        if espEnabled then
            createESP(plr)
        end
    end)

    -- Auto Steal sürekli kontrol
    RunService.Heartbeat:Connect(function()
        if autoStealOn then
            local char = Players.LocalPlayer.Character
            if char and char:FindFirstChild("HumanoidRootPart") then
                local closestPlayer
                local minDist = math.huge
                for _, plr in pairs(Players:GetPlayers()) do
                    if plr ~= Players.LocalPlayer and plr.Character and plr.Character:FindFirstChild("HumanoidRootPart") then
                        local dist = (char.HumanoidRootPart.Position - plr.Character.HumanoidRootPart.Position).Magnitude
                        if dist < minDist then
                            minDist = dist
                            closestPlayer = plr
                        end
                    end
                end
                if closestPlayer and minDist < 50 then
                    char.HumanoidRootPart.CFrame = closestPlayer.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, -2)
                    if char:FindFirstChildOfClass("Tool") then
                        char:FindFirstChildOfClass("Tool"):Activate()
                    end
                end
            end
        end
    end)
end

-- Key Girişi GUI
local function createKeyGui()
    local ScreenGui = Instance.new("ScreenGui")
    ScreenGui.Name = "KeyGui"
    ScreenGui.Parent = CoreGui

    local Frame = Instance.new("Frame")
    Frame.Size = UDim2.new(0, 300, 0, 150)
    Frame.Position = UDim2.new(0.5, -150, 0.5, -75)
    Frame.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
    Frame.BorderSizePixel = 0
    Frame.Parent = ScreenGui

    local Title = Instance.new("TextLabel")
    Title.Text = "Key Girişi"
    Title.Size = UDim2.new(1, 0, 0, 40)
    Title.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
    Title.TextColor3 = Color3.fromRGB(255, 255, 255)
    Title.Font = Enum.Font.GothamBlack
    Title.TextSize = 22
    Title.Parent = Frame

    local TextBox = Instance.new("TextBox")
    TextBox.PlaceholderText = "Key giriniz..."
    TextBox.Size = UDim2.new(0.8, 0, 0, 40)
    TextBox.Position = UDim2.new(0.1, 0, 0, 60)
    TextBox.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    TextBox.TextColor3 = Color3.new(1, 1, 1)
    TextBox.Font = Enum.Font.GothamBold
    TextBox.TextSize = 18
    TextBox.ClearTextOnFocus = false
    TextBox.Parent = Frame

    local SubmitButton = Instance.new("TextButton")
    SubmitButton.Text = "Onayla"
    SubmitButton.Size = UDim2.new(0.8, 0, 0, 40)
    SubmitButton.Position = UDim2.new(0.1, 0, 0, 110)
    SubmitButton.BackgroundColor3 = Color3.fromRGB(0, 170, 255)
    SubmitButton.Font = Enum.Font.GothamBold
    SubmitButton.TextColor3 = Color3.new(1, 1, 1)
    SubmitButton.TextSize = 18
    SubmitButton.Parent = Frame

    SubmitButton.MouseButton1Click:Connect(function()
        local inputKey = TextBox.Text
        if inputKey == correctKey then
            keyGuiActive = false
            ScreenGui:Destroy()
            loadDeltaGui()
        else
            TextBox.Text = ""
            TextBox.PlaceholderText = "Yanlış key, tekrar deneyin!"
        end
    end)
end

-- Main
if keyGuiActive then
    createKeyGui()
else
    loadDeltaGui()
end