МАКРОСЫ

[MODO]

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

Короче можно забыть об этой задумке...

while_not lastmsg poisoned // (если не получиться можешь попробовать подставить сообщение которое выходит когда отравлен You feel sickly)
if lastmsg world
wait 20000
say Go
wait 200
end_if
end_while
alarm
wait 500


Во вкладке UOpilot Еще выбери "Пауза между строк" - 10

[Papay]

Не работает... =((

[MODO]

You feel sickly это не точно, посмотри правильный дословный текст, можешь просто You feel вставить. Он будет срабатывать когда яд начнет действовать, отнимается ХП и надпись You feel sickly или еще какая-то, давно играл, уже не помню. Пробуй.

[Papay]

Когда он начнет отнимать жизни уже поздно будет... =)
Надо, что бы как только фатальнули...

[MODO]

Скрипт на магию. Расчитан на прокачивание кастом Poison на предмет. Сначала кастует пока мана не упадет до 0 или менее 9, потом поднимает ману до 100. Если вас атачат чар начнет гвардить, пару раз подаст звуковой сигнал чтобы вас уведомить, потом отхилится до 150 и продолжить качать магию. Кидаете в пак реги НС и бинты. Сейчас кнопки стоят F4 - Каст Poison, F9 - Хил себя F11 - Медитация.

:magery
if mana >= 9
set #1 mana
send f4
wait 500
set timer 0
while_not (lastmsg fizzles) or (lastmsg lack) or (lastmsg skill) or (mana < #1) or (timer > 6000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
if hits < 150
alarm
call guards
call heal
end_if
end_while
goto magery
else
goto meditation
end_if

:meditation
if mana < 100
set #2 mana + 2
send f11
wait 500
set timer 0
while_not (lastmsg lose) or (lastmsg skill) or (mana > #2) or (timer > 6000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
if hits < 150
call guards
call heal
end_if
end_while
goto meditation
else
goto magery
end_if

proc guards
repeat 10
say
say GuardS
wait 600
end_repeat
alarm
wait 500
alarm
end_proc

proc heal
:life
if hits < 150
send f9
wait 500
set timer 0
while_not (lastmsg skill) or (lastmsg bloody) or (lastmsg apply) or (lastmsg mummy) or (timer > 4000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
end_while
goto life
end_if
end_proc

[~shadow~]

Народ, подскажите как в пилоте прописать сбор рыбы из-под чара при ловле.

[sskrd]

Сообщение от ~shadow~

Народ, подскажите как в пилоте прописать сбор рыбы из-под чара при ловле.

//-----------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


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

[~shadow~]

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

//-----------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


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

я разобрался спасибо... я этот макрос когда-то пробовал, он не рабочий...
set #counter #counter +1 - тут ошибка...
так-что написал свой. попроще

[sskrd]

Сообщение от ~shadow~

я разобрался спасибо... я этот макрос когда-то пробовал, он не рабочий...
set #counter #counter +1 - тут ошибка...
так-что написал свой. попроще

странно, вроде им качала, но может что-то и подправляла.

[~shadow~]

ооо... а что при ловле с плота рыба сама в пак падает? но вроде на плоте мобы вылазят, могут кильнуть... так что лучше с пирса. правильно я понял?

[MODO]

Смотря для чего ловишь, если нужна рыба и просто качаешь скил то с причала, если мобы то с плота.

[NuRik]

Подскажите пожалуйста какойнить скрипт на пилот который можно применить для прокачки боевых на макре, чтоб например положить кучу бучеров в пак и уйти, а он сам будет брать бучер когда сломается, а то уш очень быстро они ломаются...

[PuPs]

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

Подскажите пожалуйста какойнить скрипт на пилот который можно применить для прокачки боевых на макре, чтоб например положить кучу бучеров в пак и уйти, а он сам будет брать бучер когда сломается, а то уш очень быстро они ломаются...

Добавляешь после каждого attacklast строчку что бы юзал бутчер по use item type.
И клади их в пак сколько душе угодно.

[VaLTeR]

Рубка леса(lumberjacking).
Двойной клик на топор, затем на дерево. Потом запускаем скрипт, дальше он будет рубить сам, а когда больше не будет больше дров, изменит курсор для выбора следующего дерева.

[PHP]
// Lumberjacking
// F2 - Last object >> Wait for target >> Last target
// F3 - Last object

set $msgNoLogs there are no logs
set $msgSkill lumberjacking
set $msgPutLogs you put the logs in
set $msgHackTree you hack at the tree for a while
set $msgTooFar too far away

send f2

:chopping
while_not (lastmsg $msgNoLogs) or (lastmsg $msgSkill) or (lastmsg $msgPutLogs) or (lastmsg $msgHackTree) or (lastmsg $msgTooFar)
wait 500
end_while

if (lastmsg $msgNoLogs) or (lastmsg $msgTooFar)
send f3
waitfortarget

goto chopping
end_if
[/PHP]

[shmelek]

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

Скрипт на магию. Расчитан на прокачивание кастом Poison на предмет. Сначала кастует пока мана не упадет до 0 или менее 9, потом поднимает ману до 100. Если вас атачат чар начнет гвардить, пару раз подаст звуковой сигнал чтобы вас уведомить, потом отхилится до 150 и продолжить качать магию. Кидаете в пак реги НС и бинты. Сейчас кнопки стоят F4 - Каст Poison, F9 - Хил себя F11 - Медитация.

:magery
if mana >= 9
set #1 mana
send f4
wait 500
set timer 0
while_not (lastmsg fizzles) or (lastmsg lack) or (lastmsg skill) or (mana < #1) or (timer > 6000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
if hits < 150
alarm
call guards
call heal
end_if
end_while
goto magery
else
goto meditation
end_if

:meditation
if mana < 100
set #2 mana + 2
send f11
wait 500
set timer 0
while_not (lastmsg lose) or (lastmsg skill) or (mana > #2) or (timer > 6000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
if hits < 150
call guards
call heal
end_if
end_while
goto meditation
else
goto magery
end_if

proc guards
repeat 10
say
say GuardS
wait 600
end_repeat
alarm
wait 500
alarm
end_proc

proc heal
:life
if hits < 150
send f9
wait 500
set timer 0
while_not (lastmsg skill) or (lastmsg bloody) or (lastmsg apply) or (lastmsg mummy) or (timer > 4000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
end_while
goto life
end_if
end_proc

Слешка подправил код, ибо хилить грейтами при нехватки 2-3хп - неразумно и скрипт зачемто моргает и орёт следовательно урезонил) гвардов больше не зовёт, ибо в миноке все качают а там всё равно )

//F4 -> Cast spell -> GreaterHeal -> WFT -> TargetSelf
//F5 -> Cast spell -> poison\magic arrow(для parrying,но требует Black Pearl дополнительно) -> WFT -> Targetself
//F7 -> Use Skill -> Meditation -> WFT

:magery
if mana >= 14
set #1 mana
send f5
wait 500
set timer 0
while_not (lastmsg fizzles) or (lastmsg lack) or (lastmsg skill) or (mana < #1) or (timer > 6000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
if hits < 125
call heal
end_if
end_while
goto magery
else
goto meditation
end_if

:meditation
if mana < 100
set #2 mana + 2
send f7
wait 500
set timer 0
while_not (lastmsg lose) or (lastmsg skill) or (mana > #2) or (timer > 6000)
if lastmsg world
wait 20000
say xD
wait 500
end_if
if hits < 125
call heal
end_if
end_while
goto meditation
else
goto magery
end_if

proc heal
:life
if hits < 125
send f4
wait 500
set timer 0
while_not (lastmsg skill) or (lastmsg bloody) or (lastmsg apply) or (lastmsg mummy) or (timer > 4000)
if lastmsg world
wait 20000
say
say xD
wait 500
end_if
end_while
goto life
end_if
end_proc

также увеличил количество маны для входа в цикл медитации ибо лишние секунды когда маны на грейт хил не хватает он тупит и ждёт маны

[MODO]

Какой грейт хил? xD Скрипт для бинтов.

[shmelek]

Ну кому что больше нравится

[MODO]

Лечиться нужно только если тебя проатачат. Для этого и есть пункт вызова гвардов, в миноке в домиках если оставиш без присмотра на ночь тебя кто нибудь начнет бить и ты улетишь в спич, гвардов там нет и весь кач обламывается, а в гз если тебя проатачат сразу прийдут гварды.

Добавлено через 3 минуты
Таминг для тех кто качает после 50 на коровах. Забиваете макрос на F9 Юз палки на ласттаргет, запускаете скрипт подходите к животному и кидаете на него таргет, скрипт тамит пока не затамит до конца, и подбирает упавшую под ноги тушу(укажите координаты своего пака), потом подает сигнал, и появляется таргет, снова бежите к другому животному набрасываете таргет и т.д. Только под UOpilot v2.18 и выше.

set $fa Fail
set $ma Master
set $be Beef

:choise
set target 1
while_not target = 0
end_while
goto taming

:taming
set $msg 0
send217 f9
wait 500
set timer 0
while_not (lastmsg skill) or (lastmsg beef) or (lastmsg broke) or (lastmsg can't) or (lastmsg hungry) or (lastmsg fail) or (lastmsg alredy) or (lastmsg away) or (lastmsg master) or (timer > 30000)
if lastmsg world
set timer 0
end_if
end_while
set $msg lastmsg
if $msg <= $fa
goto taming
end_if
if ($msg <= $ma) or ($msg <= $be)
set #wg wght
move 397,304
drag 397,304 936,221 all
set timer 0
while_not (wght > #wg) or (timer > 1000)
end_while
end_if
alarm
goto choise

[shmelek]

Дык он у тебя срабатывал при количестве хп ниже 150 а под пойзоном 1-2 хп да отнимется всё же.
поэтому хилится нужно на 130хп при 150 силы а если он и будет орать гвардс то только если хп опустится ниже 100-110 чтобы не флудил и не мешал.

Добавлено через 1 час 33 минуты
Задался вопросом : возможна ли проверка CurrentTarget на количество хп и при его малом количестве отойти на клетку назад (покурить там)) чтобы не убить спарринг партнёра.
Нету даже идеи как это можно сделать.... помогите) только что начал немного разбираться в этих макросах если что)

Добавлено через 1 час 58 минут

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

Подскажите пожалуйста какойнить скрипт на пилот который можно применить для прокачки боевых на макре, чтоб например положить кучу бучеров в пак и уйти, а он сам будет брать бучер когда сломается, а то уш очень быстро они ломаются...

if_not (lastmsg your dagger is) // писал себе под даггер вроде работало )
double_left 353, 270 //таргет для спарринга
else double_left 424, 665 //кучка запасных к****лов
end_if
if lastmsg world
wait 20000
say
say xD
wait 500
end_if

подредактируйте пожалуйста если что не так, ибо я пока не силён в этом деле)

[sskrd]

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

Дык он у тебя срабатывал при количестве хп ниже 150 а под пойзоном 1-2 хп да отнимется всё же.
поэтому хилится нужно на 130хп при 150 силы а если он и будет орать гвардс то только если хп опустится ниже 100-110 чтобы не флудил и не мешал.

Добавлено через 1 час 33 минуты
Задался вопросом : возможна ли проверка CurrentTarget на количество хп и при его малом количестве отойти на клетку назад (покурить там)) чтобы не убить спарринг партнёра.
Нету даже идеи как это можно сделать.... помогите) только что начал немного разбираться в этих макросах если что)

332 пост в этой теме.
для того чтоб пер***рать даггеры не обязательно писать условие, добавляй в макрос send f2, где Ф2 - брать в руки даггер, а в асисте ставь галочку "юз итем тайп". Тоже самое с едой send f3, где ф3 есть мясо с пака, и в асисте также юз итем тайп.

[MODO]

а под пойзоном 1-2 хп да отнимется всё же

Там же написано что каст не на себя, смысла нету, резист не вырастет хорошо, резист качают стоя на ФФ. Чтобы брал даггер или еще что то именно в нужный момент можно сделать проверку по весу так как когда вещь сломается веса стает меньше. пример
set #wg wght
while_not wght < #wg
end_while
send f1 // Кнопка брать даггер
wait 1000

Чтобы не убить партнера сделай себе мульта и бей его предварительно вкачав ему силу до 150, тебе не нужно ждать когда человек появится в сети, когда он прибежит из спича если улетел и для тебя одного его будет вполне достаточно. И уже если у чара менее 60хп просто отходишь им в сторону а потом подходишь назад к своему чару который бьет.

[PuPs]

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

Добавлено через 1 час 33 минуты
Задался вопросом : возможна ли проверка CurrentTarget на количество хп и при его малом количестве отойти на клетку назад (покурить там)) чтобы не убить спарринг партнёра.
Нету даже идеи как это можно сделать.... помогите) только что начал немного разбираться в этих макросах если что)

