Карусель тем сервиса MYBB2.Ru
Ссылка на тему: http://uopilot.mybb2.ru/viewtopic.php?t=3

скрипт для тех шардов, где разрешен рекол в шахту. Этот скрипт помещен

 
скрипт для тех шардов, где разрешен рекол в шахту.


Этот скрипт помещен в окно пилота номер 1

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 cant)
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


Ссылка на тему: http://uopilot.mybb2.ru/viewtopic.php?t=3



Внимание! Если вы считаете, что темы с вашего форума не должны присутствовать в карусели тем или в карусели присутствует содержимое, нарушающее нормы общепринятой морали, либо действующего законодательства - напишите нам на abusereport@mybb2.ru
 

создать форум