Просмотр полной версии : снова старое или Mining 4ever
я играю недавно и хотел бы узнать 1 из скриптов на мининг , а именно тот , в котором надо на ф1 забиндить ластобджект , вейтфотаргет, ласттаргет ...
такой скрипт сдесь уже однажды был выложен, но я к сожалению неуспел его скачать...=(
может мне кто-нибудь поможет - кинет тот скрипт или опубликует свой
Aracul[White Power]
16.12.2005, 22:00
чё то не понятно что именно те нада?
все возможные бинды?или именно тот который ты попросил?
BEZUMEC[CAFEMAX]
16.12.2005, 22:05
он просит настроить и выложеть ему такой макр чтобы на ф1 в етом макре была забиндино ласт обжект вейт фо тар ласт таргет во юморист =)
нет я прошу выложить скрипт , для работы которого необходимо было биндить на ф1 ластобджект вейтфотаргет и ласттаргет
этот скрипт уже ранее выкладывался ==> у кого то он есть
ну у меня есть токо не на ф1 а на ф11 чар идет роет всё вокруг себя но нету реколов разгрузки и тд, я хз как на пилоте разгрузку прописать....
BEZUMEC[CAFEMAX]
16.12.2005, 22:39
напишу разгрузку дешева -) да и рекол =)
да всёравно на реколы ...
мне пох как на самом деле , лишь бы на скрипте ....=)
скинь его сюда плизз
']напишу разгрузку дешева -) да и рекол =)
безумец пример разгрузки в пм закинь , обижен наградой не будешь, фулл сильвер дам-)
ЗЫ: скрипт ушел Гансте в пм
Psybadek
16.12.2005, 23:02
РАБОТОСПОСОБНОСТЬ ЭТИХ СКРИПТОВ НЕ ГАРАНТИРУЮ :p
#######################################
#####Mining by Babka#####
#######################################
if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
if lastmsg you have been
send F7 // use skill stealth
wait 1500
end_if
send f1 //LastObject, WaitForTarget, TargetSelf
wait 2000
set #r random 4
//Проверка наличия руды
if lastmsg there is no ore
if #r = 0
send up 500
send up 500
end_if
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you see
alarm
alarm
alarm
alarm
wait 1500
end_if
wait 8000
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
end_if
if lastmsg you have been
send f7 // use skill stealth
wait 1500
end_if
//Не допускать выход из шахты
if charposy > 828
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send up 500
send left 500
send left 500
send left 500
send left 500
send left 500
end_if
Psybadek
16.12.2005, 23:05
#######################################
#####Mining by *ХЗ КТО*#####
#####Описание: копает вокруг себя , идёт в низ.
f2 - идти вниз.
f8 - Ласт обджект
f11 - Ласт обджект , вайт фор таргет , ласт таргет.
#######################################
:start
//????????????? ???????
set $not there is
set $try try mining in rock
set $can't 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
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $can't or lastmsg = $noline
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
set #i 0
set #ii 0
set #x 0
set #y 0
wait 1000
send f2
wait 1000
send f2
wait 1000
send f2
wait 1000
send f2
wait 1000
send f2
wait 1000
send f8
wait 1000
left 402, 304
wait 8000
goto start
Psybadek
16.12.2005, 23:09
#######################################
#####Mining by Sweet#####
Описание: Ещё один скрипт на мининг. Простой, но очень-очень действенный и быстрый.
#######################################
repeat 5
repeat 5
repeat 1000
send W 3000 \\ Last Object\wait for Target\Target Self
if lastmsg there is no
break
else
wait 7000
end_if
end_repeat
send Left 100
end_repeat
send down 100
send down 100
send right 100
send right 100
repeat 5
repeat 1000
send w 3000
if lastmsg there is no ore
break
else
wait 7000
end_if
end_repeat
send right 100
end_repeat
send down 100
send down 100
send left 100
send left 100
end_repeat
send up 100
repeat 10
send up 100
end_repeat
send left 100
P.S. Аффтар, юзай EasyUO ;)
попробовал скрипты - не то , но есть действенные ....=)
я играю недавно и хотел бы узнать 1 из скриптов на мининг , а именно тот , в котором надо на ф1 забиндить ластобджект , вейтфотаргет, ласттаргет ...
такой скрипт сдесь уже однажды был выложен, но я к сожалению неуспел его скачать...=(
может мне кто-нибудь поможет - кинет тот скрипт или опубликует свой
хы блин, недавно играет, а уже скрипты на мининг подавай =))))
Psybadek
17.12.2005, 13:11
#######################################
#####Mining by Gevorg#####
#####Описание: Скрипт на майнинг
Работает следующим образом:
биндим на F5 - lastobject waitfortarget targetself
один раз копаем и запускаем скрипт
P.S. извращенный скрипт, но все же работает =)
#######################################
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 lasttarget
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
a mozhet vsiotaki uzhe dastatachna ? :D
Psybadek
17.12.2005, 13:29
a mozhet vsiotaki uzhe dastatachna ? :D
НЕТ :D
#######################################
#####Mining by Edred#####
#####Описание: Вот мой макрос на мининг для ньюба (на шарде, где я играю, есть ньюб шахта, там этот макрос очень хорошо работает)
Плюс этого макроса - он не привязывается ни к каким координатам, его можно просто вставлять в пилот и запускать:
// Биндим на F11 - LastObject - WaitForTarget - TargetSelf
// Перед запуском макроса один раз бьем киркой
// в любое место вручную
// 1) чар будет копать на месте пока не кончится руда
// (сообщение 'there is no ore here to mine' или #max
// копок),
// потом сдвигается влево (вправо - если идет обратно)
// 2) если уперся в скалу (сообщение 'try mining in rock')
// чар делает шаг вниз (вверх)
// 3) если при последнем перемещении координаты чара не изменились,
// значит уперлись в стену - чар разворачивается и идет обратно (копая)
// 4) если пак полный - чар останавливается,
// макрос выдает alarm и сообщение, что чар полный
#######################################
set #max 10 // максимальное кол-во копок в одном месте
// надо на случай если последнее сообщение не срабатывает
set #dlin 15 // максимальное число шагов в одном направлении
set #ves 200 // ограничим свой вес этим (примерно)
set #dop 0 // сделайте больше 0 для второго чара (чтобы не топтались
// по одному маршруту
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 F11 7000
if lastmsg 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 // сдвигаемся влево (вправо)
if #napr = 0
if chardir = 5
send Left
else
send Left
send Left
end_if
wait 1000
else
if chardir = 1
send Right
else
send Right
send Right
end_if
wait 1000
end_if
return
:dopshag // дополнительные шаги для второго чара
// чтобы их маршруты не совпадали
if #dop > 0
repeat #dop
if #napr = 0
send Up 500
else
send Down 500
end_if
end_repeat
end_if
return
Psybadek
17.12.2005, 13:30
#######################################
#####Mining by ZAJ#####
#####Описание: Мининг Копает до перегруза а потом пищит(Ф1 ласт оббкт/Ф11 Шаг в стороу ВЕСТ):
#######################################
:nachalo
repeat 9999
send f1
wait 300
left 344, 200
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
goto drugoi
end_if
end_repeat
:drugoi
repeat 9999
send f1
wait 300
left 288, 221
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
goto tretij
end_if
end_repeat
:tretij
repeat 9999
send f1
wait 300
left 284, 249
wait 4000
if wght > 450
alarm
alarm
alarm
end_if
if lastmsg There is no ore here to mine
send F11
send F11
goto nachalo
end_if
end_repeat
Psybadek
17.12.2005, 13:33
#######################################
#####Mining by MuH3gpaB#####
#####Описание: стабильный скрипт.
- f11 соответственно макрос ультимы ласт обжект- вейтфортаргет-ласттаргет
- пользовать надо так: встаешь на площадку которую будешь обкапывать (5*5 ты в центре) один раз копаешь сам (два клика на инструмент один раз на пол) и после этого пускаешь скрипт.
- этим скриптом аффтар прокачал мининг с 23% до 56% за 1.5 часа =)
- задержу между строк ставил 0мс
- не зависит от разрешения экрана
- можно копать полиморфнутым
- если кто то стоит в вашем квадрате 5*5 вам это не мешает
#######################################
//предустановка условий
set $not there is
set $try try mining in rock
set $can't 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
set timer
while_not lastmsg = $not or lastmsg = $try or lastmsg = $can't or lastmsg = $noline
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
alarm
end_script
Psybadek
17.12.2005, 13:34
#######################################
#####Mining by Targitay#####
#####Описание: мининг Ф8 - ласт обжект, Ф7 - ласт лбжект ласт таргет
копает внизу 27 тайлов примерно 5х4 и копки посередине тайлов
#######################################
set #dx 0
set #dy 0
set $n no ore
set $f fail
set $pk pack
set $e error
set $st starving
set $d damage
set $dt destroyed
set $ys you see:
for #dy 0 88 44
for #dx 0 176 44
set #x 312
set #y 298
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:a
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck
end_for
end_for
for #dy 0 88 44
for #dx 0 132 44
set #x 334
set #y 320
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:b
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck1
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck1
end_for
end_for
:hana
end_script
Psybadek
17.12.2005, 13:37
#######################################
#####Mining by WK :rolleyes:#####
#####Описание: На F1 LastObject обкапывает вокруг себя 25 клеток.
#######################################
set #Msg 99
set #x 232
set #y 235
for #ii 1 5 1
for #i 1 5 1
while #Msg <> 0
send f1
waitfortarget 10000
left #x #y
gosub CheckMsg
end_while
set #x #x + 23
set #y #y - 23
set #Msg 99
end_for
set #y #y + 138
set #x #x - 92
end_for
:stop
alarm
end_script
//========================= SubRoutines ==========================
:CheckMsg
Repeat 10
set #Msg 99
//if lastmsg you see
//goto stop
//end_if
if lastmsg you put
set #Msg 1
break
end_if
if lastmsg your skill
set #Msg 2
break
end_if
if lastmsg you loosen
set #Msg 3
wait 1000
break
end_if
if lastmsg world
wait 6000
break
end_if
if lastmsg there
set #Msg 0
break
end_if
if lastmsg try
set #Msg 0
break
end_if
End_Repeat
return
krAn [ZTU]
17.12.2005, 13:52
сразу видно человек с Абсоса -)
Psybadek
17.12.2005, 14:04
']сразу видно человек с Абсоса -)
На Абсосе я юзал другую прогу (не инжу и не изи). Но это уже совсем другая история... (с) :rolleyes:
P.S. krAn [ZTU], ещё давно хотел поставить аватару как у тебя, но
писалось что весит она слишком много :eek:
P.P.S. gansta, если ещё какие-нить скрипты нужны, пиши - поможем :cool:
Aracul[White Power]
17.12.2005, 14:09
не не пусть выкладывают)нормалёк,но я бы даже предложил сделать это на главном форуме чтоб там все выкладывали кто хочет скрипты и тд всё на обсуждение
пусть папки делятсся своим опытом с новенькими,нада ж как то передавать знания..
да вот ещё не подскажете на чём лучше карпу качать и примерно скок логов уйдёт до гма?
хех
я незнаю почему очевидно у меня руки кривые но я ничё не понял =)))
а можно с пояснениями?
Psybadek
17.12.2005, 23:33
хех
я незнаю почему очевидно у меня руки кривые но я ничё не понял =)))
а можно с пояснениями?
Например вот скрипт
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 lasttarget
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
В УО биндим на F5
lastobject
waitfortarget
lasttarget
Копируем этот скрипт в УоПилот, в закладку "Скрипт" (у меня версия Пилота 1.07 beta 8). В закладке "Ещё" ставь "Паузу между строк" 0ms, потом обратно в закладку "Скрипт" там
жмеш Play и... твой чар начинает с умным видом махать киркой (на некоторое время ты ему больше не нужен) :)
P.S. Этот скрипт без реколлов и без побега от ентов.
krAn [ZTU]
18.12.2005, 00:18
На Абсосе я юзал другую прогу (не инжу и не изи). Но это уже совсем другая история... (с) :rolleyes:
P.S. krAn [ZTU], ещё давно хотел поставить аватару как у тебя, но
писалось что весит она слишком много :eek:
P.P.S. gansta, если ещё какие-нить скрипты нужны, пиши - поможем :cool:
я из нее вырезал пару ненужных фреймов
я сделал всё как ты сказал но скрипт не пашет ...
у мя 2 пилота 205 и стареньких 108 - на обоих не идёт D
я сделал всё как ты сказал но скрипт не пашет ...
у мя 2 пилота 205 и стареньких 108 - на обоих не идёт D
Срочно беги к кузницу выше брит банка ложи руки на наковальню и умоляй проходящих мимо их паровнять.....
А вообше открой в пилоте внутреннюю справку и паробуй разобраться в языке...
патом бери скрипт и сматри как он устроен что за чем и тд ....
"Некто и не говарил что это будет просто "
Дайте ссылку на самый оптимальный пилот (по вашему мнению)....
']
да вот ещё не подскажете на чём лучше карпу качать и примерно скок логов уйдёт до гма?
качать на рубанках (их потом можно продавать гос. вендорам), логов потр***ется примерно 250к =)
Oleg Yagovtsev
19.12.2005, 22:26
качать на рубанках (их потом можно продавать гос. вендорам), логов потр***ется примерно 250к =)
а с 70 сколько примерно потр***ется? А что на удочках? или тут как на ТУСе и всё равно на чём???
to Psybadek ([Только зарегистрированные пользователи могут видеть ссылки.])
Я малёсь непонела как капать?
если стоит бинд
ласт обжект
вайт фор таргет
таргет шелф
я же не могу рыть себя....
to Psybadek ([Только зарегистрированные пользователи могут видеть ссылки.])
Я малёсь непонела как капать?
если стоит бинд
ласт обжект
вайт фор таргет
таргет шелф
я же не могу рыть себя....
ласт обжект
вэйт фо таргет
ласт таргет
Стою на асфальте я в лыжи обутый.... =)
Не один не пашет, еслт LastObject - WaitForTarget - TargetSelf то он на себя не может комать, а если ласт таргет то копает всегда в одном месте....
Вот вы блин макросники. )(
Разобрался как копнуть под себя в ассисте, потом еше гемор с lastmsg был, но в итоге разобрался, и воть, может кому пригодится:
:start
send f8 600
if lastmsg You can't see
goto end
end_if
if wght > 354
goto end
end_if
if lastmsg There is no ore
goto move
end_if
if lastmsg Try mining in rock
goto move
end_if
wait 4000
goto start
:move
if CharPosY > 494
goto back
end_if
set #r random 4
if #r = 0
send up 500
send up 500
end_if
if #r = 1
send right 500
send right 500
end_if
if #r = 2
send down 500
send down 500
end_if
if #r = 3
send left 500
send left 500
end_if
goto start
:back
send up 500
send up 500
send up 500
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
send right 500
goto start
:end
alarm
alarm
alarm
end_script
Может и туповато но это все на что я пока способен =)
Из всего что здесь написано я ниче не понял!!! НАРОД!!! Давайте по порядку. 1) Я хочу качать мининг и силу нажимая на одну кнопку!!! Чтобы чар САМ ходил и САМ копал 2) Объясните мне популярно как это сделать!!!!!! ПЛИЗ!!!!!! VolkPK честно мне помогал, но у меня получилось не все. :confused:
Просишь у добрых дядей макрос на майнинг модный и паришся =)
Добрые дяденьки!!! :) Дайте плиз макрос на мининг!!!! ПОЖАЛУЙСТА!!!! Буду очень признателен!!!
Да не парься ты сказали же что скоро макросы на добычу руды и логов прикроют....
BEZUMEC[CAFEMAX]
17.01.2006, 09:06
// Чар обкапывает 25 клеток вокруг себя, потом сдвигается на
// два шага влево или вправо и снова копает. Дойдя до стенки
// чар равзорачивается, сдвигается вниз или вверх на один шаг
// и идет обратно, обкапывая 25 клеток вокруг себя.
// Для копки не в НД параллельно с этим макросом надо запустить
// макрос Trevoga-copka.scr, которому в переменной #okno
// задать номер окна пилота, в котором запущен данный макрос.
// Для работы этого макроса необходимо забиндить
// F10 - LastObject, WaitForTarget, Lasttarget
// F8 - Use skill Hiding (желательно быть ГМом хайда и стелса). Эта
// клавиша вам нужна только если переменная #hide установлена в 1.
// F1 - реколл по руне через ассист.
// F9 - LastSpell, WaitForTarget, LastTarget - для реколла без ассиста, через руну в паке.
// Также используется стандартный бинд клавиши Tab - War/Peace
//
// В макросе предусмотрена возможность пропускать младшие руды: айрон,
// купера, пластер, сандстоун. Для этого установите в 1 нужную переменную.
// Пропуск организван так: когда руда выкопана, макрос проверяет, не
// является ли эта руда одной из вышеперечисленных - если да - переходит
// к копке в следующей точке.
// Вы должны иметь кирку в руке, перед запуском один раз копнуть ею
// где угодно. На десктопе ультимы должно быть открыто окно статов
// (можно в виде полосок, можно задвинуть куда-нибудь вбок)
// -------------------------------------- Установка переменных -------------------------------------------
set #hide 1 // 1 - копать схайденным, 0 - нет
set #recall 0 // 0 - не реколлиться в конце (просто остановиться)
// 1 - реколлиться в конце через ассист
// 2 - реколлиться через руну (без ассиста)
set #dlin 15 // максимальное число шагов в одном направлении
set #napr 1 // В какую сторону копать: 0 - справа-налево,
// 1 - слева-направо
set #ves 300 // Максимальный вес, подымаемый чаром минус 10-15 стоунов
set #sdvig 0 // Куда сдвигаться при развороте: 0 - вниз, 1 - вверх
set #proba 20 // количество попыток проверить ластмессагу при копке
// Это нужно при большом флуде рядом (например в НШ)
set #propusk 1// 1 - пропускать младшие руды, 0 - ненужных руд не бывает
// ID руны (для реколла без ассиста, через руну в паке)
// ----------------------------------------------------------------------------------------------------------------------
// Начальный блок
if #hide = 1
while_not (lastmsg you have hidden)
send F8 3000 // Пытаемся захайдиться
end_while
end_if
// Основная процедура
:main
set #i 1 // счетчик для сравнения с макс длиной
while #i < #dlin
set #xx charposx // текущие координаты чара
set #yy charposy
gosub kopaem
gosub idem_hor
if #xx = charposx and #yy = charposy
// положение чара при движении не изменилось!
gosub razvorot
break
end_if
if wght > #ves
// Вес превышен!
goto fin // пора заканчивать
end_if
set #i #i + 1
end_while
if #napr = 0
// Меняем направление движения
set #napr 1
else
set #napr 0
end_if
goto main
// Процедура вскапывания 25 клеток вокруг чара
: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 F10 500
wait 500
: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 ( lastmsg you fail ) or ( lastmsg you put )
return
end_if
goto mining
end_if
if wght > #ves
goto fin // пора заканчивать!
end_if
wait 500
set #p #p + 1
if #p > #proba
return
end_if
goto proverka
return
// Процедура сдвига чара на два шага горизонтально
:idem_hor
if #napr = 0
send Left
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
end_if
send Left
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F8
wait 500
end_if
end_if
else
send Right
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
end_if
send Right
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F8
wait 500
end_if
end_if
end_if
return
// Процедура сдвига чара по вертикали при развороте
:razvorot
if #sdvig = 0
send Down
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F8
wait 500
end_if
end_if
else
send Up
if #hide = 1
// Если мы в хайде - надо паузу между шагами
wait 1000
if lastmsg been revealed
send F8
wait 500
end_if
end_if
end_if
return
// Реколл через ассист
:fin
if #recall = 0
// Не реколлиться!
alarm
end_script
end_if
if #recall = 1
// Реколлимся через ассист
send F1 1000
end_if
end_script
BEZUMEC[CAFEMAX]
17.01.2006, 09:07
сам разберешься ?? утта вроде все написано че куда тыкать и не забывай врубать ччар параметрс в пилоте
У меня такая проблема: я запускаю скрипт и чар копает сам. Но он НЕ ХОДИТ сам!!!! Выкопает все в одном месте и стоит, пишется что в этом месте руды нет. А в другое место его надо направлять самому. А я хочу чтоб он сам все делал.
У меня такая проблема: я запускаю скрипт и чар копает сам. Но он НЕ ХОДИТ сам!!!! Выкопает все в одном месте и стоит, пишется что в этом месте руды нет. А в другое место его надо направлять самому. А я хочу чтоб он сам все делал.А тогда суть твоего существования в УО????Если чар все сам будет делать зачем ты то нужен???
Напишите скрипт плиз чтобы чар сам по данжу бегал монстров килял и лутал :))
есть такой скрипт када чар сам ходит. он-то мне и нужен
перепробовал все!ну не хочет он норм капаь,максимум допился того,что всегда в одной точке капает,помогите...
бред пилот не хавает эти скрипты
Посидел я тут, почитал топик и одно могу сказать точно :
запрет на скрипты можно и не делать , у всех есть по 10 - 20 скриптов , а пользоваться ими умеют в лучшем случае процентов 10 , да и то те кто сам в состоянии етот самый скрипт написать
А как делается макрос, что бы руду по 1 плавить на сразу всю... ?
drag <координаты большой кучи> <координаты мелкой кучки> 1
wait 200
move <координаты мелкой кучки>
double_left <координаты мелкой кучки>
drag <координаты большой кучи> <координаты мелкой кучки> 1
wait 200
move <координаты мелкой кучки>
double_left <координаты мелкой кучки>
а зачем там мув?)
потому что иногда фунция дабллефт работает не корректно ртфм к пилоту
Powered by: vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.