EV maker

[RAVE GL]

one of my own creations! Stock up a chest with your regs and blank scrolls, have another chest for your finished product. This will make EVs and move them to a chest for you.
I couldn't make it work where it will pull a pen from the restock chest. If anyone can make that work please edit my code and repost.

if not @listexists 'Scrolls'
  createlist 'Scrolls'
  pushlist 'Scrolls' 0x1f66
endif
if mana < 30
  clearjournal
  useskill 'meditation'
  while mana < maxmana
  endwhile
else
  if @counttype 0xfbf 0x0 'backpack' < 2
    movetype 0xfbf 'restock' 'backpack' 0 0 0 0x0 3
    pause 1000
  endif
  if not @findtype 0xfbf 0x0 'backpack'
    headmsg 'Get more Pens!'
    stop
  endif
  if not @findobject 'Completed'
    headmsg 'Select your Storage for Finished Goods'
    promptalias 'Completed'
  endif
  if not @findobject 'restock'
    headmsg 'Select the container with your materials'
    promptalias 'restock'
    useobject 'restock'
  endif
  if @counttype 0x1f66 0x0 'backpack' < 1
    movetype 0x1f66 'restock' 'backpack' 0 0 0 0x0 10
    pause 1000
  endif
  if @counttype 0xf88 0x0 'backpack' < 10
    movetype 0xf88 'restock' 'backpack' 0 0 0 0x0 50
    pause 1000
  endif
  if @counttype 0xf86 0x0 'backpack' < 10
    movetype 0xf86 'restock' 'backpack' 0 0 0 0x0 50
    pause 1000
  endif
  if @counttype 0xef3 0x0 'backpack' < 10
    movetype 0xef3 'restock' 'backpack' 0 0 0 0x0 50
    pause 1000
  endif
  if @counttype 0xf7b 0x0 'backpack' < 10
    movetype 0xf7b 'restock' 'backpack' 0 0 0 0x0 50
    pause 1000
  endif
  if @counttype 0xf7a 0x0 'backpack' < 10
    movetype 0xf7a 'restock' 'backpack' 0 0 0 0x0 50
    pause 1000
  endif
  if skill 'Magery' < 88
    headmsg 'Buy more skill!'
    stop
  elseif skill 'Magery' < 101
    if usetype 0xfbf 0x0 'backpack'
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 9
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 9
      waitforgump 0x38920abd 2000
    endif
  else
    headmsg 'Out of Stock!'
    stop
  endif
  if @counttype 0x1f66 0x0 'backpack' > 10
    movetype 0x1f66 'backpack' 'Completed'
    pause 1000
  endif
endif
pause 600