Throws away any pickaxes sturdy tools and gloves of mining, keeps gold and PoF (if any) in bank.
Make sure all bods are visible in the book.
Loop checkbox should be on.
Code: Select all
//========== init phase =============
if not findalias 'initialize'
if not findalias 'BSsource'
promptalias 'BSsource'
endif
if not findalias 'BSdest'
promptalias 'BSdest'
endif
if not listexists 'trashitems'
createlist 'trashitems'
@pushlist 'trashitems' 0xf39
@pushlist 'trashitems' 0xe86
@pushlist 'trashitems' 0xfb4
@pushlist 'trashitems' 0x13d5
@pushlist 'trashitems' 0x13c6
endif
endif
//======= end of init phase ==========
//====================================
if not findalias 'BSvendor'
@setalias 'BSvendor' 0x4102e
endif
if not findalias 'bstrash'
@setalias 'bstrash' 0x4040a418
endif
if property 'Deeds in Book: 0' 'BSsource'
@unsetalias 'initialize'
@unsetalias 'BSsource'
@unsetalias 'BSdest'
clearignorelist
msg 'bank'
pause 500
@movetype 0xeed 'backpack' 'bank'
pause 500
while @findtype 0x1006 2419 'backpack' 'any'
@moveitem 'found' 'bank'
pause 500
@ignoreobject 'found'
endwhile
pause 400
for 0 to 'trashitems'
while @findtype trashitems[] 'any' 'backpack' 'any'
@moveitem 'found' 'bstrash'
pause 600
endwhile
endfor
stop
endif
while not @inrange 'BSvendor' 1
if @x 'BSvendor' > x 'self' and @y 'BSvendor' > y 'self'
walk 'Southeast'
elseif @x 'BSvendor' < x 'self' and @y 'BSvendor' > y 'self'
walk 'Southwest'
elseif @x 'BSvendor' > x 'self' and @y 'BSvendor' < y 'self'
walk 'Northeast'
elseif @x 'BSvendor' < x 'self' and @y 'BSvendor' < y 'self'
walk 'Northwest'
elseif @x 'BSvendor' > x 'self' and @y 'BSvendor' == y 'self'
walk 'East'
elseif @x 'BSvendor' < x 'self' and @y 'BSvendor' == y 'self'
walk 'West'
elseif @x 'BSvendor' == x 'self' and @y 'BSvendor' > y 'self'
walk 'South'
elseif @x 'BSvendor' == x 'self' and @y 'BSvendor' < y 'self'
walk 'North'
endif
msg 'Betty'
endwhile
waitforcontext 'BSvendor' 1 1500
pause 800
if @injournal 'An offer may be available'
sysmsg 'try later'
@clearjournal
else
pause 800
@replygump 0x9bade6ea 1
@replygump 0xbe0dad1e 1
pause 800
while @findtype 0x2258 1102 'backpack'
@moveitem 'found' 'BSdest'
pause 450
@ignoreobject 'found'
endwhile
endif
pause 800
@useobject 'BSsource'
waitforgump 0x54f555df 1500
@replygump 0x54f555df 5
waitforgump 0x54f555df 1500
@replygump 0x54f555df 0
pause 800
if @findtype 0x2258 1102 'backpack'
@setalias 'bod' 'found'
pause 400
while @findobject 'bod' 'any' 'backpack'
@moveitem 'bod' 'BSvendor'
pause 400
if @injournal 'You have not completed'
pause 3000
@clearjournal
@moveitem 'bod' 'BSdest'
@ignoreobject 'bod'
pause 500
break
endif
endwhile
endif
if @property 'Contents' 'backpack' > 122 or weight > 400
while not @inrange 'bstrash' 1
if @x 'bstrash' > x 'self' and @y 'bstrash' > y 'self'
walk 'Southeast'
elseif @x 'bstrash' < x 'self' and @y 'bstrash' > y 'self'
walk 'Southwest'
elseif @x 'bstrash' > x 'self' and @y 'bstrash' < y 'self'
walk 'Northeast'
elseif @x 'bstrash' < x 'self' and @y 'bstrash' < y 'self'
walk 'Northwest'
elseif @x 'bstrash' > x 'self' and @y 'bstrash' == y 'self'
walk 'East'
elseif @x 'bstrash' < x 'self' and @y 'bstrash' == y 'self'
walk 'West'
elseif @x 'bstrash' == x 'self' and @y 'bstrash' > y 'self'
walk 'South'
elseif @x 'bstrash' == x 'self' and @y 'bstrash' < y 'self'
walk 'North'
endif
endwhile
pause 1000
msg 'bank'
pause 500
@movetype 0xeed 'backpack' 'bank'
pause 500
while @findtype 0x1006 2419 'backpack' 'any'
@moveitem 'found' 'bank'
pause 500
@ignoreobject 'found'
endwhile
pause 400
for 0 to 'trashitems'
while @findtype trashitems[] 'any' 'backpack' 'any'
@moveitem 'found' 'bstrash'
pause 600
endwhile
endfor
endif
pause 1000
pause 1000