Fishing white pearls script

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

Fishing white pearls script

Post#1 » December 15th, 2018, 7:34 pm

Anyone have this one?

Matiu
Posts: 12

Re: Fishing white pearls script

Post#2 » January 13th, 2019, 4:17 am

//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

Return to “Cartographer and Scribe”

Who is online

Users browsing this forum: No registered users and 4 guests