set $nap down 400, 313   
set $nap right 365, 286   
set $nap left 422, 294   
set $nap up 396,230   
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 $iron the iron ores
:nachalo
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
if wght > 425
flash   
stop_script 0
end_if
send f12
WaitForTarget [max wait time = 10000]
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $cant or lastmsg = $noline or lastmsg = $iron
if wght > 425
end_if

if lastmsg = $put or lastmsg = $loos
gosub re
end_if
if timer > 8000
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
repeat 3
send PageUP
wait 1000
end_repeat
send f12
wait 3000
gosub nachalo

set #max 100 // максимальное кол-во копок в одном месте
// надо на случай если последнее сообщение не срабатывает
set #dlin 15 // максимальное число шагов в одном направлении
set #ves 400 // ограничим свой вес этим (примерно)
set #napr 0 // направление: 0 - влево, 1 - вправо

:main
set #i 1 // счетчик для сравнения с макс длиной
while #i <> #dlin
set #xx charposx // текущие координаты чара
set #yy charposy
gosub kopaem
if #xx = charposx and #yy = charposy
// положение чара при движении не изменилось!
gosub dopshag
break
end_if
if wght > #ves
goto fin // пора заканчивать!
end_if
end_while
if #napr = 0
set #napr 1
else
set #napr 0
end_if
goto main

:fin
alarm
msg FULL!
end_script

:kopaem // копать в одном месте
repeat #max
send F5 7s // lastobject waitfortarget targetself
set $te There is no ore here to mine.
if lastmsg = $te //There is no ore here to mine.
break
end_if
if lastmsg try mining in rock
gosub idem_vert
break
end_if
end_repeat
gosub idem_hor
return

:idem_vert // обходим препятствие
if #napr = 0
send Down
send Down
wait 1000
else
send Up
send Up
wait 1000
end_if
return

