startup

rednet.open("top")
os.loadAPI("button")
alarmReset = true

button.setTable("Stop", alarmToggle, 1, 10, 10, 12)
button.screen()
button.heading("Reactor 1")

while true do
--[[
  0 = reactor.getActive
  1 = reactor.getEnergyProductedLastTick
  2 = reactor.getEnergyStored
  3-6 = reactor.getControlRodLevel
  7 = reactor.getFuleAmount
]]--

  --variables
  local id, msg = rednet.receive()
  local data = textutils.unserialize(msg)
  local mon = peripheral.wrap("monitor_0")

  --getClick
  function getClick()
    event, side, x, y = os.pullEvent("monitor_touch")
    button.checkxy(x, y)
  end

  --alarm function
  function alarmToggle(value)
    local alarm = false

    --If alarmToggle is set to on
    if value == 1 then
      alarm = on
    else
      --button.flash("Stop Alarm")
    end

    --Turn on or off alarm
    if alarm == true and alarmReset == true then
      redstone.setOutput("left", true)
      alarmReset = false
    else
      redstone.setOutput("left", false)
    end
  end



  --Monitor prep
  mon.clear()
  mon.setTextScale(1)

  --Is reactor on
  mon.setCursorPos(1,1)
  mon.setTextColor(colors.white)
  mon.write("Active: ")
  mon.setTextColor(colors.lime)
  if data[0] == true then mon.write("Yes") else mon.setTextColor(colors.red) mon.write("No") end

  --RF Produced
  mon.setCursorPos(1,2)
  mon.setTextColor(colors.white)
  mon.write("RF/T: ")
  mon.setTextColor(colors.lime)
  mon.write(data[1] .. "")

  --RF Stored in reactor
  mon.setCursorPos(1,3)
  mon.setTextColor(colors.white)
  mon.write("RF Stored: ")
  mon.setTextColor(colors.lime)
  if data[2] < 2500000 then mon.setTextColor(colors.red) end
  if data[2] < 1000000 then alarmToggle(1) else alarmReset = true end
  mon.write(data[2] .. "")

  --Fule Rods
  mon.setCursorPos(1,4)
  mon.setTextColor(colors.white)
  mon.write("Rod 1 Level: ")
  mon.setTextColor(colors.lime)
  mon.write(data[3] .. "%")

  mon.setCursorPos(1,5)
  mon.setTextColor(colors.white)
  mon.write("Rod 2 Level: ")
  mon.setTextColor(colors.lime)
  mon.write(data[4] .. "%")

  mon.setCursorPos(1,6)
  mon.setTextColor(colors.white)
  mon.write("Rod 3 Level: ")
  mon.setTextColor(colors.lime)
  mon.write(data[5] .. "%")

  mon.setCursorPos(1,7)
  mon.setTextColor(colors.white)
  mon.write("Rod 4 Level: ")
  mon.setTextColor(colors.lime)
  mon.write(data[6] .. "%")

  --Reactor Fule
  mon.setCursorPos(1,8)
  mon.setTextColor(colors.white)
  mon.write("Reacor Fuel: ")
  mon.setTextColor(colors.lime)
  if data[7] < 110000 then mon.setTextColor(colors.red) alarmToggle(1) else alarmReset=true end
  mon.write(data[7])

 getClick()

end