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 set %arr[1] 325670 set %arr[2] 290766 set %arr[3] 319221 set %arr[4] 290083 set %arr[5] 360029 set %arr[6] 438701 set %arr[7] 18143 set %arr[8] 333052 set %arr[9] 747836 set %arr[10] 289412 set #cycle_cnt 0 :loop set #a 1 while #a < 11 set lastobjectid 1234567890 // ИД еды для себя send F5 // lastobject set lastobjectid 1234567899 // ИД зеленой палки say all release set lasttargetid %arr[#a] :repeat send F5 // lastobject wait 1000 send F4 // lasttarget wait 1000 while_not lastmsg $success set $oldmsg lastmsg if lastmsg $failed goto repeat end_if wait 5000 if lastmsg $wait goto next end_if if lastmsg $cant goto next end_if if lastmsg $hungry goto next end_if if lastmsg $skill goto next end_if if lastmsg $remember goto next end_if if lastmsg $tamed goto next end_if if lastmsg $far goto next end_if if lastmsg $oldmsg set #cycle_cnt #cycle_cnt + 1 if #cycle_cnt > 2 set #cycle_cnt 0 goto next end_if else set #cycle_cnt 0 end_if end_while :next set #a #a +1 end_while goto loop Чтобы его использовать, надо снять со своих овец массив их targetID. Для этого берем бучер и стрижем их по очереди, после каждой стрижки смотрим в пилоте в char parameters число напротив надписи LastTargetID, и вносим его в массив. Перед запуском скрипта кормим овец (каждой штук по 7-10 мяса, ну или можно соломки), 1 раз используем таминг руками - и вперед. Фак для продвинутых юзеров: 1) зачем весь этот блок: if lastmsg $oldmsg... - во избежание зацикливания на некоторых сторонних сообщениях, не имеющих отношения к тамингу. Т.е. если скрипт в какой-то момент "слетит", он вскорости самовосстановится, и продолжит таминг. 2) почему две кнопки на last object и last target, а не одна: last object - wait for target - last target? - сам не знаю. Так получалось, что если делать одну кнопку, иногда все слетало. Собстна, всё =) |