Trash n Craft

local trashListChest = peripheral.wrap("back")
local aeNetwork = peripheral.wrap("right")
local craftListChest = peripheral.wrap("top")
local loopCounter = 0
local delayCrafting = {}

while true do
   for i,data in pairs(craftListChest.getAllStacks()) do
      if delayCrafting[tostring(data["id"]..data["dmg"])] ~= nil then
         delayCrafting[tostring(data["id"]..data["dmg"])] = delayCrafting[tostring(data["id"]..data["dmg"])] - 1
         if delayCrafting[tostring(data["id"]..data["dmg"])] < 0 then
            delayCrafting[tostring(data["id"]..data["dmg"])] = nil
         end
      else
         if data["maxSize"] == 1 then
            data["maxSize"] = 5
         end
         if ( ( data["qty"] * data["maxSize"] ) - aeNetwork.countOfItemType(data["id"], data["dmg"]) ) > 0 then
            print("Crafting:"..data["maxSize"].." x "..data["id"])
            aeNetwork.requestCrafting({ ["id"] = data["id"], ["dmg"] = data["dmg"], ["qty"] = ( ( data["qty"] * data["maxSize"] ) - aeNetwork.countOfItemType(data["id"], data["dmg"]) ) })
            sleep(1)
            loopCounter = loopCounter + 1
            if data["id"] > 400 then
               delayCrafting[tostring(data["id"]..data["dmg"])] = 300
               print("Delaying future crafting due to complexity")
            end
         end
      end
   end
   loopCounter = loopCounter + 1
   if loopCounter > 30 then
      trashList = {}
      for i,data in pairs(trashListChest.getAllStacks()) do
         while aeNetwork.countOfItemType(data["id"], data["dmg"]) > ( data["qty"] * 1000 ) do
            print("trying to delete item:"..data["name"])
            local status, outputData = pcall( function () return aeNetwork.extractItem({ ["id"] = data["id"], ["dmg"] = data["dmg"], ["qty"] = math.min(aeNetwork.countOfItemType(data["id"], data["dmg"]) - ( data["qty"] * 1000 ), data["maxSize"]) }, "up") end )
            if not status then
               print("Error")
               break
            end
            if trashList[data["name"]] == nil then
               trashList[data["name"]] = outputData
            else
               trashList[data["name"]] = trashList[data["name"]] + outputData
            end
            print("success")
            sleep(.05)
         end
      end
      print("Cleaned out:")
      for name,i in pairs(trashList) do
         print(name.." - "..i)
      end
      loopCounter = 0
   end
   print("sleep then loop")
   sleep(1)
end