снова старое или Mining 4ever

я играю недавно и хотел бы узнать 1 из скриптов на мининг , а именно тот , в котором надо на ф1 забиндить ластобджект , вейтфотаргет, ласттаргет ...
такой скрипт сдесь уже однажды был выложен, но я к сожалению неуспел его скачать...=(
может мне кто-нибудь поможет - кинет тот скрипт или опубликует свой

чё то не понятно что именно те нада?
все возможные бинды?или именно тот который ты попросил?

[BEZUMEC[CAFEMAX]]

он просит настроить и выложеть ему такой макр чтобы на ф1 в етом макре была забиндино ласт обжект вейт фо тар ласт таргет во юморист =)

нет я прошу выложить скрипт , для работы которого необходимо было биндить на ф1 ластобджект вейтфотаргет и ласттаргет
этот скрипт уже ранее выкладывался ==> у кого то он есть

ну у меня есть токо не на ф1 а на ф11 чар идет роет всё вокруг себя но нету реколов разгрузки и тд, я хз как на пилоте разгрузку прописать....

[BEZUMEC[CAFEMAX]]

напишу разгрузку дешева -) да и рекол =)

да всёравно на реколы ...
мне пох как на самом деле , лишь бы на скрипте ....=)
скинь его сюда плизз

Сообщение от bezumec[cafemax]

напишу разгрузку дешева -) да и рекол =)

безумец пример разгрузки в пм закинь , обижен наградой не будешь, фулл сильвер дам-)

ЗЫ: скрипт ушел Гансте в пм

[Psybadek]

РАБОТОСПОСОБНОСТЬ ЭТИХ СКРИПТОВ НЕ ГАРАНТИРУЮ

#######################################
#####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]

#######################################
#####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]

#######################################
#####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

попробовал скрипты - не то , но есть действенные ....=)

maniiaki

Сообщение от gansta

я играю недавно и хотел бы узнать 1 из скриптов на мининг , а именно тот , в котором надо на ф1 забиндить ластобджект , вейтфотаргет, ласттаргет ...
такой скрипт сдесь уже однажды был выложен, но я к сожалению неуспел его скачать...=(
может мне кто-нибудь поможет - кинет тот скрипт или опубликует свой

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

[Psybadek]

#######################################
#####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 ?

[Psybadek]

Сообщение от NeeDle

a mozhet vsiotaki uzhe dastatachna ?

НЕТ

#######################################
#####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]

#######################################
#####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]

#######################################
#####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]

#######################################
#####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]

#######################################
#####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]]

сразу видно человек с Абсоса -)

[Psybadek]

Сообщение от krAn [ZTU]

сразу видно человек с Абсоса -)

На Абсосе я юзал другую прогу (не инжу и не изи). Но это уже совсем другая история... (с) :rolleyes:
P.S. krAn [ZTU], ещё давно хотел поставить аватару как у тебя, но
писалось что весит она слишком много :eek:
P.P.S. gansta, если ещё какие-нить скрипты нужны, пиши - поможем :cool:

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

да вот ещё не подскажете на чём лучше карпу качать и примерно скок логов уйдёт до гма?

хех
я незнаю почему очевидно у меня руки кривые но я ничё не понял =)))
а можно с пояснениями?

[Psybadek]

Сообщение от gansta

хех
я незнаю почему очевидно у меня руки кривые но я ничё не понял =)))
а можно с пояснениями?

Например вот скрипт

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]]

Сообщение от Psybadek

На Абсосе я юзал другую прогу (не инжу и не изи). Но это уже совсем другая история... (с) :rolleyes:
P.S. krAn [ZTU], ещё давно хотел поставить аватару как у тебя, но
писалось что весит она слишком много :eek:
P.P.S. gansta, если ещё какие-нить скрипты нужны, пиши - поможем :cool:

я из нее вырезал пару ненужных фреймов

я сделал всё как ты сказал но скрипт не пашет ...
у мя 2 пилота 205 и стареньких 108 - на обоих не идёт D

[VERTIK]

Сообщение от gansta

я сделал всё как ты сказал но скрипт не пашет ...
у мя 2 пилота 205 и стареньких 108 - на обоих не идёт D

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

А вообше открой в пилоте внутреннюю справку и паробуй разобраться в языке...
патом бери скрипт и сматри как он устроен что за чем и тд ....

"Некто и не говарил что это будет просто "

[zizitop]

Дайте ссылку на самый оптимальный пилот (по вашему мнению)....

Сообщение от Aracul[White Power]

да вот ещё не подскажете на чём лучше карпу качать и примерно скок логов уйдёт до гма?

качать на рубанках (их потом можно продавать гос. вендорам), логов потр***ется примерно 250к =)

Сообщение от zedkin

качать на рубанках (их потом можно продавать гос. вендорам), логов потр***ется примерно 250к =)

а с 70 сколько примерно потр***ется? А что на удочках? или тут как на ТУСе и всё равно на чём???

to [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]
Я малёсь непонела как капать?

если стоит бинд
ласт обжект
вайт фор таргет
таргет шелф


я же не могу рыть себя....

[VERTIK]

Сообщение от Kate

to [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]
Я малёсь непонела как капать?

если стоит бинд
ласт обжект
вайт фор таргет
таргет шелф


я же не могу рыть себя....

ласт обжект
вэйт фо таргет
ласт таргет

Стою на асфальте я в лыжи обутый.... =)
Не один не пашет, еслт LastObject - WaitForTarget - TargetSelf то он на себя не может комать, а если ласт таргет то копает всегда в одном месте....