Teleport organizer

-- Objects


local TeleportOrganizer = Instance.new("ScreenGui")
local GuiBody = Instance.new("Frame")
local WindowContainer = Instance.new("Frame")
local NameBoxFrame = Instance.new("Frame")
local NameBox = Instance.new("TextBox")
local AddButton = Instance.new("TextButton")
local CopyLua = Instance.new("TextButton")
local ListScrollingFrame = Instance.new("ScrollingFrame")
local ListLocations = Instance.new("TextLabel")
local ClearText = Instance.new("TextButton")
local Title = Instance.new("TextLabel")
local Close = Instance.new("TextButton")
local TitleFrame = Instance.new("Frame")


-- Properties


TeleportOrganizer.Name = "TeleportOrganizer"
TeleportOrganizer.Parent = game.Players.abs_0.PlayerGui
TeleportOrganizer.ResetOnSpawn = false

GuiBody.Name = "GuiBody"
GuiBody.Parent = TeleportOrganizer
GuiBody.BackgroundColor3 = Color3.new(0.258824, 0.262745, 0.262745)
GuiBody.BorderColor3 = Color3.new(1, 1, 1)
GuiBody.BorderSizePixel = 0
GuiBody.Position = UDim2.new(0.190130621, 0, 0.213983044, 0)
GuiBody.Size = UDim2.new(0, 200, 0, 270)
GuiBody.ZIndex = 0

WindowContainer.Name = "WindowContainer"
WindowContainer.Parent = GuiBody
WindowContainer.Active = true
WindowContainer.BackgroundColor3 = Color3.new(0.258824, 0.262745, 0.262745)
WindowContainer.BorderSizePixel = 0
WindowContainer.Position = UDim2.new(0, 0, 0, 43)
WindowContainer.Size = UDim2.new(0, 200, 0, 227)
WindowContainer.ZIndex = 0

NameBoxFrame.Name = "NameBoxFrame"
NameBoxFrame.Parent = WindowContainer
NameBoxFrame.Active = true
NameBoxFrame.BackgroundColor3 = Color3.new(0, 0, 0)
NameBoxFrame.BackgroundTransparency = 0.89999997615814
NameBoxFrame.BorderColor3 = Color3.new(1, 1, 1)
NameBoxFrame.BorderSizePixel = 0
NameBoxFrame.Position = UDim2.new(0.354999989, 0, 0.0176211428, 0)
NameBoxFrame.Selectable = true
NameBoxFrame.Size = UDim2.new(0, 118, 0, 31)
NameBoxFrame.ZIndex = 0

NameBox.Name = "NameBox"
NameBox.Parent = WindowContainer
NameBox.BackgroundColor3 = Color3.new(0, 0, 0)
NameBox.BackgroundTransparency = 1
NameBox.BorderColor3 = Color3.new(1, 1, 1)
NameBox.BorderSizePixel = 0
NameBox.Position = UDim2.new(0.400000006, 0, 0.0176211428, 0)
NameBox.Size = UDim2.new(0, 108, 0, 31)
NameBox.ZIndex = 0
NameBox.Font = Enum.Font.SourceSans
NameBox.Text = "Name..."
NameBox.TextColor3 = Color3.new(1, 1, 1)
NameBox.TextSize = 15
NameBox.TextWrapped = true
NameBox.TextXAlignment = Enum.TextXAlignment.Left

AddButton.Name = "AddButton"
AddButton.Parent = WindowContainer
AddButton.Active = true
AddButton.AnchorPoint = Vector2.new(0.5, 0.5)
AddButton.BackgroundColor3 = Color3.new(1, 1, 1)
AddButton.BackgroundTransparency = 0.89999997615814
AddButton.BorderColor3 = Color3.new(1, 1, 1)
AddButton.BorderSizePixel = 0
AddButton.Position = UDim2.new(0, 34, 0, 19)
AddButton.Selectable = false
AddButton.Size = UDim2.new(0, 48, 0, 31)
AddButton.ZIndex = 0
AddButton.AutoButtonColor = false
AddButton.Font = Enum.Font.SourceSans
AddButton.Text = "ADD"
AddButton.TextColor3 = Color3.new(1, 1, 1)
AddButton.TextSize = 14

CopyLua.Name = "CopyLua"
CopyLua.Parent = WindowContainer
CopyLua.Active = true
CopyLua.AnchorPoint = Vector2.new(0.5, 0.5)
CopyLua.BackgroundColor3 = Color3.new(1, 1, 1)
CopyLua.BackgroundTransparency = 0.89999997615814
CopyLua.BorderColor3 = Color3.new(1, 1, 1)
CopyLua.BorderSizePixel = 0
CopyLua.Position = UDim2.new(0.735000014, 0, 0.883259892, 0)
CopyLua.Selectable = false
CopyLua.Size = UDim2.new(0, 84, 0, 31)
CopyLua.ZIndex = 0
CopyLua.AutoButtonColor = false
CopyLua.Font = Enum.Font.SourceSans
CopyLua.Text = "COPY"
CopyLua.TextColor3 = Color3.new(1, 1, 1)
CopyLua.TextSize = 14

