Honey script

-- Services
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

-- Main ScreenGui
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "TeleportGUI"
screenGui.Parent = playerGui

-- Main Frame (expanded for 5th button)
local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 300, 0, 340) -- expanded height
frame.Position = UDim2.new(0.5, -150, 0.5, -170)
frame.BackgroundColor3 = Color3.fromRGB(0,0,0)
frame.Active = true
frame.Draggable = true
frame.Parent = screenGui

local frameCorner = Instance.new("UICorner")
frameCorner.CornerRadius = UDim.new(0,15)
frameCorner.Parent = frame

-- Play sound on click
local function playClickSound()
    local sound = Instance.new("Sound")
    sound.SoundId = "rbxassetid://8755719003"
    sound.Volume = 1
    sound.Looped = false
    sound.Parent = frame
    sound:Play()
    sound.Ended:Connect(function() sound:Destroy() end)
end

-- Button creation
local function createButton(name,text,color,position,clickFunction)
    local button = Instance.new("TextButton")
    button.Name = name
    button.Size = UDim2.new(0,200,0,50)
    button.Position = position
    button.Text = text
    button.BackgroundColor3 = color
    button.TextColor3 = Color3.fromRGB(255,255,255)
    button.TextSize = 18
    button.Parent = frame
    local corner = Instance.new("UICorner")
    corner.CornerRadius = UDim.new(0,10)
    corner.Parent = button
    if clickFunction then
        button.MouseButton1Click:Connect(function(btn)
            playClickSound()
            clickFunction(btn)
        end)
    end
    return button
end

-- Teleport locations
local takeBoxCFrame = CFrame.new(-302.184448,833.651733,-1831.80408,0.236830533,1.02374024e-07,-0.971551001,-2.54969823e-08,1,9.91564661e-08,0.971551001,-9.91564661e-08,0.236830533)
local claimBoxCFrame = CFrame.new(-381.873199,833.731567,-1834.21167,0.26030159,-5.17255039e-08,0.965527356,1.06505645e-07,1,2.4858867e-08,-0.965527356,-2.4858867e-08,0.26030159)

-- Buttons
createButton("TakeBoxButton","Take Box",Color3.fromRGB(0,255,0),UDim2.new(0.5,-100,0,10),function()
    local hrp = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
    if hrp then hrp.CFrame = takeBoxCFrame end
end)

createButton("ClaimBoxButton","Claim Box",Color3.fromRGB(255,0,0),UDim2.new(0.5,-100,0,75),function()
    local hrp = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
    if hrp then hrp.CFrame = claimBoxCFrame end
end)

-- Auto click toggle
local autoClick = false
local selectedPrompts = {}
local autoClickButton = createButton("AutoClickButton","Auto Click : Off",Color3.fromRGB(255,165,0),UDim2.new(0.5,-100,0,140),function(btn)
    autoClick = not autoClick
    btn.Text = "Auto Click : " .. (autoClick and "On" or "Off")
end)

-- *** NEW BUTTON — AUTO TP ***
local autoTP = false
local tpSpeed = 7  -- 7 jumps per second
local tpTimer = 0
local goToTakeFirst = true

local autoTPButton = createButton(
    "AutoTPButton",
    "Auto TP : Off",
    Color3.fromRGB(139, 69, 19), -- brown
    UDim2.new(0.5,-100,0,205),
    function(btn)
        autoTP = not autoTP
        btn.Text = "Auto TP : " .. (autoTP and "On" or "Off")
    end
)

-- Text label (MOVED DOWN — last thing in frame)
local label = Instance.new("TextLabel")
label.Size = UDim2.new(0,260,0,30)
label.Position = UDim2.new(0.5,-130,1,-10) -- <<<<< TextLabel all the way down
label.BackgroundTransparency = 1
label.Text = "Made by : Nahwinreals"
label.TextSize = 18
label.Font = Enum.Font.SourceSansBold
label.Parent = frame

-- Rainbow text
local hue = 0
RunService.Heartbeat:Connect(function(dt)
    hue = (hue + dt*0.2)%1
    label.TextColor3 = Color3.fromHSV(hue,1,1)
end)

-- Frame2 (list)
local Frame2 = Instance.new("Frame")
Frame2.Size = UDim2.new(0,200,0,240)
Frame2.Position = UDim2.new(1,10,0,0)
Frame2.BackgroundColor3 = Color3.fromRGB(0,0,0)
Frame2.Visible = false
Frame2.Parent = frame

local frame2Corner = Instance.new("UICorner")
frame2Corner.CornerRadius = UDim.new(0,15)
frame2Corner.Parent = Frame2

local scroll = Instance.new("ScrollingFrame")
scroll.Size = UDim2.new(1,0,1,0)
scroll.BackgroundTransparency = 1
scroll.CanvasSize = UDim2.new(0,0,0,0)
scroll.ScrollBarThickness = 8
scroll.Parent = Frame2

-- List button
local listButton = createButton("ListButton","List",Color3.fromRGB(0,170,255),UDim2.new(0.5,-100,0,270),function()
    Frame2.Visible = not Frame2.Visible
end)

-- Refresh prompts
local function refreshPrompts()
    scroll:ClearAllChildren()
    local y = 0
    for _, obj in pairs(workspace:GetDescendants()) do
        if obj:IsA("ProximityPrompt") then
            local button = Instance.new("TextButton")
            button.Size = UDim2.new(1,-10,0,40)
            button.Position = UDim2.new(0,5,0,y)
            button.BackgroundColor3 = Color3.fromRGB(50,50,50)
            button.Text = obj.Name
            button.TextSize = 18
            button.TextColor3 = Color3.fromRGB(255,255,255)
            button.Parent = scroll

            button.MouseButton1Click:Connect(function()
                if selectedPrompts[obj] then
                    selectedPrompts[obj] = nil
                    button.TextColor3 = Color3.fromRGB(255,255,255)
                else
                    selectedPrompts[obj] = true
                    button.TextColor3 = Color3.fromRGB(0,255,255)
                end
            end)

            y = y + 45
        end
    end
    scroll.CanvasSize = UDim2.new(0,0,0,y)
end

refreshPrompts()

-- Auto click system
local CLICK_RATE = 100
local acc = 0

RunService.Heartbeat:Connect(function(dt)
    -- auto click
    if autoClick then
        acc = acc + dt
        local hrp = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
        if hrp then
            for obj,_ in pairs(selectedPrompts) do
                local distance = (obj.Parent.Position - hrp.Position).Magnitude
                if distance <= obj.MaxActivationDistance then
                    while acc >= 1/CLICK_RATE do
                        obj:InputHoldBegin()
                        obj:InputHoldEnd()
                        acc = acc - 1/CLICK_RATE
                    end
                end
            end
        end
    end

    -- auto TP
    if autoTP then
        tpTimer = tpTimer + dt
        if tpTimer >= 1/tpSpeed then
            tpTimer = 0
            local hrp = player.Character and player.Character:FindFirstChild("HumanoidRootPart")
            if hrp then
                if goToTakeFirst then
                    hrp.CFrame = takeBoxCFrame
                else
                    hrp.CFrame = claimBoxCFrame
                end
                goToTakeFirst = not goToTakeFirst
            end
        end
    end
end)