TestNetherStarGen

local modemside = "top"

local rednetside = "right"

local monitorside = "monitor_3"

local textsize = 1


local storageUnits = {
        {
                 ["id"] = "cofh_thermalexpansion_energycell_26",
                 ["name"] = "Cell1"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_27",
                 ["name"] = "Cell2"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_28",
                 ["name"] = "Cell3"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_29",
                 ["name"] = "Cell4"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_30",
                 ["name"] = "Cell5"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_31",
                 ["name"] = "Cell6"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_32",
                 ["name"] = "Cell7"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_33",
                 ["name"] = "Cell8"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_34",
                 ["name"] = "Cell9"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_35",
                 ["name"] = "Cell10"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_36",
                 ["name"] = "Cell11"
        },
          {
                 ["id"] = "cofh_thermalexpansion_energycell_37",
                 ["name"] = "Cell12"
        }

}

local mon = peripheral.wrap(monitorside)
local net = peripheral.wrap(modemside)


mon.clear()
mon.setTextScale(textsize)
mon.setTextColor(512)
mon.setCursorPos(1,2)
mon.write(" Energy Remaining:")
mon.setCursorPos(1,10)
mon.write("  Engine Status:")
mon.setTextColor(2)
rs.setBundledOutput(rednetside,0)

function comma_value(number)
  local formatted = number
  while true do
    formatted, k = string.gsub(formatted, "^(-?%d+)(%d%d%d)", '%1,%2')
    if (k==0) then
      break
    end
  end
  return formatted
end

while true do

    capacity = 0
    amount = 0

    local funcs={}
    for i=#storageUnits,1,-1 do
        funcs[i]=function()
                storageUnit = storageUnits[i]
                capacity = capacity + net.callRemote(storageUnit["id"], "getMaxEnergyStored", "unknown")
                amount = amount + net.callRemote(storageUnit["id"], "getEnergyStored", "unknown")
        end
    end
    parallel.waitForAll(unpack(funcs))

    percentage = tonumber((amount / capacity) *100)
    percentage = math.floor(percentage)

    if percentage<=75 then
        mon.setTextColor(colors.red)
        rs.setBundledOutput(rednetside, colors.red+colors.orange)
        local remainingTime = 120
            while remainingTime > 0 do
                local startTime = os.clock()

                mon.setCursorPos(3,11)
                mon.clearLine()

                local minute, second = tostring(math.floor(remainingTime/60)), tostring(math.floor(remainingTime%60))
                mon.write("ONLINE:  " ..minute.." : "..(#second==1 and "0" or "")..second.." remaining")

                capacity = 0
                amount = 0

                local funcs={}
                for i=#storageUnits,1,-1 do
                    funcs[i]=function()
                        storageUnit = storageUnits[i]
                        capacity = capacity + net.callRemote(storageUnit["id"], "getMaxEnergyStored", "unknown")
                        amount = amount + net.callRemote(storageUnit["id"], "getEnergyStored", "unknown")
                    end
                end
                parallel.waitForAll(unpack(funcs))

                percentage = string.match(tostring(percentage),'[^%.]+')
                mon.setCursorPos(8,4)
                mon.clearLine()
                mon.setTextColor(2)
                mon.write(percentage .. "%")
                mon.setCursorPos(1,6)
                mon.clearLine()
                mon.setTextColor(512)
                mon.write("  Energy: ")
                mon.setTextColor(2)
                mon.write(comma_value(amount) .. " RF")
                mon.setCursorPos(1,7)
                mon.clearLine()
                mon.setTextColor(512)
                mon.write("Capacity: ")
                mon.setTextColor(2)
                mon.write(comma_value(capacity) .." RF")

                capacity = 0
                amount = 0

                local funcs={}
                for i=#storageUnits,1,-1 do
                    funcs[i]=function()
                        storageUnit = storageUnits[i]
                        capacity = capacity + net.callRemote(storageUnit["id"], "getMaxEnergyStored", "unknown")
                        amount = amount + net.callRemote(storageUnit["id"], "getEnergyStored", "unknown")
                    end
                end
                parallel.waitForAll(unpack(funcs))

                percentage = tonumber((amount / capacity) *100)
                percentage = math.floor(percentage)

                percentage = string.match(tostring(percentage),'[^%.]+')
                mon.setCursorPos(8,4)
                mon.clearLine()
                mon.setTextColor(2)
                mon.write(percentage .. "%")
                mon.setCursorPos(1,6)
                mon.clearLine()
                mon.setTextColor(512)
                mon.write("  Energy: ")
                mon.setTextColor(2)
                mon.write(comma_value(amount) .. " RF")
                mon.setCursorPos(1,7)
                mon.clearLine()
                mon.setTextColor(512)
                mon.write("Capacity: ")
                mon.setTextColor(2)
                mon.write(comma_value(capacity) .." RF")

            if(remainingTime==120) then rs.setBundledOutput(rednetside, colors.red) end
            remainingTime = remainingTime - os.clock() + startTime
            end
        rs.setBundledOutput(rednetside,0)
        mon.setTextColor(colors.lime)
        mon.setCursorPos(5,11)
        mon.clearLine()
        mon.write("OFFLINE")
    end

    percentage = string.match(tostring(percentage),'[^%.]+')
    mon.setCursorPos(8,4)
    mon.clearLine()
    mon.setTextColor(2)
    mon.write(percentage .. "%")
    mon.setCursorPos(1,6)
    mon.clearLine()
    mon.setTextColor(512)
    mon.write("  Energy: ")
    mon.setTextColor(2)
    mon.write(comma_value(amount) .." RF")
    mon.setCursorPos(1,7)
    mon.clearLine()
    mon.setTextColor(512)
    mon.write("Capacity: ")
    mon.setTextColor(2)
    mon.write(comma_value(capacity) .." RF")
    mon.setCursorPos(5,11)
    mon.setTextColor(colors.lime)
    mon.clearLine()
    mon.write("OFFLINE")
end