-- [[ Rscripts Risk Notice ]]
-- This script is not verified by rscripts.net. Deal with caution.
--
-- Stay safe:
--   • Never log in on unofficial Roblox sites or lookalike domains.
--   • Real Roblox links use roblox.com (check the .com ending).
--   • Treat fake Roblox login / "claim reward" pages as phishing.
-- [[ End Rscripts Risk Notice ]]
-- Ensure we don't duplicate the UI if you re-execute the script
if game:GetService("CoreGui"):FindFirstChild("ClickTeleporterPSM") then
    game:GetService("CoreGui"):FindFirstChild("ClickTeleporterPSM"):Destroy()
end

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

local Plr = Players.LocalPlayer

-- State variables
local isTeleportEnabled = false
local teleportConnection = nil

-- Create ScreenGui inside CoreGui (safest place for executors)
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "ClickTeleporterPSM"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = CoreGui

-- Main Teleport Button
local ToggleButton = Instance.new("TextButton")
ToggleButton.Name = "ToggleButton"
ToggleButton.Size = UDim2.new(0, 180, 0, 40)
ToggleButton.Position = UDim2.new(0, 10, 0.5, -20) -- Middle left edge of screen
ToggleButton.BackgroundColor3 = Color3.fromRGB(180, 50, 50) -- Red (OFF)
ToggleButton.Text = "Auto-Teleport: OFF"
ToggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleButton.Font = Enum.Font.GothamBold
ToggleButton.TextSize = 14
ToggleButton.BorderSizePixel = 0
ToggleButton.ZIndex = 10
ToggleButton.Parent = ScreenGui

-- Round corners
local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(0, 6)
UICorner.Parent = ToggleButton

-- Visual border stroke
local UIStroke = Instance.new("UIStroke")
UIStroke.Color = Color3.fromRGB(0, 0, 0)
UIStroke.Thickness = 1
UIStroke.Transparency = 0.6
UIStroke.Parent = ToggleButton

-- Basic Dragging Support (so you can move the button out of the way)
local dragging, dragInput, dragStart, startPos
local function update(input)
    local delta = input.Position - dragStart
    ToggleButton.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

ToggleButton.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = ToggleButton.Position
        
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

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

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

-- Core Teleportation Function
local function teleportToBarrel()
    local character = Plr.Character
    if not character then return end
    
    local rootPart = character:FindFirstChild("HumanoidRootPart") or character:FindFirstChild("Torso")
    if not rootPart then return end

    -- Search recursively through workspace for "Barrel"
    local targetItem = workspace:FindFirstChild("Barrel", true)
    
    if not targetItem then
        for _, item in ipairs(workspace:GetDescendants()) do
            if string.find(string.lower(item.Name), "barrel") then
                targetItem = item
                break
            end
        end
    end
    
    if targetItem then
        local targetCFrame
        if targetItem:IsA("BasePart") then
            targetCFrame = targetItem.CFrame
        elseif targetItem:IsA("Model") then
            if targetItem.PrimaryPart then
                targetCFrame = targetItem.PrimaryPart.CFrame
            else
                local part = targetItem:FindFirstChildWhichIsA("BasePart", true)
                if part then targetCFrame = part.CFrame end
            end
        end
        
        if targetCFrame then
            rootPart.CFrame = targetCFrame + Vector3.new(0, 3, 0)
        end
    end
end

-- UI State Updater
local function updateGUI()
    if isTeleportEnabled then
        ToggleButton.BackgroundColor3 = Color3.fromRGB(50, 160, 50) -- Green
        ToggleButton.Text = "Auto-Teleport: ON"
        
        -- Start looping continuously via Heartbeat while ON
        teleportConnection = RunService.Heartbeat:Connect(function()
            teleportToBarrel()
        end)
    else
        ToggleButton.BackgroundColor3 = Color3.fromRGB(180, 50, 50) -- Red
        ToggleButton.Text = "Auto-Teleport: OFF"
        
        -- Disconnect the loop when turned OFF
        if teleportConnection then
            teleportConnection:Disconnect()
            teleportConnection = nil
        end
    end
end

-- Toggle Button Click Event
ToggleButton.MouseButton1Click:Connect(function()
    isTeleportEnabled = not isTeleportEnabled
    updateGUI()
end)