chat bubble (WIP)

--Bubble chat for full server by Rufus14 (warning swear filter is very basic)
plrs = game:GetService("Players")
for i,v in pairs(plrs:GetChildren()) do
    if v.ClassName == "Player" then
        local chatalready = v:findFirstChild("HasChat")
        if chatalready then
            chatalready:destroy()
        end
    end
end
local illegaltable = {"gulay"}
while wait(1) do
    for i,v in pairs(plrs:GetChildren()) do
        if v.ClassName == "Player" then
            local chatalready = v:findFirstChild("HasChat")
            if not chatalready then
                local chatyes = Instance.new("BoolValue", v)
                chatyes.Name = "HasChat"
                local function dochat(message)
                    if v.Character then
                        if v.Character:findFirstChild("Head") then
                            for i,v in pairs(illegaltable) do
                                message = string.gsub(string.lower(message), v, "[REDACTED]")
                            end
                            game.Chat:Chat(v.Character.Head,message,"White")
                        end
                    end
                end
                v.Chatted:connect(dochat)
            end
        end
    end
end