Player script problem? (revised, no progress)

I want to make this script create a textbutton each time a player enters and when they leave the button will be destroyed. Please help i have been on this same script for the past few days. I seriously need help with this.

A look at my explorer: http://gyazo.com/dc737ffcde271877b05b4d0f6e846c10

function edit(plr)
    for num,p in pairs(game:GetService("Players"):GetPlayers()) do
        for _,obj in pairs(script.Parent.Parent:GetChildren()) do
            if obj.Name == "Player" then
                obj:Destroy()
            end
        end
        local gui = script.Parent:clone()
        gui:ClearAllChildren()
        gui.Position = gui.Position + UDim2.new(0, 0, 0, (num-1)*50) 
        gui.Visible = true
        gui.Parent = script.Parent.Parent
        gui.Name = "Player"
        gui.Text = plr.Name
    end
end
game.Players.PlayerAdded:connect(edit)
game.Players.PlayerRemoving:connect(edit)