МАКРОСЫ

[Andrey]

Народ честно устал в игре объяснять мелким игрокам про макросы. Желательно проверенные лично могу и сам проверить по просьбе. Решил создать тему. Выкладывайте кто что может. И по возможности описывайте децствия. А то попадаются такие люди что все разжовывать надо. И попрошу не флудить и не выражатся. типо тема была и все в таком духе. Еще одна просьба есть к администрации сделать эту тему как важная. Если получится и тема пойдет.

[AKA]

PHP код:

//----Хелинг,Магия,Медитация:----
//if hits < 150 // Проверка хитов
//send f6 // В ассисте биндим макрос Дабл клик на бинты, клик на себя
//wait 3000 // Задержка в три секунды
//end_if 
 
if mana < 100 // Ваше количество манны
send f7 // В Ультиме биндим Юз скилл медитация
wait 3000 // Задержка в три секунды
else // Иначе
repeat 10 // Если надо то повторяем каст магии 10 раз если нет то блокируем репит
send f5 // в Ультиме биндим Castspell>>Poison>>wait for target>>target self
wait 3000
end_repeat
end_if 


Добавлено через 3 минуты

PHP код:

//----Копаем на месте 25 таилов:----
// Копает на одном месте все тайлы до которых может дотянутся
// потом выдает сообщение об остановке скрипта
//send F3 4000 // Стелс или хайд 
for #y -2 2 1 
for #x -2 2 1
:mining 
set lasttargetx charposx + #x 
set lasttargety charposy + #y
set lasttargetkind 2 
send F2 1200 // ЛастОбжект-ВаитФорТаргет-ЛастТаргет 
set timer 0 
while (lastmsg do you want) and (timer < 10000) 
wait 100 
end_while 
if_not (lastmsg no ore) or (lastmsg mining in) or (lastmsg have no line) 
wait 500 
if (lastmsg you see) or (lastmsg targeting) or (lastmsg you have)// дает сигнал о том что появился гард руды или игрок и остонавливает скрип или антимакрос
alarm
flash
alarm
flash
alarm
flash
end_script
end_if
goto mining 
end_if
end_for
end_for
alarm
flash
end_script 


Добавлено через 20 минут

PHP код:

//----Картография----
//... Биндим 
//... F11 - LastSkill 
//... F9 - LastObject 
//... Перед запуском скрипта затариться 
//... хавкой и поесть до сыта. 
set #level 1 // - установка типа 
//... создаваемой карты от 1 до 4 
//... 1 - Detail Map 
//... 2 - Regional Map 
//... 3 - Sea Chart 
//... 4 - Full World 
set #havka lastobjectid 
set lastskill 12 
//...---------------- 
set #s 1 
:map 
send F11 2300 
if #level = 1 
double_left 63, 63 // -- Detail Map 
end_if 
if #level = 2 
double_left 109, 64 // -- Regional Map 
end_if 
if #level = 3 
double_left 152, 64 // -- Sea Chart 
end_if 
if #level = 4 
double_left 194, 64 // -- Full World 
end_if 
//...---- 
// if #level = 4 
// set #level 3 
// else 
// set #level #level + 1 
// end_if 
//...---- 
if #s = 10 
set lastobjectid #havka 
send F9 1000 
set #s 1 
end_if 
wait 2000 
set #s #s + 1 
if lastmsg have no blank parchment 
flash uo 
end_script 
end_if 
gosub map 
end_script 


Добавлено через 24 минуты

PHP код:

//----Локпикинг----
//скрипт на кач лукпикинга, в пак кидаем ключ от Locked Chest'а и отмычки
send 5 //кнопка в ассисте взламываем сундук отмычками, обязательно выставить Use Item Type
wait 3s
if lastmsg Container doesn't locked. //проверка взламали ли сундук
send 4 //кнопка в ассисте закрываем сундук ключем
wait 1s
end_if 


Добавлено через 30 минут

PHP код:

//----Поизон----
//срипт на кач пойзонинга, используем лессер пойзон и жареное мясо (или рыбные стейки)
drag 429,319 677,617 1 //берем 1 кусок мяса и кидаем в пак
wait 1s
drag 449,304 960,272 1 //берем 1 лессер пойзон и кидаем в пак
wait 1s
send 4 //кнопка в ассисте травить мясо, обязательно выставить Use Item Type и Target Item Type
wait 3s
repeat 2
move 675,585 //двигаем курсор на травленное мясо в паке
drag 675,585 429,369 //перетаскиваем из пака травленый кусок мяса
wait 1s
end_repeat
//координаты move должны быть такимиже как и первые координаты drag,
//чтобы во время сейва пак не перемещался вслед за курсором используется move,
//повтор (repeat 2) нужен чтобы во время сейва в паке не остался кусок мяса. 


Добавлено через 33 минуты

PHP код:

//----БоВКрафт----
//скрипт на кач боукрафта, делаем шафты
drag 432,316 959,256 7 //берем 7 логов и кидаем в пак
wait 1s
send 4 //кнопка в ассисте делать шафты, обязательно выставить Target Item Type
wait 4s
if wght > 550 //проверка на вес в паке
move 676,583
drag 676,583 428,368 all //перетаскиваем из пака все шафты
wait 1s
drag 456,343 663,617 2 //берем 2 шафта и кидаем в пак
end_if
//при весе пака больше 550, скрипт выкладывает все изготовленные шафты,
//координаты move должны быть такимиже как и первые координаты drag,
//2 шафта кидаем в пак в то место откуда потом будем их выкладывать, когда вес будет больше 550.
 
//делаем стрелы или болты
drag 433,319 958,258 5 //берем 5 шафтов и кидаем в пак
wait 1s
drag 451,296 958,258 5 //берем 5 перьев и кидаем в пак
wait 1s
send 4 //кнопка в асссисте делать стрелы, обязательно выставить Use Item Type
wait 2s
if wght > 550 //проверка на вес в паке
move 680,587
drag 680,587 429,368 all //перетаскиваем из пака все стрелы
wait 1s
drag 453,343 666,615 2 //берем 2 стрелы и кидаем в пак
end_if
//при весе пака больше 550, скрипт выкладывает все изготовленные стрелы,
//координаты move должны быть такимиже как и первые координаты drag,
//2 стрелы кидаем в пак в то место откуда потом будем их выкладывать, когда вес будет больше 550. 


[The Egoist]

Сообщение от AKA

PHP код:

//----Хелинг,Магия,Медитация:----
//if hits < 150 // Проверка хитов
................. 


Почему-то не работает проверка хп. Просто постоянно хилиться пытается. Не знает кто, что не так?

[AKA]

PHP код:

//----Кукенг----
drag 466,283 424,329 1 //1 бревно из кучи перетащить на место костра
wait 500
for #i 0 5 1 //пытаемся разжечь
double_left 424,329 
wait 500
end_for
if wght < 400
drag 442,248 399,264 120 //120 мяса на себя если не перевес
wait 500
end_if
while_not (lastmsg must cook) or (lastmsg can cook)
double_left 95,113 //мясо в паке
wait 500
left 422, 327 //таргет на костер
wait 2000
double_left 39,115 //поесть
end_while 


Добавлено через 57 секунд

PHP код:

//----Тинкер----
//скрипт на кач тинкира, делаем бутылки
drag 382,318 837,484 2 //берем 2 бутылки и кидаем в пак
wait 1s
drag 424,319 959,256 2700 //берем 2700 айрона и кидаем в пак
wait 1s
repeat 900 //повтор крафта, 1 бутылка = 3 айрона
send 4 //кнопка в ассисте делать бутылки, обязательно выставить Target Item Type
wait 6s
end_repeat
move 849,457
drag 849,457 432,368 all //перетаскиваем из пака все бутылки
wait 1s
//2 бутылки кидаем в пак в то место откуда потом будем их выкладывать,
//координаты move должны быть такимиже как и первые координаты drag. 


Добавлено через 3 минуты

PHP код:

//----Таилоринг----
//скрипт на кач тейлора, делаем паттерны
drag 382, 318 837,484 2 //берем 2 паттерна и кидаем в пак
wait 1s
drag 424,319 959,256 500 //берем 500 ткани и кидаем в пак
wait 1s
repeat 250 //повтор крафта, 1 паттерн = 2 ткани
send 4 //кнопка в ассисте делать паттерны, обязательно выставить Target Item Type
wait 4s //задержка на крафт
end_repeat
move 849,457
drag 849,457 432,368 all //перетаскиваем из пака все паттерны
wait 1s
//2 паттерна кидаем в пак в то место откуда потом будем их выкладывать,
//координаты move должны быть такимиже как и первые координаты drag,
//чтобы скрипт не сбивался все что кидаем в пак лучше брать с пола,
//скрипт можно переделать под крафт бланк скролов, для этого надо,
//поменять количество повторов, переписать макрос в ассисте, изменить задержку крафта. 


