InfoGlassesCode

--Info Glasses
--By Hannez04 with help from
--SquidDev on the ComputerCraft forums
local p = peripheral.wrap("right")
p.clear()
function pack(...)
        return {...}
end
local message = "Test123"
for i = 1, #message do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
sleep(3)
for i = #message - 1, 1, -1 do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
p.clear()
sleep(7)
local message = "Something"
for i = 1, #message do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
sleep(3)
for i = #message - 1, 1, -1 do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
p.clear()
sleep(7)
local message = "Something else"
for i = 1, #message do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
sleep(3)
for i = #message - 1, 1, -1 do
  p.clear()
  p.addText(3, 3, message:sub(1, i))
  sleep(0.075)
end
p.clear()
sleep(7)
os.reboot()