Power.lua

local term = require("term")
local component = require( "component" )
local gpu = component.gpu
local event = require( "event" )

local oldW, oldH = gpu.getResolution()
gpu.setResolution( 160, 50 )

colors = {}
colors.red = 0xC14141
colors.green = 0xDA841

function clearScreen()
  local oldColor = gpu.getBackground( false )
  local w,h = gpu.getResolution()
  gpu.setBackground( 0x000000, false )
  gpu.fill( 1, 1, w, h, " " )
  gpu.setBackground( oldColor, false )
end

function progressBar( label, y, value, maxVal, color, show, unit )
  local oldColor = gpu.getBackground( false )
  gpu.setBackground(0x000000, false)
  gpu.fill( 3, y, 155, 2, " " )
  w = math.floor( value * (155 / maxVal) )
  p = math.floor( (w / 155) * 100 )
  gpu.set( 3, y, label .. ": " .. tostring( p ) .. "%" )
  gpu.setBackground( 0x222222, false )
  gpu.fill( 3, y+1, 155, 1, " " )
  gpu.setBackground( color, false )
  gpu.fill( 3, y+1, w, 1, " " )
  gpu.setBackground( oldColor, false )
  if show then
    local valStr = formatBig( value ) .. unit
    local n = string.len( valStr )
    gpu.set( 158 - n, y, valStr )
  end
end


function formatBig( value )
  local output = ""
  local valRem = 0
  local valPart = 0
  while value > 0 do
    valRem = math.floor( value / 1000 )
    valPart = value - (valRem * 1000)
    if output == "" then
      output = string.format( "%03d", valPart )
    elseif valRem == 0 then
      output = valPart .. "," .. output
    else
      output = string.format( "%03d", valPart ) .. "," .. output
    end
    value = valRem
  end
  return output
end

function getCells()
  local countDcOrb = 0
  local countTEcell = 0
  local countRfTCell = 0

  local TEcell = component.list( "energy_device" )
  local DcOrb = component.list("energy_cube")
  local RfTCell = component.list("rftools_powercell")

  local cellsID = {}
  for address, name in pairs(DcOrb) do
    countDcOrb =  countDcOrb + 1
    if countDcOrb > 1 then
      cellsID[address] = "Energy Cube".." "..countDcOrb
    else
      cellsID[address] ="Energy Cube"
    end
  end
  for address, name in pairs(TEcell) do
    countTEcell =  countTEcell + 1

    if countTEcell > 1 then
      cellsID[address] = "Thermal Expansion Power Cell".." "..countTEcell
    else
      cellsID[address] = "Thermal Expansion Power Cell"
    end
  end
  for address, name in pairs(RfTCell) do
    countRfTCell = countRfTCell + 1

    if countRfTCell > 1 then
      cellsID[address] = "RfTools Power Cell".." "..countRfTCell
    else
      cellsID[address] = "RfTools Power Cell"
    end
  end
  return cellsID
end

function getReactors()
  local countReactor = 0

  local brReactor = component.list("br_reactor")

  local reactorsID = {}

  for address, name in pairs(brReactor) do
    if countReactor > 1 then
      reactorsID[address] = "Reactor".." "..countReactor
    else
      reactorsID[address] = "Reactor"
    end
  end
  return reactorsID
end


function upReactor()
  local brPower = 0
  local brMaxPower = 0
  local brEnergyLastTick = 0
  --local brFuel = 0
  --local brFuelMax = 0
  local reactorid = getReactors()
  for address, name in pairs(reactorid) do
    local reactor = component.proxy(address)
    brPower = brPower + reactor.getEnergyStored()
    brMaxPower = brMaxPower + reactor.getEnergyCapacity()
    brEnergyLastTick = brEnergyLastTick + reactor.getEnergyProducedLastTick()
    --brFuel = brFuel + reactor.getFuelAmount()
    --brMaxFuel = brMaxFuel + reactor.getFuelAmountMax()
  end
  return brPower, brMaxPower, brEnergyLastTick, brFuel, brFuelMax
end


function getTotal()
  local totalPower = 0
  local totalMaxPower = 0
  local cellid = getCells()
  for address, name in pairs(cellid) do
    local cell = component.proxy( address )
    totalPower = totalPower + cell.getEnergyStored()
    totalMaxPower = totalMaxPower + cell.getMaxEnergyStored()
  end
  return totalPower, totalMaxPower
end

clearScreen()
gpu.set( 67, 1, "Power Monitor" )
local cellsID = getCells()
local reactorsID = getReactors()

repeat
  local _,_,x,y = event.pull( 1, "touch" )
  local count = 0
  local countR = 0
  if x and y then goto quit end
  for address, name in pairs(cellsID) do
    local cell = component.proxy( address )
    count = count + 1
    local t = count * 3
    progressBar( name, t , cell.getEnergyStored(), cell.getMaxEnergyStored() , 0x00bb00, true, "RF" )
  end

  local brPower, brMaxPower = upReactor()
  local totalPower, totalMaxPower = getTotal()
  for address, name in pairs(reactorsID) do
    local reactor = component.proxy(address)
    countR = countR + 1
    local tR = (countR + count) * 3
    progressBar( name, tR, reactor.getEnergyStored(), reactor.getEnergyCapacity(), 0x00bb00, true, "RF")
    progressBar( "Reactor(Energy Last Tick)", tR + 3, math.ceil(reactor.getEnergyProducedLastTick()), 6200, 0x00bb00, true, "RF")
    if brPower + totalPower < brMaxPower + totalMaxPower then
      reactor.setActive(True)
    else
      reactor.setActive(False)
    end
  end

  local brPower, brMaxPower = upReactor()
  local totalPower, totalMaxPower = getTotal()
  progressBar( "TotalPower", 48 - count , totalPower + brPower, totalMaxPower + brMaxPower, 0x00bb00, true,"RF" )
until event.pull(0.1) == "interrupted"

::quit::
gpu.setResolution( oldW, oldH )
clearScreen()