//make infinite recalls
//<3 baddie
if not @findalias 'reg and scroll box' or not @findobject 'reg and scroll box'
  promptalias 'reg and scroll box'
endif
if not @findtype 0xfbf 0x0 'backpack'
  headmsg 'Get more scribes pens!'
  stop
endif
if @ingump 0x38920abd 'You lack the required'
  useskill 'meditation'
  while mana < maxmana
  endwhile
endif
if @ingump 0x38920abd 'You do not have enough'
  headmsg 'Storing and restocking'
  //store recalls
  movetype 0x1f4c 'backpack' 'reg and scroll box' 15 15 0 0 'any' 1
  pause 1000
  //pull blanks
  movetype 0xef3 'reg and scroll box' 'backpack' 15 15 0 0 150 2
  pause 1000
  //pull bloodmoss
  movetype 0xf7b 'reg and scroll box' 'backpack' 15 15 0 0 150 2
  pause 1000
  //pull root
  movetype 0xf86 'reg and scroll box' 'backpack' 15 15 0 0 150 2
  pause 1000
  //pull pearl
  movetype 0xf7a 'reg and scroll box' 'backpack' 15 15 0 0 150 2
  pause 1000
endif
usetype 0xfbf
waitforgump 0x38920abd 15000
replygump 0x38920abd 22
waitforgump 0x38920abd 15000
replygump 0x38920abd 51
waitforgump 0x38920abd 2000