Добавлено через 4 минуты

PHP код:

//----Алхимия----
//скрипт на кач алхимии, делаем лессер хилы
drag 691,91 956,264 790 //берем 790 ГС'а из кучи и кидаем на себя
wait 1s
repeat 790 //ставим число повторов равное количесту ГС'а
send 5 //кнопка в ассисте делать лессер хилы, обязательно выставить Use Item Type
wait 8s
end_repeat
send 4 //кнопка в ассисте перелива зелий в кегу, обязательно выставить Target Item Type
wait 1s
//скрипт можно переделать под крафт других зелий,
//необходимо поменять количество регов которое кидаем в пак,
//число повторов и задержку после кнопки на крафт зелья. 


Добавлено через 7 минут

PHP код:

//----Таминг----
double_left 350, 220 -Кординаты палки на картинке игрока!
for #i 1 13 1
send F11 //target next
wait 500
send F12 //last object wait for target last target
wait 500
say
end_for
wait 10 min 


Добавлено через 11 минут

PHP код:

//----Аварийныи Реколл----
//////////////////////// by Crimson ///////////////////////////
 
// Занимать скрипт будет два окна в пилоте
 
//Окно № 1
 
if lastmsg You see:
stop_script 0 // номер окна где запущен макрос (например рубка или копка и тд)
start_script 2 // номер окна где будет скрипет самого рекола (приведу ниже)
alarm 
alarm 
alarm 
alarm 
alarm 
alarm 
alarm 
msg Замечен ПК, запущен скрипт аварийной эвакуации !!!
stop_script 
end_if
 
// Окно № 2
 
if charposx = 1236 //проверка координат места рекола
msg Мои поздравления!! мы соскачили от ПК :))
stop_script
else
send f3 // забинденый рекол
wait 3000
end_if
 
/////////////////////////////////////////////////////////////////////////////////////////////////
//Скриптом не пользовался! попробуите если Что Чем С могу тем помогу =) тежеловатыи В пониманий =) 


[Durchikk]

//----Аварийныи Реколл----
//////////////////////// by Crimson ///////////////////////////

// Занимать скрипт будет два окна в пилоте

//Окно № 1

if lastmsg You see:
stop_script 0 // номер окна где запущен макрос (например рубка или копка и тд)
start_script 2 // номер окна где будет скрипет самого рекола (приведу ниже)
alarm
alarm
alarm
alarm
alarm
alarm
alarm
msg Замечен ПК, запущен скрипт аварийной эвакуации !!!
stop_script
end_if

// Окно № 2

if charposx = 1236 //проверка координат места рекола
msg Мои поздравления!! мы соскачили от ПК )
stop_script
else
send f3 // забинденый рекол
wait 3000
end_if

/////////////////////////////////////////////////////////////////////////////////////////////////
//Скриптом не пользовался! попробуите если Что Чем С могу тем помогу =) тежеловатыи В пониманий =)
[/PHP][/QUOTE]

Куда и Как нада вставить скрипт чтобы если чё с шахты при виде постороних ников (Кроме Ор Гвардов) реколился?

[Sindo]

Вот накопал тут на форуме из своих постов. Найду архив со скриптами еще накидаю.

PHP код:

// Bowcraft by Sindo (Не http://forum.fwuo.ru/design/new/editor/justifycenter.gifтребует для использования ***ssist)
:start
set #f 0
drag 299, 271      846, 529     1 // берет 1 киндлинг из кучи №1 на земле и кладет в пак (для определения координат)
wait 400
REPEAT 85 // максимальное число повторов 85 обосновано весом выпадения итемов при 150 силы
    set #f #f + 1
    drag 283, 232    810, 514   7 // берет 7 логов с пола и кладет  в пак
    wait 400
    set #a lastliftedID
    set lasttargetID #a
    set LastTargetKind 1
    send F11 // LastObject/WFT/LastTarget в клиенте (даггер на логи в паке)
    wait 500 // задержка на появление/обновление меню крафта
    double_left 62, 66   // 1-е подменю крафта 
    wait 500 // задержка на появление/обновление меню крафта
    double_left 63, 66   // 2-е подменю крафта
    wait 5000 // пауза пока крафтит киндлинг 
    say #f
end_repeat
drag 847, 528    296, 268   all // выкладывает все готовые киндлинги в кучу №2 на полу
goto start

// перед запуском скрипта 1 раз использовать даггер на что угодно.
// задержки необходимо пересмотреть в зависимости от пинга ( у меня он ООООЧЕНЬ большой =( )
// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) киндлинг. именно по этой причине я разделил киндлинги на 2 кучи 


Если есть возможность использовать ассист, то заменить кусок

send F11 // LastObject/WFT/LastTarget в клиенте (даггер на логи в паке)
wait 500 // задержка на появление/обновление меню крафта
double_left 62, 66   // 1-е подменю крафта 
wait 500 // задержка на появление/обновление меню крафта
double_left 63, 66   // 2-е подменю крафта

на

 send F11 // макр в ассисте на крафт киндлингов

PHP код:

// прокачка магери, медитации и хилинга без ассиста by Sindo
set $lackreg lack reagents //сообщение о нехватке ресурсов для каста
set $war with thoughts // сообщение о нахождении чара в вар моде
set timer
:rep
// Каст спелла на себя
send F9 // в клиенте: CastSpell+Poison(Nightsight)/WFT/TargetSelf
if (lastmsg =$lackreg) // проверка на наличие регов для каста спелла
    Repeat 5
        alarm
        say Нет ресов
        wait 2000
    end_repeat
    pause_script
end_if
wait 2600 // задержка на каст спела
gosub PreventDeath
// Медитация при сильной потере маны
if mana < 10 // ограничение нормы маны ставить по своему усмотрению
    while mana < int
        send 5   // в клиенте: UseSkill+Meditaiton
        if (lastmsg = $war)
            send Tab // снять вар мод
        end_if
        gosub PreventDeath
        wait 3000 // задержка на одну медитацию
    end_while
end_if
// Подкормка
if (timer > 600000) // ест раз в 10 мин
    set lastobjecttype XXXXXXXXXXX // ИД мяса в паке
    send F2 // в клиенте: lastobject
    set timer
end_if
goto rep
// Отхиливание при ранении
:PreventDeath
if hits < 100 // ограничение нормы хп ставить по своему усмотрение
    while hits < str
        if hits = 0 // Оповещение о смерти
            Repeat 5
                alarm
                say Рес
                wait 2000
            end_repeat
            pause_script
        end_if
        set lastobjecttype NNNNNNNNNN // ИД бинтов в паке
        send F1  // в клиенте: lastObject/WFT/TargeSelf
        say Guards
        wait 4000 // задержка на хилл
    end_while
end_if
return

// перед запуском необходимо: 1) проставить итемтайп бинтов и мяса в паке ( юзнуть 1 раз бинты и, 
// посмотрев в пилоте в разделе ЧарПараметрс, вставить соответствующий набор цифр вместо NNNNNNN (мясо аналогично (ХХХХХХ)))
// 2) забиндить в клиенте кнопки в соответствии с указаниями напротив них 
// (кнопки можно забиндить другие, тогда в скрипте их соответственно следует изменить)
// 3) откорректировать задержки под свой пинг
// Принцип работы: Чар кастует на себя спелл через заданные промежутки времени,
// при этом проверяя колличество хп, маны и жив ли еще чел. если хп меньше 100,
// то он будет хилить себя пока значение хп не станет = значению силы. если мана станет меньше 10,
// то он будет медитировать пока она не сравняется по значению с интелектом.
// если чел умер (хп = 0), то пилот 5 раз пикнет и поставит скрипт на паузу.
// во время хилинга и медитации чел спелы не кастует.
// Во время работы скрипта необходимо чтобы был открыт статбар. 


[AKA]

PHP код:

//----Ручная Рубка----
//помогает не много таргет появляется и сам до рубливает дерево =)
set #rtimer 0 
set #msg 99 
 
while #msg <> 0 
if #msg = 2 
send F2 1000 //lastobject, waitfortarget, lasttarget 
else 
send F1 //lastobject 
while target = 1
wait 1000
end_while
//waitfortarget 5000 
end_if 
gosub 1 
end_while 
end_script 
 
