Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 29.05.2016, 13:13   #949
san4o
Junior Player
 
Аватар для san4o
 
Регистрация: 27.07.2009
Сообщений: 185
Репутация: 2 [+/-]
имеет нулевую репутацию
san4o имеет нулевую репутацию
Чар: Sanchoz
По умолчанию Re: МАКРОСЫ

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


set %arr[1] 1286331 // ID'шники скотинок
set %arr[2] 1317441
set %arr[3] 1289901
set %arr[4] 1295046
set %arr[5] 256260
set %arr[6] 166504
set %arr[7] 17364
set %arr[8] 1293326
set %arr[9] 1294884
set %arr[10] 1275415
set %arr[11] 79069
//--------------------------------

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. Скрипт может тамить, менять палки, есть, кормить и ждать столько
//сколько нужно (и не более необходимого).
Не пойму как настроить кормление скотинки, подскажите кто соображает!
Запускал его тамит 1 животное при этом пишет в чат какую то ересь постоянно, 1у обтамил и стоит ни чего не делает.
__________________
Sple@N(oman)-по жизни!!!

Последний раз редактировалось san4o; 29.05.2016 в 13:15..
san4o вне форума   Ответить с цитированием