-- Script de Teleporte com Múltiplos Saves e Looping
-- UI Moderna e Minimizável

local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")
local LocalPlayer = Players.LocalPlayer

local savedLocations = {}
local isLooping = false
local loopDelay = 1 -- Tempo em segundos entre cada teleporte no loop

-- Criando a Interface (GUI)
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "TeleportSystemUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")

-- Container Principal
local MainFrame = Instance.new("Frame")
MainFrame.Name = "MainFrame"
MainFrame.Size = UDim2.new(0, 300, 0, 380)
MainFrame.Position = UDim2.new(0.5, -150, 0.4, -190)
MainFrame.BackgroundColor3 = Color3.fromRGB(25, 25, 35)
MainFrame.BorderSizePixel = 0
MainFrame.ClipsDescendants = true
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.Parent = ScreenGui

local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(0, 12)
UICorner.Parent = MainFrame

-- Barra Superior (Cabeçalho)
local TopBar = Instance.new("Frame")
TopBar.Name = "TopBar"
TopBar.Size = UDim2.new(1, 0, 0, 40)
TopBar.BackgroundColor3 = Color3.fromRGB(35, 35, 50)
TopBar.BorderSizePixel = 0
TopBar.Parent = MainFrame

local TopCorner = Instance.new("UICorner")
TopCorner.CornerRadius = UDim.new(0, 12)
TopCorner.Parent = TopBar

local Title = Instance.new("TextLabel")
Title.Size = UDim2.new(1, -50, 1, 0)
Title.Position = UDim2.new(0, 15, 0, 0)
Title.BackgroundTransparency = 1
Title.Text = "📍 Teleport System"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 16
Title.Font = Enum.Font.GothamBold
Title.TextXAlignment = Enum.TextXAlignment.Left
Title.Parent = TopBar

-- Botão de Minimizar (_)
local MinimizeBtn = Instance.new("TextButton")
MinimizeBtn.Size = UDim2.new(0, 30, 0, 30)
MinimizeBtn.Position = UDim2.new(1, -35, 0, 5)
MinimizeBtn.BackgroundTransparency = 1
MinimizeBtn.Text = "—"
MinimizeBtn.TextColor3 = Color3.fromRGB(200, 200, 200)
MinimizeBtn.TextSize = 18
MinimizeBtn.Font = Enum.Font.GothamBold
MinimizeBtn.Parent = TopBar

-- Botão para Reabrir quando Minimizado
local OpenBtn = Instance.new("TextButton")
OpenBtn.Name = "OpenBtn"
OpenBtn.Size = UDim2.new(0, 120, 0, 35)
OpenBtn.Position = UDim2.new(0.5, -60, 0.05, 0)
OpenBtn.BackgroundColor3 = Color3.fromRGB(35, 35, 50)
OpenBtn.Text = "📍 Teleport"
OpenBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
OpenBtn.TextSize = 14
OpenBtn.Font = Enum.Font.GothamBold
OpenBtn.Visible = false
OpenBtn.Active = true
OpenBtn.Draggable = true
OpenBtn.Parent = ScreenGui

local OpenCorner = Instance.new("UICorner")
OpenCorner.CornerRadius = UDim.new(0, 8)
OpenCorner.Parent = OpenBtn

-- Conteúdo Principal
local ContentFrame = Instance.new("Frame")
ContentFrame.Size = UDim2.new(1, -20, 1, -50)
ContentFrame.Position = UDim2.new(0, 10, 0, 45)
ContentFrame.BackgroundTransparency = 1
ContentFrame.Parent = MainFrame

-- Botão Salvar Posição
local SaveBtn = Instance.new("TextButton")
SaveBtn.Size = UDim2.new(1, 0, 0, 35)
SaveBtn.Position = UDim2.new(0, 0, 0, 0)
SaveBtn.BackgroundColor3 = Color3.fromRGB(46, 204, 113)
SaveBtn.Text = "+ Salvar Posição Atual"
SaveBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
SaveBtn.TextSize = 13
SaveBtn.Font = Enum.Font.GothamBold
SaveBtn.Parent = ContentFrame

local SaveCorner = Instance.new("UICorner")
SaveCorner.CornerRadius = UDim.new(0, 8)
SaveCorner.Parent = SaveBtn

-- Botão Looping
local LoopBtn = Instance.new("TextButton")
LoopBtn.Size = UDim2.new(1, 0, 0, 35)
LoopBtn.Position = UDim2.new(0, 0, 0, 42)
LoopBtn.BackgroundColor3 = Color3.fromRGB(155, 89, 182)
LoopBtn.Text = "🔄 Looping: DESLIGADO"
LoopBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
LoopBtn.TextSize = 13
LoopBtn.Font = Enum.Font.GothamBold
LoopBtn.Parent = ContentFrame

local LoopCorner = Instance.new("UICorner")
LoopCorner.CornerRadius = UDim.new(0, 8)
LoopCorner.Parent = LoopBtn

