@removelist 'houserunebook'
@removelist 'craftrunebook'
@removelist 'resourcebox'
@removelist 'storagebox'
@removelist 'emptykegbox'
@removelist 'keg'
if not listexists 'houserunebook'
  createlist 'houserunebook'
  promptalias 'Target House Runebook'
  pushlist 'houserunebook' 'Target House Runebook'
endif
if not listexists 'craftrunebook'
  createlist 'craftrunebook'
  promptalias 'Target craft location runebook'
  pushlist 'craftrunebook' 'Target craft location runebook'
endif
if not listexists 'resourcebox'
  createlist 'resourcebox'
  promptalias 'Target resourcebox'
  pushlist 'resourcebox' 'Target resourcebox'
endif
if not listexists 'storagebox'
  createlist 'storagebox'
  promptalias 'Target storagebox'
  pushlist 'storagebox' 'Target storagebox'
endif
if not listexists 'emptykegbox'
  createlist 'emptykegbox'
  promptalias 'Target empty keg box'
  pushlist 'emptykegbox' 'Target empty keg box'
endif
if not listexists 'keg'
  createlist 'keg'
endif
for 0 to 50
//grab resources
useobject resourcebox[0]
pause 250
@findtype '0x1940' 'any' emptykegbox[0]
moveitem 'found' 'backpack'
pause 100
////////////////////////////////////////
@findtype '0x1940' 'any' 'backpack'
pushlist 'keg' 'found'
@findtype '0xf0d' 'any' 'backpack'//explo pot
moveitem 'found' 'keg'
poplist 'keg' 'front'
////////////////////////////////////////
@findtype '0xf8c' 'any' resourcebox[0]
moveitem 'found' 'backpack' 0 0 0 1000 2
pause 100
//grabs 5 of each recall reg
@findtype '0xf7b' 'any' resourcebox[0]
moveitem 'found' 'backpack' 0 0 0 5 2
pause 100
@findtype '0xf86' 'any' resourcebox[0]
moveitem 'found' 'backpack' 0 0 0 5 2
pause 100
@findtype '0xf7a' 'any' resourcebox[0]
moveitem 'found' 'backpack' 0 0 0 5 2
pause 100
//Recalls to location for crafting
cast 'Recall'
target! craftrunebook[0]
pause 2000
//explo pots
while counter 'emptybottle' >= 1
@findtype '0xe9b' 'any' 'backpack'//find tool
useobject 'found'
replygump 0x38920abd 50
waitforgump 0x38920abd 15000
replygump 0x38920abd 16
waitforgump 0x38920abd 15000
pause 250
endwhile
//recall home
cast 'Recall'
target! houserunebook[0]
pause 2000
useobject storagebox[0]
pause 100
useobject resourcebox[0]
pause 100
@findtype '0x1940' 'any' 'backpack'
moveitem 'found' storagebox[0]
@findtype '0xfab' 'any' resourcebox[0]
useobject 'found'
@findtype '0x1940' 'any' storagebox[0]
target! 'found'
//put extra regs back in the resource pack
@findtype '0xf8c' 'any' 'backpack'
moveitem 'found' resourcebox[0]
pause 100
//drops recall regs into resource pack
@findtype '0xf7b' 'any' 'backpack'
moveitem 'found' resourcebox[0] 0 0 0 5 2
pause 100
@findtype '0xf86' 'any' 'backpack'
moveitem 'found' resourcebox[0] 0 0 0 5 2
pause 100
@findtype '0xf7a' 'any' 'backpack'
moveitem 'found' resourcebox[0] 0 0 0 5 2
endfor