Reactor

local Reactor = peripheral.wrap("back")
local Mon = peripheral.wrap("left")
local AutoOff = 10000000 -- 10 Mill Max

if Mon then
Mon.setTextScale(1) --Text Size 0.5-5
end

while true do
  local Energy = Reactor.getEnergyStored()
  local Rods = Energy / AutoOff * 100

  if Energy < 1000 then
    Reactor.setActive(true)
  end

  if Energy >AutoOff then
    Reactor.setActive(false)
 end

    Reactor.setAllControlRodLevels(Rods)

--Monitor
if Mon then
  Mon.clear()

  Mon.setCursorPos(1,1)
  Mon.write("RF ")
  if Energy < 1000 then
     Mon.write(Energy)
  end

  if Energy >= 1000 and Energy <1000000 then
    Mon.write(math.floor(Energy / 1000))
    Mon.write("K")
  end

  if Energy >=1000000 then
    Mon.write(math.floor(Energy / 1000000))
    Mon.write("M")
  end

  Mon.setCursorPos(1,3)
  Mon.write("RF/t ")
  Mon.write(math.floor(Reactor.getEnergyProducedLastTick()))


  Mon.setCursorPos(1,5)
  Mon.write("Fuel Temp ")
  Mon.write(math.floor(Reactor.getFuelTemperature()))
  Mon.write("c")

  Mon.setCursorPos(1,9)
  Mon.write("Reactivity ")
  Mon.write(math.floor(Reactor.getFuelReactivity()))
  Mon.write(" %")

  Mon.setCursorPos(1,7)
  Mon.write("Fuel Levels ")
  Mon.write(math.floor(Reactor.getFuelAmount() / Reactor.getFuelAmountMax () *100))

  Mon.setCursorPos(1,11)
  Mon.write("Burn Rate ")
  Mon.write(math.floor(Reactor.getFuelConsumedLastTick()*1000)/1000)
  Mon.write(" mB/t")

  Mon.setCursorPos(1,13)

end
  sleep(1)
end