Reactor Base

local mon = peripheral.find("monitor", function(name, object) return object.isColor() end)
local reactor = peripheral.find("BigReactors-Reactor")
print("Monitor Control Active")
sleep(1)

function Reactor()
  while true do
    term.clear()
    mon.clear()
    mon.setTextScale(1.5)
    reactor.getActive(true)

    mon.setCursorPos(1,1)
    mon.write("Reactor Control")
    term.setCursorPos(1,1)
    term.write("Reactor Control")

    mon.setCursorPos(1,2)
    mon.write("Control Rod Level:  ")
    mon.setTextColor(colors.green)
    mon.write(reactor.getControlRodLevel(1))
    mon.write(" %")
    mon.setTextColor(colors.white)
    term.setCursorPos(1,2)
    term.write("Control Rod Level:  ")
    term.setTextColor(colors.green)
    term.write(reactor.getControlRodLevel(1))
    term.write(" %")
    term.setTextColor(colors.white)

    mon.setCursorPos(1,3)
    mon.write("Reactor Fuel Temp: ")
    mon.setTextColor(colors.red)
    mon.write(math.floor(reactor.getFuelTemperature()))
    mon.write(" C")
    mon.setTextColor(colors.white)
    term.setCursorPos(1,3)
    term.write("Reactor Fuel Temp: ")
    term.setTextColor(colors.red)
    term.write(math.floor(reactor.getFuelTemperature()))
    term.write(" C")
    term.setTextColor(colors.white)

    mon.setCursorPos(1,4)
    mon.write("Power Produced:   ")
    mon.write(math.ceil(reactor.getEnergyProducedLastTick()))
    mon.write(" RF")
    term.setCursorPos(1,4)
    term.write("Power Produced:   ")
    term.write(math.ceil(reactor.getEnergyProducedLastTick()))
    term.write(" RF")

    mon.setCursorPos(1,5)
    mon.write("Waste Produced:    ")
    mon.write((math.ceil(reactor.getFuelConsumedLastTick() * 1000))/1000)
    mon.write(" mB")
    term.setCursorPos(1,5)
    term.write("Waste Produced:  ")
    term.write((math.ceil(reactor.getFuelConsumedLastTick() * 1000))/1000)
    term.write(" mB")



    local PowerLevel = redstone.getAnalogInput("top")
    local RodLevel = reactor.getControlRodLevel(1)

    if (PowerLevel < 12) then
        if (RodLevel > 0) then
          reactor.setAllControlRodLevels(RodLevel - 1)
          sleep(.1)
        end
    end
    if (PowerLevel > 12) then
        if (RodLevel < 100) then
        reactor.setAllControlRodLevels(RodLevel + 1)
        sleep(.1)
        end
    end
    sleep(0.2)
  end
end
Reactor()