//****************By Crimson**************
//***************Mining v.1,3*************
//-=-=-=-=-=-=-=Установка Переменных=-=-=-=-=-=-=-=-
set $m1 there is
set $m2 try mining
set $m3 that is too far
set $m4 you have no
set $m5 you have been
set $m6 you have hidden
set $m7 you can't seem
set $m8 *You see
set #hide 1 // если 1 то копаем в хайде 0 - нет
//--------------------------------------------------
//-=-=-=-=-=-=-Координаты прокапывания-=-=-=-=-=-=-=-=-
if #hide = 1
goto hide
end_if
:start
set #x charposx
set #y charposy
set lasttargetx #x
set lasttargety #y
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 2
set lasttargety #y + 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 1
set lasttargety #y + 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x
set lasttargety #y + 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 1
set lasttargety #y + 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 2
set lasttargety #y + 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 2
set lasttargety #y + 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 1
set lasttargety #y + 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x
set lasttargety #y + 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 1
set lasttargety #y + 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 2
set lasttargety #y + 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 2
set lasttargety #y
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 1
set lasttargety #y
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 1
set lasttargety #y
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 2
set lasttargety #y
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 2
set lasttargety #y - 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 1
set lasttargety #y - 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x
set lasttargety #y - 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 1
set lasttargety #y - 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 2
set lasttargety #y - 1
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 2
set lasttargety #y - 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x - 1
set lasttargety #y - 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x
set lasttargety #y - 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 1
set lasttargety #y - 2
gosub mining
set #x charposx
set #y charposy
set lasttargetx #x + 2
set lasttargety #y - 2
set #e #e + 1
gosub mining
//================================================== ===============
//=-=-=-=-=-=-Модуль перехода-=-=-=-=-=-=-
flash 50
flash 50
flash 50
send right
send right
send right
send right
if (lastmsg $m5)
send F3
break 1 else
end_if
if #e > 3
for #i 1 18 1
send left
wait 300
set #e 0
end_for
end_if
goto start
//================================================== ===============
//=-=-=-=-=-=-=-Процедура Установки чара в хайд-=-=-=-=-=-=-=-=-=-=
:hide
send F9 3000
if (lastmsg $m7)
goto hide
end_if
goto start
//================================================== ===============
//-=-=-=-=-=-=-=-Процедура тотальной выкопки-=-=-=-=-=-=-=-=-
:mining
send F7 1000
set timer 0
while (lastmsg do you want) and (timer < 10000)
wait 100
end_while
while_not (lastmsg $m1)
send F7 1000
while (lastmsg do you want) and (timer < 10000)
wait 100
end_while
if (lastmsg $m2)
break
end_if
if (lastmsg $m3)
break
end_if
if (lastmsg $m4)
break
end_if
if wght > 620
msg Finish
stop_script
end_if
if (lastmsg $m1)
break
end_if
wait 1000
end_while
return

Хороший скрипт, но немогу разобраться для чего нужна кнопка F3 в модуле перехода!
ну вроде ф3 - это хайд
Ф9 - точно хайд
Ф7 - ласт обжект, вэйтфор таргет, ласт таргет
сам ходит сам копает, один раз под себя только копнуть надо ну вобщем пока самый лучшый скрипт на мининг который я нашел!