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

Script Mining
http://forum.yoko.com.ua/viewtopic.php?f=20&t=825		 Page 1 of 1
Author:  FaBiM_r0x [ 2004-07-10 14:46:52 ]
Post subject:  Script Mining
Good Script mining by FaBiM(Brazil City- Votuporanga sp)

use pickaxe ON!!!!
Bye bye :D

sub main()
UO.Print("Script by FaBiM_r0x(Brazil)irc.brasnet.org Channel #Tumulo")
for var direita=0 to 20
for var esquerda=0 to 20
passo1:
UO.Print("Executando parte 1 da macro")
UO.Exec("usetype 0x0E85")
wait(500)
UO.LClick(246,221)
UO.LClick(246,221)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(278,235)
UO.LClick(278,235)
wait(7000)
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(274,278)
UO.LClick(274,278)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(357,251)
UO.LClick(357,251)
wait(7000)
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(244,188)
UO.LClick(244,188)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(242,274)
UO.LClick(242,274)
wait(7000)
UO.Press(36)
wait(1000)
UO.Press(36)
wait(1000)
esquerda=esquerda+1
if esquerda ==20 then
esquerda=0
GOTO passo2
End if
GOTO passo1


passo2:
UO.Print("Executando parte 2 da macro")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(246,221)
UO.LClick(246,221)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(278,235)
UO.LClick(278,235)
wait(7000)
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(274,278)
UO.LClick(274,278)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(357,251)
UO.LClick(357,251)
wait(7000)
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(244,188)
UO.LClick(244,188)
wait(7000)
UO.Say("Help Guards")
UO.Exec("usetype 0x0e85")
wait(500)
UO.LClick(242,274)
UO.LClick(242,274)
wait(7000)
UO.Press(34)
wait(1000)
UO.Press(34)
wait(1000)
UO.Say("Help Guards")
direita=direita+1
if direita ==20 then
direita=0
goto passo1
End if
GOTO passo2
end sub
Author:  BETEPAH [ 2004-07-10 14:49:12 ]
Post subject: 
http://yoko.netroof.net/forum/viewtopic ... 5&start=15

Bad......try This )))
Author:  FaBiM_r0x [ 2004-07-11 18:50:32 ]
Post subject: 
Good Script ?????????????
Aproved Script ?????????
Plis Re: !!!
Author:  BETEPAH [ 2004-07-11 20:37:33 ]
Post subject: 
Best )))
Author:  toqui [ 2004-07-17 21:12:09 ]
Post subject: 
sub main()
principio:
minar(1416,2894) // .where
minar(1416,2893) //. where
minar(1416,2892)
minar(1416,2891)
minar(1416,2890)
minar(1416,2889)
minar(1416,2888)
minar(1416,2887)
minar(1416,2886)
minar(1416,2885)
minar(1417,2885)
minar(1418,2885)
minar(1419,2885)
minar(1420,2885)
minar(1421,2885)
minar(1422,2885)
minar(1423,2885)
minar(1424,2885)
minar(1425,2885)
minar(1426,2885)
minar(1427,2885)
minar(1428,2885)
minar(1429,2885)
minar(1430,2885)
minar(1430,2884)
minar(1430,2883)
minar(1430,2882)
minar(1430,2881)
minar(1430,2880)
minar(1430,2879)
minar(1431,2879)
minar(1432,2879)
minar(1433,2879)
minar(1434,2879)
minar(1434,2880)
minar(1434,2881)
minar(1434,2882)
minar(1433,2882)
minar(1432,2882)
minar(1431,2882)
minar(1430,2882)
minar(1429,2882)
minar(1428,2882)
minar(1427,2882)
minar(1426,2882)
minar(1425,2882)
minar(1424,2882)
minar(1423,2882)
minar(1422,2882)
minar(1421,2882)
minar(1420,2882)
minar(1419,2882)
minar(1419,2883)
minar(1419,2884)
minar(1419,2885)
minar(1419,2888)
goto principio

end sub

sub minar(x1,y1)
var a=0
Move(x1,y1)
while a < 100
if UO.InJournal('There is no ore here to mine') then
a=1000
uo.deletejournal()
end if

uo.useobject('pico')
UO.Exec("waittargetself")
wait(7000)
wend
end sub


sub coord()
uo.say(str(uo.getx('self')))
uo.say(str(uo.gety('self')))
end sub

sub Move(x,y)
var cx,cy,e=0,dir=1,M="-40-231-657"
while dir<>0
cx=uo.getx()
cy=uo.gety()
dir=(cy<y)+2*(cy>y)+4*(cx<x)+8*(cx>x)
if dir<>0 then
MoveK(val(M[dir]))
if cx==uo.getx() && cy==uo.gety() then
e=e+1
if e>=2 then
stack_solving()
endif
if e==40 then
return 0
endif
else
e=0
endif
endif
wend
return 1
endsub

sub MoveK(dir)
var x,y,time,Key="06172435"
if UO.GetDir()<>dir then
UO.Press(val(Key[dir])+33)
time=500
if UO.GetDir()<>dir then
if time==0 then
return 0
endif
wait(5)
time=time-5
endif
endif
x=UO.GetX()
y=UO.GetY()
time=500
UO.Press(val(Key[dir])+33)
while x==UO.GetX() && y==UO.GetY() && time>0
time=time-5
wait(5)
wend
return time>0
end sub

sub stack_solving()
uo.print("Buscando camino alternativo")
uo.press(36)
uo.press(36)
uo.press(36)
uo.press(35)
uo.press(35)

end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/