:1 
 
set #timer timer 
 
while #rtimer < 30000 //время проверки результатов 1й рубки 
 
set #msg 99 
 
if lastmsg you put the logs in 
set #msg 2 
break 
end_if 
 
if lastmsg your skill in lumberjacking 
set #msg 2 
break 
end_if 
 
if lastmsg you hack at the tree for a while 
set #msg 2 
break 
end_if 
 
if lastmsg there are no logs 
break 
end_if 
 
if lastmsg you can't think of a way 
break 
end_if 


Добавлено через 50 секунд

PHP код:

//----Простенький Ламбер ----
//Макрос на ламбер пишется под определённую местность
//Если найдёшь делянку с деревьями в ряд, то можешь качать на примитивном макросе:
 
Цитата:repeat <длинна>
Send F7
wait 200
Send F8
wait 100
double_left point1
wait <задержка на 1 сруб>
end_repeat
repeat <длинна>
Send F9
wait 200
Send F8
wait 100
double_left point1
wait <задержка на 1 сруб>
end_repeat 
 
<длина> - количество шагов
point1 - дерево
<задержка на 1 сруб> - задержка на 1 удар топором
F8 - использовать топор
F7 & F9 - шагать в направлении 


[Виталёк]

[QUOTE=AKA;277627]

PHP код:

//----Ручная Рубка----
//помогает не много таргет появляется и сам до рубливает дерево =)
set #rtimer 0 
set #msg 99 
 
while #msg <> 0 
if #msg = 2 
send F2 1000 //lastobject, waitfortarget, lasttarget 
else 
send F1 //lastobject 
while target = 1
wait 1000
end_while
//waitfortarget 5000 
end_if 
gosub 1 
end_while 
end_script 
 
:1 
 
set #timer timer 
 
while #rtimer < 30000 //время проверки результатов 1й рубки 
 
set #msg 99 
 
if lastmsg you put the logs in 
set #msg 2 
break 
end_if 
 
if lastmsg your skill in lumberjacking 
set #msg 2 
break 
end_if 
 
if lastmsg you hack at the tree for a while 
set #msg 2 
break 
end_if 
 
if lastmsg there are no logs 
break 
end_if 
 
if lastmsg you can't think of a way 
break 
end_if 


Добавлено через 50 секунд

Не работает нихр*на, там и опечатки в словах и какие то проблемы с концом и началом цикла ! Кто шарит - разбиритесь пожалуйста ...

[Sindo]

Вариант 1 (качает только стелс)

send F1 // бинд на юз скилла
wait 300 // задержку в милисекундах сам подбери

Вариант 2 (качает одновременно хайд и стелс)
send F1 // бинд на юз хайда
repeat 3
send Left 200
end_repeat
send F1
repeat 3
send Right 200
end_repeat

PHP код:

// Poisoning by Sindo (Не требует для использования ***ssist) (beta)

set $fizl CCCCCCCCCC // сообщение возникающее при физле
set $alrpois CCCCCCCC // сообщение возникающее при попытке отравить уже отравленный кусок мяса
set #amount N // колличество банок и мяса (не в сумме), которые вы собираетесь использовать за одну загрузку (подбирать по весу)
set $msf XXX, YYY // координаты кучи свежего мяса (№1) на полу 
set $mp XXX, YYY // координаты мяса в паке
set $pf XXX, YYY // координаты пойзон банок на полу
set $pp XXX, YYY // координаты пойзон банок в паке
set $mpc XXX, YYY // координаты сундука для отравленного мяса
set #wdr KKK // задержки, стоящие после драгов. кооректировать по пингу
set #wwp KKK // задержка на отравление мяса
set #pt BBB // итемтайп пойзон банок
set $actbtn S // кнопка с биндом на LastObject в клиенте

set #amountm #amount // для коррекции кол-ва мяса при физлах
set #amountp #amount // для коррекции кол-ва банок при ошибке с отсутствием мяса
set #ft 0 // для информирования о процессе прокачки
set #iii 0 // счетчик фэйлов таргета мяса

:start

set #f 0 // для информирования о процессе прокачки
set #a 0 // для определения ласттаргета/обжекта
set #fizl 0 // индикатор и счетчик физлов
set #ft #ft + 1

repeat #amountm
    drag $msf $mp 1 // берет 1 кусок неотравленного мяса из кучи №1 на земле и кладет в пак 
    wait #wdr
end_repeat
drag $pf $pp #amountp // берет N банок лезер пойзона из кучи №2 с пола и кладет  в пак
wait #wdr
set #a LastLiftedID
set LastObjecttID #a
set LastObjectType #pt // итемтайп пойзон банок
set #amountp #amount

