BigReactor-Monitor

while true do --Start while loop

  term.clear()
  term.setCursorPos(1,1)
  term.setTextColor(colors.red)
  print("TERMINAL LOCKED")
  term.setCursorPos(1,3)
  term.setTextColor(colors.white)
  print("Output redirected to monitor...")

--[[ Variables for Handlers ]]--

  local pList = peripheral.getNames()
  local i, name

--[[ Functions for peripherals ]]--

  --Get the name of the Reactor

  function getReactorHandle()
    for i, name in pairs(pList) do
      if peripheral.getType(name) == "BigReactors-Reactor" then
        return peripheral.wrap(name)
      end --End if for getType
    end --End for, for pList
  end --End function for getReactorHandle

  --Get the name of the monitor

  function getMonitorHandle()
    for i, name in pairs(pList) do
      if peripheral.getType(name) == "monitor" then
        return peripheral.wrap(name)
      end --End if for getType
    end --End for, for pList
  end --End function for getMonitorHandle

--[[ Variables for Peripherals ]]--

  local reactor = getReactorHandle() --Reactor name
  local mon = getMonitorHandle() --Monitor name

--[[ Variables for API calls ]]--

  local rStatus = reactor.getActive()
  local rStored = reactor.getEnergyStored()
  local rIBMax = 10000000 --Internal power buffer size is static
  local rStoredMath = math.floor(rStored / rIBMax * 100)
  local rPerTick = math.floor(reactor.getEnergyProducedLastTick())
  local rFuel = reactor.getFuelAmount()
  local rFuelMax = reactor.getFuelAmountMax()
  local rFuelMath = math.floor(rFuel / rFuelMax * 100)
  local rWaste = reactor.getWasteAmount()
  local rCRLevel = reactor.getControlRodLevel(0)

--[[ Function to add commas to numbers ]]--

  function commas (num)
    assert (type (num) == "number" or
    type (num) == "string")

    local result = ""

    --[[
      Split numbers intro 3 parts e.g -1234.545e22
      Sign = +/-
      Before = 1234
      After = .545e22
    --]]

    local sign, before, after =
      string.match (tostring (num), "^([%+%-]?)(%d*)(%.?.*)$")

    --Pull numbers from the end in groups of 3, adding a comma before each group

    while string.len (before) > 3 do
      result = "," .. string.sub (before, -3, -1) .. result
      before = string.sub (before, 1, -4) --Remove the last 3 digits
    end --End while loop for Commas function

    --[[
        Gives us the original sign
        any leftover digits (numbers not able to be put in groups of 3)
        commas
        anything after the decimal (if applicable)
    --]]

    return sign .. before .. result .. after
  end --End function for Commas

  mon.clear() --Clear the monitor

  mon.setCursorPos(12,1)
  mon.write("REACTOR")

--[[ Status ]]--

  mon.setCursorPos(1,3)
  mon.setTextColor(colors.white)
  mon.write("Status: ")

  --Check if the reactor is on or off

  if rStatus == true then
    mon.setTextColor(colors.lime)
    mon.write("Online")
  elseif rStatus == false then
    mon.setTextColor(colors.red)
    mon.write("Offline")
  end --End if for Status

--[[ RF/T ]]--

  mon.setCursorPos(1,4)
  mon.setTextColor(colors.white)
  mon.write("RF/T: ")

  --Check if the reactor is producing RF

  if rPerTick > 0 then
    mon.setTextColor(colors.lime)
    mon.write(commas(tostring(rPerTick)))
  elseif rPerTick == 0 then
    mon.setTextColor(colors.red)
    mon.write(commas(tostring(rPerTick)))
  end --End if for RF/T

--[[ RF Stored ]]--

  mon.setCursorPos(1,5)
  mon.setTextColor(colors.white)
  mon.write("RF Stored: ")

  --Check the amount of RF in the reactor

  if rStoredMath >= 75 and rStoredMath <= 100 then
    mon.setTextColor(colors.lime)
    mon.write(commas(rStored))
  elseif rStoredMath >= 50 and rStoredMath <= 74 then
    mon.setTextColor(colors.yellow)
    mon.write(commas(rStored))
  elseif rStoredMath >= 25 and rStoredMath <= 49 then
    mon.setTextColor(colors.orange)
    mon.write(commas(rStored))
  elseif rStoredMath >= 0 and rStoredMath <= 24 then
    mon.setTextColor(colors.red)
    mon.write(commas(rStored))
  end  --End if for RF Stored

--[[ RF % Filled ]]--

  mon.setCursorPos(1,6)
  mon.setTextColor(colors.white)
  mon.write("Fill: ","")

  --Check the fill % of the Reactor Battery

  if rStoredMath >= 75 and rStoredMath <= 100 then
    mon.setTextColor(colors.lime)
    mon.write(tostring((rStoredMath)))
  elseif rStoredMath >= 50 and rStoredMath <= 74 then
    mon.setTextColor(colors.yellow)
    mon.write(tostring((rStoredMath)))
  elseif rStoredMath >= 49 and rStoredMath <= 25 then
    mon.setTextColor(colors.orange)
    mon.write(tostring((rStoredMath)))
  elseif rStoredMath >= 0 and rStoredMath <= 24 then
    mon.setTextColor(colors.red)
    mon.write(tostring((rStoredMath)))
  end --End if for RF % Filled

  mon.setTextColor(colors.white)
  mon.write("%")

--[[ Fuel ]]--

  mon.setCursorPos(1,7)
  mon.setTextColor(colors.white)
  mon.write("Fuel: ", "")

  --Check the fuel level in the reactor

  if rFuelMath >= 75 and rFuelMath <= 100 then
    mon.setTextColor(colors.lime)
    mon.write(commas(rFuel))
  elseif rFuelMath >= 50 and rFuelMath <= 74 then
    mon.setTextColor(colors.yellow)
    mon.write(commas(rFuel))
  elseif rFuelMath >= 25 and rFuelMath <= 49 then
    mon.setTextColor(colors.orange)
    mon.write(commas(rFuel))
  elseif rFuelMath >= 0 and rFuelMath <= 24 then
    mon.setTextColor(colors.red)
    mon.write(commas(rFuel))
  end --End if for Fuel Amount

  mon.setTextColor(colors.white)
  mon.write("mB")

--[[ Waste ]]--

  mon.setCursorPos(1,8)
  mon.setTextColor(colors.white)
  mon.write("Waste: ")
  mon.write(commas(rWaste))
  mon.write("mB")

--[[ Fuel Rod Level ]]--

  mon.setCursorPos(1,9)
  mon.setTextColor(colors.white)
  mon.write("Rod Level: ")
  mon.write(tostring(rCRLevel))

  sleep(1) --Wait timer, 1 second

end --End while loop for program