networkmon v0.2

local uranium = 30047
local tinyura = 30048

local enrich = {id = 30243,dmg = 0, qty = 1}
local rod = {id = 30045, dmg = 0, qty = 1}
local pressList = {3, 4, 13}
local compressID = 2506
local compresDmgList = { 0, 1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 14 }

local network = peripheral.wrap("left")

function craftUranium()
  if ( network.countOfItemType(uranium,0) >= 6 and
       network.countOfItemType(tinyura,0) >= 3 ) then
       network.requestCrafting(rod)
       network.requestCrafting(enrich)
  end
end

function compressStacks()
   for i,id in ipairs(pressList) do
      if ( network.countOfItemType(id,0) >= 100 ) then
    local itemStack = { id = id, dmg = 0, qty = 9 }
    network.extractItem(itemStack,"bottom")
        os.sleep(1)
      end
   end
   for i,dmg in ipairs(compresDmgList) do
      if ( network.countOfItemType(compressID,dmg) >= 9 ) then
         local itemStack = { id = compressID, dmg = dmg, qty = 9 }
     network.extractItem(itemStack,"bottom")
         os.sleep(1)
      end
   end
end

while true do
  craftUranium()
  compressStacks()
  os.sleep(60)
end