startup

glass = peripheral.wrap("bottom")
local set = {}
function update()

end
function color()
 if msg.match(msg, "&1") == true then

 end
end
function clear()
 if msg == "clear" then
  set["message1"] = nil
  set["message2"] = nil
  set["message3"] = nil
  set["message4"] = nil
  set["message5"] = nil
  user = ""
 end
end
function save()
 f = fs.open("chatlog", "w")
 if set["message4"] ~= nil then
  set["message5"] = set["message4"]
  set["line5"] = 70
 end
 if set["message3"] ~= nil then
  set["message4"] = set["message3"]
  set["line4"] = 60
 end
 if set["message2"] ~= nil then
  set["message3"] = set["message2"]
  set["line3"] = 50
 end
 if set["message1"] ~= nil then
  set["message2"] = set["message1"]
  set["line2"] = 40
 end
 if set["message"] ~= nil then
  set["message1"] = set["message"]
  set["line1"] = 30
 end
 set["message"] = user.." > "..msg
 set["line"] = 20
 f.write(textutils.serialize(set))
 f.flush()
end
function monitor()
mon = peripheral.wrap("left")
 if mon ~= nil then
  mon.setCursorPos(1,1)
  mon.setTextScale(0.75)
  mon.clear()
  mon.write(user.." > "..msg)
 end
end
function multiline()
 mult = fs.open("chatlog", "r")
 nu = textutils.unserialize(mult.readAll())
 if nu.message1 ~= nil then
  line1 = nu.line1
  msg1 = nu.message1
  y = line1 - 1
  glass.addBox(2, y, 324, 10, 0x000000, 0.5)
  glass.addText(2, line1, msg1, 0xFFFFFF)
 end
 if nu.message2 ~= nil then
  line2 = nu.line2
  msg2 = nu.message2
  y = line2 - 1
  glass.addBox(2, y, 324, 10, 0x000000, 0.5)
  glass.addText(2, line2, msg2, 0xFFFFFF)
 end
 if nu.message3 ~= nil then
  line3 = nu.line3
  msg3 = nu.message3
  y = line3 - 1
  glass.addBox(2, y, 324, 10, 0x000000, 0.5)
  glass.addText(2, line3, msg3, 0xFFFFFF)
 end
 if nu.message4 ~= nil then
  line4 = nu.line4
  msg4 = nu.message4
  y = line4 - 1
  glass.addBox(2, y, 324, 10, 0x000000, 0.5)
  glass.addText(2, line4, msg4, 0xFFFFFF)
 end
 if nu.message5 ~= nil then
  line5 = nu.line5
  msg5 = nu.message5
  y = line5 -1
  glass.addBox(2, y, 324, 10, 0x000000, 0.5)
  glass.addText(2, line5, msg5, 0xFFFFFF)
 end
end

function nicknames()
 if msg.match(msg, "nick ") ~= nil then
  nick = msg.gsub(msg, "nick ", "")
  name = fs.open("nicknames/"..user, "w")
  nik["_"] = user
  nik["new"] = nick
  name.write(textutils.serialize(nik))
  name.flush()
 else
  if fs.exists("nicknames/"..user) == true then
   nicks = fs.open("nicknames/"..user, "r")
   nik = textutils.unserialize(nicks.readAll())
   user = nik.new
  end
 end
end

while true do
 e, side, user, uuid, msg = os.pullEvent("glasses_chat_command")
 nicknames()
 clear()
 if msg.match(msg, "nick ") == nil then
 if msg ~= "clear" then
  monitor()
  glass.clear()
  save()
  glass.addBox(2, 19, 324, 10, 0x000000, 0.5)
  glass.addText(2, 20, user.." > "..msg, 0xFFFFFF)
  multiline()
  glass.sync()
 end
 end
end