AM2 Helper 0.2

local arrow =  {id=262,dmg=0,qty=1}
local vDust =  {id=22256,dmg=0,qty=1}
local snowball =  {id=332,dmg=0,qty=1}
local flintSteel =  {id=259,dmg=0,qty=1}
local stoneSword =  {id=272,dmg=0,qty=1}
local book =  {id=340,dmg=0,qty=1}
local fish = {id=349 ,dmg=0,qty=1}
local clay =  {id=337,dmg=0,qty=1}
local feather =  {id=288,dmg=0,qty=1}
local piston =  {id=33,dmg=0,qty=1}
local snow =  {id=80,dmg=0,qty=1}

local redRune =  {id=22272,dmg=2,qty=1}
local purpleRune =  {id=22272,dmg=6,qty=1}
local orangeRune =  {id=22272,dmg=4,qty=1}
local yellowRune = {id=22272,dmg=3,qty=1}
local blueRune =  {id=22272,dmg=1,qty=1}

local topaz = {id=22256,dmg=5,qty=1}
local lapis =  {id=351,dmg=4,qty=1}

local pipe = peripheral.wrap("left")

function getItem(ID)
    if ( pipe.extractItem(ID,"up") == 0 ) then
      print("Could not find item ", ID.id, " ", ID.dmg, ". Attempting to craft.")
      if ( pipe.requestCrafting(ID) == 0 ) then
        print(" Could not craft.")
        return
      end
      local tries = 0
      repeat
        os.sleep(1)
        tries = tries + 1
      until ( pipe.extractItem(ID,"up") == 1 ) or ( tries >= 6 )
      if ( tries >= 6 ) then print(" Request timed out.")
    end
end

while true do
  os.pullEvent("redstone")
  local button = redstone.getBundledInput("back")
--  print(tostring(button))
  if ( button == 2 ) then
    getItem(arrow)
    getItem(snowball)
    getItem(vDust)
  elseif ( button == 4 ) then
    getItem(vDust)
    getItem(flintSteel)
    getItem(redRune)
  elseif ( button == 8 ) then
    getItem(lapis)
    getItem(stoneSword)
    getItem(book)
    getItem(purpleRune)
  elseif ( button == 16 ) then
    getItem(feather)
    getItem(fish)
    getItem(clay)
    getItem(vDust)
  elseif ( button == 32 ) then
    getItem(orangeRune)
    getItem(flintSteel)
  elseif ( button == 64 ) then
    getItem(piston)
    getItem(yellowRune)
  elseif ( button == 128 ) then
    getItem(snowball)
    getItem(blueRune)
    getItem(topaz)
  elseif( button == 256 ) then
    getItem(blueRune)
    getItem(snow)
  end


end