Komu nada skript na Pilot na mining??? Опции

[Mardek]

Скрипт универсальний скажем так =)
Копаем в разных шахтах, как тока перегруз или кто идет тут же рекол домой, выгружаем все в сундук и летим в другую шахту...
есть список друзей т.е. от кого реколится небудет чар =)




Добавленно: [mergetime]1121047444[/mergetime] Mardek

Код

// F9 - lastskill Ето нада забить кнопки в настройках УО
// F10 - lastspell Ето нада забить кнопки в настройках УО
// F11 - lasttarget Ето нада забить кнопки в настройках УО 
// F8 - use item type pickaxe  здесь нужен макрос в ассисте на использование кирки
// F12 - lastobject Ето нада забить кнопки в настройках УО

set #wait_nax 0
set #zaderjka 300
set #APKn 1
set #step 6
 
set #xb1 872 //  координаты верхнего ЛЕВОГО угла пака
set #yb1 577
set #kx 422 // координаты сундука
set #ky 276 
set #id_home 1099448524 // ID руны домой
set #id1 1099753285 // ID руны в шахту
set #id2 1099513764 // ID руны в шахту
set #id3 1099827576 // ID руны в шахту
set #id4 1099509977 // ID руны в шахту
set #id5 1099299748 // ID руны в шахту
set #id6 1099535875 // ID руны в шахту
set #id7 1099852884 // ID руны в шахту
set #id8 1099640415 // ID руны в шахту
set #id9 1099291223 // ID руны в шахту
set #id10 1073789633 // ID руны в шахту
set #id11 1099949709 // ID руны в шахту
set #id12 1099610416 // ID руны в шахту
set #id13 1099833565 // ID руны в шахту
set #id14 1099798773 // ID руны в шахту
set #id15 1099785124 // ID руны в шахту
set #id16 1099477820 // ID руны в шахту
set #id17 1099857659 // ID руны в шахту

set $s1 there is
set $s2 try mining
set $s3 you can't see
set $s4 you have
set $s8 carry
set $s7 too far
set $s5 you put the
set $s6 you loosen
set $ore ore
set #endless 0
set #recall_scrolls 0
while #endless = 0



set lasttargetid #id_home
set lasttargetkind 1


set #id #id1
gosub mine
gosub unload
set #id #id2
gosub mine
gosub unload
set #id #id3
gosub mine
gosub unload
set #id #id4
gosub mine
gosub unload
set #id #id5
gosub mine
gosub unload
set #id #id6
gosub mine
gosub unload
set #id #id7
gosub mine
gosub unload
set #id #id8
gosub mine
gosub unload
set #id #id9
gosub mine
gosub unload
set #id #id10
gosub mine
gosub unload
set #id #id11
gosub mine
gosub unload
set #id #id12
gosub mine
gosub unload
set #id #id13
gosub mine
gosub unload
set #id #id14
gosub mine
gosub unload
set #id #id15
gosub mine
gosub unload
set #id #id16
gosub mine
gosub unload
set #id #id17
gosub mine
gosub unload


set lasttargetid #id_home
set lasttargetkind 1

end_while
end_script

:mine
set #scrolls_count 0
gosub jump
gosub dig
return

:unload
if target = 1
send escape
wait 300
end_if
wait 200
set #xb11 #xb1 + 20 // +20 -
set #yb11 #yb1 + 32 // +40 - ?
set #xb21 #xb1 + 132 // +152
set #yb21 #yb1 + 100 // +120 -
wait 500
set #i #xb11
set #j #yb11
while #j < #yb21
while #i < #xb21
move #i, #j
set lastobjecttype 3701
double_left #i, #j
set timer 0
while lastobjecttype = 3701 and timer < #wait_nax
wait 0
end_while
if lastobjecttype <> 3701 and lastobjecttype <> 3702 and lastobjecttype <>
3834
wait 1000
drag #i, #j #kx, #ky all
wait 100
end_if
set #i #i + #step
end_while
set #j #j + #step
set #i #xb11
end_while
:gpp1
set lastskill 46
while_not mana = int
send F9
wait 3000
end_while
return

:jump
set lastspell 31
set lasttargetkind 1
set lasttargetid #id
set #cx charposx
set #cy charposy
:xxx1
send F10
set timer 0
while_not timer > 1000 or target = 1 or lastmsg to recall
wait 0
end_while
send F11
set timer 0
while_not timer > 3500 or charposy <> #cy or charposx <> #cx or lastmsg fizzle
wait 0
end_while
if charposy = #cy and charposx = #cx or lastmsg fizzle
goto xxx1
end_if
return

:dig
set #gx charposx
set #gy charposy
start_script #APKn
set timer 0
while_not timer > 2500 or lastmsg rune
wait 0
end_while
if lastmsg rune
end_if
:rehide
set lastskill 47
send F9
set timer 0
if lastmsg hidden
wait 10
end_if
else
goto rehide
end_if
wait 1700
set lasttargetkind 2
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2
set #ii 1
set #jj 1
set #fl 1
while #ii < 6 and #fl = 1 and wght < 620
while #jj < 6 and #fl = 1 and wght < 620
set lasttargetx #x
set lasttargety #y
send F8
set timer 0
while_not timer > 29500 or target = 1 or lastmsg where
wait 0
end_while
send F11
while_not lastmsg = $s1 or lastmsg = $s2 or lastmsg = $s3 or lastmsg = $s4 or lastmsg = $s7 or lastmsg = $s8 or #fl = 0 or wght > 385
if charposx = #gx and charposy = #gy
if lastmsg = $s5 or lastmsg = $s6 or timer > 4000
wait #zaderjka
send f8
set timer 0
while_not timer > 29500 or target = 1 or lastmsg where
wait 0
end_while
send F11
end_if
else
set #fl 0
end_if
end_while
set #x #x
set #y #y - 1
set #jj #jj + 1
end_while
set #x #x + 1
set #y #y + 5
set #jj 1
set #ii #ii + 1
end_while
stop_script #APKn
if #fl = 1
set #id #id_home
gosub jump
wait 2500
return
end_if
return