ListScrollingFrame.Name = "ListScrollingFrame"
ListScrollingFrame.Parent = WindowContainer
ListScrollingFrame.Active = true
ListScrollingFrame.BackgroundColor3 = Color3.new(1, 1, 1)
ListScrollingFrame.BorderColor3 = Color3.new(0.105882, 0.164706, 0.207843)
ListScrollingFrame.BorderSizePixel = 0
ListScrollingFrame.Position = UDim2.new(0.0500000007, 0, 0.211453751, 0)
ListScrollingFrame.Size = UDim2.new(0, 179, 0, 125)
ListScrollingFrame.ZIndex = 0

ListLocations.Name = "ListLocations"
ListLocations.Parent = ListScrollingFrame
ListLocations.Active = true
ListLocations.BackgroundColor3 = Color3.new(1, 1, 1)
ListLocations.BorderSizePixel = 0
ListLocations.Size = UDim2.new(1, 0, 3.13235283, 0)
ListLocations.ZIndex = 0
ListLocations.Font = Enum.Font.SourceSans
ListLocations.Text = ""
ListLocations.TextColor3 = Color3.new(0, 0, 0)
ListLocations.TextSize = 14
ListLocations.TextWrapped = true
ListLocations.TextXAlignment = Enum.TextXAlignment.Left
ListLocations.TextYAlignment = Enum.TextYAlignment.Top

ClearText.Name = "ClearText"
ClearText.Parent = WindowContainer
ClearText.Active = true
ClearText.AnchorPoint = Vector2.new(0.5, 0.5)
ClearText.BackgroundColor3 = Color3.new(1, 1, 1)
ClearText.BackgroundTransparency = 0.89999997615814
ClearText.BorderColor3 = Color3.new(1, 1, 1)
ClearText.BorderSizePixel = 0
ClearText.Position = UDim2.new(0.25999999, 0, 0.883259892, 0)
ClearText.Selectable = false
ClearText.Size = UDim2.new(0, 84, 0, 31)
ClearText.ZIndex = 0
ClearText.AutoButtonColor = false
ClearText.Font = Enum.Font.SourceSans
ClearText.Text = "CLEAR"
ClearText.TextColor3 = Color3.new(1, 1, 1)
ClearText.TextSize = 14

Title.Name = "Title"
Title.Parent = GuiBody
Title.BackgroundColor3 = Color3.new(1, 1, 1)
Title.BackgroundTransparency = 1
Title.BorderSizePixel = 0
Title.Size = UDim2.new(0.944999993, 0, 0.0222222228, 30)
Title.ZIndex = 0
Title.Font = Enum.Font.SourceSans
Title.Text = "TELEPORT ORGANIZER"
Title.TextColor3 = Color3.new(1, 1, 1)
Title.TextSize = 15

Close.Name = "Close"
Close.Parent = GuiBody
Close.AnchorPoint = Vector2.new(1, 0)
Close.BackgroundColor3 = Color3.new(1, 0, 0)
Close.BorderSizePixel = 0
Close.Position = UDim2.new(0.944999993, 0, 0.0296296366, 0)
Close.Size = UDim2.new(0, 20, 0, 20)
Close.ZIndex = 0
Close.Font = Enum.Font.SourceSansBold
Close.Text = ""
Close.TextColor3 = Color3.new(1, 1, 1)
Close.TextSize = 14

TitleFrame.Name = "TitleFrame"
TitleFrame.Parent = GuiBody
TitleFrame.BackgroundColor3 = Color3.new(0.972549, 0.972549, 0.972549)
TitleFrame.BackgroundTransparency = 0.89999997615814
TitleFrame.BorderSizePixel = 0
TitleFrame.Size = UDim2.new(1, 0, 0.0222222228, 30)


-- Scripts


--Draggable

GuiBody.Active = true
GuiBody.Draggable = true

-- Add location

local CF = function()
    return game.Players.LocalPlayer.Character.HumanoidRootPart.CFrame
end

AddButton.MouseButton1Click:Connect(function()
    local name = NameBox.Text
    if name ~= "Name..." then
        local x,y,z = math.floor(CF().X),math.floor(CF().Y),math.floor(CF().Z)

        ListLocations.Text =
            ListLocations.Text
            .. "-- "..name
            .. "\n"
            .. "CFrame.new("..tostring(x)..", "..tostring(y)..", "..tostring(z)..")"
            .. "\n\n"
    end
end)

-- Button effects

function buttonEffect(button)
    local clickColor = 180

    button.MouseButton1Down:Connect(function()
        button.BackgroundColor3 = Color3.fromRGB(clickColor, clickColor, clickColor)
    end)

    button.MouseButton1Up:Connect(function()
        button.BackgroundColor3 = Color3.new(1, 1, 1)
    end)
end

buttons = {AddButton, CopyLua, ClearText}
for i,v in pairs(buttons) do
    buttonEffect(v)
end

-- Copy text

local copy
if Clipboard ~= nil then
    copy = Clipboard.set
elseif Synapse ~= nil then
    copy = function(str)
        Synapse:Copy(str)
    end
elseif setclipboard ~= nil then
    copy = setclipboard
else
    copy = function() end
end
copy(ListLocations.Text)

-- Clear text

ClearText.MouseButton1Click:Connect(function()
    ListLocations.Text = ""
end)

-- Revert text

NameBox.FocusLost:Connect(function()
    if NameBox.Text == "" then
        NameBox.Text = "Name..."
    end
end)

-- Close gui

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