[MACRO] Mining + Bank

Macro escreveu: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 '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

macro arrumado escreveu: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

Atualizado escreveu: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
while @movetype 0xf13 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf16 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf11 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf26 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf18 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf0f 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf10 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0xf15 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0x19b7 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0x19b8 'backpack' 'bankstock' 0 0 0 'any'
pause 1000
endwhile
while @movetype 0x19ba '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