Yoko

Good Script mining by FaBiM(Brazil City- Votuporanga sp)

use pickaxe ON!!!!
Bye bye

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

http://yoko.netroof.net/forum/viewtopic ... 5&start=15

Bad......try This )))

Good Script ?????????????
Aproved Script ?????????
Plis Re: !!!

Best )))

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