script.Parent = game.Debris
local Chat_Frame = true;
local Name_Functions = {
        ["Closed"] = "http://www.roblox.com/asset/?id=95158894",
        ["Open"] = "http://www.roblox.com/asset/?id=95158905",
        ["Talking"] = "http://www.roblox.com/asset/?id=95158901",
        ["Blink"] = "http://www.roblox.com/asset/?id=95284852"
}
local R_W_T = {
10,15,20,25,30,35}
local Blink_Time = .2
function WaitFor(p)
        while(p.Character.Parent == nil) do wait(0) print("[WAIT]") end
        print("[CHARACTER LOADED IN]"..p.Character.Parent.Name)
end
local players = game:GetService("Players")
function RunAnim(p)
local player = p
coroutine.resume(coroutine.create(function()
        while wait(0) do
        wait(R_W_T[math.random(1,#R_W_T)])
                if player then WaitFor(player)
                        player.Character.Head.face.Texture = Name_Functions["Blink"]
                        wait(Blink_Time)
                        player.Character.Head.face.Texture = Name_Functions["Closed"]
                end
        end
end))
        player.Chatted:connect(function(msg)
        WaitFor(player)
        local face = player.Character.Head.face
        for l,w in msg:gmatch(".%s?") do wait(.1)
                face.Texture = Name_Functions["Closed"]
                        if l:match("[ou]") then
                                face.Texture = Name_Functions["Open"]
                        elseif l:match("[mgintskyafesn]") then
                                face.Texture = Name_Functions["Talking"]
                        end
        end
                face.Texture = Name_Functions["Closed"]
                if gui then gui:Destroy() end
        end)
end
for _, v in pairs(players:GetPlayers()) do
RunAnim(v)
end
players.PlayerAdded:connect(function(p)
RunAnim(p)
end)