-- Script Juan - GUI TP Marker (Delta Safe)
-- Hecho para Juan 😎

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local player = Players.LocalPlayer

-- esperar personaje
if not player.Character then
    player.CharacterAdded:Wait()
end

-- limpiar si ya existe
local pg = player:WaitForChild("PlayerGui")
if pg:FindFirstChild("ScriptJuanGUI") then
    pg.ScriptJuanGUI:Destroy()
end

local savedCFrame = nil

-- ================= GUI =================

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "ScriptJuanGUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = pg

-- 🔘 BOTÓN FLOTANTE

local FloatBtn = Instance.new("TextButton")
FloatBtn.Size = UDim2.new(0, 60, 0, 60)
FloatBtn.Position = UDim2.new(0, 20, 0.5, -30)
FloatBtn.BackgroundColor3 = Color3.fromRGB(60, 160, 255)
FloatBtn.Text = "HJ"
FloatBtn.Font = Enum.Font.GothamBlack
FloatBtn.TextSize = 28
FloatBtn.Parent = ScreenGui
FloatBtn.AutoButtonColor = false

local fc = Instance.new("UICorner", FloatBtn)
fc.CornerRadius = UDim.new(1,0)

-- 🟦 MENÚ

local Main = Instance.new("Frame")
Main.Size = UDim2.new(0, 280, 0, 180)
Main.Position = UDim2.new(0.5, -140, 0.5, -90)
Main.BackgroundColor3 = Color3.fromRGB(60, 160, 255)
Main.Visible = false
Main.Parent = ScreenGui
Main.Active = true
Main.Draggable = true

local mc = Instance.new("UICorner", Main)
mc.CornerRadius = UDim.new(0,12)

-- TÍTULO

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, 0, 0, 40)
Title.BackgroundTransparency = 1
Title.Text = "Script Juan"
Title.Font = Enum.Font.GothamBlack
Title.TextSize = 18
Title.Parent = Main

-- ➖ MINIMIZAR

local Min = Instance.new("TextButton")
Min.Size = UDim2.new(0, 30, 0, 30)
Min.Position = UDim2.new(1, -70, 0, 5)
Min.Text = "-"
Min.Font = Enum.Font.GothamBlack
Min.TextSize = 20
Min.BackgroundColor3 = Color3.fromRGB(80,180,255)
Min.Parent = Main

local minc = Instance.new("UICorner", Min)
minc.CornerRadius = UDim.new(1,0)

-- ❌ CERRAR

local Close = Instance.new("TextButton")
Close.Size = UDim2.new(0, 30, 0, 30)
Close.Position = UDim2.new(1, -35, 0, 5)
Close.Text = "X"
Close.Font = Enum.Font.GothamBlack
Close.TextSize = 18
Close.BackgroundColor3 = Color3.fromRGB(80,180,255)
Close.Parent = Main

local closec = Instance.new("UICorner", Close)
closec.CornerRadius = UDim.new(1,0)

-- 📍 MARCAR

local Mark = Instance.new("TextButton")
Mark.Size = UDim2.new(0.9, 0, 0, 45)
Mark.Position = UDim2.new(0.05, 0, 0.4, 0)
Mark.Text = "Marcar ubicación"
Mark.Font = Enum.Font.GothamBold
Mark.TextSize = 14
Mark.BackgroundColor3 = Color3.fromRGB(80,180,255)
Mark.Parent = Main

local markc = Instance.new("UICorner", Mark)
markc.CornerRadius = UDim.new(0,10)

-- ⚡ TELEPORT

local TP = Instance.new("TextButton")
TP.Size = UDim2.new(0.9, 0, 0, 45)
TP.Position = UDim2.new(0.05, 0, 0.7, 0)
TP.Text = "Teleport"
TP.Font = Enum.Font.GothamBold
TP.TextSize = 14
TP.BackgroundColor3 = Color3.fromRGB(80,180,255)
TP.Parent = Main

local tpc = Instance.new("UICorner", TP)
tpc.CornerRadius = UDim.new(0,10)

-- ================= FUNCIONES =================

local function getRoot()
    local char = player.Character or player.CharacterAdded:Wait()
    return char:WaitForChild("HumanoidRootPart")
end

Mark.MouseButton1Click:Connect(function()
    savedCFrame = getRoot().CFrame
    Mark.Text = "Guardado ✓"
    task.wait(1)
    Mark.Text = "Marcar ubicación"
end)

TP.MouseButton1Click:Connect(function()
    if savedCFrame then
        local r = getRoot()
        r.AssemblyLinearVelocity = Vector3.zero
        r.CFrame = savedCFrame
    else
        TP.Text = "No hay punto"
        task.wait(1)
        TP.Text = "Teleport"
    end
end)

Min.MouseButton1Click:Connect(function()
    Main.Visible = false
    FloatBtn.Visible = true
end)

Close.MouseButton1Click:Connect(function()
    ScreenGui:Destroy()
end)

-- ================= BOTÓN MOVIBLE + CLICK SECO =================

local UIS = game:GetService("UserInputService")
local dragging = false
local startPos, startBtn
local moved = false

FloatBtn.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.Touch or input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true
        moved = false
        startPos = input.Position
        startBtn = FloatBtn.Position
    end
end)

FloatBtn.InputChanged:Connect(function(input)
    if dragging then
        local delta = input.Position - startPos
        if math.abs(delta.X) > 8 or math.abs(delta.Y) > 8 then
            moved = true
        end
        FloatBtn.Position = UDim2.new(
            startBtn.X.Scale, startBtn.X.Offset + delta.X,
            startBtn.Y.Scale, startBtn.Y.Offset + delta.Y
        )
    end
end)

FloatBtn.InputEnded:Connect(function()
    dragging = false
    if not moved then
        Main.Visible = true
        FloatBtn.Visible = false
    end
end)

-- ================= RAINBOW TEXTO =================

local h = 0
RunService.RenderStepped:Connect(function()
    h = (h + 0.01) % 1
    local c = Color3.fromHSV(h,1,1)
    FloatBtn.TextColor3 = c
    Title.TextColor3 = c
    Mark.TextColor3 = c
    TP.TextColor3 = c
    Min.TextColor3 = c
    Close.TextColor3 = c
end)