Macro de Minning

if not listexists 'Pos_X'
createlist 'Pos_X'
endif
@clearlist 'Pos_X'
pushlist! 'Pos_X' -1
pushlist! 'Pos_X' 0
pushlist! 'Pos_X' 1
if not listexists 'Pos_Y'
createlist 'Pos_Y'
endif
@clearlist 'Pos_Y'
pushlist! 'Pos_Y' -1
pushlist! 'Pos_Y' 0
pushlist! 'Pos_Y' 1
if not listexists 'Directions'
createlist 'Directions'
endif
@clearlist 'Directions'
pushlist! 'Directions' 'Southeast'
pushlist! 'Directions' 'North'
pushlist! 'Directions' 'Northwest'
pushlist! 'Directions' 'East'
pushlist! 'Directions' 'South'
pushlist! 'Directions' 'Southwest'
pushlist! 'Directions' 'West'
pushlist! 'Directions' 'Northeast'
if not listexists 'RunXY'
createlist 'RunXY'
endif
@clearlist 'RunXY'
pushlist! 'RunXY' 'East'
pushlist! 'RunXY' 'South'
pushlist! 'RunXY' 'Southeast'
pushlist! 'RunXY' 'North'
pushlist! 'RunXY' 'Northwest'
pushlist! 'RunXY' 'Southwest'
pushlist! 'RunXY' 'West'
pushlist! 'RunXY' 'Northeast'
if not @findobject 'bankstock'
msg 'bank'
sysmsg 'Voce precisa setar um bau no bank para depositar os ores.' '33'
promptalias 'bankstock'
endif
msg 'bank'
while @movetype 0x19b9 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
for 0 to 'RunXY'
for 0 to 'Directions'
for 0 to 'Pos_X'
for 0 to 'Pos_Y'
@unsetalias 'quit'
while not @findalias 'quit'
if not @useobject! 'righthand'
usetype! 0xe85 'any' 'backpack'
endif
waitfortarget 5000
clearjournal
targettileoffset 'Pos_X[]' 'Pos_Y[]' 0
@settimer 't_timeout' 0
while @timer 't_timeout' < 10000
if @injournal 'You put' 'system' or @injournal 'nenhum minerio' 'system'
break
elseif @injournal 'You cannot' 'system' or @injournal 'yourself' 'system'
@setalias 'quit' 'self'
break
elseif @injournal 'Voce achou' 'system' or @injournal 'Try mining elsewhere' 'system'
@setalias 'quit' 'self'
break
elseif @injournal 'There is nothing' 'system' or @injournal 'Try mining elsewhere' 'system'
@setalias 'quit' 'self'
break
elseif @injournal 'no line of sight' 'system'
@setalias 'quit' 'self'
break
endif
endwhile
if diffweight < 20
replay
endif
endwhile
endfor
endfor
for 4
walk 'Directions[]'
endfor
endfor
for 8
walk 'RunXY[]'
endfor
endfor