REPEAT #amount // столько раз, на сколько отравлений набрали ресов
    set #f #f + 1
    set #ii 0 // счетчик фэйлов таргета мяса
    :repoison
    set #i 0 // счетчик фэйлов таргета мяса
    send $actbtn // LastObject в клиенте
    WaitForTarget
    :retarget
    left $mp // координаты кучи неотравленного мяса в паке
    wait #wwp // задержка на отравление мяса
    if (target = 1) // проверки на наличие мяса в паке
        set #i #i + 1
        if (#i > 3)
            send Escape
            set #ii #ii + 1
            if (#ii > 2)
                set #iii #iii + 1
                if (#iii > 10)
                    gosub zopa
                end_if
                set #amountp #amount - #f
                goto start
            end_if
            goto repoison
        end_if
        wait 500
        goto retarget
    end_if
    if (lastmsg = $fizl)
        set #fizl #fizl + 1
        goto fizl
    end_if
    if (lastmsg = $alrpois)
        drag $mp $mpc 1 // утаскивает из пака в сундук отравленный кусок мяса
        goto repoison
    end_if
    drag $mp $mpc 1 // утаскивает из пака в сундук отравленный кусок мяса
    wait #wdr
    :fizl
    say Юз #f из #amount ( подход № #ft )
end_repeat

set #amountm #amount - #fizl

goto start

:zopa
    say Зопа
    repeat 5
        flash
        flash Sindo
        alarm
        wait 2s
    end_repeat
    pause_script
return

// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) кусок мяса. именно по этой причине следует разделять мясо на нескольколько кучек (положить из ондну на другую, нестакуя)
// в строках [set $* XXX, YYY] и заменяем XXX, YYY на относительные координаты в соответствии с комментариями
// в строках [set #w* KKK] заменяем KKK на задержку в милисекундах в соответствии с комментариями и вашим пингом
// в строке [set #pt BBB] заменяем BBB на итемтайп банок лезер пойзона
// в строке [set $actbtn S] заменяем S на кнопку с указанным в комменте биндом
// в строках [set {$fizl/$alrpois} CCCCCCCCCC] заменяем СССССС в соответствии с комментариzvb
// если не требуется проговаривать шаг цикла, удалить/закомментарить строку [say Юз #f из #amount ( подход № #ft )]
// в строке [set #amount N] заменяем N в соответствии с комментарием 


[AKA]

PHP код:

Резист И хелинг
:main 
//repeat 2 // сдесь ставиш скока стен кастовать под себя если хилинг ГМ можно 4 стены.
set #r 0 
send F9 3500 // CastSpel >> waitfortarget >> target selfl
//End_repeat 
 
:heal 
if hits < str 
send End //хилим себя, можно заменить на макрос 
set #r 0 
wait 3600 
goto heal 
end_if 
 
set #r #r + 1 
wait 1000 
if #r = 5 // переменная отвечает за ожидание 5 
//секунд, если в течение этого времени дамаг не был 
//нанесен, то считается, что действие филда 
//прекратилось 
goto medit 
else 
goto heal 
end_if 
 
:medit 
if hits < str //вдруг все таки лагануло и филд все еще 
//наносит дамаг, лишняя проверочка не помешает 
goto heal 
end_if 
if mana < int 
send Backspace //макрос медитации 
wait 2500 
goto medit 
end_if 
 
goto main 
end_script 


[Sindo]

PHP код:

 // Tailoring (с) Sindo (Не требует для использования ***ssist)

:start

set #f 0
set #a 0

drag 298, 266     298, 266    1 // берет 1 паттерн из кучи №1 на земле и кладет в пак (для определения координат)
wait 400
drag 665, 604    834, 557   N // берет N (подобрать по весу) кусков ткани с пола и кладет  в пак
wait 400

set #a lastliftedID
set lasttargetID #a

REPEAT N // столько раз, сколько вы взяли ткани
    set #f #f + 1
    send F11 // LastObject/WFT/LastTarget в клиенте
    wait 2000 // пауза на появления менюшки выбора изделия крафта
    double_left 242, 67    //  подменю крафта (картинка паттерна)
    wait 5000 // пауза пока крафтит паттерн 
    say #f
end_repeat

drag 911, 560    680, 566   all // выкладывает все готовые паттерны в кучу №2 на полу

goto start

// перед запуском скрипта 1 раз использовать сьюинг кит на что угодно.
// задержки необходимо пересмотреть в зависимости от пинга ( у меня он  ну ООООЧЕНЬ большой =( )
// в куче №1 долно быть не больше 1к итемов, иначе он не смогет оттуда взять 1(!) паттерн. именно по этой причине я разделил паттерны на 2 кучи 


Срипты с припиской Beta требует теста и, возможно, правки.

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. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (и не более необходимого). 


[p3ps1]

[

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. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (но не более необходимого). 


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

[Sindo]

Подскажите как тут мне выставить Id Овец... я просто не знаю как смотреть Id

Пилот->вкладка Еще->кнопка CharParametrs. В появившемся окне находим строчку LastTargetID. Берем ножницы (или подругому вызываем таргет) и кидаем таргет отних на первую овцу. Копируем цифры из найденной строки в окне параметров пилота в окно скрипта в соответствующую номеру овцы строку. Повторяем аналогично для всех овец. PROFIT.

[Evmixiy]

set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха

Как так сделать ? =) У меня либо 1 тамит, либо воопще ничего...

[Fluke01]

Сообщение от Evmixiy

set $btnUse F12 // кнопка с Object/LastTarget в ассисте с UseItemType посоха

Как так сделать ? =) У меня либо 1 тамит, либо воопще ничего...

Начинаешь запись макроса в асисте 2 раза кликаешь по таминг стафу, он берется в руку, потом нажимаешь Esc, чтобы таргет пропал или тыкаешь таргетом к кого-нибудь.
Потом юзе итем(посох) меняешь на юзе итем тип(любые посохи этого же типа), и таргет меняешь на ласт таргет.

[Evmixiy]

Сообщение от Fluke01

Начинаешь запись макроса в асисте 2 раза кликаешь по таминг стафу, он берется в руку, потом нажимаешь Esc, чтобы таргет пропал или тыкаешь таргетом к кого-нибудь.
Потом юзе итем(посох) меняешь на юзе итем тип(любые посохи этого же типа), и таргет меняешь на ласт таргет.

кнопка с Object/LastTarget в ассисте с UseItemType посоха.

[itsmajik]

[/PHP][/QUOTE]

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. Скрипт может тамить, менять палки, есть, кормить и ждать столько 
//сколько нужно (и не более необходимого). 


[/QUOTE]

Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья.

[KDbled]

Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья


Подкормка должна идти отдельно в скрипте под цифрой 5. Затем там же скрипт должен паузиться. То есть отдельный скрипт писать под кормёжку, как уже самому думать.

[sskrd]

Сообщение от KDbled

Народ, подскажите, как в этом скрипте запустить скрипт на подкормку зверья


Подкормка должна идти отдельно в скрипте под цифрой 5. Затем там же скрипт должен паузиться. То есть отдельный скрипт писать под кормёжку, как уже самому думать.

Подкормка ни что иное как перемещение еды командой drag
Только для этого животные должны в 1й точке стоять, а не бродить по загону.
И лучше включить кормежку в основной скрипт, допустим при удачном затаймливании, тогда и паузу ставить не надо.

[Andrey]

Здравствуйте молодые игроки нашего шарда. Я постараюсь вам объяснить как можно встать на прокачку и качать свой скил до ГМ.

1. Что нужно сделать. Скачать УО пилот ссылка на него находится на главной страниче сайта нашего замечательного сайта. Видите там наверху серенькую сточечку там вам надо нажать на слоао ФАЙЛЫ. затем когда страничка обновится вы увидите несколько строк там вам нужна строчка ВСПОМОГАТЕЛЬНЫЕ ПРОГРАММЫ. о них далее все расскажу.Пол=сле очеродного обновления страницы вам опять на выбор дадут несколько програм. Вам нужна строчка где написанно UO Pilot. в мое время (в дольнецшем может изменится) она находится в самом низу и версия 2.14.
2. Поздравляю вас вы скачали пилот. запускайте программу. Ярлычок у нее ввиде смайла. после ее запуска вам надо нийти слово СКРИПТ. Вот туда мы с вами и будем писать макросы.
3. Дальше я бы посоветовал вам скопировать ту часть текста (того скила) который вы хотите поставить на прокачку в скажем какой то текстовый редактор(WORD или обычный стандартный ВИНДОВСКИЙ БЛОКНОТ) просто чтобы 10 раз не искать а то вдруг потеряете.
4. После всего выше приведенного вам надо выделить текст и вставить его(текст) в окошко СКРИПТ.
5. Начнем с самого первоко скрипта (просьба к администрации выделите название скрипта други текстом) он называется ХИЛ МАГИЯ МЕДИТАЦИЯ. Вставили молодцы. Но я прошу заметить у вас параметры силы ловкости и магии должны быть 150 100 100. Если что то не прокачано пишите в личку помогу. ИЛИ в игре спросите АКА он обещал помочь.
6. Перейдем непосредственно к самому скрипт. Первая строчка проверяет наличие жизней (ХЕЛОВ) а вот далее вам надо сделать еще кое что.
7. Когда вы скачивали игру и вместе с УО АСИСТОМ вот он то нам и нуже если вы следовали инструкции(которая тоже находится на главной страничке) и сделали все правильно то при запускании игры у вас запускаются две программы. первая УО вторая АСИСТ. Нашли нажмите на нее и найдите вкладку со словом МАКРОС. Далее вам надо написать сам макрос. Он пишется таким образом.
8. Нажмите кнопочку RECORD(запись) теперь нажмите на бинты они додлжны находится в вашем паке(СУМКЕ) изображенной в правом нижнем углу экрана где изображен ваш игрок(чар). Нажали на бинтики теперь целью укажите непосредственно на чара или на его статус. Он тоже выводится на этой же картинке с вашим чаром только называется СТАТУС(STATUS). После того как вы все сделали вам надо опять переключится на окошко АСИСТА. Там вам надо нажать кнопочку стоп (STOP) поздравляю вас мы записали первый с вами МАКРОС. Но это еще не все далее вам надо нажать на вкладку КЛЮЧИ(KEYS) ну или кнопки. Там спомощю скрола вам надо найти строчку PLAY MAKROS 1. Это значит проиграть макрос но тут опять будте внимательны. В то время когда вы записывали с вами макрос внизу этого окошка показаны цифорки эти цифорки и означают порядковый номер макроса. Если вы записывали 15 макрос значит и проигрывать надо 15 макрос. Так вот вы нашли такую строчку теперь вам надо установить клавишу воспроизведения вашего макроса. Ну в данном случае стоит кнопка F6 но это можно и изменить на ваше усмотрение. Вот теперь у нас готов наш макрос идем далее.
9. А вот далее ва столкнетесь с другой преградой но ничего непроходимого нет. Вам надо на окошке вашего чара нажать кнопочку ХЕЛП (HELP) не бойтесь ГМа звать не будем. Вам нужно изображений выглядещее как полумесяц (ЛУНА) но помоему круговая стрелка(извените пишу с работы могу ошибится) там вам надо в кнопочках нажать ADD(добавить) в первой строчке ставим кнопку на которой будет у нас медитация в данном случае F7 после того у нас появляется следующая строчка в ней ищем USE SKILL(использовать скилл) тогда у нас дальше появляется еще одна строчка чуть ниже. И вот в ней мы ищем слово MEDITATION (медетация). после того как мы сделали надо нажать кнопочку APLY(применить) и потом ОК.
10. Но и на этом работа в данном окне не заканчивается все выше приведенное надо сделать еще и на кнопочку F5 но только с небольшими изменениями. вам надо будет поставить не использовать скилл а найти строчку CAST SPEL(сделать заклинание) соответственно во второй строче ищем слово поизон (POISON) яд чуть ниже стави словосочетание wait for target и спуститесь еще чуточку ниже и вы найдете еще одну строчку там вам надо поставить target self цельна себя и на этом пожалуй все незабудте применить изменения APLY.

Всегда ваш - SOKOL.

[Jerom]

Сообщение от Andrey

1. А вот далее ва столкнетесь с другой преградой но ничего непроходимого нет. Вам надо на окошке вашего чара нажать кнопочку ХЕЛП (HELP) не бойтесь ГМа звать не будем. Вам нужно изображений выглядещее как полумесяц (ЛУНА) но помоему круговая стрелка(извените пишу с работы могу ошибится) там вам надо в кнопочках нажать ADD(добавить) в первой строчке ставим кнопку на которой будет у нас медитация в данном случае F7 после того у нас появляется следующая строчка в ней ищем USE SKILL(использовать скилл) тогда у нас дальше появляется еще одна строчка чуть ниже. И вот в ней мы ищем слово MEDITATION (медетация). после того как мы сделали надо нажать кнопочку APLY(применить) и потом ОК.

Эээээ... Options а не Help. Кстати, классная тема. Давно мечтал разобраться с Пилотом, но все не решалсо, боюсь любого программирования, как огня

[Andrey]

А ты не бойся пробуй если что то поможем))))