:mark
set lastspell 44
send F10
set timer 0
while_not timer > 1000 or target = 1 or lastmsg mark
wait 0
end_while
send F11
wait 3500
return

етот скрипт на копку, сохраните его в txt документе по названием Mining2

Добавленно: [mergetime]1121047627[/mergetime] Mardek

Код

set #x 0
set $ms1 you see
set $ms2 ???
set $ms3 ???
set $ms4 ???
set $ms5 you have been
set $ms6 ???
set $ms7 ???
set $ms8 Horse
set $ms9 Llama
set $ms10 ???
set $ms11 ???
set $ms12 ???
set $ms13 ???
set $ms14 ???
set $ms15 ???
set $ms16 a cedar tree
set $ms17 oak leaves
set $ms18 a tree
set $ms19 ???
set $fizzle fizzle
set #endle 0

while #endle = 0
if lastmsg = $ms1 and lastmsg <> $ms2 and lastmsg <> $ms3 and lastmsg <> $ms4
and lastmsg <> $ms5 and lastmsg <> $ms7 and lastmsg <> $ms8 and lastmsg <> $ms9
and lastmsg <> $ms10 and lastmsg <> $ms11 and lastmsg <> $ms12 and lastmsg <>
$ms13 and lastmsg <> $ms14 and lastmsg <> $ms15 and lastmsg <> $ms16 and lastmsg
<> $ms17 and lastmsg <> $ms18 and lastmsg <> $ms19 or lastmsg = $ms6
pause_script 0
set #cx charposx
set #cy charposy
:xx1
wait 100
if target = 1
send Escape
end_if
send F2 // ВНИМАНИЕ читаем внизу про ету кнопку
set #x #x + 1
set timer 0
while_not timer > 3500 or charposy <> #cy or charposx <> #cx or lastmsg =
$fizzle
wait 0
end_while
if lastmsg = $fizzle or charposx = #cx or charposy = #cy
goto xx1
end_if
set #scrolls_count.0 #x
wait 1000
resume_script 0
stop_script 1
end_if
end_while

етот скрипт #2 вместо ??? пишем имена друзей, скрипт сохраните в txt документе под названием APKn


Добавленно: [mergetime]1121047884[/mergetime] Mardek

Внимание!!!
Етот скрипт немнога сложна запускать, вопервых установите ваш бакпак в одном месте, узнайте через пилот координаты левого угла пака и все веши что в паке ровно поверху виложите а то их викенет в сундук вместе с рудой, далие укажите координаты сундука, и ID всех рун.
для етого скрипта желательно юзать УОассист, в часности для рекола домой по скролу и для юзанья кирки! Можна и не ассист но тогда уже думайте сами что и как...

на F2 нада ставить рекол домой по скролу, или по регам но обычно по скролам быстрее среколится можна =)

[Mardek]

добавлю замечание, когда скрипт работает ничего неделайте за компом, окно пилота оставьте поверх окна УО...
если будут вопросы пишите 228305300
100% гарантии что скрипт будет работать недаю, он тестирован лично мной толька на 2х серверах и на обоих работал (IMG:style_emoticons/default/wink.gif)

[Mardek]

Да совсем забыл =) для незнаюших =) все руны должны быть в банке! (IMG:style_emoticons/default/cool.gif)

[Zack]

Здрасте понимаю пост старый но всёже может кто и поможет.
вот эту часть скрипта подстроить под фишинг подстроить можно?
ласт масаги это понятно а вот разширить область так сказать облова...
ну и всё остальное если надо
я не сильно разбераюсь в скриптах поэтому желательно по подробней
буду очень благодарен зарание спасибо

:dig
set #gx charposx
set #gy charposy
start_script #APKn
set timer 0
while_not timer > 2500 or lastmsg rune
wait 0
end_while
if lastmsg rune
end_if
:rehide
set lastskill 47
send F9
set timer 0
if lastmsg hidden
wait 10
end_if
else
goto rehide
end_if
wait 1700
set lasttargetkind 2
set #x charposx
set #y charposy
set #x #x - 2
set #y #y + 2
set #ii 1
set #jj 1
set #fl 1
while #ii < 6 and #fl = 1 and wght < 620
while #jj < 6 and #fl = 1 and wght < 620
set lasttargetx #x
set lasttargety #y
send F8
set timer 0
while_not timer > 29500 or target = 1 or lastmsg where
wait 0
end_while
send F11
while_not lastmsg = $s1 or lastmsg = $s2 or lastmsg = $s3 or lastmsg = $s4 or lastmsg = $s7 or lastmsg = $s8 or #fl = 0 or wght > 385
if charposx = #gx and charposy = #gy
if lastmsg = $s5 or lastmsg = $s6 or timer > 4000
wait #zaderjka
send f8
set timer 0
while_not timer > 29500 or target = 1 or lastmsg where
wait 0
end_while
send F11
end_if
else
set #fl 0
end_if
end_while
set #x #x
set #y #y - 1
set #jj #jj + 1
end_while
set #x #x + 1
set #y #y + 5
set #jj 1
set #ii #ii + 1
end_while
stop_script #APKn
if #fl = 1
set #id #id_home
gosub jump
wait 2500
return
end_if
return