Title:           [Lua] rednet.open("right") local c = peripheral.wrap("bottom") local a = peripheral.
Author:          BariumPeroxide
Pastebin link:   http://pastebin.com/SAZvsJyf
First Edit:      Sunday 5th of April 2015 12:42:31 AM CDT
Last Edit:       Last edit on: Sunday 5th of April 2015 12:50:33 AM CDT

rednet.open("right")
local c = peripheral.wrap("bottom")
local a = peripheral.wrap("front")
local f = peripheral.wrap("left")
local redstoneDir = "back"
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("east", 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