Делается это посредством get color

[Wade]

// 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 в соответствии с комментарием








V strochke set #pt BBB // итемтайп пойзон банок nado napisat kakoi item type nomer banok ili makros zdelat ili wto ewe tam mozhno ? a to ne makros ne item time nomer nerabotaet pishet wto tam foult,

Est kto mozhet pamoch ?

[PuPs]

[Только зарегистрированные пользователи могут видеть ссылки. Регистрация!] ниже пойзон. С картинками и описано что да как. Не поймешь завтра в аське или скайпе объясню. Щас просто с мобилы.

[Wade]

ia tam nevse panimaiu dazhe s kartinkami )))

Добавлено через 4 минуты
pups a na mabilke icq nety ?

[PuPs]

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

ia tam nevse panimaiu dazhe s kartinkami )))

Добавлено через 4 минуты
pups a na mabilke icq nety ?

Я щас просто футбол смотрю (( а так есть

[Wade]

dai icq

[PuPs]

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

dai icq

918ноль78

[Wade]

pups smozhew na balwoi pereriv podkliuchitsa?

[shmelek]

:start
while hits < 25
gosub protect
else
gosub heal
end_while

:heal
if hits < str
send f10
wait 2100
else
wait 100
end_if

rotect
send {Up}
send {Up}
while hits < 25
repeat 5
gosub heal
end_repeat
end_while
send {Down}
send {Down}
gosub start

Посоно выше я написал макрос на парри, уопилот 2.31 ругается на end_proc поэтому его не ставил можно ли както подправить (писал для парри с отходом) и если да то объясните синтаксис а то я чото не вкуриваю =(

Добавлено через 2 минуты
бтв админы мне подпись подправили))))

[MODO]

уопилот 2.31 ругается на end_proc

У меня все ок с процедурами.

[shmelek]

тоесть то что я написал должно работать?

[MODO]

У тебя нет процедур в скрипте. Процедура открывается proc "название процедуры" и закрывается end_proc, вызывается процедура call "название процедуры"

[shmelek]

а что тогда делает вызывание метки gosub и как её закрыть?

[MODO]

Синтаксис вызова подпрограммы:
gosub <метка>

Подпрограмма начинается с
:<метка>
и заканчивается
return

Подпрограммы рекомендуется располагать в конце скрипта и перед ними поставить либо end_script, либо goto на начало скрипта.