-- Lista com Rolagem para os Saves
local ScrollList = Instance.new("ScrollingFrame")
ScrollList.Size = UDim2.new(1, 0, 1, -85)
ScrollList.Position = UDim2.new(0, 0, 0, 85)
ScrollList.BackgroundTransparency = 1
ScrollList.BorderSizePixel = 0
ScrollList.ScrollBarThickness = 4
ScrollList.ScrollBarImageColor3 = Color3.fromRGB(100, 100, 120)
ScrollList.Parent = ContentFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.Parent = ScrollList
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 6)

UIListLayout:GetPropertyChangedSignal("AbsoluteContentSize"):Connect(function()
    ScrollList.CanvasSize = UDim2.new(0, 0, 0, UIListLayout.AbsoluteContentSize.Y)
end)

-- Função para Teleportar
local function teleportTo(cframe)
    local char = LocalPlayer.Character
    if char and char:FindFirstChild("HumanoidRootPart") then
        char.HumanoidRootPart.CFrame = cframe
    end
end

-- Função para Atualizar a Lista na UI
local function refreshList()
    for _, child in pairs(ScrollList:GetChildren()) do
        if child:IsA("Frame") then
            child:Destroy()
        end
    end

    for index, data in ipairs(savedLocations) do
        local ItemFrame = Instance.new("Frame")
        ItemFrame.Size = UDim2.new(1, -6, 0, 35)
        ItemFrame.BackgroundColor3 = Color3.fromRGB(35, 35, 45)
        ItemFrame.Parent = ScrollList

        local ItemCorner = Instance.new("UICorner")
        ItemCorner.CornerRadius = UDim.new(0, 6)
        ItemCorner.Parent = ItemFrame

        local ItemName = Instance.new("TextLabel")
        ItemName.Size = UDim2.new(0.5, 0, 1, 0)
        ItemName.Position = UDim2.new(0, 10, 0, 0)
        ItemName.BackgroundTransparency = 1
        ItemName.Text = data.name
        ItemName.TextColor3 = Color3.fromRGB(220, 220, 220)
        ItemName.TextSize = 12
        ItemName.Font = Enum.Font.Gotham
        ItemName.TextXAlignment = Enum.TextXAlignment.Left
        ItemName.Parent = ItemFrame

        -- Botão Teleportar
        local TPBtn = Instance.new("TextButton")
        TPBtn.Size = UDim2.new(0, 50, 0, 25)
        TPBtn.Position = UDim2.new(1, -90, 0, 5)
        TPBtn.BackgroundColor3 = Color3.fromRGB(52, 152, 219)
        TPBtn.Text = "Ir"
        TPBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
        TPBtn.TextSize = 11
        TPBtn.Font = Enum.Font.GothamBold
        TPBtn.Parent = ItemFrame

        local TPCorner = Instance.new("UICorner")
        TPCorner.CornerRadius = UDim.new(0, 4)
        TPCorner.Parent = TPBtn

        TPBtn.MouseButton1Click:Connect(function()
            teleportTo(data.cframe)
        end)

        -- Botão Deletar
        local DelBtn = Instance.new("TextButton")
        DelBtn.Size = UDim2.new(0, 30, 0, 25)
        DelBtn.Position = UDim2.new(1, -35, 0, 5)
        DelBtn.BackgroundColor3 = Color3.fromRGB(231, 76, 60)
        DelBtn.Text = "X"
        DelBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
        DelBtn.TextSize = 11
        DelBtn.Font = Enum.Font.GothamBold
        DelBtn.Parent = ItemFrame

        local DelCorner = Instance.new("UICorner")
        DelCorner.CornerRadius = UDim.new(0, 4)
        DelCorner.Parent = DelBtn

        DelBtn.MouseButton1Click:Connect(function()
            table.remove(savedLocations, index)
            refreshList()
        end)
    end
end

-- Ação do Botão Salvar
SaveBtn.MouseButton1Click:Connect(function()
    local char = LocalPlayer.Character
    if char and char:FindFirstChild("HumanoidRootPart") then
        local count = #savedLocations + 1
        table.insert(savedLocations, {
            name = "Ponto " .. count,
            cframe = char.HumanoidRootPart.CFrame
        })
        refreshList()
    end
end)

-- Sistema de Looping
task.spawn(function()
    while true do
        task.wait(loopDelay)
        if isLooping and #savedLocations > 0 then
            for _, data in ipairs(savedLocations) do
                if not isLooping then break end
                teleportTo(data.cframe)
                task.wait(loopDelay)
            end
        end
    end
end)

LoopBtn.MouseButton1Click:Connect(function()
    isLooping = not isLooping
    if isLooping then
        LoopBtn.Text = "🔄 Looping: LIGADO"
        LoopBtn.BackgroundColor3 = Color3.fromRGB(46, 204, 113)
    else
        LoopBtn.Text = "🔄 Looping: DESLIGADO"
        LoopBtn.BackgroundColor3 = Color3.fromRGB(155, 89, 182)
    end
end)

-- Minimizar e Abrir
MinimizeBtn.MouseButton1Click:Connect(function()
    MainFrame.Visible = false
    OpenBtn.Visible = true
end)

OpenBtn.MouseButton1Click:Connect(function()
    MainFrame.Visible = true
    OpenBtn.Visible = false
end)