[Superman]

Благодарб Ака за помощь в макрах!

PHP код:

//----Выкладываю макр на фишинг----
repeat 40 //цикл на 40 повторов
goto 1
:1
send 7 //Кнопка удочки по типу в асисте и таргет по релатив локации
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81 //координаты противоположного края плота(куда перс будет отходить) желательно плот 9х9
double_right 624, 81 
end_repeat
double_right 624, 81 
double_right 624, 81 
send tab //снимает непринужденность перса(посли хила бинтами не отвечает на атаку например)
send f1 //лук в руки
pause_script all //остановка скрипта на паузу, перс ждет атаки моба и убивает ответной стрельбой, после чего лутаете, встает на прежнее место и жмете на кнопку снятия с паузы а не на кнопку "play" иначе скрипт пойдет с начала
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81 
double_right 624, 81 
end_repeat
double_right 624, 81 
double_right 624, 81 
send tab
send f1
pause_script all
end_if
 
if lastmsg you fish a while
goto 1
end_if
 
say Come on, Fish =) //у тех, у кого макры забиты на f# могут эту строчку убрать
say right
wait 2000
say stop
end_repeat
 
say Come on, Fish =)
say back
wait 2500
say stop
 
 
repeat 40 //цикл на 40 повторов (едем обратно, но уже на тейл ниже)
goto 2
:2
send 7
135, 128 ait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81 
double_right 624, 81 
end_repeat
double_right 624, 81 
double_right 624, 81 
send tab
send f1
pause_script all
end_if
wait 2000
if lastmsg You see
repeat 3
alarm
double_right 624, 81 
double_right 624, 81 
end_repeat
double_right 624, 81 
double_right 624, 81 
send tab
send f1
pause_script all
end_if
 
if lastmsg you fish a while
goto 2
end_if
 
say Come on, Fish =)
say left
wait 2000
say stop
end_repeat
 
say Come on, Fish =)
say back
wait 2500
say stop 


Добавлено через 31 секунду

PHP код:

//----макрос на пойзон----
repeat 900
drag 384, 317 703, 668 1
wait 1700
while_not lastmsg = $pois
send f12 
wait 1700
drag 707, 658 421, 324 1
wait 500
end_repeat
end_while
alarm
alarm
 
//на пол перед собой кучу жареной рыбы в паке лесирпойзоны
//F12-в асисте записываем макр травить рыбу и меняем на use item type и target item type
//drag1 - это откуда и куда и сколько перетаскивать жареной рыбы
//drag2- это откуда и куда перетаскивать пойзоненую рыбу
//Скрипт будет перетаскивать с пола 1 рыбу в пак травить ее и ложить в пак на полу.
 
//Скрипт работает нормально , сбиваеться только при сейвах и будет постоянно сбиваться при сейвах так как присутствует перетаскивание. 


Добавлено через 2 минуты

PHP код:

//---- макрос на таминг ----
set $remember The Sheep remembers you 
set $master It seems to accept you as master 
set $player Вы не можете приручать игроков.
set $alredy This creature already tame
repeat 6
say all release 
wait 600
end_repeat
:1
send 8 // F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember or $master or $player or $alredy
if lastmsg The Sheep remembers you 
goto NeXT 
end_if 
if lastmsg It seems to accept you as master 
goto NeXT 
end_if 
if lastmsg Вы не можете приручать игроков.
goto NeXT 
end_if 
if lastmsg This creature already tame
goto Neploxo
end_if 
if lastmsg You fail to tame the creature.
goto 1
end_if 
if lastmsg Animal Taming changed now
goto NeXT
end_if 
if timer > 40000
gosub next
end_if
 
end_while
if timer > 5000
goto next
end_if
:NeXT 
say all release 
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release 
wait 1s
end_repeat
goto 1 


[Akad3m1k]

Сообщение от Superman

Добавлено через 2 минуты

PHP код:

//---- макрос на таминг ----
set $remember The Sheep remembers you 
set $master It seems to accept you as master 
set $player Вы не можете приручать игроков.
set $alredy This creature already tame
repeat 6
say all release 
wait 600
end_repeat
:1
send 8 // F12 LastObject+wait for target+TargetLast
set timer
while_not lastmsg $remember or $master or $player or $alredy
if lastmsg The Sheep remembers you 
goto NeXT 
end_if 
if lastmsg It seems to accept you as master 
goto NeXT 
end_if 
if lastmsg Вы не можете приручать игроков.
goto NeXT 
end_if 
if lastmsg This creature already tame
goto Neploxo
end_if 
if lastmsg You fail to tame the creature.
goto 1
end_if 
if lastmsg Animal Taming changed now
goto NeXT
end_if 
if timer > 40000
gosub next
end_if
 
end_while
if timer > 5000
goto next
end_if
:NeXT 
say all release 
send 9
wait 500
goto 1
:neploxo
repeat 4
say all release 
wait 1s
end_repeat
goto 1 


И че это за описание скрипта? Кнопка 8 что у тебя значит? А кнопка 9 ? Люди которые первый раз всё это дело видят НЕ догадаются что 8 это ло,лс. а 9 это таргет некст. Боже мой.

[Fluke01]

Самый главный скрипт при прокачке забыли

PHP код:

//Гвардилка, когда убить хотят
if hits < str
say  guards //2 пробела после say
send f1 //кнопка лечения в асисте
wait 1000
say  guards
wait 1500
end_if 


Настройка UOPilot
В меню "Настройки", устанавливаем галочку на "Отображать запущенные скрипты"(синеньким выделятся будут) и на "сохранять настройки при выходе".
Снимаем галочку на "Отображать ход выполнения скрипта"(проц меньше загружен будет).

Закладка "Скрипт"
Внизу + и -, + добавляет еще одно окно скрипта, сверху есть W, в ней нужно выбрать активное окно УО, это важно для работы скриптов, если запущено несколько окон УО.
После добавления скрипта, сохраните его, тогда после запуска пилота они будут открываться.

Закладка "Еще", "Пауза между строк" ставим 0
Нажимаем "Edit HotKeys"
Назначаем там кнопку на принтскрин, можно еще на автомув
Справа внизу, можно назначить горячие клавиши на скрипты.

[Sindo]

Поправил и доработал резист, сейчас сам им качаю. Вот результат:

PHP код:

////////////////////////////////Resist by Sindo
//каст стенки и лечение во время ходьбы (1/3) (c ассистом)
/////////////////////////////////
set $westbtn j// walk+west
set $eastbtn l// walk+east
set $southbtn k // walk+south
set $ffcastbtn f9// CastSpell+FireField/WFT/TargetSelf
set $healbtn F11 // лечение бинтами через ассист
set #healwait 2900// задержка на отхиливание с бинта
set #ffcastwait 2000// задержка на каст фаерфилда
set #2scr 4// номер потока со скриптом ходьбы по стенке


set #worky charposy
set timer

:f

if hits < 150
    send $healbtn
end_if

set #h 150 - hits
wait #healwait

