Fishing script

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Vampy
Posts: 5
Joined: 2004-04-27 04:02:59
Location: OR
Contact:

Fishing script

Post by Vampy »

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
OR
Post Reply