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

local oldW, oldH = gpu.getResolution()

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 MekanismCell = 0

	local MekanismCell = component.list("mekanism")

	local cellsID = {}
	for address, name in pairs(MekanismCell ) do
		countMekanismCell  = countMekanismCell  + 1

		if countMekanismCell  > 1 then
			cellsID[address] = "Mekanism Power Cell".." "..countMekanismCell
		else
			cellsID[address] = "Mekanism Power Cell"
		end
	end
  return cellsID
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()

while true do
  local _,_,x,y = event.pull( 1, "touch" )
  local count = 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 totalPower, totalMaxPower = getTotal()
	progressBar( "TotalPower", 48 - count , totalPower, totalMaxPower, 0x00bb00, true, "RF" )

  os.sleep(0.25)
end


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