Create a new version of paste:

-- Create a welcome message using TextLabels
local textGui = Instance.new("ScreenGui")
textGui.Name = "TextLabelGui"
textGui.ResetOnSpawn = false  
textGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

local messages = {
    "Thanks For Using My Script",
    "Made By Unknown_GAMER",
    "Loading"
}

for _, message in ipairs(messages) do
    local textLabel = Instance.new("TextLabel")
    textLabel.Size = UDim2.new(0, 250, 0, 40)
    textLabel.Position = UDim2.new(0.1, -130, 1, -50)
    textLabel.BackgroundColor3 = Color3.new(0, 0, 0)
    textLabel.BackgroundTransparency = 0.6  
    textLabel.BorderSizePixel = 0
    textLabel.Text = message
    textLabel.TextColor3 = Color3.new(1, 1, 1)
    textLabel.Font = Enum.Font.SourceSansBold
    textLabel.TextSize = 24
    textLabel.Parent = textGui
    wait(3)
    textLabel:Destroy()
end

wait(1)

-- Create a ScreenGui for the teleport frame
local screenGui = Instance.new("ScreenGui")
screenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

-- Create a frame for teleporting
local frame = Instance.new("Frame")
frame.Name = "TeleportFrame"
frame.Size = UDim2.new(0, 200, 0, 300)
frame.Position = UDim2.new(0.5, -100, 0.5, -150)
frame.BackgroundTransparency = 0.5  
frame.BackgroundColor3 = Color3.new(0, 0, 0) 
frame.Parent = screenGui

-- Create a ScreenGui for the toggle button
local toggleScreenGui = Instance.new("ScreenGui")
toggleScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")

-- Create a button for toggling the frame
local toggleButton = Instance.new("TextButton")
toggleButton.Name = "ToggleFrameButton"
toggleButton.Text = "Open"
toggleButton.Size = UDim2.new(0, 100, 0, 30)
toggleButton.Position = UDim2.new(0.039, -50, 0.82, 10)
toggleButton.Parent = toggleScreenGui

local isFrameVisible = true

-- Function to toggle the frame's visibility
local function toggleFrameVisibility()
    isFrameVisible = not isFrameVisible
    frame.Visible = isFrameVisible
    toggleButton.Text = isFrameVisible and "Close" or "Open"
end

toggleButton.MouseButton1Click:Connect(toggleFrameVisibility)

local dragging
local dragInput
local dragStart
local startPos

-- Function to handle mouse button press
frame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = frame.Position

        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

-- Function to handle mouse movement
frame.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)

-- Function to update frame position while dragging
game:GetService("UserInputService").InputChanged:Connect(function(input)
    if dragging and input == dragInput then
        local delta = input.Position - dragStart
        frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)

-- Folder for your checkpoints (place your parts inside)
local checkpointsFolder = game.Workspace:WaitForChild("CHECKPOINTS")

-- Array of checkpoint names
local checkpointNames = {
    "0",
    "100",
    "200",
    "300",
    "400"
}

-- Function to teleport the player to a checkpoint
local function teleportPlayer(checkpointName)
    local player = game.Players.LocalPlayer

    if player then
        local character = player.Character

        if character and character:FindFirstChild("Humanoid") and character.Humanoid.Health > 0 then
            if checkpointsFolder then
                local checkpointFolder = checkpointsFolder:FindFirstChild(checkpointName)

                if checkpointFolder then
                    local checkpointPart = checkpointFolder:FindFirstChild("DetectorPart")

                    if checkpointPart then
                        character:SetPrimaryPartCFrame(CFrame.new(checkpointPart.Position))
                    else
                        print("Checkpoint part not found in folder " .. checkpointFolder.Name)
                    end
                else
                    print("Checkpoint folder " .. checkpointName .. " not found.")
                end
            else
                print("CHECKPOINTS folder not found in Workspace.")
            end
        end
    end
end

-- Create buttons for teleporting to checkpoints
for i, checkpointName in ipairs(checkpointNames) do
    local button = Instance.new("TextButton")
    button.Name = "TeleportButton" .. i
    button.Text = "Teleport to " .. checkpointName
    button.Size = UDim2.new(0, 180, 0, 40)
    button.Position = UDim2.new(0, 10, 0, 50 * (i - 1))
    button.Parent = frame
    button.TextScaled = true

    button.MouseButton1Click:Connect(function()
        teleportPlayer(checkpointName)
    end)
end

-- Create a button for teleporting to all checkpoints
local teleportAllButton = Instance.new("TextButton")
teleportAllButton.Name = "TeleportAllButton"
teleportAllButton.Text = "Instant Teleport"
teleportAllButton.Size = UDim2.new(0, 180, 0, 40)
teleportAllButton.Position = UDim2.new(0, 10, 0, 250) -- Adjust the position as needed
teleportAllButton.Parent = frame
teleportAllButton.TextScaled = true

-- Function to teleport the player to all checkpoints one by one
local function teleportToAllCheckpoints()
    local player = game.Players.LocalPlayer

    if player then
        local character = player.Character

        if character and character:FindFirstChild("Humanoid") and character.Humanoid.Health > 0 then
            if checkpointsFolder then
                for _, checkpointFolder in pairs(checkpointsFolder:GetChildren()) do
                    if checkpointFolder:IsA("Folder") then
                        local checkpointPart = checkpointFolder:FindFirstChild("DetectorPart")

                        if checkpointPart then
                            character:SetPrimaryPartCFrame(CFrame.new(checkpointPart.Position))
                            wait(1) -- Wait for 1 second between teleports
                        else
                            print("Checkpoint part not found in folder " .. checkpointFolder.Name)
                        end
                    end
                end
            else
                print("CHECKPOINTS folder not found in Workspace.")
            end
        end
    end
end

-- Connect the teleportAllButton to the teleportToAllCheckpoints function
teleportAllButton.MouseButton1Click:Connect(teleportToAllCheckpoints)