давайте поместим тут макросы на уо пилот Опции

[Elvira_Drw]

на магию:

Repeat (1)
Send (F11,4000) магия Poison или другая
End_Repeat
send (tab,1000)
While mana < 100 Этот параметр подгоняйте под себя сами
*сюда влезает Anonymous*
While mana < int в посл. версии эти параметры
(стр, инт, дех) возвращены
*отсюда вылезает Anonymous*
Send (F10,4000) Медитация
End_while


Stealth:


send F12 Хайдимся
wait 6500
repeat (3)
wait 500
send end шаг вправо
end_repeat
repeat (3) шаг влево
wait 500
send PageUp
end_repeat



Ресист и хилинг:

:main
set #r 0
send F9 3000 //кастуем либо фаер филд либо энерджи филд

:heal
if hits < str
say ,bandageself //хилим себя, можно заменить на макрос
//ЛастОбджект, ВеэтФоТаргет, ТрагетСелф
set #r 0
wait 2500
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
sendex ^m //макрос медитации
wait 2500
goto medit
end_if
say Full MANA

goto main
end_script



Мининг by WK (IMG:style_emoticons/default/smile.gif) На F1 LastObject обкапывает вокруг себя 25 клеток.

set #Msg 99
set #x 232
set #y 235

for #ii 1 5 1
for #i 1 5 1
while #Msg <> 0
send f1
waitfortarget 10000
left #x #y
gosub CheckMsg
end_while
set #x #x + 23
set #y #y - 23
set #Msg 99
end_for
set #y #y + 138
set #x #x - 92
end_for

:stop
alarm
end_script

//========================= SubRoutines ==========================

:CheckMsg

Repeat 10
set #Msg 99

//if lastmsg you see
//goto stop
//end_if

if lastmsg you put
set #Msg 1
break
end_if

if lastmsg your skill
set #Msg 2
break
end_if

if lastmsg you loosen
set #Msg 3
wait 1000
break
end_if

if lastmsg world
wait 6000
break
end_if

if lastmsg there
set #Msg 0
break
end_if

if lastmsg try
set #Msg 0
break
end_if

End_Repeat

return



Fishing: (F8 -> "LastObject", F9 -> "LastTarget")

// Задержка, зависит от скорости
set #x 5500
set #y 550

// Первый вариант, 5 точек...
repeat 1000
send F8 #y
left 238, 315
wait #x
send F8 #y
left 291, 210
wait #x
send F8 #y
left 303, 292
wait #x
send F8 #y
left 309, 369
wait #x
send F8 #y
left 401, 203
wait #x
end_repeat

// Второй вариант, рубашишь по точке пока не вылезет что там нема рыбы, потом просто точку меняешь
repeat 1000
send F8 #y
send F9 #x
end_repeat

Animal Lore: (F4 - "Use Skill -> Animal Lore", F9 -> "LastTarget")

// Задержка, зависит от скорости
set #x 750
set #y 9750

// А вот и сам скрипт
repeat 1000
send F4 #x
send F9 #y
end_repeat




Animal Lore: (F4 - "Use Skill -> Animal Lore", F9 -> "LastTarget")

// Задержка, зависит от скорости
set #x 750
set #y 9750
set #count 0 // пременная, которая будет отсчитывать время, когда он проголодается

repeat 1000
send F4 #x
set #count #count + #x
send F9 #y
set #count #count + #x

