Forgotten World Ultima Online Forums

Forgotten World Ultima Online Forums (https://forum.fwuo.ru/index.php)
-   Ньюби Таун (https://forum.fwuo.ru/forumdisplay.php?f=8)
-   -   МАКРОСЫ (https://forum.fwuo.ru/showthread.php?t=20783)

Andrey 18.01.2010 12:42

МАКРОСЫ
 
[FONT=Times New Roman][SIZE=4][COLOR=black]Народ честно устал в игре объяснять мелким игрокам про макросы. Желательно проверенные лично могу и сам проверить по просьбе. Решил создать тему. Выкладывайте кто что может. И по возможности описывайте децствия. А то попадаются такие люди что все разжовывать надо. И попрошу не флудить и не выражатся. типо тема была и все в таком духе. Еще одна просьба есть к администрации сделать эту тему как важная. Если получится и тема пойдет.[/COLOR][/SIZE][/FONT]

AKA 18.01.2010 13:54

Re: МАКРОСЫ
 
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 3 минуты[/COLOR][/SIZE]
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 20 минут[/COLOR][/SIZE]
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 24 минуты[/COLOR][/SIZE]
[PHP]
//----Локпикинг----
//скрипт на кач лукпикинга, в пак кидаем ключ от Locked Chest'а и отмычки
send 5 //кнопка в ассисте взламываем сундук отмычками, обязательно выставить Use Item Type
wait 3s
if lastmsg Container doesn't locked. //проверка взламали ли сундук
send 4 //кнопка в ассисте закрываем сундук ключем
wait 1s
end_if
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 30 минут[/COLOR][/SIZE]
[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) нужен чтобы во время сейва в паке не остался кусок мяса.
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 33 минуты[/COLOR][/SIZE]
[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.
[/PHP]

AKA 18.01.2010 14:28

Re: МАКРОСЫ
 
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 57 секунд[/COLOR][/SIZE]
[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.
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 3 минуты[/COLOR][/SIZE]
[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,
//чтобы скрипт не сбивался все что кидаем в пак лучше брать с пола,
//скрипт можно переделать под крафт бланк скролов, для этого надо,
//поменять количество повторов, переписать макрос в ассисте, изменить задержку крафта.
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 4 минуты[/COLOR][/SIZE]
[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
//скрипт можно переделать под крафт других зелий,
//необходимо поменять количество регов которое кидаем в пак,
//число повторов и задержку после кнопки на крафт зелья.
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 7 минут[/COLOR][/SIZE]
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 11 минут[/COLOR][/SIZE]
[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

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

Sindo 18.01.2010 14:43

Re: МАКРОСЫ
 
Вот накопал тут на форуме из своих постов. Найду архив со скриптами еще накидаю.
[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 кучи[/php]
Если есть возможность использовать ассист, то заменить кусок
[code]send F11 // LastObject/WFT/LastTarget в клиенте (даггер на логи в паке)
wait 500 // задержка на появление/обновление меню крафта
double_left 62, 66 // 1-е подменю крафта
wait 500 // задержка на появление/обновление меню крафта
double_left 63, 66 // 2-е подменю крафта[/code]
на
[code] send F11 // макр в ассисте на крафт киндлингов[/code]


[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 раз пикнет и поставит скрипт на паузу.
// во время хилинга и медитации чел спелы не кастует.
// Во время работы скрипта необходимо чтобы был открыт статбар. [/php]

AKA 18.01.2010 14:43

Re: МАКРОСЫ
 
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 50 секунд[/COLOR][/SIZE]
[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 - шагать в направлении
[/PHP]

Sindo 18.01.2010 14:45

Re: МАКРОСЫ
 
Вариант 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 в соответствии с комментарием [/php]

AKA 18.01.2010 14:45

Re: МАКРОСЫ
 
[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
[/PHP]

Sindo 18.01.2010 14:47

Re: МАКРОСЫ
 
[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 кучи [/php]Срипты с припиской 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. Скрипт может тамить, менять палки, есть, кормить и ждать столько
//сколько нужно (и не более необходимого).

[/PHP]

Andrey 19.01.2010 12:52

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

Superman 20.01.2010 13:25

Re: МАКРОСЫ
 
Благодарб Ака за помощь в макрах!
[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
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 31 секунду[/COLOR][/SIZE]
[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 рыбу в пак травить ее и ложить в пак на полу.

//Скрипт работает нормально , сбиваеться только при сейвах и будет постоянно сбиваться при сейвах так как присутствует перетаскивание.
[/PHP]
[SIZE=1][COLOR=#666686]Добавлено через 2 минуты[/COLOR][/SIZE]
[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
[/PHP]

Fluke01 20.01.2010 17:38

Re: МАКРОСЫ
 
Самый главный скрипт при прокачке забыли :)

[PHP]
//Гвардилка, когда убить хотят
if hits < str
say guards //2 пробела после say
send f1 //кнопка лечения в асисте
wait 1000
say guards
wait 1500
end_if[/PHP]
Настройка UOPilot
В меню "Настройки", устанавливаем галочку на "Отображать запущенные скрипты"(синеньким выделятся будут) и на "сохранять настройки при выходе".
Снимаем галочку на "Отображать ход выполнения скрипта"(проц меньше загружен будет).

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

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

Sindo 27.01.2010 00:40

Re: МАКРОСЫ
 
Поправил и доработал [COLOR=black]резист, сейчас сам им качаю.[/COLOR] Вот результат:
[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][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][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 [/PHP]Настройка и запуск:
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 27.01.2010 10:20

Re: МАКРОСЫ
 
[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 свободны от биндов.
[/PHP][SIZE=1][COLOR=#666686]Добавлено через 12 минут[/COLOR][/SIZE]
[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

[/PHP]

Sindo 27.01.2010 10:41

Re: МАКРОСЫ
 
Раньше копал этим на базе, теперь, вероятно, пригодится лишь в Т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



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

Sindo 27.01.2010 11:28

Re: МАКРОСЫ
 
[PHP]//деление руды с переплавкой
//общая задержка при GPRS 150
drag 848, 562 903, 559 1
wait 300
move 903, 559
double_left 898, 546
wait 200
[/PHP][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]
[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[/php]

Гопнег 29.01.2010 00:13

Re: МАКРОСЫ
 
[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[/php]таргет появляеться сам вырубает как вырубит появляеться новый таргет и так далее :)

IYDA 06.02.2010 13:43

СКРИПТ НА ФИШИНГ
 
[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
[/PHP]

critical 11.02.2010 02:47

Re: МАКРОСЫ
 
ребят, киданите мак на паринг, чтобы бинтами хилиться и щит из рук не выпускать...

ac3 11.02.2010 02:51

Re: МАКРОСЫ
 
в ассисте запиши макрос на хил бинтами и одевание шилда
и на уопилот на кнопочку поставь

Sindo 11.02.2010 08:20

Re: МАКРОСЫ
 
[php]
// Parrying с отходом-подходом by Sindo
set $hb f11 //heal button in assist
set #hw 3000 //heal wait
set $othodbtn End // walk+куда отходить
set $podhodbtn PageUp // walk+куда подходить
set #minhp 80 //уровень hp, при котором отходим в сторону

:start

if hits < str // ограничение нормы хп ставить по своему усмотрению
while hits < str
gosub saver
send $hb
wait #hw// задержка на хилл
end_while
end_if

goto start

:saver
if hits < #minhp
repeat 10
send $othodbtn
end_repeat
set timer
while_not (hits = str) or (timer > 200000)
send $hb
wait #hw
end_while
if timer > 200000
repeat 10
say bandage trouble
alarm
wait 1s
end_repeat
stop_script
end_if
repeat 10
send $podhodbtn
end_repeat
end_if
return

[/php]Сам хилится, если хп меньше указанного (80) отходит в сторону, полностью отхилившись возвращается. Бинты удобно ложить на пол на пол пути отхода. При прокачке арчери удобно отходить за угол дома. Макр не проверяет живы ли вы, умрете - будете бегать туда-сюда (но за время прокачки всех варов это было лишь дважды и оба раза из-за конлостов избиваемого).
Если надо без ассиста, то заменяем
[code]send $hb[/code]на
[code]set lastobjecttype 1234567890 // ИД бинтов в паке
send F1 // LastObject/WaitForTareget/TargetSelf в клиенте
set lastobjectid 1234567899 // ИД щита в паке
send F2 // LastObject в клиенте
[/code] с соответсвующей правкой.

Andrey 11.02.2010 08:26

Re: МАКРОСЫ
 
Впринципе ничего сложного нет в теме ИНСТРУКЦИЯ ДЛЯ НОВИЧКОВ про хил бинтами написанно. А когда тя бить будут просто в пилоте ставь ту кнопку которую забил на хилл. Но тебе скинули макрос с подходом так что удачного кача.

Mighty 16.02.2010 14:30

Re: МАКРОСЫ
 
Ребят скиньте норм макрос на лембер для пилота а то я чет нормального не нашол

Andrey 16.02.2010 14:37

Re: МАКРОСЫ
 
16 страница все работает если не получается напиши помогу.:)

Mighty 16.02.2010 14:51

Re: МАКРОСЫ
 
да этим макрасом я щас рублю, но хотелось бы макрос чтоб топоры менял и ходил по определенной территории рубил если что там сам подправлю

Andrey 16.02.2010 15:00

Re: МАКРОСЫ
 
Топоры он и так меняет только добавить строчку когда ломается кардинаты в паке такие то. А вот чоб сам ходил тут извини никто не даст тут запрещено все на автомате. Сори. Так если будут вопросы пиши.

Mighty 16.02.2010 15:02

Re: МАКРОСЫ
 
хорошо учту, тогда щас переделаю

decemb_rvat 16.02.2010 17:33

Re: МАКРОСЫ
 
[QUOTE=Andrey;282693]Топоры он и так меняет только добавить строчку когда ломается кардинаты в паке такие то. А вот чоб сам ходил тут извини никто не даст тут запрещено все на автомате. Сори. Так если будут вопросы пиши.[/QUOTE]

а если следить сидеть и он на автомате ходит,можно?

Andrey 16.02.2010 18:55

Re: МАКРОСЫ
 
ну я по крайне мере так рубил но если появится ГМ в хайде и начнет тебе писать а ты неответишь то дорога на лесоповал.

Mighty 19.02.2010 21:43

Re: МАКРОСЫ
 
Кто может поделиться макрасом на паринг и хилинг с помывкой бинтов

critical 24.02.2010 13:41

Re: МАКРОСЫ
 
ребята, вот вы кинули макры на паринг(хиляца бинтами не вынимая щит из руки), распишите плз поподробней ) прям чето не получается....

Mighty 24.02.2010 13:48

Re: МАКРОСЫ
 
макрос на хил бинтами можно сделать и в УОасисте,
берешь открываешь вкладку keys в ней находишь Play macro 1-16 нажимаешь на 1 макрос и ставишь кнопку например f6, потом заходишь в Macros и снизу идут кнопки с 1 по 16 нажимаешь ту на которой забиндил кнопку, появляется у тебя левее и выше record нажимаешь на него потом открываешь УО нажимаешь на бинты и на себя и одеваешь щит в макросе нажимаешь стоп. Открываешь пилот заходишь в общие и ставишь там свою кнопку на которую забиндил и интервал 2500 и нажимаешь старт.

Вот и все собственно

Jerom 24.02.2010 15:23

Re: МАКРОСЫ
 
[QUOTE=Andrey;277772][LIST=1][*]А вот далее ва столкнетесь с другой преградой но ничего непроходимого нет. Вам надо на окошке вашего чара нажать кнопочку ХЕЛП (HELP) не бойтесь ГМа звать не будем. Вам нужно изображений выглядещее как полумесяц (ЛУНА) но помоему круговая стрелка(извените пишу с работы могу ошибится) там вам надо в кнопочках нажать ADD(добавить) в первой строчке ставим кнопку на которой будет у нас медитация в данном случае F7 после того у нас появляется следующая строчка в ней ищем USE SKILL(использовать скилл) тогда у нас дальше появляется еще одна строчка чуть ниже. И вот в ней мы ищем слово MEDITATION (медетация). после того как мы сделали надо нажать кнопочку APLY(применить) и потом ОК.[/LIST][/QUOTE]

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

Andrey 24.02.2010 15:29

Re: МАКРОСЫ
 
А ты не бойся пробуй если что то поможем))))

Jerom 28.02.2010 16:02

Re: МАКРОСЫ
 
Насчет макроса в посте №16... Чето не работает у меня... Просто крутится по кругу, а таргет не появляется... Я в самом клиенте забиндил кнопки, как в макре написано, но... Можно немного подробней, последовательность подготовки макра к работе, а то может я что-нибудь упустил из виду.

Ээээ... прошу прошения, как-то получилось... Жалко только, что я не понял, как:-)

Andrey 28.02.2010 16:10

Re: МАКРОСЫ
 
Обясню. Все работает только надо 1 раз рубануть дерево и все. Дальше сам пойдет рубить а ты тольк будеш тыкать таргертом на деревья.:p


Часовой пояс GMT +3, время: 11:54.

Powered by: vBulletin® Version 3.8.7
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
© 2004-2019 Forgotten World