getMENetwork

meSystem = peripheral.wrap("back")
rednet.open("front")

function itemAmount(T)
    local count = 0
    for _ in pairs(T) do count = count + 1 end
    return count
end

while true do
    nItemTable = meSystem.listAvailableItems()
    nEnergy = meSystem.getNetworkEnergyUsage()

    nItemCount = itemAmount(nItemTable)
    nData = textutils.serialise( {nItemCount, nEnergy} )

    id,message = rednet.receive()
    sleep(0.2)
    if id == 32 and message == "send.data" then
        rednet.send(32,nData)
    end
end