скрипт для тех шардов, где разрешен рекол в шахту. Этот скрипт помещен в окно пилота номер 1
Code
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