macro de fishing

if not @listexists 'east'
@createlist 'east'
endif
if not @listexists 'north'
@createlist 'north'
endif
if not @listexists 'west'
@createlist 'west'
endif
if not @listexists 'south'
@createlist 'south'
endif
if not @listexists 'guardarfishing'
@createlist 'guardarfishing'
pushlist 'guardarfishing' 0x9cc
pushlist 'guardarfishing' 0x9cd
pushlist 'guardarfishing' 0x9ce
pushlist 'guardarfishing' 0x9cf
pushlist 'guardarfishing' 0x99f
pushlist 'guardarfishing' 0x14eb
endif
if list 'south' == 5
@clearlist 'east'
@clearlist 'north'
@clearlist 'west'
@clearlist 'south'
endif
if not @findobject 'vara'
headmsg 'Selecione a vara de pescar.'
promptalias 'vara'
equipitem 'vara' 1
@clearlist 'east'
@clearlist 'north'
@clearlist 'west'
@clearlist 'south'
else
equipitem 'vara' 1
endif
if not @findobject 'escotilha'
headmsg 'Selecione a escotilha do barco'
promptalias 'escotilha'
useobject 'escotilha'
else
useobject 'escotilha'
endif
///////////////////////
// Pescar
/////////////////////
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -4 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -3 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 -4 -3
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -2 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -1 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 0 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 1 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 2 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 3 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 -3 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -3 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -2 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! -1 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 0 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 1 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 2 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 3 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 4 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 2 0 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 3 0 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 0 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 2 1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 3 1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 2 -1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 3 -1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
for 6
clearjournal
useobject 0x409c92b7
waitfortarget 15000
targettileoffset! 4 -1 0
pause 500
if @injournal 'There are no fish' 'system'
break
endif
for 26
if @injournal 'fail to catch' "system" or @injournal 'you pull out' "system"
break
elseif @injournal "stop fishing" "system" or @injournal 'try fishing in water' "system"
break
endif
pause 500
endfor
endfor
clearjournal
/////////////////////
// Navegar e Guardar
/////////////////////
if list 'east' < 7
pushlist 'east' 'mais'
msg 'forward'
pause 6000
msg 'stop'
pause 1000
for 0 to 'guardarfishing'
while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
pause 1000
endwhile
endfor
else
if list 'north' < 5
pushlist 'north' 'mais'
msg 'left'
pause 8000
msg 'stop'
pause 1000
for 0 to 'guardarfishing'
while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
pause 1000
endwhile
endfor
else
if list 'west' < 7
pushlist 'west' 'mais'
msg 'back'
pause 6000
msg 'stop'
pause 1000
for 0 to 'guardarfishing'
while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
pause 1000
endwhile
endfor
else
if list 'south' < 5
pushlist 'south' 'mais'
msg 'right'
pause 8000
msg 'stop'
pause 1000
for 0 to 'guardarfishing'
while @movetype guardarfishing[] 'world' 'escotilha' 'any' 'all' 2
pause 1000
endwhile
endfor
endif
endif
endif
endif