if (#count) > 1799999 // 1800000 - это 30 минут
double_left 961, 683 // вот с этим уже тяжелее, тут надо указать координаты еды
wait (#x) // столько он её будет есть
set (#count) 0 // сбрасываем счётчик...
double_left 370, 323 // до этой строки "LastTarget" у тебя еда, тут надо указать координаты животного
wait (#y) // и тогда "LastTarget" снова укажет на животное
end_if

end_repeat

Вот такие вот проблемы. Ставить на скрипт можно в началах этих промежутков ( 13:00 - 13:30 ) или если ты ставишь на скрипт где-то в 13:15 то тогда ты #count в объявлении присваиваешь 1800000/2, т.е. 900000, в будующем он всё равно обнулится.



для ручной рубки, ходим только и кликаем на новые деревья когда это надо:



set #rtimer 0
set #msg 99

while #msg <> 0
if #msg = 2
send F2 1000 //lastobject, waitfortarget, lasttarget
else
send f1 //lastobject
waitfortarget 10000
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

if lastmsg vendor buy bank
//произнося vendor buy bank останавливаем скрипт
set #msg 0
send Escape
break
end_if

if lastmsg guards
//произнося guards прекращаем
//данную проверку результатов рубки (на случай
//если ластмессага глюканула)
send Escape
break
end_if

set #rtimer timer - #timer
End_while

send Escape
return



Мининг:

:begin
repeat 41
:verx
if hits < str
say guards
say NE VZRbIBATb!
end_if
send f1
wait 500
if lastmsg there is no
send pageup
goto enda
else
wait 4500
goto verx
end_if
:enda
end_repeat

if chardir = 2
send home
else
send home
send home
end_if

repeat 41
:niz
if hits < str
say guards
say NE VZRbIBATb!
end_if
send f1
wait 500
if lastmsg there is no
send end
goto endb
else
wait 4500
goto niz
end_if
:endb
end_repeat

if chardir = 6
send pagedown
else
send pagedown
send pagedown
end_if

goto begin



Долгий, но эффективный макрос на резист, хилинг, магию, медетацию.

:begin
send f3 // каст спел фаер филд, вэйт фор таргет.
wait 2000
left 420, 276 // кастует перед собой фаервол, для этого надо быть голому и без(!!) лошади.
wait 5000
if lastmsg spell // проверка на физл
goto begin
end_if
send pageup
repeat 3
send home
wait 300
end_repeat
repeat 12
if hits > 80
send f10 // хилинг
repeat 5
send pagedown
wait 300
end_repeat
send f11 // медитация
repeat 5
send home
wait 300
end_repeat
end_if
end_repeat
repeat 2
send end
wait 300
end_repeat
repeat 3
send pagedown
wait 300
end_repeat
while hits < 250 and mana < 50
send f10
wait 1000
send f11
wait 5000
end_while



на фишинг для корабля

:1
send F11
wait 2500


while lastmsg you see
flash
msg Alert
send F12
goto 2
end_while
goto 1

2:
send F12
wait 7000
if hits = str
then
goto 1
else
goto 2
end_while

F11 - юз удочка таргет море(локатион)(ассист)
F12 - юз бандаги на себя + оружие в руки(ассист)

когда видешь кого-нить выкидывается табличка Alert если никого нет рядом(и если есть все равно=) хилиться с задержкой 7000 для хилинга и атаки


макро на ветеринарию:
while_not hits < str //статы лошади
send F10 1000 //аттак ласт
end_while
send Tab 500
send F2 4000 //ластобжект (бинты) - ласттаргет
if lastmsg you can't see
repeat 99
alarm
wait 3000
end_repeat
end_if
if hits = 0
repeat 99
alarm
wait 3000
end_repeat
end_if


Скрипт сождающий суммона и килляющий его (для этого вы должны быть в вар моде). Прокачивается магия и комбат.


:begin
send Delete
wait 600
left 262, 65
wait 800
left 262, 65
wait 800
double_left 212, 67
waitfortarget 1000
left 361, 289
wait 10000
if lastmsg initiated.
wait 15000
end_if
if lastmsg The spell fizzles.
goto begin
end_if
double_left 352, 288
wait 40000
if hits < 80
send End
waitfortarget 800
left 400, 269
wait 3000
end_if


Где End - Greater Heal, Delete - Summ. creature



Макрос на продажу множества предметов нескладывающихся в один стек:

say Vendor sell
wait 500
Repeat 100
double_left 199, 92
left 343, 201
end_repeat
left <314, 423>
end_script



мининг Ф8 - ласт обжект, Ф7 - ласт лбжект ласт таргет

set #dx 0
set #dy 0
set $n no ore
set $f fail
set $pk pack
set $e error
set $st starving
set $d damage
set $dt destroyed
set $ys you see:

for #dy 0 88 44
for #dx 0 176 44
set #x 312
set #y 298
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:a
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto a
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck
end_for
end_for

for #dy 0 88 44
for #dx 0 132 44
set #x 334
set #y 320
set #x #x + #dx
set #y #y + #dy
send F8
waitfortarget
wait 1000
:b
left #x #y
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $ys
goto hana
end_if
if lastmsg = $n
goto fuck1
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
:dig
while lastmsg <> $n
send F7 1000
while lastmsg <> $pk
wait 1000
if lastmsg = $dt
double_left 877, 433
goto b
end_if
if lastmsg = $n
goto fuck
end_if
if wght > 1000 or lastmsg = $ys
goto hana
end_if
if lastmsg = $f or lastmsg = $e or lastmsg = $st or lastmsg = $d
goto dig
end_if
end_while
end_while
:fuck1
end_for
end_for
:hana
end_script

копает внизу 27 тайлов примерно 5х4 и копки посередине тайлов


Картография, очистка бэкпака. Работает медленно но верно (IMG:style_emoticons/default/smile.gif) Всякие полезные вещи типа спелбуки и ключей лучше выложить заранее (IMG:style_emoticons/default/smile.gif)

//-------------- Cartography Clear Bag-------------
set #cx1 522 //verhnij levij ugol bpacka
set #cx2 #cx1 + 121

set #cy1 561 //verhnij levij ugol bpacka
set #cy2 #cy1 + 110

set #trx 342 //trash can
set #try 244

:Start

for #j #cy1 #cy2
//say #j
for #i #cx1 #cx2 1
//say #i
if #i, #j 3758732
drag #i, #j #trx, #try
end_if

end_for
end_for

goto Start
end_script



Боукрафт, делаем шафты (IMG:style_emoticons/default/smile.gif)

//------------------ Boucraft shafts --------------
:Start
drag 347, 251 611, 631 1 // с пола в пак кладем 1 лог
wait 200
send F1 // ластобжект
waitfortarget
left 341, 247 // тыкаю в пол потому как не хочет в паке тыкать (IMG:style_emoticons/default/sad.gif) баг наверное
wait 500
double_left 107, 62
wait 2000
goto Start
end_script




Боукрафт, делаем болты...
перья в паке, шафты на полу

:Start
drag 338, 255 580, 617 1 // с полу кладем в пак 1 шафт
wait 200
double_left 579, 611 // юзаем его
wait 500
double_left 61, 60
wait 4000
goto Start
end_script



Макрос на стелс... для Утопии...



Клавиши, забинденные в УО:

F10 -> UseSkill -> Hidding,
F5 -> UseSkill -> Stealth.

Скрипт:

//Переменные-----------------------------------------
set $a You cannot seem to hide here
set $b You have revealed yourself
set $c You must wait to perform another action

//Скрипт------------------------------------------------
:begin
send F10
wait 5500
if lastmsg $c
wait 2000
goto begin
end_if
if lastmsg $a
goto begin
else
send F5
wait 500
if lastmsg $b
wait 2500
goto begin
else
repeat 2
send Right
wait 50
end_repeat
repeat 2
send Left
wait 50
end_repeat
wait 2500
end_if
end_if
//Конец--------------------------------------------------



Работает просто прекрасно! никаких сбоев... (IMG:style_emoticons/default/smile.gif)



скрипт на БС

repeat 600
send F3 2000 // шлём макрос LastObject, объектом заранее выбрана стопка слитков
repeat 2500 // ждём открытия меню проверяя цвет
if 240, 53 986895
break 1
else
end_if
end_repeat
double_left 201, 61 // выбираем в меню оружие
wait 2500 repeat 2000 // ждём открытия меню
if 229, 57 986895
break 1
else
end_if
end_repeat
double_left 66, 61 // выбираем в меню мечи
wait 1700
repeat 1700 // ждём открытия меню
if 229, 57 986895
break 1 else
end_if
end_repeat
double_left 160, 62 // выбираем в меню катаны
wait 7000 // ждём пока сделается
end_repeat
end_script


Мининг Копает до перегруза а потом пищит(Ф1 ласт оббкт/Ф11 Шаг в стороу ВЕСТ):
:nachalo
repeat 9999
send f1
wait 300
left 344, 200
wait 4000

if wght > 450
alarm
alarm
alarm
end_if


if lastmsg There is no ore here to mine
goto drugoi
end_if
end_repeat

:drugoi

repeat 9999
send f1
wait 300
left 288, 221
wait 4000

if wght > 450
alarm
alarm
alarm
end_if


if lastmsg There is no ore here to mine
goto tretij
end_if
end_repeat

:tretij
repeat 9999
send f1
wait 300
left 284, 249
wait 4000

if wght > 450
alarm
alarm
alarm
end_if


if lastmsg There is no ore here to mine
send F11
send F11
goto nachalo
end_if
end_repeat