View difference between Paste ID: WkhLAj94 and zJnbiq2z

 -- turtle facing north
 local beeDir = {{"front","south"}, {"right","west"}, {"back","north"}, {"left","east"}}
 local bee = {}
-local princess = "top"
+local nApiaries = #beeDir
-local drone = "bottom"
+local chestDir = "bottom"
 local pushDir = "up"
 local chest = nil
-for i=1,4 do
+
 local princess = 13341
 local drone = 13340
 
 for i=1,nApiaries do
   bee[i] = {peripheral.wrap(beeDir[i][1]),beeDir[i][2]}
 end
 
 chest = peripheral.wrap(chestDir)
 local chestSize = chest.getInventorySize()
 
 -- (limited) turtle inventory clean up
 local function checkAndMoveBak(i)
   local result = true
   local destination = 16
   if turtle.getItemCount(i) > 0 then
     print("Attempting clean up in slot " .. i)
     result = false
     turtle.select(i)
     while not turtle.transferTo(destination) do
       destination = destination - 1
       -- print(destination)
       if destination <= 2 then break end
     end
     if destination <= 2 then result = false else result = true end
   end
   return result
 end
 
 -- (limited) turtle inventory clean up / push stuff into apiaries
 --local function checkAndMove(i,apiary)
 --  local result = true
 --  if turtle.getItemCount(i) > 0 then
 --    print("Attempting clean up in slot " .. i)
 --    result = false
 --    apiary[1].pullItemIntoSlot(apiary[2], 1, 1, 1)
 --end
 
 local function checkInv(i)
   local result = true
   if turtle.getItemCount(i) > 0 then
     print("Bee found in slot " .. i)
     result = false
   end
   return result
 end
--- request one princess and one drone from fuzzy export buses
+
 local function pulse(direction)
-  --local result = checkAndMove(1) and checkAndMove(2)
+
-  --if not result then return result end
+
-  if checkInv(1) then pulse(princess) end
+
 end
 
 local function getBBak(beeID,slot)
-    pulse(princess)
+  local found = false
   local item = nil
-  if checkInv(2) then pulse(drone) end
+  for i=1,chestSize do
     item = chest.getStackInSlot(i)
     if item and item.id == beeID then
       if chest.pushItemIntoSlot(pushDir,i,1,slot) == 1 then found = true
-    pulse(drone)
+      else found = false end
       break
     end
   end
   return found
 end
 
 local function getB(beeID,slot)
   local found = false
   local items = nil
   items = chest.getAllStacks()
   if not items then return false end
   for i,k in pairs(items) do
     if k.id == beeID then
       if chest.pushItemIntoSlot(pushDir,i,1,slot) == 1 then found = true
       else found = false end
       break
     end
   end
   return found
 end
 
 
 -- pull out one princess and one drone from chest
 local function getBees()
   if checkInv(1) then getB(princess,1) end
   while turtle.getItemCount(1) ~= 1 do
     print("princess: "..turtle.getItemCount(1))
     sleep(5)
     getB(princess,1)
   end
   if checkInv(2) then getB(drone,2) end
   while turtle.getItemCount(2) < 1 do
     print("drone: "..turtle.getItemCount(2))
     sleep(5)
     getB(drone,2)
   end
   if turtle.getItemCount(1) * turtle.getItemCount(2) < 1 then return false end
   return true
 end
 
 -- pull princess and drone from turtle
 local function fillApiary(apiary,gen,direction)
   local result = 0
   if not getBees() then return false end
   print("Fill ("..direction..") apiary with generation: "..gen)
   -- princess in slot 1 in apiary and turtle inventory
   result = apiary[1].pullItemIntoSlot(apiary[2], 1, 1, 1)
   -- drone in slot 2
   result = result * apiary[1].pullItemIntoSlot(apiary[2], 2, 1, 2)
   if result==1 then return true
   else return false end
 end
 
 --local function checkQueen(apiary)
 --  local queen = apiary.getQueen()
 --  return queen
 --end
 
 --local function getApiaryProducts(apiary)
 --  local result = 0
 --  for i=3,9 do
 --    result = result + apiary.pushItem(interfaceDir,i,64)
 --  end
 --  return result
 --end
 
 -- main :)
 local fill = true
 while true do
   for i=1,4 do
     --check apiaries
     if not bee[i][1].getQueen() then
 --      print(getApiaryProducts(bee[i]))
       fill = fillApiary(bee[i],generation[i],beeDir[i][1])
       generation[i] = generation[i] + 1
       if not fill then break end
     end
   end
   if not fill then break end
   sleep(5)
 end