Monitoring

-- Ini Index

local net = peripheral.wrap("top")
local present = 0
local myPeripherals = {}
local powercap6 = net.callRemote("IE:hvCapacitor_5", "getEnergyStored")
local powercap5 = net.callRemote("IE:hvCapacitor_4", "getEnergyStored")
local powercap4 = net.callRemote("IE:hvCapacitor_3", "getEnergyStored")
local powercap3 = net.callRemote("IE:hvCapacitor_0", "getEnergyStored")
local powercap2 = net.callRemote("IE:hvCapacitor_1", "getEnergyStored")
local powercap1 = net.callRemote("IE:hvCapacitor_2", "getEnergyStored")
local cap1 = 0
local cap2 = 0
local cap3 = 0
local cap4 = 0
local cap5 = 0
local cap6 = 0

-- Ini Functions

function checknet()
    if peripheral.isPresent("top") == true then
        present = 1
    else
        print("Top is not Present!")
    end
end

function getperis()
    for _, name in pairs(peripheral.getNames()) do
        if peripheral.getType(name) == "IE:hvCapacitor_0" then
            table.insert(myPeripherals, name)
        end
    end
end

function cls()
    term.clear()
    term.setBackgroundColor(colors.black)
    term.setCursorPos(1,1)
end

function init()
    term.clear()
    term.setBackgroundColor(colors.black)
    term.setCursorPos(1,1)
    checknet()
    net.open(1)
        if present == 1 then
            print("Network is ready..")
        end
    getperis()
    print(myPeripherals)
    print(net.getMethodsRemote("IE:hvCapacitor_0"))
    print("ready to start in 5 seconds...")
    os.sleep(5)
end

function chargestate()
term.setCursorPos(1,18)
write("             ")
term.setCursorPos(1,18)
    if tonumber(net.callRemote("IE:hvCapacitor_2", "getEnergyStored")) < cap1 then
        term.setTextColor(colors.red)
        write("1 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("1 Charging")
        term.setTextColor(colors.white)
    end
term.setCursorPos(1,17)
write("             ")
term.setCursorPos(1,17)
    if tonumber(net.callRemote("IE:hvCapacitor_1", "getEnergyStored")) < cap2 then
        term.setTextColor(colors.red)
        write("2 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("2 Charging")
        term.setTextColor(colors.white)
    end
term.setCursorPos(1,16)
write("             ")
term.setCursorPos(1,16)
    if tonumber(net.callRemote("IE:hvCapacitor_0", "getEnergyStored")) < cap3 then
        term.setTextColor(colors.red)
        write("3 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("3 Charging")
        term.setTextColor(colors.white)
    end
--Second Group
term.setCursorPos(14,18)
write("                ")
term.setCursorPos(14,18)
    if tonumber(net.callRemote("IE:hvCapacitor_5", "getEnergyStored")) < cap6 then
        term.setTextColor(colors.red)
        write("6 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("6 Charging")
        term.setTextColor(colors.white)
    end
term.setCursorPos(14,17)
write("                ")
term.setCursorPos(14,17)
    if tonumber(net.callRemote("IE:hvCapacitor_4", "getEnergyStored")) < cap5 then
        term.setTextColor(colors.red)
        write("5 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("5 Charging")
        term.setTextColor(colors.white)
    end
term.setCursorPos(14,16)
write("                ")
term.setCursorPos(14,16)
    if tonumber(net.callRemote("IE:hvCapacitor_3", "getEnergyStored")) < cap4 then
        term.setTextColor(colors.red)
        write("4 Discharging")
        term.setTextColor(colors.white)
    else
        term.setTextColor(colors.green)
        write("4 Charging")
        term.setTextColor(colors.white)
    end
end


function mongroup1()
--TXT

--REALTIME INFO
    term.setCursorPos(1,20)
    write("          ")
    term.setCursorPos(1,20)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_0", "getEnergyStored"))
    local cap3 = tonumber(net.callRemote("IE:hvCapacitor_0", "getEnergyStored"))
    term.setCursorPos(1,21)
    write("          ")
    term.setCursorPos(1,21)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_1", "getEnergyStored"))
    local cap2 = tonumber(net.callRemote("IE:hvCapacitor_1", "getEnergyStored"))
    term.setCursorPos(1,22)
    write("          ")
    term.setCursorPos(1,22)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_2", "getEnergyStored"))
    local cap1 = tonumber(net.callRemote("IE:hvCapacitor_2", "getEnergyStored"))
end

function mongroup2()
--TXT
--RTI
    term.setCursorPos(14,20)
    write("          ")
    term.setCursorPos(14,20)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_5", "getEnergyStored"))
    local cap6 = tonumber(net.callRemote("IE:hvCapacitor_5", "getEnergyStored"))
    term.setCursorPos(14,21)
    write("          ")
    term.setCursorPos(14,21)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_4", "getEnergyStored"))
    local cap5 = tonumber(net.callRemote("IE:hvCapacitor_4", "getEnergyStored"))
    term.setCursorPos(14,22)
    write("          ")
    term.setCursorPos(14,22)
    textutils.slowWrite(net.callRemote("IE:hvCapacitor_3", "getEnergyStored"))
    local cap4 = tonumber(net.callRemote("IE:hvCapacitor_3", "getEnergyStored"))
end


function wrapmain()
--GROUP1WRAP
    term.setBackgroundColor(colors.blue)
    term.setCursorPos(1,19)
    write("           ")
    term.setCursorPos(11,19)
    write(" ")
    term.setCursorPos(11,20)
    write(" ")
    term.setCursorPos(11,21)
    write(" ")
    term.setCursorPos(11,22)
    write(" ")
    term.setCursorPos(11,23)
    write(" ")
    term.setCursorPos(1,23)
    write("           ")
    term.setCursorPos(1,19)
    write("  Group 1 ")
    term.setBackgroundColor(colors.black)
--ENDGROUP1WRAP
--GROUP2
    term.setBackgroundColor(colors.blue)
    term.setCursorPos(13,19)
    write("            ")
    term.setCursorPos(24,19)
    write(" ")
    term.setCursorPos(24,20)
    write(" ")
    term.setCursorPos(24,21)
    write(" ")
    term.setCursorPos(24,22)
    write(" ")
    term.setCursorPos(24,23)
    write(" ")
    term.setCursorPos(13,23)
    write("            ")
    term.setCursorPos(13,22)
    write(" ")
    term.setCursorPos(13,21)
    write(" ")
    term.setCursorPos(13,20)
    write(" ")
    term.setCursorPos(13,19)
    write("  Group 2 ")
    term.setBackgroundColor(colors.black)
--ENDGROUP2
end

-- Main code

init()
cls()
wrapmain()
while true do
    mongroup1()
    mongroup2()
    chargestate()
end