Fishing Script

Share your guides, how-tos, FAQs, and so forth. This is not for support -- post questions in General Discussion.
Post Reply
Demon Fire
Posts: 219

Fishing Script

Post by Demon Fire »

Anyone have one that fishes off the back and another that fishes off the front that stacks fish at feet? Been using razor for the auto stack at feet thing but that is the only time i use it... any help? if you have one that cuts up serps would be helpful too :P don't need it to loot or nothing like that... just saying.


Thanks in advance!
Matiu
Posts: 16
Location: Whitianga

Re: Fishing 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'
Demon Fire
Posts: 219

Re: Fishing Script

Post by Demon Fire »

Thanks I will try this today!!
Post Reply