CraftFlare

rednet.open('right')
local tRecord={}
if fs.exists('banned') then
  local oFile=io.open('banned','r')
  local tBanned=textutils.unserialize(oFile:read())
  oFile:close()
else
  local tBanned={}
end
print("ID | Distance | Message")
print("---+----------+--------")
while true do
  local id,msg,dist=rednet.receive()
  if not tRecord[id] then
   tRecord[id]={}
  end
  while #tRecord[id]>=4 do
   table.remove(tRecord[id],1)
  end
  tRecord[id][#tRecord[id]+1]=msg
  if tRecord[id][1]==tRecord[id][2] and tRecord[id][1]==tRecord[id][3] and tRecord[id][1]==tRecord[id][4] then
   tBanned[id]=true
   local oFile=io.open('banned','w')
   oFile:write(textutils.serialize(tBanned))
   oFile:close()
  elseif not tBanned[id] then
   id=string.sub(id,1,3) --shorten the id to 3 chars if it is too long
   dist=string.sub(dist,1,9)
   print(id..string.rep(' ',3-#id)..'| '..dist..string.rep(' ',9-#dist)..'| '..msg) --add spaces to fill up the gap
  end
end