local modem = peripheral.wrap("right")
gl = peripheral.wrap("top")

modem.open(54345)

function start()
 y = 0
 local players = {}
 while true do
  local event,side,sc,rc,msg,dis = os.pullEvent('modem_message')
  print(msg)
  if rc == 54345 then
   players.insert(msg)
  else
   updateGlasses()
   clearTable()
  end
 end
end

function clearTable()
 for k in pairs(players) do
  players[k] = nil
 end
end

function updateGlasses()
 gl.clear()
 y = 0
 for x,y in pairs(players) do
  gl.addText(10, y + 10, y, 0xFF0000)
  y = y + 5
 end
end

start()