if (hits = 150)  and (#h = 0) or (timer >= 100000) 
    stop_script #2scr
    repeat 10 // начало выравнивания (выравнивается упираясь в западную стену дома, ходя паралельно южной)
        send $westbtn
        wait 200
    end_repeat
    repeat 4
        send $eastbtn
        wait 200
    end_repeat // конец выравнивания
:recast
    if charposy = #worky
        set timer
        send $ffcastbtn
        wait #ffcastwait
        if (lastmsg fiz)
            goto recast
        end_if
        start_script #2scr
    else
        repeat 3
            send $southbtn
        end_repeat
        goto recast
    end_if
end_if

goto f 


PHP код:

///////////////////////////////////Resist by Sindo
//ходьба по стенке (2/3)
///////////////////////////////////
// межстрочная задержка 100
set $westbtn j // walk+west
set $eastbtn l // walk+east


repeat 4
    send $westbtn
    wait 50
end_repeat

:rep

repeat 7
       send $eastbtn
end_repeat

repeat 7
    send $westbtn
end_repeat

goto rep 


PHP код:

//////////////////////////////////Resist by Sindo
//отход если мало хп (3/3)
//////////////////////////////////
// межстрочная задержка 20
set #2scr 4 // номер потока со скриптом ходьбы по стенке
set $northbtn i // walk+north
set $southbtn k // walk+south


set #a 0

:start

if (hits < 60) and (hits >= 1)
    pause_script #2scr 
    repeat 3
        send $northbtn
        wait 200
    end_repeat
    while hits < 120
        wait 500
    end_while
    repeat 3
        send $southbtn
        wait 200
    end_repeat
    resume_script #2scr
end_if

if hits < 1
    repeat 5
        alarm
        wait 2s
    end_repeat
    set #a #a + 1
    if #a > 20
        stop_script all
    end_if
end_if

goto start 


Настройка и запуск:
1) вставить скрипты в 3 разных окна пилота
2) проверить бинды в верхних частях скриптов на соответствие действиям описанным в комментариях
3) загрузить в пак чару как можно больше бинтов и реги для каста фаер филда
4) поставить чара вплотную к южной стене базы на 4-й тейл от западной
5) проверить стоит ли чар за ам зоной дома, если нет то передвинуть южный забор на 1 тейл на юг и вновь выставить чара (п. 4)
6) запустить скрипты №1 №3
7) переодически проверять наличие у чара реагентов и бинтов, и не умер ли чар ( если умрет он будет громко кричать (в разработке))

Советы:
1) когда вы начнете юзать этот скрипт у вашего питомца должно быть не менее 60 магери и 80 хилинга, иначе будет много физлов и простоя на отхиливание
2) чтобы засунуть побольше итемов в пак чару убейте его, положите туда все что нужно и ресните. (? ибо могли пофиксить)
3) качаться надо в арморе который не дает плюсов к скилу резиста или без армора
4) качаться в полиморфе глюпо ибо в полиморфе нельзя хиляться
5) при хилинге 90 и гм магери на 1к бинтов приходится ~40 кастов фаерфилда.

Принцип работы скрипта:
1) чар выравнивается об западную стену дома бегая паралельно южной
2) кастует на себя фаерфилд
3) бегает вдоль южного забора по фаерфилду при этом хилясь и невыходя за пределы фаерфилда
4) если хп меньше 60 чар отходит в сторону и хилится, восстановив хп до 120 возвращается и продолжает бегать
5) если стенка почти погасла или у чара 150 хп все повторяется с 1-го пункта
6) при этом если чар умер он будет долго кричать ( аларм пилота), а потом заткнется и остановит все скрипты (в разработке)
7) медитация не требуется, т.к. для восстановления более чем достаточно пассивного регена.

[Sindo]

PHP код:

// Бродилка Sindo Edition
//Используется как дополнительная процедурка внутри основного скрипта
// и требует соответствующей изоляции. Пример использования:
set #kudax 1067 // Перед вызовом бродилки указываем координаты цели
set #kuday 2670 // 
gosub gogogo // вызов бродилки
repeat 5 // сообщим что переход к цели выполнен
    alarm
end_repeat
stop_script

:gogogo
set #try 0 // счетчик шагов
set #flip 0 // счетчик/индикатор разворотов на месте
set #ston 0 // индикатор застревания
:nextstep 
set #try #try + 1
:nextfixstep

