IC2 and TE4 Energy Monitor (beta)

local pe = peripheral
local ts = 1            --textsize
local sm = " "
local mdistance = 1
local te_energylevel = 0
local ic_energylevel = 0
local tec
local icc
local head = "Energie"
local hx = 0
local hy = 0
local ey = 0
local ex = 0
local tex = 0
local icx = 0
local miv = 1
local mwha = 0
local mwhaID = 0

while true do
    tec = false
    icc = false
    te_energylevel = 0
    ic_energylevel = 0
    ey = 0
    ex = 0
    tex = 0
    icx = 0
    miv = 1
    local te_energy, ic_energy, monitorArea, monitors = { }, { }, { }, { }
    local periNet = pe.getNames()
        for k,v in pairs(periNet) do
                if pe.getType(v) == "cofh_thermalexpansion_energycell" then
                        local te_cell = pe.wrap(v)
                        --print("TE4-Zelle gefunden!")
                        te_energy[k] = te_cell.getEnergyStored(v)
            tec = true
                elseif pe.getType(v) == "monitor" then
                        mon = peripheral.wrap(v)
            local imx,imy = mon.getSize()
            monAre = (imx*imy)
                        --print("Monitor gefunden!")
            monitorArea[monAre][k][v] = monAre,k,v
        elseif pe.getType(v) == "mfsu" or pe.getType(v) == "mfe" or pe.getType(v) == "batbox" or pe.getType(v) == "cesu" then
                        local ic_cell = pe.wrap(v)
            ic_energy[k] = ic_cell.getEUStored()
                        --print("IC2-Zelle gefunden!")
            icc = true
                else
                        --print("unknown device found!")
                end
        end
    table.sort(monitorArea)
    for m_area,m_id,m_type in pairs(monitorArea) do
        print(m_area.."   "..m_id.."   "..m_type)
        os.sleep(1)
    end
    --print("periNet-Scan durchgeführt!")
    local a=0
    local mx,my=m.getSize()
    m.clear()
    m.setTextScale(ts)
    m.setBackgroundColor(colors.lime)
    m.setTextColor(colors.blue)
    for i=1,my do
        for j=1,mx do
            m.setCursorPos(j,i)
            m.write(sm)
        end
    end
    for te_id,te_ed in pairs(te_energy) do
        te_energylevel = te_energylevel+te_ed
    end
    if tec then
        if te_energylevel >= 100000000000000 then
            te_energylevel = tostring(te_energylevel)
            te_energylevel = te_energylevel:sub(1,#te_energylevel-12)
            te_energylevel = te_energylevel.."T"
        elseif te_energylevel >= 100000000000 then
            te_energylevel = tostring(te_energylevel)
            te_energylevel = te_energylevel:sub(1,#te_energylevel-9)
            te_energylevel = te_energylevel.."G"
        elseif te_energylevel >= 100000000 then
            te_energylevel = tostring(te_energylevel)
            te_energylevel = te_energylevel:sub(1,#te_energylevel-6)
            te_energylevel = te_energylevel.."M"
        elseif te_energylevel >= 100000 then
            te_energylevel = tostring(te_energylevel)
            te_energylevel = te_energylevel:sub(1,#te_energylevel-3)
            te_energylevel = te_energylevel.."K"
        else
            te_ernergylevel = tostring(te_energylevel)
        end

--  if ( #(tostring(te_energylevel):sub(1,#(tostring(te_energylevel))))+1 ) >= (mx-2) then
--      te_energylevel = tostring(te_energylevel)
--      te_energylevel = te_energylevel:sub(1,#te_energylevel-3)
--      te_energylevel = te_energylevel.."K"
--  elseif ( #(tostring(te_energylevel):sub(1,#(tostring(te_energylevel))-3))+1 ) >= (mx-2) then
--      te_energylevel = tostring(te_energylevel)
--      te_energylevel = te_energylevel:sub(1,#te_energylevel-6)
--      te_energylevel = te_energylevel.."M"
--  elseif ( #(tostring(te_energylevel):sub(1,#(tostring(te_energylevel))-6))+1 ) >= (mx-2) then
--      te_energylevel = tostring(te_energylevel)
--      te_energylevel = te_energylevel:sub(1,#te_energylevel-9)
--      te_energylevel = te_energylevel.."G"
--  elseif ( #(tostring(te_energylevel):sub(1,#(tostring(te_energylevel))-9))+1 ) >= (mx-2) then
--      te_energylevel = tostring(te_energylevel)
--      te_energylevel = te_energylevel:sub(1,#te_energylevel-12)
--      te_energylevel = te_energylevel.."T"
--  else
--      te_energylevel = tostring(te_energylevel)
--  end
    end
--XX--
    for id_id,ic_ed in pairs(ic_energy) do
        ic_energylevel = ic_energylevel+ic_ed
    end
    if icc then
        if ic_energylevel >= 100000000000000 then
            ic_energylevel = tostring(ic_energylevel)
            ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-12)
            ic_energylevel = ic_energylevel.."T"
        elseif ic_energylevel >= 100000000000 then
            ic_energylevel = tostring(ic_energylevel)
            ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-9)
            ic_energylevel = ic_energylevel.."G"
        elseif ic_energylevel >= 100000000 then
            ic_energylevel = tostring(ic_energylevel)
            ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-6)
            ic_energylevel = ic_energylevel.."M"
        elseif ic_energylevel >= 100000 then
            ic_energylevel = tostring(ic_energylevel)
            ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-3)
            ic_energylevel = ic_energylevel.."K"
        else
            ic_energylevel = tostring(ic_energylevel)
        end
--  if ( #(tostring(ic_energylevel):sub(1,#(tostring(ic_energylevel))))+1 ) >= (mx-2) then
--      ic_energylevel = tostring(ic_energylevel)
--      ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-3)
--      ic_energylevel = ic_energylevel.."K"
--  elseif ( #(tostring(ic_energylevel):sub(1,#(tostring(ic_energylevel))-3))+1 ) >= (mx-2) then
--      ic_energylevel = tostring(ic_energylevel)
--      ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-6)
--      ic_energylevel = ic_energylevel.."M"
--  elseif ( #(tostring(ic_energylevel):sub(1,#(tostring(ic_energylevel))-6))+1 ) >= (mx-2) then
--      ic_energylevel = tostring(ic_energylevel)
--      ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-9)
--      ic_energylevel = ic_energylevel.."G"
--  elseif ( #(tostring(ic_energylevel):sub(1,#(tostring(ic_energylevel))-9))+1 ) >= (mx-2) then
--      ic_energylevel = tostring(ic_energylevel)
--      ic_energylevel = ic_energylevel:sub(1,#ic_energylevel-12)
--      ic_energylevel = ic_energylevel.."T"
--  else
--      ic_energylevel = tostring(ic_energylevel)
--  end
    end
    if (my-1)%2 == 0 then
        hy = (my-1)/2
    elseif (my-1)%2 ~= 0 then
        hy = (my-2)/2
    end
    if mx-#head == 0 then
        hx = 1
    elseif (mx-#head)%2 ~= 0 then
        hx = ((mx-#head)-1)/2
    elseif (mx-#head)%2 == 0 then
        hx = (mx-#head)/2
    end
    m.setCursorPos(hx,1)
    m.write(head)
    if tec then
        m.setCursorPos(1,2)
        m.write("TE4-E (RF):")
        if mx-#te_energylevel == 0 then
            tex = 1
        elseif (mx-#te_energylevel)%2 ~= 0 then
            tex = ((mx-#te_energylevel)-1)/2
        elseif (mx-#te_energylevel)%2 == 0 then
            tex = (mx-#te_energylevel)/2
        end
        m.setCursorPos(1+tex,3)
        m.write(te_energylevel)
    end
    if icc then
        m.setCursorPos(1,4)
        m.write("IC2-E (EU):")
        if mx-#ic_energylevel == 0 then
            icx = 1
        elseif (mx-#ic_energylevel)%2 ~= 0 then
            icx = ((mx-#ic_energylevel)-1)/2
        elseif (mx-#ic_energylevel)%2 == 0 then
            icx = (mx-#ic_energylevel)/2
        end
        m.setCursorPos(1+icx,5)
        m.write(ic_energylevel)
    end
    os.sleep(1)
end