:idem_hor // сдвигаемся влево (вправо)
set #xx charposx // текущие координаты чара
set #yy charposy
if (#xx = 2558 and #yy = 489 ) or (#xx = 2559 and #yy = 488 ) or (#xx = 2560 and #yy = 487 ) or (#xx = 2562 and #yy = 485 ) or (#xx = 2563 and #yy = 482 )
send Down
send Down
end_if
if #napr = 0
if chardir = 5
send Left
else
send Left
send Left
end_if
set #a random 4
If #a = 1
send PageUp
send PageUp
end_if
If #a = 2
send PageDown
send PageDown
end_if
wait 800
else
if chardir = 1
send Right
else
send Right
send Right
end_if
set #a random 4
If #a = 1
send PageUp
send PageUp
end_if
If #a = 2
send PageDown
send PageDown
end_if
wait 1000
end_if
return

set #cx 2000 // положение чара по координате Х когда он дома у сундука
set #cсx 1421 // положение чара по координате Х когда он в шахте
set #loc 1098823144 // руна к шахте
set #lochome 1098833184 // руна к домой

// рекол в шахту
:reccave
set lasttargetid #loc
set lasttargetkind 1
send f12 500 // Cast Spell - Recall - Last Target в опция УО
wait 6000
if_not charposx = #cсx
gosub reccave
end_if

start_script 3 // запуск скрипта в окне пилота номер 3

// копание

set #ves 430 // максимальный вес
set #proba 4 // кол-во закопов в одной точке
set lastobjectid 1073757117 // id кирки

:main
gosub kopaem
gosub fin

:kopaem
for #y -2 2 1
for #x -2 2 1
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
gosub dyatel
end_for
end_for
return

:dyatel
set #p 0
:mining
send F6 // last object - last targeit в опциях УО
wait 1000
:proverka
if (lastmsg no ore) or (lastmsg mining in rock) or (lastmsg have no line) or (lastmsg get there) or (lastmsg you can't)
return
end_if
if wght > #ves
gosub fin
end_if
wait 1000
set #p #p + 1
if #p > #proba
return
end_if
goto mining
return

:fin
stop_script 3 // стоп скрипта в окне пилота номер 2

// реколл домой

:rechome
set lasttargetid #lochome
set lasttargetkind 1
send f12 500 // Cast Spell - Recall - Last Target в опция УО
wait 6000
if_not charposx = #cx
gosub rechome
end_if
wait 500
end_script

// выгруз это скрипт помещен в окно пилота номер 2

//vigruz

set #zx 360 // координаты сундука куда выкладывать
set #zy 287 // координаты сундука куда выкладывать

:vigruz
set target 0
say 1
wait 200
say 1
wait 200
say 1
wait 200

set #x 889 // координаты бэкпака см. примечание
set #y 474 // координаты бэкпака
set lastobjecttype 1
repeat 50
set #xk random 140
set #yk random 100
set #xp #x - 70 + #xk
set #yp #y + #yk
double_left #xp , #yp
wait 100
if lastobjecttype = 5995
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 5994
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 5993
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 3702
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 8012
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 3709
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 3712
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 3834
waitfortarget
send {Escape} 2000
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 6586
drag #xp, #yp #zx, #zy all
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 6585
drag #xp, #yp #zx, #zy all
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 6584
drag #xp, #yp #zx, #zy all
wait 500
set lastobjecttype 1
end_if
if lastobjecttype = 6583
drag #xp, #yp #zx, #zy all
wait 500
set lastobjecttype 1
end_if

end_repeat
if wght > 200
gosub vigruz
end_if
wait 1000
start_script 1 // запуск скрипта в окне пилота номер 1
end_script

// рекол со скрола если чар кого нибудь увидит
// этот скрипт помещен в окно пилота номер 3

set #cx 2000 // положение чара по координате Х когда он дома у сундука

:ff
if (lastmsg You see) or (lastmsg Attacking)
stop_script 1 // стоп скрипта в окне пилота номер 1
gosub rec
end_if
gosub ff

:rec
send f1 1000 // макрос на реколл со скролла в уо ассите или абисте
wait 1000
if_not charposx = #cx
gosub rec
end_if

flash
wait 80000 // ждать 80 сек. и потом опять копать.
start_script 0
end_script

//F1 - lastobject, waitfortarget, lasttarget
set #pickaxeid lastobjectid
set #move 0
set $msg1 :14538941
set $msg2 you put
set $msg3 fail
set $msg4 try
set $msg5 line
set $msg6 where
set $msg7 no ore
set $msg8 skill
:body
set #orex charposx - 2
set #orey charposy - 2
repeat 5
repeat 5
gosub work
set #orex #orex + 1
end_repeat
set #orex charposx - 2
set #orey #orey + 1
end_repeat
if #move = 0
set #move 2
if_not chardir = 0
send pageup 500
end_if
repeat 5
send pageup 500
end_repeat
goto body
end_if
if #move = 2
set #move 4
if_not chardir = 2
send pagedown 500
end_if
repeat 5
send pagedown 500
end_repeat
goto body
end_if
if #move = 4
set #move 6
if_not chardir = 4
send end 500
end_if
repeat 5
send end 500
end_repeat
goto body
end_if
if #move = 6
set #move 0
if_not chardir = 6
send home 500
end_if
repeat 5
send home 500
end_repeat
goto body
end_if
goto body
end_script
:work
set lastobjectid #pickaxeid
set lasttargetkind 3
set laststatictype 1339
set lasttargetx #orex
set lasttargety #orey
send f1 // lastobject waitfortarget lasttarget
waitfortarget 1000
set timer
while lastmsg = $msg6 or lastmsg = $msg1
wait 5
if timer > 8000
send escape
return
end_if
if hits < str
say guards
wait 1000
end_if
end_while
:msgs
if lastmsg = $msg2 or lastmsg = $msg3 or lastmsg = $msg8
goto work
end_if
if lastmsg you must
wait 2000
goto work
end_if
if lastmsg = $msg3 or lastmsg = $msg4 or lastmsg = $msg5 or lastmsg = $msg7
return
end_if

//макр на майнинг
//- 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