Тема: МАКРОСЫ
Показать сообщение отдельно
Re: МАКРОСЫ
Старый 29.01.2011, 09:42   #190
p3ps1
Newbie
 
Регистрация: 20.01.2011
Возраст: 36
Сообщений: 1
Репутация: 1 [+/-]
имеет нулевую репутацию
p3ps1 имеет нулевую репутацию
Чар: Candy Or DeaD
По умолчанию 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. Скрипт может тамить, менять палки, есть, кормить и ждать столько
//сколько нужно (но не более необходимого).

[/PHP][/QUOTE]
Подскажите как тут мне выставить Id Овец... я просто не знаю как смотреть Id
p3ps1 вне форума   Ответить с цитированием