Organize Regs

//clearhands 'both'
clearlist 'containers'
if not listexists 'containers'
  @createlist 'containers'
endif
if list 'containers' == 0
  @pushlist 'containers' 0xe76
endif
if not listexists 'bags'
  @createlist 'bags'
endif
clearlist 'bags'
//open backpack
useobject! 'backpack'
for 0 to 'containers'
  //open bags only
  while @findtype containers[] 'any' 'backpack'
    pause 600
    @pushlist 'bags' 'found'
    setalias 'inside' 'found'
    useobject! 'inside'
    pause 600
    //only bags inside of bags
    while @findtype containers[] 'any' 'inside'
      pause 600
      @pushlist 'bags' 'found'
      useobject! 'found'
      pause 600
      ignoreobject 'found'
    endwhile
    ignoreobject 'inside'
  endwhile
endfor
@clearignorelist
if not listexists 'regs'
  createlist 'regs'
  //Regs List
  pushlist 'regs' 0xf7a  // Black Pearl
  pushlist 'regs' 0xf7b  // Blood Moss
  pushlist 'regs' 0xf86  // Mandrake Root
  pushlist 'regs' 0xf84  // Garlic
  pushlist 'regs' 0xf85  // Ginseng
  pushlist 'regs' 0xf88  // Nightshade
  pushlist 'regs' 0xf8d  // Spider's Silk
  pushlist 'regs' 0xf8c  // Sulphurous Ash
endif
if not findalias 'regsbag'
  sysmsg 'Target Deposit Box' 25
  promptalias 'regsbag'
endif
clearignorelist
while @findtype 0xe76 'any' 'backpack'
  setalias 'current_bag' 'found'
  ignoreobject 'current_bag'
  for 0 to 'regs'
    while @findtype 'regs[]' 'current_bag'
      moveitem 'found' 'regsbag'
      pause '600'
    endwhile
  endfor
endwhile
clearignorelist
unsetalias 'regsbag'
unsetalias 'current_bag'
unsetalias 'found'
unsetalias 'inside'
closegump 'container' 'any'