Показать сообщение отдельно
Re: Anyone here can help me with a mining macro?!
Старый 26.11.2009, 22:28   #8
BakLan
Newbie
 
Аватар для BakLan
 
Регистрация: 21.09.2007
Адрес: [No Problem Baby]
Сообщений: 90
Репутация: 3 [+/-]
имеет нулевую репутацию
BakLan имеет нулевую репутацию
Чар: KFC
Гильдия: [No Problem Baby]
По умолчанию Re: Anyone here can help me with a mining macro?!

Цитата:
Сообщение от Sephiroth123 Посмотреть сообщение
Hello everyone , i'm new here in the shard, I'm looking for a mining macro for easyuo or ***ssist , I don't know how to use autopilot, but if you guys can help me with any macro of mining I would be very happy =) ! thanks !
Download Pilot , select 1, then go to the language and select English.
Image - [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]

Paste
Код:
set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
for #x -2 2 1
for #y -2 2 1
set lasttargetx charposx +#x
set lasttargety charposy +#y
set lasttargetkind 2
:repeat
send F2 400 // f2 last object
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 800)
while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 2000)
end_while
if wght >= 550
repeat 5
end_repeat
end_if
end_while
end_for
end_for
repeat 5
send PageUp 200
end_repeat
end_if
if #walk = 1
repeat 5
send PageDown 200
end_repeat
end_if
if #walk = 2
repeat 5
send Home 200
end_repeat
end_if
if #walk = 3
repeat 5
send End 200
end_repeat
end_if
if #walk = 4
repeat 5
send Up 200
end_repeat
end_if
if #walk = 5
repeat 5
send Down 200
end_repeat
end_if
if #walk = 6
repeat 5
send Left 200
end_repeat
end_if
if #walk = 7
repeat 5
send Right 200
end_repeat
end_if
it and press play
__________________
Kentucky Fried Chicken — жареная курица из Кентукки
http://uoproblem.clan.su
BakLan вне форума   Ответить с цитированием