Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 21.11.2017, 16:05   #987
SUSLIK_BOMBA
Expert Player
 
Регистрация: 06.10.2010
Сообщений: 359
Репутация: 16 [+/-]
на правильном пути (от 16 до 25)
SUSLIK_BOMBA на правильном пути (от 16 до 25)
Чар: SUSLIK BOMBA
По умолчанию Re: МАКРОСЫ

Кто качал Таминг этим скриптом
[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. Скрипт может тамить, менять палки, есть, кормить и ждать столько
//сколько нужно (и не более необходимого).
\
Подскажите он у меня тамит всю указанную живку, а потом ничего не делает. Подскажите что подправить чтоб он начал заново прогонять данный макрос
SUSLIK_BOMBA вне форума   Ответить с цитированием