if (charposx = #prevx ) and ( charposy = #prevy ) // если еще не перешли на новый тайл 
    if (#flip >= 1) // если мы уже разворачивались на этом тайле подождем, может лагаем
        set #ston #ston + 1
        wait 500
        set #flip #flip + 1
        if (#flip >= 5) // если не дождались попробуем шагнуть еще раз
            set #flip 0
        end_if
        goto nextfixstep
    end_if
    set #flip #flip + 1
end_if

if (charposx <> #prevx ) and ( charposy <> #prevy ) // перешли на новый тайл 
    set #ston 0
    set #flip 0
end_if 

if #ston > 10 // если долго не можем сдвинуться с одного тайла отойдем в сторону (рандомный выбор)
    set #walk random 8
    if #walk = 0
        repeat 5
            send PageUp 200
        end_repeat
    end_if
    if #walk = 1
        repeat 5
            send PageDown 200
        end_repeat
    end_if
    if #walk = 2
        repeat 5
            send Home 200
        end_repeat
    end_if
    if #walk = 3
        repeat 5
            send End 200
        end_repeat
    end_if
    if #walk = 4
        repeat 5
            send Up 200
        end_repeat
    end_if
    if #walk = 5
        repeat 5
            send Down 200
        end_repeat
    end_if
    if #walk = 6
        repeat 5
            send Left 200
        end_repeat
    end_if
    if #walk = 7
        repeat 5
            send Right 200
        end_repeat
    end_if
    set #ston 0
end_if

if #try > 50 // если наш путь к цели слишком долог, пробуем привлечь внимание хозяина чара
    repeat 5
        flash
        flash Sindo
        wait 2s
    end_repeat
    set #try 0
end_if

if (charposx = #kudax ) and ( charposy = #kuday ) // цель достигнута 
    goto yes
end_if 

// Корректировка, если уже стоим на оси Х с целью 
if charposx = #kudax 
    if charposy > #kuday 
        gosub savepos 
        send pageup 
        goto nextstep 
    end_if 
    if charposy < #kuday 
        gosub savepos 
        send end 
        goto nextstep 
    end_if 
end_if 

// Корректировка, если уже стоим на оси У с целью  
if charposy = #kuday 
    if charposx > #kudax 
        gosub savepos 
        send home 
        goto nextstep 
    end_if 
    if charposx < #kudax 
        gosub savepos 
        send pagedown 
        goto nextstep 
    end_if 
end_if 

// Корректировка, если нет пересечений с целью по осям координат 
if charposy < #kuday 
    if charposx < #kudax 
        gosub savepos 
        send down 
        goto nextstep 
    else 
        gosub savepos 
        send left  
        goto nextstep 
    end_if 
else 
    if charposx < #kudax 
        gosub savepos 
        send right 
        goto nextstep 
    else 
        gosub savepos 
        send up 
        goto nextstep 
    end_if 
end_if 

:yes
return

:savepos 
set #prevx charposx 
set #prevy charposy 
return 
// Биндить ничего не нужно, стоит лишь передать координаты цели и убедиться, что в "строке речи чара(вобщем где текст пишем в уо)" нет никаких символов и кнопки end, home, pageup и pagedown свободны от биндов. 


Добавлено через 12 минут

PHP код:

// AutoMeditation by Sindo
set #a 0 // счетчик сбросов вар мода
set #b 0 // для проверки используется ли скрипт в данный момент
set $war with thoughts // сообщение о нахождении чара в вар моде
set $medbtn 6 // UseSkill+Meditation
:try
while mana < int
    if #b = 0
        say *Meditation Started*
        set #b 1
    end_if
    send $medbtn
    send Backspace // убрать лишний символ с экрана (если не требуется, убрать)
    if (lastmsg = $war)
        if #a > 0 // кол-во снятий вара корректировать по желанию
            say *Nakilon is under attack! No more time for meditation!*
            stop_script
        end_if
        set #a #a + 1
        send Tab // снять вар мод
        goto try
    end_if
    wait 3s
end_while
say *Nakilon's magic energy succesfully refreshed*
alarm
// set #b 0
// возможно потом придумаю систему для безостановочной работы
stop_script 


[Sindo]

Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А

PHP код:

// Mining near wall by Sindo
// Интервал между строк 20
set #napravl 3 // направление на обкапываемую скалу (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // кнопка с биндом LastObject/WFT в клиенте
set $miningbtn2 F11 // кнопка с биндом LastTarget в клиенте
set #wstep 1500 // задержка до перехода чара на новый тайл после подачи команды к этому
set #wmine 4300 // задержка до окончания вскапывания чаром указанного тэйла после вызова $miningbtn2
set #pich 1 // индикатор необходимости поддержки замены кирки при поломке (0=нужно, 1=не нужно)
set %pickaxe[1] 0 // ID первой запасной кирки
set %pickaxe[2] 0 // ID второй запасной кирки
set %pickaxe[3] 0 // ID третьей запасной кирки
set #pickaxetype 0 // итемтайп кирок

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke // сообщение при поломке кирки
set $loose reach that // собщение при потере кирки (в том числе при поломке)
set #broke 0 // счетчик поломок кирки
set #a 0 // индикатор необходимости разворота
set #ston 0 // индикатор застоя на месте
set #superston 0 // индикатор капитального застоя на месте

if (#napravl = 0)
    set $correctx + 0
    set $correcty - 1
    set $nexttilebtn Home
    set $otskalibtn End
    set $kskalebtn PageUp
end_if
if (#napravl = 1)
    set $correctx + 1
    set $correcty + 0
    set $nexttilebtn PageUp
    set $otskalibtn Home
    set $kskalebtn PageDown
end_if
if (#napravl = 2)
    set $correctx + 0
    set $correcty + 1
    set $nexttilebtn Home
    set $otskalibtn PageUp
    set $kskalebtn End
end_if
if (#napravl = 3)
    set $correctx - 1
    set $correcty + 0
    set $nexttilebtn PageUp
    set $otskalibtn PageDown
    set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg = $broke) or (lastmsg = $loose)
    if (#pich = 0)
        set #broke #broke + 1
        if (#broke <= 3)
            set LastObjectID %pickaxe[#broke]
            set LastObjectType #pickaxetype
            goto start
        else
            msg У вас закончились запасные кирки!
        end_if
    else
        msg У вас сломалась кирка!
    end_if
end_if
send $miningbtn2 #wmine
if (lastmsg = $prevmsg)
                alarm
    say Ping troubles! Либо вы лагаете, либо неправильно выставлена "#wmine", либо вылез антимакрос.
end_if
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s4) // or (timer > 800)
    while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 7000)
        if (lastmsg = $s3) // подход к скале, если линия вскапывания отдалилась от нас (срабатывает на отсутствие скалы)
            repeat 2
                send $kskalebtn #wstep
            end_repeat
            goto start
        end_if
        set #a 1
    end_while
    goto start
end_while

:nextstep
set #prevx charposx
set #prevy charposy
if (#a >< 0)
    send $nexttilebtn #wstep
    set #a 0
end_if
send $nexttilebtn #wstep

if (charposx = #prevx) and (charposy = #prevy) // обход припятствия от скалы в сторону чара (срабатывает на застой на месте (в том числе при упирании в скалу))
    set #ston #ston + 1
    set #superston #superston + 1
    if (#ston > 2)
        repeat 2
            send $otskalibtn #wstep
        end_repeat
        set #ston 0
        set #superston 0
        set #a 1
        goto nextstep
    else
        goto nextstep
    end_if
else
    set #ston 0
    set #superston 0
end_if

goto start



// Перед использованием скрипта необходимо:
// Проверить чтобы не было препятствий для перпендикулярного отхода от скалы на всем ее протяжении
// Учесть что копать следует с ~юга на ~север, а не наоборот (позволяет обойти большинство багов текстур)
// не забываем юзать кирку ручками перед каждым новым стартом скрипта 


[Sindo]

PHP код:

//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848, 562    903, 559    1
wait 300
move 903, 559
double_left 898, 546 
wait 200 


PHP код:

// 1) в левый верхний угол пака кладешь свою кучку руды (желательно до 500 единиц за раз)
// 2) в окне "Скрипт" пилота ставишь галочку в квадратике справа от "Точка (Ctrl+A)"
// 3) вставляешь в скрипт вот это:
// //деление руды без переплавки
// drag 848, 562    903, 559    1
// wait 300
// 4) выделяешь в скрипте 848, 562
// 5) в окне уо наводишь курсор на кучку руды в паке и жмешь Ctrl+A. у тя должны вместо 848, 562 появица другие цифры в таком же формате
// 6) выделяешь в скрипте 903, 559
// 7) в окне уо наводишь примерно на центр пака и жмешь Ctrl+A. Терь у тя должны изменица цыфры вместо 903, 559
// 8) запускаешь скрипт и ждешь пока он по 1 кусочку разделит всю кучку
// 9) потом через вкладку "Общее" ставишь даблклик на координаты руды, лежащей у тя в паке по 1 ( или пишешь в скриптах double_left 898, 546 меняя координаты на координаты твоей кучки) 


PHP код:

//Camping by Sindoatan
set #dl 40 //Кратчайшее расстояние между центрами соседних тайлов в пикселях (40для 640*480)
set #mbasex 319 //X координата пикселя кучки щепок под чаром
set #mbasey 245 //Y координата пикселя кучки щепок под чаром
//goto test 
//////////////////////////////////////// 
set #basex #mbasex 
set #basey #mbasey 
for #x -#dl #dl #dl 
    for #y -#dl #dl #dl 
        set #Targx #basex +#x 
        set #Targy #basey +#y 
        set #a #basex -#dl 
        set #b #basey +#dl 
        set #c #basey -#dl 
        if ((#Targx = #a) and (#Targy = #b)) or ((#Targx = #mbasex) and  (#Targy = #mbasey)) or ((#Targx = #mbasex) and (#Targy = #c)) 
            goto next1 
        end_if 
        repeat 19 
            drag #mbasex, #mbasey #Targx, #Targy 1 
            wait 50 
            set #a LastLiftedID 
            set LastObjectID #a 
            repeat 4 
                send F11 // LastObject в клиенте 
            end_repeat 
        end_repeat 
        :next1 
    end_for 
end_for 
 
//:test 
set #a #dl / 2 
set #b #dl / 2 
set #basex #mbasex + #a 
set #basey #mbasey - #b 
 
for #x -#dl #dl #dl 
    for #y -#dl #dl #dl 
        set #Targx #basex +#x 
        set #Targy #basey +#y 
        set #a #basex +#dl 
        set #b #basey -#dl 
        if (#Targx = #a) and (#Targy = #b) 
            goto next2 
        end_if 
        repeat 19 
            drag #mbasex, #mbasey #Targx, #Targy 1 
            wait 50 
            set #a LastLiftedID 
            set LastObjectID #a 
            repeat 4 
                send F11 // LastObject в клиенте 
            end_repeat 
        end_repeat 
        :next2 
    end_for 
end_for 
 
//repeat 5 
    alarm 
//    wait 2s 
//end_repeat 
//stop_script
//Не забываем биндить кнопку с LastObject 


[sskrd]

Сообщение от Sindo

PHP код:

//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848, 562    903, 559    1
wait 300
move 903, 559
double_left 898, 546 
wait 200 


PHP код:

// 1) в левый верхний угол пака ложишь свою кучку руды (желательно до 500 единиц за раз)
// 2) в окне "Скрипт" пилота ставишь галочку в квадратике справа от "Точка (Ctrl+A)"
// 3) вставляешь в скрипт вот это:
// //деление руды без переплавки
// drag 848, 562    903, 559    1
// wait 300
// 4) выделяешь в скрипте 848, 562
// 5) в окне уо наводишь курсор на кучку руды в паке и жмешь Ctrl+A. у тя должны вместо 848, 562 появица другие цифры в таком же формате
// 6) выделяешь в скрипте 903, 559
// 7) в окне уо наводишь примерно на центр пака и жмешь Ctrl+A. Терь у тя должны изменица цыфры вместо 903, 559
// 8) запускаешь скрипт и ждешь пока он по 1 кусочку разделит всю кучку
// 9) потом через вкладку "Общее" ставишь даблклик на координаты руды, лежащей у тя в паке по 1 ( или пишешь в скриптах double_left 898, 546 меняя координаты на координаты твоей кучки) 


В окне скрипта цифры при нажатии Ctrl+A меняются?
При работе макроса в левом нижнем углу игрового окна появляются хоть какие-нибудь сообщения?
При запуске макроса мышка бегает по экрану?
В окне скрипта в пилоте по кнопке W окно с чаром выбрано?

[Aleksei4ik]

Сообщение от Sindo

Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А
// Mining near wall by Sindo
// Интервал между строк 20

Что-то совсем не работает скрипт...даже ходить не пытается (изначально не понял,какими он кнопками ходит...думал всё,как у людей - up,down и т.д.,ан-нет) и даже не поворачивается,чтоб копать другой тайтл...

[KudesNIK]

Сообщение от Aleksei4ik

Что-то совсем не работает скрипт...даже ходить не пытается (изначально не понял,какими он кнопками ходит...думал всё,как у людей - up,down и т.д.,ан-нет) и даже не поворачивается,чтоб копать другой тайтл...

Попробуй версию пилота поменять [Только зарегистрированные пользователи могут видеть ссылки. Регистрация!]

[капитан какао]

[QUOTE=Sindo;279380]Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т2А

PHP код:

// Mining near wall by Sindo
// Интервал между строк 20
set #napravl 3 // направление на обкапываемую скалу (0=N,1=E,2=S,3=W)
set $miningbtn01 F10 // кнопка с биндом LastObject/WFT в клиенте
set $miningbtn2 F11 // кнопка с биндом LastTarget в клиенте
set #wstep 1500 // задержка до перехода чара на новый тайл после подачи команды к этому
set #wmine 4300 // задержка до окончания вскапывания чаром указанного тэйла после вызова $miningbtn2
set #pich 1 // индикатор необходимости поддержки замены кирки при поломке (0=нужно, 1=не нужно)
set %pickaxe[1] 0 // ID первой запасной кирки
set %pickaxe[2] 0 // ID второй запасной кирки
set %pickaxe[3] 0 // ID третьей запасной кирки
set #pickaxetype 0 // итемтайп кирок

set $s1 is no ore here
set $s2 have no line
set $s3 try mining
set $s4 too far away
set $s5 has changed
set $s6 loosen some rocks
set $s7 has increased
set $s8 put the
set $broke broke // сообщение при поломке кирки
set $loose reach that // собщение при потере кирки (в том числе при поломке)
set #broke 0 // счетчик поломок кирки
set #a 0 // индикатор необходимости разворота
set #ston 0 // индикатор застоя на месте
set #superston 0 // индикатор капитального застоя на месте

if (#napravl = 0)
    set $correctx + 0
    set $correcty - 1
    set $nexttilebtn Home
    set $otskalibtn End
    set $kskalebtn PageUp
end_if
if (#napravl = 1)
    set $correctx + 1
    set $correcty + 0
    set $nexttilebtn PageUp
    set $otskalibtn Home
    set $kskalebtn PageDown
end_if
if (#napravl = 2)
    set $correctx + 0
    set $correcty + 1
    set $nexttilebtn Home
    set $otskalibtn PageUp
    set $kskalebtn End
end_if
if (#napravl = 3)
    set $correctx - 1
    set $correcty + 0
    set $nexttilebtn PageUp
    set $otskalibtn PageDown
    set $kskalebtn Home
end_if

:start

set lasttargetx charposx $correctx
set lasttargety charposy $correcty
set lasttargetkind 2
send $miningbtn01 300
set $prevmsg lastmsg
if (lastmsg = $broke) or (lastmsg = $loose)
    if (#pich = 0)
        set #broke #broke + 1
        if (#broke <= 3)
            set LastObjectID %pickaxe[#broke]
            set LastObjectType #pickaxetype
            goto start
        else
            msg У вас закончились запасные кирки!
        end_if
    else
        msg У вас сломалась кирка!
    end_if
end_if
send $miningbtn2 #wmine
if (lastmsg = $prevmsg)
                alarm
    say Ping troubles! Либо вы лагаете, либо неправильно выставлена "#wmine", либо вылез антимакрос.
end_if
set timer
while_not (lastmsg = $s1) or (lastmsg = $s2) or (lastmsg = $s4) // or (timer > 800)
    while_not (lastmsg = $s5) or (lastmsg = $s6) or (lastmsg = $s7) or (lastmsg = $s8) or (timer > 7000)
        if (lastmsg = $s3) // подход к скале, если линия вскапывания отдалилась от нас (срабатывает на отсутствие скалы)
            repeat 2
                send $kskalebtn #wstep
            end_repeat
            goto start
        end_if
        set #a 1
    end_while
    goto start
end_while

:nextstep
set #prevx charposx
set #prevy charposy
if (#a >< 0)
    send $nexttilebtn #wstep
    set #a 0
end_if
send $nexttilebtn #wstep

if (charposx = #prevx) and (charposy = #prevy) // обход припятствия от скалы в сторону чара (срабатывает на застой на месте (в том числе при упирании в скалу))
    set #ston #ston + 1
    set #superston #superston + 1
    if (#ston > 2)
        repeat 2
            send $otskalibtn #wstep
        end_repeat
        set #ston 0
        set #superston 0
        set #a 1
        goto nextstep
    else
        goto nextstep
    end_if
else
    set #ston 0
    set #superston 0
end_if

goto start



// Перед использованием скрипта необходимо:
// Проверить чтобы не было препятствий для перпендикулярного отхода от скалы на всем ее протяжении
// Учесть что копать следует с ~юга на ~север, а не наоборот (позволяет обойти большинство багов текстур)
// не забываем юзать кирку ручками перед каждым новым стартом скрипта 


у


у меня на этом скрипте все время вылазит:
say Ping troubles! Либо вы лагаете, либо неправильно выставлена "#wmine", либо вылез антимакрос.

Добавлено через 33 секунды
сталкивался кто?

[Гопнег]

PHP код:

//by #m#i#c#a# ламбер вспомогательный ДЛЯ ЗОНЫ 
//uopilot 2.14, client v. 1.26.4b, 0 ms пауза между строк 
//f9 - LastObject
//f11 - LastObject+Waitfortarget+LastTarget
:start
send f11 500// f11 LastObject+Waitfortarget+TargetLast
:asd
set timer
while_not (lastmsg You can't) or (lastmsg There are no logs) or (lastmsg far away) or (lastmsg chopping)
if (lastmsg You put) or (timer > 5000)
goto start
end_if
if (lastmsg You hack) 
wait 1500
end_if
end_while
send f9 250
while target = 1
end_while
goto asd 


таргет появляеться сам вырубает как вырубит появляеться новый таргет и так далее

[IYDA]

PHP код:

//-----------FISHING-------------
gosub fishingsub //вылов рыбы 
//13 тайлов по мосту
repeat 13
send PageDown 200 //направление движения. Изменить на нужное
end_repeat
end_repeat 
//идем по берегу на исходную точку 7 тайл.
repeat 27 //один тайл на разворот.
send home 200
end_repeat
send PageDown 200 //разворот.
// сколько циклов сделали за ночь (для оптимистов и статистиков)
set #counter #counter +1
:fishingsub //fishing sub
// энта часть заимствована у кого-то, но оптимизирована и доработана до слабой узнаваемости.
for #y -6 6 1 // !!!воот тут, если копаете с берега, а не с моста,
for #x -6 6 1 // !!!надо подправить макс координаты по X и Y.
:fishing //подпрограмма вылова рыбы
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F1 1000 // LastObject, WaitForTarget, LastTarget
set timer 0
while_not (lastmsg pull) or (lastmsg fail) or (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (timer > 6000)
end_while
if (lastmsg Try) or (lastmsg quick) or (lastmsg no fish) or (lastmsg fail)
wait 1500 // задержка после неудачного использования на удочке.
end_if
 
if (lastmsg pull) and (wght < 620) //!!! если цель просто прокачка, это можно отключить для экономии времени.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
drag 406, 298 404, 254 all // перетаскивание рыбы на себя.
wait 500
end_if
 
if lastmsg destroer //сломалась удочка
send f3 500 //!!! в ассисте - target type на удочку
double_left 810, 68 //!!! координаты удочки в руке. Надежнее, чем брать из пака.
wait 500
send f2 1000
end_if
if_not (lastmsg are no fish) or (lastmsg Try) or (lastmsg pull) 
//!!! последний or - ловля будет продолжаться только один раз вместо ловли до no fish
//если длина берега достаточная, это ускоряет процесс ловли и прокачки. 
//Если скилл меньше 60, то имеет смысл поставить // перед or (lastmsg pull) 
goto fishing // процедура вылова рыбы.
end_if
end_for
end_for
return //fishing 
 
 
+ дополнение к скрипту
//паузы скрипта фишинга чтобы скрипт не прервался в какой-нибудь неудобный момент
if lastmsg world
pause_script 3 //!!!номер останавливаемого скрипта прописать надо!
wait 10000
say Save the Power of Macros! //эт чтобы сбросить Lastmsg
resume_script 3 //!!!номер останавливаемого скрипта прописать надо!
end_if
// проверка - не убивают ли вас, пока вы спокойно удите..
if (lastmsg hit) or (lastmsg attacking you) or (hits < str)
repeat 3
say guards
wait 1000
end_repeat
end_if