Fishing white pearls script

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
Post Reply
User avatar
tank
Posts: 536

Fishing white pearls script

Post by tank »

Anyone have this one?
Matiu
Posts: 16
Location: Whitianga

Re: Fishing white pearls script

Post by Matiu »

//Author: Lopsang. I have changed it! uses bow for weapon NO auto loot ! if you have any probs with it pm me will see if i can fix them !

if not @listexists 'xaxis'
@createlist 'xaxis'
@pushlist 'xaxis' 4
@pushlist 'xaxis' -4
endif
if not @listexists 'yaxis'
@createlist 'yaxis'
@pushlist 'yaxis' 4
@pushlist 'yaxis' -4
endif
if not listexists 'fish'
createlist 'fish'
@pushlist 'fish' '0x9ce'
@pushlist 'fish'' 0x9cf'
@pushlist 'fish' '0x9cc'
@pushlist 'fish' '0x9cd'
endif
if not @findobject 'bow'
promptalias 'bow'
endif
if not @findobject 'lefthand'
equipitem 'bow' 2
endif
if not @findobject 'pole' and @findtype 0xdbf 0x0 'self'
setalias 'pole' 'found'
endif
pause 700
if @injournal 'big fish' 'system'
clearjournal
playsound 'siren1.wav'
stop
endif
for 0 to 'xaxis'
for 0 to 'yaxis'
clearjournal
while not @injournal 'biting' 'system'
// @canceltarget
@useobject 'pole'
waitfortarget 2000
targettileoffset! 'xaxis[]' 'yaxis[]' 0
pause 1000
if not @injournal 'biting' 'system'
pause 7700
endif
if @injournal 'big fish' 'system'
clearjournal
playsound 'siren1.wav'
stop
endif
if weight > 350
for 0 to 'fish'
while @findtype 'fish[]' 0 'backpack'
usetype! 0x2d2f
waitfortarget 2000
target! 'found'
pause 700
endwhile
endfor
endif
if @findtype 0x97a 'any' 'ground' 'any' 2
@movetype 0x97a 'backpack' 'found'
pause 600
else
//starts fishsteak pile on floor if doesnt exist
movetypeoffset '0x97a' 'backpack' 'ground' -1 0 0 'any'
endif
if @injournal 'closer' 'system'
clearjournal
resync
endif
if @injournal 'The world will save'
clearjournal
sysmsg 'Pausing macro for Server Save'
waitforjournal 'World save complete' 25000 'system'
sysmsg 'Resuming macro'
endif
getenemy! 'criminal' 'enemy' 'grey' 'closest'
if @inrange 'enemy' 10
pause 1000
@autotargetenemy
virtue! 'Honor'
pause 1000
setability 'Primary' 'on'
attack 'enemy'
playsound 'siren1.wav'
stop
endif
endwhile
endfor
endfor
msg 'forward'
pause 4500
msg 'stop'
hrs024 likes this.
Top
Post Reply