Rocket Controls

side = "back"
mon = peripheral.wrap(side)
mon.clear()
monX, monY = mon.getSize()
centreX = math.floor(monX * 0.5)
centreY = math.floor(monY * 0.5)
loadingText = "."

rocket = {}
flame = {}

rocket[1] ="  ."
rocket[2] =" / \\"
rocket[3] =" !o!"
rocket[4] =" AAA"
rocket[5] ="/___\\"
flame[1] = "WWWWW"
flame[2] = "MMMMM"
flame[3] = " WWW"
flame[4] = " MMM"
flame[5] = "  W"
flame[6] = "  M"

while not colours.test(rs.getBundledInput("left"),colours.white) do
  mon.clear()
  mon.setCursorPos(1,centreY - 1)
  mon.write("Stand-")
  mon.setCursorPos(1,centreY)
  mon.write("by")
  mon.setCursorPos(centreX - math.floor(#loadingText * 0.5),centreY + 1)
  mon.write(loadingText)
  if #loadingText < 3 then
    loadingText = loadingText .. "."
  else
  loadingText = "."
  end
  sleep(1)
end

while not colours.test(rs.getBundledInput("left"),colours.combine(colours.white, colours.orange)) do
  mon.clear()
  mon.setCursorPos(1,centreY)
  mon.write("Door")
  mon.setCursorPos(1,centreY+1)
  mon.write("Closed")
  sleep(1)
end

for i = monX + 5, centreX, -1 do
  mon.clear()
  mon.setCursorPos(1,centreY - 2)
  mon.write("System")
  mon.setCursorPos(1,centreY - 1)
  mon.write("Ready")
  mon.setCursorPos(1,centreY + 1)
  mon.write("Launch?")
  for j = 1, 5 do
    mon.setCursorPos(i, (monY - 6) + j)
    mon.write(rocket[j])
  end
  sleep(0.5)
end

while not colours.test(rs.getBundledInput("left"),colours.combine(colours.orange, colours.white, colours.red)) do
  mon.clear()
  mon.setCursorPos(1,centreY - 2)
  mon.write("System")
  mon.setCursorPos(1,centreY - 1)
  mon.write("Ready")
  mon.setCursorPos(1,centreY + 1)
  mon.write("Launch?")
  for i = 1, 5 do
      mon.setCursorPos(centreX - 1, (monY - 6) + i)
      mon.write(rocket[i])
  end
  sleep(1)
end

for i = monY, -10, -1 do
  mon.clear()
  for j = 1, 5 do
    mon.setCursorPos(centreX - 1, (i - 6) + j)
    mon.write(rocket[j])
  end
  for k = 1, 4 do
    mon.setCursorPos(centreX - 1, (i) + k)
    mon.write(flame[(i % 2) + k])
  end
  print("loop "..i)
  sleep(0.5)
end