warehouse monitor

local sys = {}
local function m(no) return "monitor_" .. tostring(no) end
sys[1] = { mons = { m(31), m(32), m(33), m(34), m(35), m(36), m(37), m(38), m(39), m(40) } }
sys[2] = { mons = { m(48), m(49), m(50), m(51), m(52), m(53), m(54), m(55), m(46), m(47) } }
sys[3] = { mons = { m(59), m(60), m(61), m(62), m(63), m(64), m(65), m(66), m(67), m(68) } }
sys[4] = { mons = { m(69), m(70), m(71), m(72), m(73), m(74), m(75), m(76), m(77), m(78) } }
local MDM_DIR = "bottom"
local mdm = peripheral.wrap(MDM_DIR)

local data = {}
data[1] = { sys = 1, col = 1, stack = 1, name = "Cobblestone", qty = 444 }
data[2] = { sys = 1, col = 1, stack = 2, name = "IronIngot", qty = 32 }
data[3] = { sys = 2, col = 4, stack = 3, name = "Redstone", qty = 288 }
data[4] = { sys = 3, col = 10, stack = 5, name = "unknown-1", qty = 33 }
data[5] = { sys = 4, col = 3, stack = 4, name = "unknown-2", qty = 55 }

local function initialize(mdm, sys)
  print("initialize monitors")
  for i, s in ipairs(sys) do
    for j, v in ipairs(s.mons) do
      if not mdm.isPresentRemote(v) then
        print(string.format("  system%d - column%d : %s is not found.", i, j, v))
      else
        mdm.callRemote(v, "setTextScale", 0.5)
        mdm.callRemote(v, "clear", 0.5)
        local tmp = string.format("sys%2dcol%2d", i, j)
        for k = 1, 10 do
          mdm.callRemote(v, "setCursorPos", 1, k)
          mdm.callRemote(v, "write", string.sub(tmp, k, k))
        end
      end
    end
  end
end

local function dispData(mdm, sys, dat)
  local monitor = sys[dat.sys].mons[dat.col]
  local stack = (5 - dat.stack) * 2 + 1
  local quantity = dat.qty
  if not mdm.isPresentRemote(monitor) then
    print(monitor .. " is not found.")
  else
    local tmp = string.format("sys%2dcol%2d", dat.sys, dat.col)
    mdm.callRemote(monitor, "setCursorPos", 3, stack + 0)
    mdm.callRemote(monitor, "clearLine")
    mdm.callRemote(monitor, "write", "[" .. dat.stack .. "]" .. dat.name)
    mdm.callRemote(monitor, "setCursorPos", 1, stack + 0)
    mdm.callRemote(monitor, "write", string.sub(tmp, stack + 0, stack + 0))


    mdm.callRemote(monitor, "setCursorPos", 5, stack + 1)
    mdm.callRemote(monitor, "clearLine")
    mdm.callRemote(monitor, "write",
      string.format("%dst (%d)", math.floor(quantity/64), quantity)) -- アイテムごとの最大スタック数
    mdm.callRemote(monitor, "setCursorPos", 1, stack + 1)
    mdm.callRemote(monitor, "write", string.sub(tmp, stack + 1, stack + 1))
  end
end

initialize(mdm, sys)
for i, dat in ipairs(data) do
  dispData(mdm, sys, dat)
end