View difference between Paste ID: 7KXrruHE and Kg6AQqZY

-local channel = 11
+local args = {...}
 local recipes = {}
 
 local lp = #args > 0 and peripheral.wrap(args[1]) or peripheral.wrap("right")
-local lp = peripheral.wrap("right")
+
 
 local ae = peripheral.wrap("bottom")
-local wifi = peripheral.find("modem")
+local pipe = peripheral.wrap("top")
-if not wifi.isWireless() then wifi = nil end
+local furnace = peripheral.wrap("back")
-wifi.open(channel)
+local crucible = peripheral.wrap("front")
 local signalSide = #args > 1 and args[2] or "left"
-local ae = peripheral.wrap("top")
+local furnaceDir = #args > 2 and args[3] or "south"
 
 
 -- http://lua-users.org/wiki/SplitJoin
 local function split(str, pat)
    local t = {}
    local fpat = "(.-)" .. pat
    local last_end = 1
    local s, e, cap = str:find(fpat, 1)
    while s do
       if s ~= 1 or cap ~= "" then
 	 table.insert(t,cap)
       end
       last_end = e+1
       s, e, cap = str:find(fpat, last_end)
    end
    if last_end <= #str then
       cap = str:sub(last_end)
       table.insert(t, cap)
    end
    return t
 end
 
 local beans = {}
 
 local function scanBeans()
   local allItems = lp.getAvailableItems()
   --print(#allItems, " items in lp system")
   local foundABean = false
   for i,item in pairs(allItems) do
     if lp.getItemID(item[1]) == 25366 then
       foundABean = true
       local nbt = lp.getNBTTagCompound(item[1])
       if nbt then
         local name = nbt.value.Aspects.value[1].value.key.value
         if not beans[name] then beans[name] = {lpID=item[1], qty=item[2]}
         else print("duplicate bean: ",name) end
       end
     end
   end
   if not foundABean then
     sleep(5)
     os.reboot()
   end
 end
-    if #recipe % 2 ~= 1 then break end
+
-    recipes[recipe[1]] = {}
+
-    for i=2,#recipe,2 do
+
-      table.insert(recipes[recipe[1]],{type=recipe[i],qty=recipe[i+1]})
+
   local line = recipeFile.readLine()
   while line do
     local recipe = split(line,",")
     if #recipe % 2 ~= 0 then break end
     recipes[recipe[2]] = {}
     for i=3,#recipe,2 do
       table.insert(recipes[recipe[2]],{type=recipe[i],qty=recipe[i+1]})
     end
---for i,k in pairs(recipes) do print(i); for n=1,#k do for j,l in pairs(k[n]) do print(j," ",l) end end end
+
---for i,k in pairs(recipes) do print(i," ",k) end
+
   recipeFile.close()
 end
 
 scanBeans()
-    if ae.pullItem("down",i,n) - n ~= 0 then i = i - 1 end
+
 
 local function clearInventory()
   for i=1,16 do
     local n = turtle.getItemCount(i)
     if ae.pullItem("up",i,n) - n ~= 0 then i = i - 1 end
   end
-  os.pullEvent("turtle_inventory")
+
-  --print("inventory's changed")
+
-  wifi.transmit(channel,channel,"getJobList")
+local function itemInSlot(slot)
-  local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")
+  return turtle.getItemCount(slot)
-  --for i,k in pairs(message[1]) do print(i," ",k) end
+
-  --if message and message[1] and message[1].name then print(message[1].name) end
+
-  if message then
+local function requestBean(name, amount)
-    for i=1,#message do
+  if amount > 64 then return 0 end
-      if message[i] and message[i].name and message[i].qty and recipes[message[i].name] then print(message[i].name," ",message[i].qty) end
+  local slot = 1
   while slot < 17 and itemInSlot(slot) > 0 do slot = slot + 1 end
   if itemInSlot(slot) > 0 then print("turtle inventory full while trying to request ", name); return 0 end
   local result = lp.makeRequest(beans[name].lpID, amount)
   if result ~= "DONE" then
     print("Failed to get ", amount, "name: ", result)
     return 0
   else
     return slot
   end
 end
 
 local function loadFurnace(amount,slot)
   local movedAmount = 0
   local toMove = amount
   repeat
     movedAmount = movedAmount + furnace.pullItem(furnaceDir,slot,toMove)
     if movedAmount then toMove = amount - movedAmount end
     if not movedAmount or toMove > 0 then sleep(0.5) end
   until movedAmount and toMove <= 0
   return movedAmount
 end
 
 local function loadBean(name, amount)
   local beanInSlot = requestBean(name,amount)
   local movedBeans = 0
   if beanInSlot > 0 then movedBeans = loadFurnace(amount,beanInSlot) end
   --if itemInSlot(beanInSlot) == 0 then
     --wifi.transmit(channel,channel,textutils.serialize(movedBeans))
   --end
   return movedBeans
 end
 
 
 local signal = false
 clearInventory()
 
 sleep(2)
 
 while true do
   signal = rs.getInput(signalSide)
   if signal then
     os.pullEvent("redstone")
     signal = rs.getInput(signalSide)
     --print("new item in crucible")
   end
   while not signal do
     local item = crucible.getStackInSlot(1)
     if not item then item = {name="nil"} end
     if not recipes[item.name] then
       print("no suitable recipe found for item ",item.name)
       sleep(5)
     else
       --print(item.name," ",#recipes[item.name])
       local nBean = 0
       for i=1,#recipes[item.name] do
         local bean = recipes[item.name][i].type
         local qty = tonumber(recipes[item.name][i].qty)
         local aspects = crucible.getAspects()
         for j=1,#aspects do
           if bean == string.lower(aspects[j].name) then
             qty = qty - aspects[j].quantity
             break
           end
         end
         while qty > 0 and pipe.getSuctionType("in") ~= bean do
           sleep(0.2)
         end
         if qty > 0 and pipe.getSuctionType("in") == bean then
           --print("loading ",qty," ",bean)
           nBean = loadBean(bean,qty)
           if nBean ~= qty then print(nBean," of ",recipes[item.name][i].qty," moved to furnace") end
           if #recipes[item.name] == 1 then
             while #crucible.getAspects() == 0 do
               sleep(0.2)
             end
             while #crucible.getAspects() > 0 do
               sleep(0.2)
             end
           end
           while pipe.getSuctionType("in") == bean do
             if #crucible.getAspects() == 0 then break end
             sleep(0.2)
           end
           sleep(0.2)
         end
       end
     end
     while #crucible.getAspects() > 0 do
       sleep(0.5)
     end
     signal = rs.getInput(signalSide)
   end
   clearInventory()
 end