startup

r1 = peripheral.wrap("BigReactors-Reactor_3")
mon = peripheral.wrap("monitor_7")
mon2 = peripheral.wrap("monitor_6")

--Function For Reactor Control
ONOFF = function()

  while true do
    if r1.getEnergyStored() >= 9500000 then
      r1.setActive(false)
    elseif r1.getEnergyStored() <= 1000000 then
      r1.setActive(true)
    end
  sleep(0)
  end
end

--Function For ReactorRod Control
ROD = function()

  while true do

    if r1.getEnergyStored() >= 8000000 then
      r1.setAllControlRodLevels(90)
    elseif r1.getEnergyStored() <= 4000000 then
      r1.setAllControlRodLevels(0)
    end
  sleep(0)
  end
end

--Function For ReactorStats
R1 = function()

while true do

  mon.clear()
  mon.setCursorPos(1,1)
  mon.setTextColor(colors.white)
  mon.write("REACTOR 1: ")

    if r1.getActive() then
      mon.setTextColor(colors.lime)
      mon.write("ONLINE")
    else
      mon.setTextColor(colors.red)
      mon.write("OFFLINE")
    end

  mon.setCursorPos(2,3)
  mon.setTextColor(colors.white)
  mon.write("RF/T: ")
  mon.setTextColor(colors.yellow)
  mon.write(math.floor(r1.getEnergyProducedLastTick()))

  mon.setCursorPos(2,4)
  mon.setTextColor(colors.white)
  mon.write("Total RF: ")
  mon.setTextColor(colors.yellow)
  mon.write(math.floor(r1.getEnergyStored()))

  mon.setCursorPos(2,5)
  mon.setTextColor(colors.white)
  mon.write("Fuel: ")
  mon.setTextColor(colors.yellow)
  mon.write(math.floor(r1.getFuelAmount()))


  sleep(2)
 end
end

--Function for TouchScreen
button = function()

while true do

  mon2.setBackgroundColor(colors.black)
  mon2.clear()
  mon2.setTextScale(1)
  mon2.setBackgroundColor(colors.green)
  mon2.setTextColor(colors.black)
  mon2.setCursorPos(2,2)
  mon2.write("Start")
  mon2.setBackgroundColor(colors.red)
  mon2.setCursorPos(2,4)
  mon2.write("Stop ")
  event, side, x, y = os.pullEvent("monitor_touch")

    if x > 1 and x < 7 and y == 2 then
      r1.setActive(true)
    elseif x > 1 and x < 7 and y == 4 then
      r1.setActive(false)
    end

  sleep(0)
  end
end

parallel.waitForAny (ONOFF, ROD, R1, button)