People Manager

local Players = game:GetService("Players")

local Teleporter = script.Parent

local enterPart = Teleporter.Enter
local enterPos  = Teleporter.EnterPosition
local exitPart  = Teleporter.Exit
local exitPos   = Teleporter.ExitPosition

local currentPlayers = Teleporter.CurrentPlayers
local PlaceID = 81956029110985

enterPart.BillboardGui.Players.Text = "" .. #currentPlayers:GetChildren() .. "/".. 30 ..""

local function EditGUIText()
    enterPart.BillboardGui.Players.Text = "" .. tostring(#currentPlayers:GetChildren()) .. "/".. 30 ..""
end

local function CreatePlayer(playerName)
    for _, player in pairs(currentPlayers:GetChildren()) do
        if player:IsA("StringValue") and player.Value == playerName then
            return false
        end
    end

    local player = Instance.new("StringValue")
    player.Name = "Player"
    player.Value = playerName
    player.Parent = currentPlayers
end

local function AddCurrent(player)
    if player and player:IsA("Player") then
        CreatePlayer(player.Name)
        EditGUIText()

        local humRP = player.Character.HumanoidRootPart
        if humRP then
            humRP.CFrame = enterPos.CFrame
        end
    end
end

local function RemoveCurrent(player)
    for _, child in pairs(currentPlayers:GetChildren()) do
        if child:IsA("StringValue") and child.Value == player.Name then
            child:Destroy()
            EditGUIText()

            local humRP = player.Character.HumanoidRootPart
            if humRP then
                humRP.CFrame = exitPos.CFrame
            end
            break
        end
    end
end

enterPart.Touched:Connect(function(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        AddCurrent(player)
    end
end)

exitPart.Touched:Connect(function(hit)
    local player = game.Players:GetPlayerFromCharacter(hit.Parent)
    if player then
        RemoveCurrent(player)
    end
end)

Players.PlayerRemoving:Connect(function(Player)
    RemoveCurrent(Player)
end)