МАКРОСЫ

[Silvestrs]

че за руна у тебя в паке??

[tw1nky]

всем привет!
не пойму, что не так со скриптом:

//----Копаем на месте 25 таилов:----
// Копает на одном месте все тайлы до которых может дотянутся
// потом выдает сообщение об остановке скрипта
//send F3 4000 // Стелс или хайд
for #y -2 2 1
for #x -2 2 1
:mining
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F12 1200 // ЛастОбжект-ВаитФорТаргет-ЛастТаргет
set timer 0
while (lastmsg do you want) and (timer < 10000)
wait 100
end_while
if_not (lastmsg no ore) or (lastmsg mining in) or (lastmsg have no line) or (lastmsg you put)
wait 500
if (lastmsg you see) or (lastmsg targeting) or (lastmsg you have)// дает сигнал о том что появился гард руды или игрок и остонавливает скрип или антимакрос
alarm
flash
alarm
flash
alarm
flash
end_script
end_if
goto mining
end_if
end_for
end_for
alarm
flash
end_script

выкапывает с одного тайла всю руду и тупо в него же долбится.
перебрал версии пилота - 2.17/2.14/2.12/2.07 - эффекта ноль...


отбой, разобрался

[KDbled]

Трекинг на ходу. Запоминает, где уже искал на карте живку и не ищет в этом месте:

