Chat filter for Custom GuideChats?

Hello, i want to add filter chat for Safety of the game, but i don't know how to create a filter for the chat.

Anybody able can help me on this?

print("Darkness 2 chat system initializing")
local Utils = assert(LoadLibrary("RbxUtility"))
chat10s = 10

while not _G["GameDatabase"] do wait() end
while not _G["GameDatabase"].ready do wait() end

gamemain = game.Workspace.GameMain
gamedata = gamemain.GameData
ing = gamedata.InGame
gr = gamedata.GameRunning
endt = gamedata.EndType

vl1 = gamemain.Chat1
vl2 = gamemain.Chat2

function pmode(nm)
	local fs = ing:findFirstChild(nm)
	if fs ~= nil then
		local al = fs:findFirstChild("Alive")
		if al ~= nil then
			if not al:IsA("BoolValue") then return 0 end
			if al.Value and endt.Value == "" then
				if fs:findFirstChild("Shadow") ~= nil then
					return 2
				else
					return 1
				end
			end
		end
	end
	return 0
end

ch_public = {{}, {}, {}, {}, {}, {}}
ch_game = {{}, {}, {}, {}, {}, {}}
function addval(arr, vl)
	for i = 1, #arr do
		arr[i] = arr[i + 1]
	end
	arr[6] = vl
end

game.Players.PlayerAdded:connect(function(newPlayer)
	local chat_amm = chat10s
	while _G["GameDatabase"].pinfo[newPlayer.Name] == nil do
		wait()
	end
	while wait() do
		if _G["GameDatabase"].pinfo[newPlayer.Name] == nil then return end
		if _G["GameDatabase"].pinfo[newPlayer.Name].ready then
			break
		end
	end
	newPlayer.Chatted:connect(function(msg)
		if string.sub(msg, 1, 2) == "/e" then return end
		if chat_amm == 0 then return end
		chat_amm = chat_amm - 1
		
		local pm = pmode(newPlayer.Name)
		if pm == 0 then
			addval(ch_public, {false, newPlayer.Name, msg})
			vl1.Value = Utils.EncodeJSON(ch_public)
		elseif pm == 1 then
			addval(ch_public, {true, newPlayer.Name, msg})
			addval(ch_game, {true, newPlayer.Name, msg})
			vl1.Value = Utils.EncodeJSON(ch_public)
			vl2.Value = Utils.EncodeJSON(ch_game)
		end
		
		wait(10)
		chat_amm = chat_amm + 1
	end)
end)

gr.Changed:connect(function()
	if gr.Value == true then return end
	ch_game = {{}, {}, {}, {}, {}, {}}
	vl2.Value = Utils.EncodeJSON(ch_game)
end)

wait(0.6)

gamemain = game.Workspace.GameMain
gamedata = gamemain.GameData
ing = gamedata.InGame

ch = gamemain.Chat1

local Utils = assert(LoadLibrary("RbxUtility"))
local player = game.Players.LocalPlayer
local hum = player.Character.Humanoid

local nametag = Instance.new("TextLabel")
nametag.BackgroundTransparency = 1
nametag.BorderSizePixel = 0
nametag.FontSize = "Size18"
nametag.Font = "Arial"
nametag.TextXAlignment = "Left"
nametag.ZIndex = 8

local cont = Instance.new("TextLabel")
cont.BackgroundTransparency = 1
cont.BorderSizePixel = 0
cont.FontSize = "Size18"
cont.Font = "Arial"
cont.TextXAlignment = "Left"
cont.TextColor3 = Color3.new(0.933, 0.933, 0.933)
cont.TextStrokeTransparency = 0.7
cont.Position = UDim2.new(1, 0, 0, 0)
cont.Size = UDim2.new(0, 0, 1, 0)
cont.ZIndex = 8


local cf = script.Parent.ChatFrame
hum.Died:connect(function()
	cf.Visible = false
end)

local clr = script:findFirstChild("bnd")
if clr then clr:remove() end
local bndc = nametag:clone()
bndc.Name = "bnd"
bndc.Visible = false
bndc.Parent = script
function getbounds(txt)
	bndc.Text = txt
	return bndc.TextBounds.x
end

function DrawChat(inf)
	cf:ClearAllChildren()
	if inf == "" then return end
	local list = Utils.DecodeJSON(inf)
	for i, v in ipairs(list) do
		if v[1] ~= nil then
			local ntg = nametag:clone()
			ntg.Text = v[2] .. ":"
			ntg.Size = UDim2.new(0, getbounds(ntg.Text) + 4, 1/6, 0)
			ntg.Position = UDim2.new(0, 0, 1/6 * (i-1), 0)
			if v[1] then
				ntg.TextColor3 = Color3.new(1, 0, 0)
			else
				ntg.TextColor3 = Color3.new(0.39, 0.39, 0.39)
			end
			local nc = cont:clone()
			nc.Text = v[3]
			nc.Parent = ntg
			ntg.Parent = cf
		end
	end
end

local con = ch.Changed:connect(function() DrawChat(ch.Value) end)
DrawChat(ch.Value)

ing.ChildAdded:connect(function(obj)
	if obj.Name == player.Name then
		con:disconnect()
		cf.Visible = false
	end
end)