display_storage.lua

m = peripheral.wrap("monitor_1")

m.setCursorBlink(false)
m.setBackgroundColor(colors.black)
m.setTextColor(colors.white)
m.setTextScale(.5)

mW,mH = m.getSize()

local storage = {}

local function setFC(c) m.setTextColor(c) end
local function setBC(c) m.setBackgroundColor(c) end

print("Reading storage containers from 'storage.list'...")
for s in io.lines("/disk/storage.list") do
    print("Registering storage "..s.."...")
    table.insert(storage,peripheral.wrap(s))
end
print("DONE! Initializing...")

function readStorageData()
    local items = {}
    for _,p in pairs(storage) do
        for i,v in pairs(p.list()) do
            items[v.name] = (items[v.name] or 0) + v.count
        end
    end
    return items
end

function updateDisplay()
    m.setCursorPos(1,mH)
    setFC(colors.white)
    m.write("Reloading item data...")
    local items = readStorageData()
    m.clear()
    m.setCursorPos(1,1)
    m.write("ITEM INVENTORY")
    m.setCursorPos(1,3)
    setFC(colors.orange)
    m.write("COPPER")
    m.setCursorPos(1,4)
    setFC(colors.white)
    m.write("IRON")
    m.setCursorPos(1,5)
    setFC(colors.yellow)
    m.write("GOLD")
    m.setCursorPos(1,6)
    setFC(colors.red)
    m.write("REDSTONE")
    m.setCursorPos(1,7)
    setFC(colors.gray)
    m.write("COAL")
    m.setCursorPos(1,8)
    setFC(colors.blue)
    m.write("LAPIS")
    m.setCursorPos(1,9)
    setFC(colors.lightBlue)
    m.write("DIAMONDS")
    setFC(colors.white)
    m.setCursorPos(10,3)
    m.write(tostring(items["minecraft:copper_ingot"]or 0))
    m.setCursorPos(10,4)
    m.write(tostring(items["minecraft:iron_ingot"]or 0))
    m.setCursorPos(10,5)
    m.write(tostring(items["minecraft:gold_ingot"]or 0))
    m.setCursorPos(10,6)
    m.write(tostring(items["minecraft:redstone"]or 0))
    m.setCursorPos(10,7)
    m.write(tostring(items["minecraft:coal"]or 0))
    m.setCursorPos(10,8)
    m.write(tostring(items["minecraft:lapis_lazuli"]or 0))
    m.setCursorPos(10,9)
    m.write(tostring(items["minecraft:diamond"]or 0))
end

sleep(1)
while true do
    updateDisplay()
    sleep(10)
end