Анимал Таминг (animal Taming), под абис(на других сервах не тестил) Опции

[Mike L]

Пробовал только на Абусе.

Скрипт работает так: ходит по кругу в Еве, палкой херда подзывает животное, потом палкой таминга пытается ее затамить. Начальная точка круга пути 550 1066 по координатам. Первый скрипт основной, второй ходьба. Запускаются вместе. Пилот 2.14 и выше, добавить прямо в папку. В паке надо иметь палку таминга Tamers Crook и простую Crook для хердинга.

В ультиме добавить макросы
f10 - TargetNext
f11 - LastObject - Wft - LastTarget - Wft - TargetSelf
f12 - LastObject - Wft - LastTarget

В основном скрипте (0 вкладка) надо заменить ID палки таминга (set #tcrook 1099155305) и ID палки для хердинга (set #crook 1099435501) на свои.

Цикл ходьбы можно поменять на свой, предварительно записав. Хранится путь в файле way_one.txt и представляет собой столб цифр из кординат. Чтобы начать запись пути, в скрипте 2 (walk.txt) надо поменять параметр record на 1, после чего запустить скрипт и сказать в игре record. Идти при записи пути надо пешком желательно не на лошади. После проделанного круга написать в ультиме stop. Затем надо поменять параметр record на 0.

[GashisH]

Есть проблемка с этим скриптом .. Все работает - ходит, тамит. Но при попытке записать свой путь выдает ошибку "(34): Ошибка! Проверьте правильность скрипта! EInOutError". Заранее спасибо.

скрипт

Код

set #record 1

if #record = 0
goto _play
end_if

:_record
set #step 2
set timer
while_not lastmsg "record"
end_while
wait 500
say * start recording

:_set
set #wayx charposx
set #wayy charposy
set %way[#step 1] charposx
set %way[#step 2] charposy
while (#wayx = charposx) and (#wayy = charposy)
if lastmsg stop
goto _save
end_if
end_while
if timer > 1000
say * step #step
set timer
end_if
set #step #step + 1
goto _set

:_save
set %way[1 1] #step
set %way[1 2] 0
save_array %way 1 1 #step 2 way_one.txt

wait 500
say * record finish. numbers of steps #step
end_script

:_play
set #destx 0
set #desty 0
load_array %nstep 1 1 1 1 1 1 way_one.txt
set #nstep %nstep [1 1]
load_array %way 1 1 1 1 #nstep 2 way_one.txt

:_loop
for #step 2 #nstep 1
set #destx %way [#step 1]
set #desty %way [#step 2]
gosub _go
end_for
goto _loop

end_script


:_go

send enter 

while_not charposx = #destx and charposy = #desty


if  #destx > charposx and #desty > charposy
send down
end_if

[WingsFree]

А можете выложить тоже самое, только в комплекте с пилотом ? На разных версиях начиная от 2,14 работает по разному. В последних версиях пилота ругается на код, в версии 2.14 макрос тайминга стоя на месте работает нормально, макрос шага обычно после сделанного круга (редко и до завершения круга) сбивается и стоит на месте прокидывает до бесконечности некст таргет. макрос записи своего пути ошибку не выдает, показывает количество сделанных шагов, но и в файл ничего не записывает.