//set $m Macro halted.
set #si 60 // Шаг проверки внутри поля step inside
set #so 60 // Шаг проверки вне поля step outside
set #n 1
set #n1 #n + 1
send f5 200
wait 1s
set #x charposx
set #y charposy
set %Track [#n 1] #x
set %Track [#n 2] #y
set %Track [#n1 1] 0
//while lastmsg = $m
//wait 1s
//send f5 200
//wait 1s
//end_while

:begin
set #cx charposx - #x
set #xc #x - charposx
set #cy charposy - #y
set #yc #y - charposy
if  #cx > #si or #xc > #si or #cy > #si or #yc > #si
set #cp 1
set #ms 1
Set #tx 1
While #tx > 0
set #mx %Track [#ms 1] 
set #my %Track [#ms 2]
set #cx charposx - #mx
set #xc #mx - charposx
set #cy charposy - #my
set #yc #my - charposy
set #ms #ms + 1
set #tx %Track [#ms 1]
if  #cx > #so or #xc > #so or #cy > #so or #yc > #so
set #cp #cp +1
end_if
end_while
if #cp = #ms
send f5 200
set #x charposx
set #y charposy
//while lastmsg = $m
//wait 1s
//send f5 200
//end_while
set #n #n + 1
set #n1 #n + 1
set %Track [#n 1] #x
set %Track [#n 2] #y
set %Track [#n1 1] 0
set $Track D:\TrackK.txt
Save_array %Track $Track
//exec D:\KD\Distr\uo\Pilot\ftp.bat
end_if
end_if
goto begin

Добавлено через 4 минуты
Качаем кемпинг:

Скрипт разбрасывает вокруг себя киндлы и поджигает их:

wait 3s
set #x 187        //First Kindle X
set #y 247       //First Kindle Y
set #bx 1360    // Kindling in Backpack X
set #by 151     // Kindling in Backpack Y
set #s 22
set #m 7
repeat #m
set #x1 #x
set #y1 #y
repeat #m
move #bx #by
drag #bx #by #x1 #y1 1
set #x1 #x1 + #s
set #y1 #y1 - #s
end_repeat
set #x #x + #s
set #y #y + #s
end_repeat

set #x 187        //First Kindle X
set #y 247       //First Kindle Y
set #bx 1360    // Kindling in Backpack X
set #by 151     // Kindling in Backpack Y
set #m 7
repeat #m
set #x1 #x
set #y1 #y
repeat #m
move #x1 #y1
double_left #x1 #y1
set #x1 #x1 + #s
set #y1 #y1 - #s
end_repeat
set #x #x + #s
set #y #y + #s
end_repeat
if wght < 60
pause_script
end_if

[The Egoist]

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

PHP код:

//----Хелинг,Магия,Медитация:----
//if hits < 150 // Проверка хитов
................. 


Почему-то не работает проверка хп. Просто постоянно хилиться пытается. Не знает кто, что не так?

[KDbled]

Сложный скрипт на ламбер из двух частей.


Часть 1-я. Создаем массив деревьев.

Запуск скрипта пишет координату ласттаргета и координату чара в массив.
Бежать от дерева до дерева в первый раз самостоятельно. Бежать нужно как можно прямее.
Чтобы замарчить дерево рядом, отбегать не надо, нулевое смещение чара учитывается.
Обязательно закруглите свой путь. Первое и последнее дерево должны быть рядом или в зоне досягаемости при почти прямом беге. Не бегайте на краю гвардзоны, Вас легко подстрелят ПК.
Чем больше деревьев в массиве, тем меньше нужно стоять и ждать респа логов. Не советую делать массив меньше чем из 200 деревьев, стоять придется по 15 минут.

Скрипт:

//      Write  Targets  Coords

set #n #n + 1
set #n1 #n + 1
set %AllCoords [#n 1] #n
set %AllCoords [#n 2] charposx
set %AllCoords [#n 3] charposy
set %AllCoords [#n 4] lasttargetx
set %AllCoords [#n 5] lasttargety
set %AllCoords [#n1 1] #n1
set %AllCoords [#n1 2] 0
set $AllCoords C:\AllCoords.txt
Save_array %AllCoords $AllCoords
set lasttargetx 0
set lasttargety 0
pause_script

Часть 2. Сам лабмер.
Сделав круг, запускаем второй скрипт стоя недалеко от первого дерева из массива.
Скрипт оповещает о нападении, перевесе, отсутствии логов и подобном. Можете прикрутить реколл по руне для безопасности.
У меня в скрипте для ламбера используется F12 (LO WFT LT).

Первые пару кругов отслеживайте движения героя, он может застревать. Если застрял, перепишите координату в файле куда пишется массив. По первости можете кинуть при беге кричалку координат и номера дерева, чтоб легче было искать. Также для теста можно временно вырубить в скрипте полную вырубку дерева, а оставить один удар и бежать дальше.

Скрипт:

set #ms 0
set #x 0
Set #tx 37
set $AllCoords C:\AllCoords.txt
Load_array %AllCoords $AllCoords
wait 3s

While #tx > 0
set #ms #ms + 1
set #tx %AllCoords [#ms 2] 
end_while
set #ms #ms - 1

:repeat
if #x = #ms
set #x 0
msg Круг!
pause_script
end_if
set #x #x + 1
set #TargetX %AllCoords [#x 2]
set #TargetY %AllCoords [#x 3]
set #TreeX %AllCoords [#x 4]
set #TreeY %AllCoords [#x 5]
Gosub Char_go
if_not (#TreeX = 0) and (#TreeY = 0)
Gosub LumberJack
end_if
goto repeat

:Char_Go
set #dx 1
set #dy 1
while_not ( #dX = 0 ) and ( #dY = 0 )
set #dx #TargetX - charposx
set #dy #TargetY - charposy
if #dx > 0
if #dy > 0
send Down
end_if
if #dy < 0
send Right
end_if
if #dy = 0
send PageDown
end_if
end_if
if #dx = 0
if #dy > 0
send End
end_if
if #dy < 0
send PageUp
end_if
end_if
if #dx < 0
if #dy > 0
send Left
end_if
if #dy = 0
send Home
end_if
if #dy < 0
send Up
end_if
end_if
end_while
return

:LumberJack
set $l1 There are no logs left here to chop.
set $s5 Targeting Cancelled
set lasttargetkind 3
set lasttargetx #TreeX
set lasttargety #TreeY
set timer
:Lumber
send f12 200  /lo wft lt
if wght > 500
msg Перевес!
pause_script
end_if
if lastmsg = $s5
msg Капча
pause_script
end_if
if hits < str
say guards
msg Бьют!
pause_script all
end_if
while_not (lastmsg = $l1) or (timer > 50000)
goto Lumber
end_while
return

Скрипт сложный, но кому надо вникнете.

Добавлено через 1 минуту

Сообщение от The Egoist

Почему-то не работает проверка хп. Просто постоянно хилиться пытается. Не знает кто, что не так?

Так строка провки закомментена. Уберите // перед строкой.

[Mitridat]

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

всем привет!
не пойму, что не так со скриптом:

выкапывает с одного тайла всю руду и тупо в него же долбится.
перебрал версии пилота - 2.17/2.14/2.12/2.07 - эффекта ноль...


отбой, разобрался

Как разобрался? Подскажи, у меня пилот так и не читает УО

[SUSLIK_BOMBA]

Кто качал Таминг этим скриптом
[PHP]// Taming by Sindoatan. Based on Taming (c) by diss

set $btnRel F6 // кнопка с say+all_release в клиенте
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха
set #k 10 // кол-во обтамливаемых скотинок
set #korm 0 // если надо запускать скрипт подкормки зверья ставим 1. если нет 0.
set #kb 5 // номер потока со скриптом подкормки зверья
set #blEda 0 // если надо себя кормить, то ставим 1, иначе 0
set $btnEat M // кнопка с LastObject в клиенте
set #eda 123456789 // ИД еды для себя
set #lag 2000000 // время на забывание зверем хозяина


set %arr[1] 1273244 // ID'шники скотинок
set %arr[2] 1325790
set %arr[3] 1237673
set %arr[4] 1138080
set %arr[5] 1226926
set %arr[6] 1278290
set %arr[7] 1267169
set %arr[8] 1311898
set %arr[9] 29713
set %arr[10] 1088780

//--------------------------------

set #zh #k +1
set $remember remembers
set $success accept
set $tamed already tame
set $failed fail
set $hungry hungry
set $far far away
set $skill changed
set $wait you must wait
set $cant see the target


:loop
set #a 1

while #a < #zh
if #blEda = 1
set lastobjectid #eda
send $btnEat
end_if
send $btnRel //say all release
set lasttargetid %arr[#a]
set #q 0
:repeat
set #q #q +1
if #q > 100 // Тамим до последнего, но это на всякий случай
goto next
end_if
set #i 0
send $btnUse
wait 1000
if lastmsg already
goto next
end_if
say zЗверушка #a, попытка #q, время timer
while_not lastmsg $success
if (lastmsg $failed) or (#i > 3)
goto repeat
end_if
repeat 10
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return)
send {Tab}
say Ждемс
wait 25s
goto repeat
end_if
wait 200
end_repeat
if (lastmsg = $wait) or (lastmsg = $cant) or (lastmsg = $hungry) or (lastmsg = $skill) or (lastmsg = $remember) or (lastmsg = $tamed) or (lastmsg = $far)
goto next
end_if
set #i #i +1
end_while
:next
set #a #a +1
if #a = 2
set timer
end_if
end_while
while timer < #lag
wait 20s
set #k #lag - timer
say Обождите #k
end_while
if #korm = 1
start_script #kb
wait 10s
end_if
goto loop


// Меняем кнопки/задержи/идшники в верхней части скрипта. В основной части копаться не
//обязательно. Обязательно ставим галку в опциях клиента в правой верхней вкладке у
//строки про TAB. Скрипт может тамить, менять палки, есть, кормить и ждать столько
//сколько нужно (и не более необходимого).
\
Подскажите он у меня тамит всю указанную живку, а потом ничего не делает. Подскажите что подправить чтоб он начал заново прогонять данный макрос

[MODO]

set #lag 2000000 // время на забывание зверем хозяина

[SUSLIK_BOMBA]

спс за подсказку, а за какой временной период животное забывает хозяина?

[MODO]

2000000 - это примерно пол часа.

[SUSLIK_BOMBA]

Подскажите. Когда я тамлю лам за Гз, за каждую дают проценты кача таминга. А те которые стоят у меня в доме, на которых я качаю таминг. Из 12 только дают за 3-4 повешение таминга. Может необходимо вынести их всех за Ам зону дома. Тогда может прокачка пойдет быстрее?

[MODO]

Суть не ам, а в том что неоднократно прирученные животные привыкают к хозяину и на них умение растет хуже чем на новых животных по миру. Как с этим бороться? Достаточно взять всего одну ламу и после приручения сесть и слезть, либо свернуть и развернуть животное. После этой операции животное обновляется, у него меняется серийный номер, обнуляется связь с хозяином, и на таком звере умение растет как положено. Только нужно запастись едой, так как после каждого цкла сел/слез у животного уменьшается сытость на единицу. В последующем с лам переходить на лошадей смысла нет, скорость не увеличится.

[SUSLIK_BOMBA]

Спс за информацию, проще бегать по загонам и тамить там.

[Keyser Soze]

Нет ли у кого скрипта на перекладывание вещей из мешка в мешок ? Есть 100+ мешков с регами, нужно все сложить в один. Например, указал таргетом мешок для last target id, оттуда по item type id вытаскивается содержимое (оно как правило одинаковое) и кладется в общий мешок с постоянным id. Как-то так.
------------------------------------
Уже не надо - сам написал.

[SavE]

как качать боукрафт с 90 на ассисте через вкладку крафтер

[Silvestrs]

выбираешь бовкрафт, указываешь один мешок где лежат шафты и перья, далее второй мешок куда перекладывать и в строке количество сколько брать укажи "7"

[SavE]

пацаны,как карпу качать?сколько логов вообще надо ?

[MODO]

Логи в пак перевесом, и делаешь рубанки.

[Boriska]

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

пацаны,как карпу качать?сколько логов вообще надо ?

На фв ассисте вкладку Crafter открываешь , там выбираешь скилл карпентри и там 1 строчка делать рубанки , чуть правее resourse bag (указываешь мешок где лежат логи , bag for craft result (указываешь мешок куда рубанки складывать будет) ну и количество логов (вроде 4 на рубанок ) указываешь в строке Grab res count .ну и пилу в пак , будет сам логи брать при перевесе скидывать в мешок , и так пока не закончатся логи . А вот сколько чтот не засекал 40-50к логов наверн , но не точно , вроде немного !

[SavE]

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

На фв ассисте вкладку Crafter открываешь , там выбираешь скилл карпентри и там 1 строчка делать рубанки , чуть правее resourse bag (указываешь мешок где лежат логи , bag for craft result (указываешь мешок куда рубанки складывать будет) ну и количество логов (вроде 4 на рубанок ) указываешь в строке Grab res count .ну и пилу в пак , будет сам логи брать при перевесе скидывать в мешок , и так пока не закончатся логи . А вот сколько чтот не засекал 40-50к логов наверн , но не точно , вроде немного !

За***сь обьяснил,благодарю

[illusory]

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

пацаны,как карпу качать?сколько логов вообще надо ?

[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!] тут есть конкретные цифры
У меня ушло 144к

[SavE]

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

[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!] тут есть конкретные цифры
У меня ушло 144к

жесть,у меня 30к на 95.4 с 30)

[illusory]

Скоро наверное прокачка до 100% будет с 1к ресов.

[Brrrra]

Поделитесь пожалуйста рабочим макросом на таминг, и подскажите как качать с 30 % . То что в поиске находил - не работает. Может что-то не так делаю. Подскажите. Спасибо заранее .

[Chert]

Помнится давным давно качался этим скриптом выше же он есть, чем смотришь?
качай с 30 на овцах, потом ламы после 40 и потом коней, но слышал, что разницы особой не наблюдается, что коней тамишь, что лам...
// Taming by Sindoatan. Based on Taming (c) by diss

set $btnRel F6 // кнопка с say+all_release в клиенте
set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха
set #k 10 // кол-во обтамливаемых скотинок
set #korm 0 // если надо запускать скрипт подкормки зверья ставим 1. если нет 0.
set #kb 5 // номер потока со скриптом подкормки зверья
set #blEda 0 // если надо себя кормить, то ставим 1, иначе 0
set $btnEat M // кнопка с LastObject в клиенте
set #eda 123456789 // ИД еды для себя
set #lag 2000000 // время на забывание зверем хозяина


set %arr[1] 1273244 // ID'шники скотинок
set %arr[2] 1325790
set %arr[3] 1237673
set %arr[4] 1138080
set %arr[5] 1226926
set %arr[6] 1278290
set %arr[7] 1267169
set %arr[8] 1311898
set %arr[9] 29713
set %arr[10] 1088780

//--------------------------------

set #zh #k +1
set $remember remembers
set $success accept
set $tamed already tame
set $failed fail
set $hungry hungry
set $far far away
set $skill changed
set $wait you must wait
set $cant see the target


:loop
set #a 1

while #a < #zh
if #blEda = 1
set lastobjectid #eda
send $btnEat
end_if
send $btnRel //say all release
set lasttargetid %arr[#a]
set #q 0
:repeat
set #q #q +1
if #q > 100 // Тамим до последнего, но это на всякий случай
goto next
end_if
set #i 0
send $btnUse
wait 1000
if lastmsg already
goto next
end_if
say zЗверушка #a, попытка #q, время timer
while_not lastmsg $success
if (lastmsg $failed) or (#i > 3)
goto repeat
end_if
repeat 10
if (lastmsg old) or (lastmsg Loved) or (lastmsg again) or (lastmsg return)
send {Tab}
say Ждемс
wait 25s
goto repeat
end_if
wait 200
end_repeat
if (lastmsg = $wait) or (lastmsg = $cant) or (lastmsg = $hungry) or (lastmsg = $skill) or (lastmsg = $remember) or (lastmsg = $tamed) or (lastmsg = $far)
goto next
end_if
set #i #i +1
end_while
:next
set #a #a +1
if #a = 2
set timer
end_if
end_while
while timer < #lag
wait 20s
set #k #lag - timer
say Обождите #k
end_while
if #korm = 1
start_script #kb
wait 10s
end_if
goto loop

[Brrrra]

спасибо,попробую
а какой версии пилот нужно использовать?

[Chert]

любой, как по мне самый стабильный 2,0,7
но иногда приходится подбирать...

[SavE]

Расскажите плс,как бс через ассист качать через вкладку крафтер???

[gostik]

а что там подсказывать? кинул руды, молоток в руки а нажал старт... при желании - откуда взять и куда ложить поставил и все...

[MODO]

Зачем тебе крафтер? Закинул на чара весь айрон что есть, и включил макрос на тонги. Экономишь время на перемещение туда-сюда всего.

[eterrr]

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

самый простейший макр на таминг

//F2 - last object, lasttarget - в клиенте
//F5 - TargetNext также в клиенте
//строки сообщений
set $f1 You fail to tame the creature
set $f2 too far away
set $f3 cant see
set $f4 too far away
set $f5 Taming
set $f6 приручать
set $f7 tame hungry
set $a1 accept
set $a2 Your skill
set $a3 already
set $a4 You see
set $a5 broken



//не смог приручить, пробуем еще раз.
if lastmsg $f1
send f2
end_if

//эту зверушку приручать нельзя, пробуем следующую
if lastmsg $f2
send f3
send f2
end_if

if lastmsg $f3
send f3
send f2
end_if

if lastmsg $f4
send f3
send f2
end_if

if lastmsg $f5
send f3
send f2
end_if

if lastmsg $f6
send f3
send f2
end_if

if lastmsg $f7
send f3
send f2
end_if

//приручили, отлично, отпускаем, берем следующую
if lastmsg $a1
say
say all release
send f3
send f2
end_if

if lastmsg $a2
say
say all release
send f3
send f2
end_if

if lastmsg $a3
say
say all release
send f3
send f2
end_if

if lastmsg $a4
send f3
send f2
end_if

if lastmsg $a5
send f3
send f2
end_if

//эта сволочь нас уже знает, дальше тамить бессмысленно, переходим в вар мод и из него чтобы сбросить процесс таминга и начинаем тамить следующую.
if lastmsg friend
send {tab}
wait 100
send {tab}
wait 100
say
say Damn!!!
send f3
send f2
end_if

//из-за лага остались в вармоде.
if lastmsg peace
send {tab}
wait 100
send f2
end_if

//это на случай если скрипт собьется почему-то. Если вокруг дома бродит куча животных, это можно доработать, или хотя бы уменьшить задержку до 5000.
if timer > 30000
say
say all release
send f3
send f2
set timer
end_if

Подскажите пожалуйста, почему пилот и клиент никак не реагируют на макр?

[Boriska]

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

Подскажите пожалуйста, почему пилот и клиент никак не реагируют на макр?

мб в пилоте версия клиента не та по умолчанию , у меня 1,26,4b стоит когда запускаю , меняю на 2,0,3 и макры начинают работать . (это во вкладке Ещё )

[Tugarin]

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

Подскажите пожалуйста, почему пилот и клиент никак не реагируют на макр?

Лично у меня не определяет кирилицу...
Повторю свое сообщение отсюда ([Только зарегистрированные пользователи могут видеть ссылки. Регистрация!])

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

У меня кирилица не работает. И я не вижу смысла проверять сообщения так, как в приведенном скрипте.

Вариант 1 (простой)

say all release
send f9 //таргет некст
wait 100
send f8 //использование палки по ласттаргету
if lastmsg tame hungry
say ЖРАТЬ ДАВАЙ
end_if
if lastmsg remembers
goto Pause
end_if
wait 20000
:Pause
wait 700000 // подбирается время полного забывания
При первом варианте, если ты попадаешь на себя, просто подождешь 20 секунд и скрипт пойдет дальше.

Вариант 2 (продвинутый)

set #k 15 //количество животных
// Формирование массива
set %m[1] 111111 // ИД животного (через УО пилот)
set %m[2] 222222
....
set %m[15] 151515
:TamingNext
while #k > 0
say all release
set lasttargetid %m [#k]
send f9 //использование палки по последней цели
wait 20000 // подбирается время таминга. Можно и по последнему сообщению, если ждать не хочется
set #k #k - 1
if tame hungry
say Кушать хочется
end_if
end_while
set #k 15
wait 700000 // подбирается время полного забывания
go to TamingNext
end_script
Но тут придется помучаться немного и записать ИД каждого животного. Но зато будет работать на ура

[KDbled]

Поломка антимакроса.
Экран должен быть открыт. Версия пилота посвежее.
Применяется как модуль к другим скриптам.


set $Path C:\
set $exp .bmp
set #acc 80
set #step 300
set #p 0
:begin
set #n 0
set $name ams
set #startX 0
set #startY 0
set #endX 640
set #endY 480
return
:find
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name$exp) %crds 2 #acc 1 0 abs)
if $c > 0
pause_script 0
set #x %crds[1 1]
set #y %crds[1 2]
set $name c
:findfor
if #p = 1 and #startX = 0
set #p 0
set #startX #x
set #startY #y + 34
set #endX #x + 128
set #endY #y + 88
end_if
if #p = 0 and #startX = 0
set #p 1
set #startX #x - 63
set #startY #y + 34
set #endX #x + 3
set #endY #y + 86
end_if
return
For #n 1 8 1
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name#n$exp) %crds 2 #acc 1 0 abs)
if $c > 0
set #startX #x - 63
set #startY #y + 105
set #endX #x + 132
set #endY #y + 210
wait #step
set $c findimage (#startX #startY #endX #endY ($Path$name#n$exp) %crds 2 #acc 1 0 abs)
set #x %crds[1 1]
set #y %crds[1 2]
wait #step
move #x #y
wait #step
left #x #y
if #p = 0
goto findfor
else
goto begin
end_if
end_if
end_for
else
goto find
end_if
resume_script 0
goto begin



Ссылка на картинки, надо распаковывать на диск C: [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]

[Bocxoq]

И рабочая? Что-то не выходит её настроить

Прокачивал себе кампинг и написал простенький скрипт, может кому пригодиться.

6к хвороста и 2 часа времени с 30 до 100
качаем его с плота, почему-то костры разводятся на воде и вместе с плотом не передвигаются, так что можно этим воспользоваться.

drag 507, 384 583, 370 1 // откуда куда перекладывать по 1 хвороста
double_kleft 576, 366 // координаты одинарной кучки хвороста
if lastmsg the ground
say forward right
wait 1000
say stop
end_if