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

[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

[TARAKAN 47]

ещё один макрос на мининг



send F7
wait 300
left 398, 125
wait 5000
send F7
wait 300
left 421, 147
wait 5000
send F7
wait 300
left 442, 169
wait 5000
send F7
wait 300
left 465, 191
wait 5000
send F7
wait 300
left 489, 212
wait 5000
send F7
wait 300
left 510, 233
wait 5000
send F7
wait 300
left 532, 255
wait 5000
send F7
wait 300
left 555, 277
wait 5000
send F7
wait 300
left 376, 147
wait 5000
send F7
wait 300
left 398, 168
wait 5000
send F7
wait 300
left 422, 191
wait 5000
send F7
wait 300
left 443, 214
wait 5000
send F7
wait 300
left 463, 234
wait 5000
send F7
wait 300
left 487, 257
wait 5000
send F7
wait 300
left 508, 280
wait 5000
send F7
wait 300
left 529, 301
wait 5000
send F7
wait 300
left 356, 170
wait 5000
send F7
wait 300
left 376, 192
wait 5000
send F7
wait 300
left 398, 212
wait 5000
send F7
wait 300
left 420, 238
wait 5000
send F7
wait 300
left 443, 258
wait 5000
send F7
wait 300
left 464, 279
wait 5000
send F7
wait 300
left 485, 300
wait 5000
send F7
wait 300
left 509, 323
wait 5000
send F7
wait 300
left 331, 193
wait 5000
send F7
wait 300
left 332, 191
wait 5000
send F7
wait 300
left 354, 214
wait 5000
send F7
wait 300
left 378, 238
wait 5000
send F7
wait 300
left 441, 302
wait 5000
send F7
wait 300
left 466, 327
wait 5000
send F7
wait 300
left 485, 345
wait 5000
send F7
wait 300
left 311, 214
wait 5000
send F7
wait 300
left 333, 237
wait 5000
send F7
wait 300
left 355, 259
wait 5000
send F7
wait 300
left 421, 324
wait 5000
send F7
wait 300
left 441, 347
wait 5000
send F7
wait 300
left 465, 368
wait 5000
send F7
wait 300
left 287, 235
wait 5000
send F7
wait 300
left 311, 258
wait 5000
send F7
wait 300
left 333, 280
wait 5000
send F7
wait 300
left 354, 302
wait 5000
send F7
wait 300
left 376, 324
wait 5000
send F7
wait 300
left 398, 347
wait 5000
send F7
wait 300
left 420, 367
wait 5000
send F7
wait 300
left 441, 385
wait 5000
send F7
wait 300
left 266, 257
wait 5000
send F7
wait 300
left 287, 280
wait 5000
send F7
wait 300
left 310, 301
wait 5000
send F7
wait 300
left 333, 325
wait 5000
send F7
wait 300
left 352, 345
wait 5000
send F7
wait 300
left 377, 369
wait 5000
send F7
wait 300
left 400, 391
wait 5000
send F7
wait 300
left 420, 412
wait 5000
send F7
wait 300
left 243, 279
wait 5000
send F7
wait 300
left 265, 302
wait 5000
send F7
wait 300
left 289, 326
wait 5000
send F7
wait 300
left 309, 348
wait 5000
send F7
wait 300
left 332, 369
wait 5000
send F7
wait 300
left 354, 390
wait 5000
send F7
wait 300
left 376, 412
wait 5000
send F7
wait 300
left 399, 434
wait 5000