flowersAndBees

-- turtle facing north
local beeDir = {{"front","south"}, {"right","west"}, {"back","north"}, {"left","east"}}
local bee = {}
local princess = "top"
local drone = "bottom"
local generation = {0,0,0,0}

for i=1,4 do
  bee[i] = {peripheral.wrap(beeDir[i][1]),beeDir[i][2]}
end

-- (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

local function pulse(direction)
  redstone.setOutput(direction,true)
  sleep(0.1)
  redstone.setOutput(direction,false)
end

-- request one princess and one drone from fuzzy export buses
local function getBees()
  --local result = checkAndMove(1) and checkAndMove(2)
  --if not result then return result end
  if checkInv(1) then pulse(princess) end
  while turtle.getItemCount(1) ~= 1 do
    print("princess: "..turtle.getItemCount(1))
    sleep(5)
    pulse(princess)
  end
  if checkInv(2) then pulse(drone) end
  while turtle.getItemCount(2) < 1 do
    print("drone: "..turtle.getItemCount(2))
    sleep(5)
    pulse(drone)
  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