Yoko
http://forum.yoko.com.ua/

Fishing script
http://forum.yoko.com.ua/viewtopic.php?f=20&t=310		 Page 1 of 1
Author:  Vampy [ 2004-05-10 20:07:19 ]
Post subject:  Fishing script
Here's my fishing script...
U just need to modify the coords...
Enjoy it!

sub pescar()
uo.deletejournal()
pescar1:
uo.exec("usetype 0x0dbf")
uo.lclick(414,242)
wait(4000)
if UO.InJournal("There doesn't seem to be any fish here") OR UO.InJournal("You can't fish there") then
uo.deletejournal()
go to pescar2
else
go to pescar1
end if
pescar2:
uo.exec("usetype 0x0dbf")
uo.lclick(480,242)
wait(4000)
if UO.InJournal("There doesn't seem to be any fish here") OR UO.InJournal("You can't fish there") then
uo.deletejournal()
go to pescar3
else
go to pescar2
end if
pescar3:
uo.exec("usetype 0x0dbf")
uo.lclick(500,242)
wait(4000)
if UO.InJournal("There doesn't seem to be any fish here") OR UO.InJournal("You can't fish there") then
uo.deletejournal()
go to pescar4
else
go to pescar3
end if
pescar4:
uo.exec("usetype 0x0dbf")
uo.lclick(520,242)
wait(4000)
if UO.InJournal("There doesn't seem to be any fish here") OR UO.InJournal("You can't fish there") then
uo.deletejournal()
go to moverse
else
go to pescar4
moverse:
if UO.weight>300 then
go to Descartar
else
uo.press(36)
uo.press(36)
uo.press(33)
uo.press(33)
uo.press(33)
uo.press(33)
uo.press(33)
uo.press(33)
go to pescar1
endif
Descartar:
UO.FindType('0x09ce')
if UO.GetQuantity('finditem')>0 then
UO.Moveitem('finditem','0','ground')
endif
wait(500)
UO.FindType('0x09cf')
if UO.GetQuantity('finditem')>0 then
UO.Moveitem('finditem','0','ground')
endif
wait(500)
UO.FindType('0x09cd')
if UO.GetQuantity('finditem')>0 then
UO.Moveitem('finditem','0','ground')
endif
wait(500)
UO.FindType('0x09cc')
if UO.GetQuantity('finditem')>0 then
UO.Moveitem('finditem','0','ground')
go to pescar1
endif
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/