ess

rednet.open("right")
local c = peripheral.wrap("bottom")
local a = peripheral.wrap("front")
local f = peripheral.wrap("top")
local redstoneDir = "back"
--Added this incase you are pastebinning the code
local crystals = {}

function scanSlot(slot)
    c.pushItemIntoSlot("up", slot,1,1)
    turtle.drop()
    data = table.concat(a.getAspects())
    crystals[data] = slot
    turtle.suck()
    c.pullItemIntoSlot("up", 1, 1,slot)
end

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

function essentia(aspect, numAspect)
   if not f.getStackInSlot(1) then
      c.pushItemIntoSlot("up", crystals[aspect], numAspect,1)
      f.pullItemIntoSlot("down", 1, numAspect,1)
   end
   while f.getStackInSlot(1) do
      print("Waiting for chest to empty...")
      sleep(3)
   end
   print("done")
--   sleep(15)
end

function awaitRednet()
  local id, msg = 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

print("Scanning crystals...")
scanSlots()
print("Done scanning crystals!")

while true do
   awaitRednet()
end