ChatBubbleGUI: Why wont it work?

So I have tried to make a chat Bubble Script that will pop a gui above the player's head with his/hers message, but when i tested it, the results weren't quite what I was going for: It did the test command (above "----"), but it didn't do anything when I tried chatting (below "----"). Anyone who can help? Here is the full script (please don't copy it):

color = script.Parent.Color.Value
local chatted = script.BillboardGui:Clone()
chatted.Parent = script.Parent.Parent.Parent.Parent.Character.Head
chatted.Enabled = true
chatted.TextLabel.TextColor3 = color
chatted.TextLabel.Text = "Hello World"
wait(5)
chatted:Destroy()

----

game.Players.PlayerAdded:connect(function(player)   
    player.Chatted:connect(function(msg)
        local chatted = script.BillboardGui:Clone()
        chatted.Parent = player.Character.Head
        chatted.Enabled = true
        chatted.TextLabel.TextColor3 = color
        chatted.TextLabel.Text = msg
        wait(5)
        chatted:Destroy()
    end)
end)

The used objects Tree/Hierarchy:

Color Script BillboardGui TextLabel