Yoko

i'm searching a macro to fish and that get all the fish into the secure. If someone know this macro plz tell me

Take a dagger or a crossbow befor fishing and use a fishing pole... The fish will be cut and put into your bagpack...

# Macro de Fishing de toqui
sub recoge()
UO.set("finddistance","4")
var i
var a=0
dim fish[11]
fish[0]= 0x09CC ;pescao 1
fish[1]= 0x09CD ;pescao 2
fish[2]= 0x09CE ;pescao 3
fish[3]= 0x09CF ;pescao 4
fish[4]= 0x099F ;tesoro
fish[5]= 0x0F0E ;botella vacia
fish[6]= 0x1711 ;botas altas
fish[7]= 0x170D ;Sandalias
fish[8]= 0x0DCA ;Special Net
fish[9]= 0x0DD6 ;Peces raros
fish[10]= 0x170B ;botas normales
fish[11]= 0x170F ;zapatos

principio:
if a>0 then
uo.print(STR(a))
end if

for i=0 to 5
UO.findtype(fish[i],"-1","ground")
if UO.Count(fish[4])> 0 then
a= a+1
end if
UO.moveitem("finditem","1","bolsa2")
wait(200)
next

for i=6 to 11
UO.findtype(fish[i],"-1","ground")
UO.moveitem("finditem","-1","bolsa1")
wait(200)
next

goto principio
end sub

sub main()
end sub

sub lanza()
principio:
uo.say('forward')
wait(2500)
uo.say('stop')

uo.useobject('canha')
UO.LClick(352,141)
wait(3000)
uo.useobject('canha')
UO.LClick(404,219)
wait(3000)
uo.useobject('canha')
UO.LClick(334,333)
wait(3000)
uo.useobject('canha')
UO.LClick(280,339)
wait(3000)
uo.useobject('canha')
UO.LClick(228,254)
wait(3000)
uo.useobject('canha')
UO.LClick(271,210)
wait(3000)
uo.useobject('canha')
UO.LClick(356,292)
wait(3000)


goto principio
end sub