HJL Beans v2

rednet.open("right")
-- c is the chest of mana beans
local c = peripheral.wrap("bottom")
-- a is the aspectylizer
local a = peripheral.wrap("front")
-- f is the furnace
local f = peripheral.wrap("front")
local redstoneDir = "back"
--Added this incase you are pastebinning the code
local beans = {}

function scanSlot(slot)
    c.pushItem("up", slot,1)
    turtle.drop()
    data = a.getAspects()
    beans[data] = slot
    print("Bean Scanned = "..data)
    turtle.suck()
    c.pullItemIntoSlot("up", 1, 1,slot)
end

function scanSlots()
   redstone.setOutput(redstoneDir, true)
   for i = 1, 55 do
      if c.getStackInSlot(i) then
         scanSlot(i)
      end
   end
   redstone.setOutput(redstoneDir, false)
end

function essentia(aspect, numAspect)
  print("Aspect = "..aspect.." and Amount requested = "..numAspect)
  c.pushItemIntoSlot("up", beans[aspect], numAspect,1)
  mbit = turtle.getItemCount(1)  -- mbit = mana beans in turtle
  print("  Amount of beans retrieved = "..mbit)
  mbc = 0  -- mbc = mana beans in chest
  --if mbit < numAspect then
  --  while (mbc + mbit) < numAspect do
  --    os.sleep(5)  -- wait for more manabeans from ME network
  --    ct = c.getStackInSlot(beans[aspect])
  --    if ct ~= nil then
  --      mbc = ct["qty"]
  --    else
  --      mbc = 0
  --    end -- end if
  --  end -- end while
  --end
  c.pushItemIntoSlot("up", beans[aspect], numAspect - mbit,1)
  mbit = turtle.getItemCount(1)
  print("  Amount of beans retrieved after refil = "..mbit)


   redstone.setOutput("left", true)
   sleep(1)
   redstone.setOutput("left", false)
   sleep(3)
   turtle.dropUp()
   --f.pullItemIntoSlot("down", 1, numAspect,1)
   sleep(3)
end

function awaitRednet()
  local id, msg, dist = rednet.receive()
  --term.write(msg)
  local essData = {}
  essData = textutils.unserialize(msg)
  print(essData[1]..":"..essData[2])
  essentia(essData[1], essData[2])
  rednet.send(id, "Complete")
end

scanSlots()
print("...SCAN COMPLET...")
while true do
   awaitRednet()
end
--essentia("lucrum", 1)