[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]
2й пост, не работает?
Добавлено через 12 минут
//макр на майнинг
//- f11 соответственно макрос ультимы ласт обжект- вейтфортаргет-ласттаргет
//- пользовать надо так: встаешь на площадку которую будешь обкапывать (5*5 ты в центре) один раз копаешь сам (два клика на инструмент один раз на пол) и после этого пускаешь скрипт.
//- этим скриптом прокачал мининг с 23% до 56% за 1.5 часа =)
//- задержу между строк ставил 0мс
//- не зависит от разрешения экрана
//- можно копать полиморфнутым
//- если кто то стоит в вашем квадрате 5*5 вам это не мешает
//предустановка условий
set $not there is
set $try try mining in rock
set $cant you can't see
set $noline you have no
//-----
set $put you put the
set $loos you loosen
//-----
//предустановка координат ластцели
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2
//основная часть
for #ii 1 5 1
for #i 1 5 1
set lasttargetx #x
set lasttargety #y
:re
send f11
waitfortarget 10000
wait 4500
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $cant or lastmsg = $noline
if lastmsg = $put or lastmsg = $loos
gosub re
end_if
if timer > 5000
gosub re
end_if
end_while
set #x #x
set #y #y - 1
set timer
end_for
set #x #x + 1
set #y #y + 5
set timer
end_for
//----
alarm
alarm
alarm
flash
alarm
alarm
alarm
end_script
================================
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 you skill
set $s8 put the
set #x -2
while #x < 3
set #y -2
while #y < 3
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F10 500
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s3) or (lastmsg = $s4) or (timer > 15000)
if (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8)
send F10 400
end_if
end_while
set #y #y + 1
end_while
set #x #x + 1
end_while
end_script