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

Fisching
http://forum.yoko.com.ua/viewtopic.php?f=20&t=342		 Page 1 of 1
Author:  Macar [ 2004-05-15 00:09:08 ]
Post subject:  Fisching
i'm searching a macro to fish and that get all the fish into the secure. If someone know this macro plz tell me
Author:  Xoma [ 2004-05-15 19:36:18 ]
Post subject: 
Take a dagger or a crossbow befor fishing and use a fishing pole... The fish will be cut and put into your bagpack...
Author:  toqui [ 2004-05-17 17:16:44 ]
Post subject:  mi macro
# 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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/