how to make this talk/discussion flitered?

wait(1)

local bin = script.Parent

local new = bin.new
local m1 = bin.m1
local m2 = bin.m2
local m3 = bin.m3
local m4 = bin.m4
local m5 = bin.m5
local m6 = bin.m6
local m7 = bin.m7
local m8 = bin.m8

function onChanged(child)
	m8.Value = m7.Value
	m7.Value = m6.Value
	m6.Value = m5.Value
	m5.Value = m4.Value
	m4.Value = m3.Value
	m3.Value = m2.Value
	m2.Value = m1.Value
	m1.Value = child.Value
	
	m8.author.Value = m7.author.Value
	m7.author.Value = m6.author.Value
	m6.author.Value = m5.author.Value
	m5.author.Value = m4.author.Value
	m4.author.Value = m3.author.Value
	m3.author.Value = m2.author.Value
	m2.author.Value = m1.author.Value
	m1.author.Value = child.author.Value
	
	m8.color.Value = m7.color.Value
	m7.color.Value = m6.color.Value
	m6.color.Value = m5.color.Value
	m5.color.Value = m4.color.Value
	m4.color.Value = m3.color.Value
	m3.color.Value = m2.color.Value
	m2.color.Value = m1.color.Value
	m1.color.Value = child.color.Value
	
	child:Destroy()
end

while true do
	wait(1/2)
	local child = new:FindFirstChild("newmessage")
	if child then
		onChanged(child)
	end
end