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

[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

[Destruction]

Ща попробую написать вам всем макр на мининг! Работает кажись всюду. Начит так:
Работоспособность проверена в UoPilot v1.07 beta 8 WK (скачать мона м http://WKnight.hotbox.ru кажеться.) Так же хз почему у всех настройки в пилоте стоят тупо и не работает мой скрипт - рекомендую поставить мои сеттингсы:

[Script]
Current_script=0
Script_delay0=20
InsertXY=0
Det_color=1
Add_Space=1
LastObjectNum=,
LastObject=,
LastObjectDesc=,
LastTargetNum=,
LastTarget=,
LastTargetDesc=,
FontColor=0
FontSize=8
FontName=MS Sans Serif
FontStyle=0
TabSize=4
ScriptDelayDef=100
PauseNil=0
ShowScriptProcessing=1
LockOnStartup=0
PauseSOnClientClose=0
ShowTimerVariable=1

[UoPilot]
Language=2
SaveWinPosition=0
SOT=31
Top=218
Left=393
CParamsTop=-1
CParamsLeft=-1
SEditorTop=-1
SEditorLeft=-1
SEditorHeight=-1
SEditorWidth=-1
HouseControlTop=-1
HouseControlLeft=-1
ShipControlTop=-1
ShipControlLeft=-1
AnimalControlTop=-1
AnimalControlLeft=-1
AutoOpenWin=0
ShowScriptNames=0
ShowRuningScript=0
ShowStat=0
MacrosRepCountIdx=0
ShowCoordsInCaption=0
SaveOnExit=1
UPHideOnMaximize=0
StopUnknownCommand=1
ShowCharParamsScript=0
ShowHex=0
MoveMouseBack=1
TypeCharParamsForm=16
ErrorReadCP=0
MinToTray=0
GMPageAlarm=1

[Client]
Version=2.0.3
Number=5
UOPriority=2

[Click]
Mouse=0
Interval_m=100
Coords=672, 380
Key_1=11
Interval_k1=50
SendBS_k1=0
Key_2=-1
Interval_k2=1200
SendBS_k2=0
Key_3=-1
Interval_k3=900
SendBS_k3=0
Key_4=-1
Interval_k4=5000
SendBS_k4=0
Key_5=-1
Interval_k5=1200
SendBS_k5=0

[Alarm]
Hour=0
Min=0
Delay=1000

[Auto_Move]
Coords=300, 240
Coords2=300, 240
Coords3=300, 240
MoveMouse=0
Delay=350
SaveCount=0

[HouseMenu]
LockDown=I wish to lock this down
Secure=I wish to secure this
Release=I wish to release this
Ban=I ban thee
Trash=I wish to place a trash barrel
Remove=Remove thyself
Strongbox=I wish to place a strongbox

[Hotkeys]
EnableHK=1
Scr=False,PrintScreen,0,0,0
SScript=False,Delete,0,1,0
Rec=False,Insert,0,1,0
RecStop=False,Home,0,1,0
Play=False,End,0,1,0
SNames=False,Insert,0,0,0
Move_1=False,C,0,0,1
1=False,1,0,0,1
2=False,2,0,0,1
3=False,3,0,0,1
4=False,4,0,0,1
5=False,5,0,0,1
Mes=False,M,0,0,1
UopUO=False,U,0,0,1
Move_2=False,X,0,0,1
Move_3=False,Z,0,0,1
SetMove_1=False,C,0,1,0
SetMove_2=False,X,0,1,0
SetMove_3=False,Z,0,1,0
PScript=False,Pause,0,0,0
CharParams=False,P,0,0,1
LockAllScriptToUO=False,A,0,1,1
ClipboardConsoleText=False,Insert,0,0,1
ScriptHKList_0=False,S,0,1,0
ScriptHKList_1=False,S,0,1,0
ScriptHKList_2=False,S,0,1,0

Так ну я немного отошел от темы, собсно скрипт:

if # //Всегда неверное условие старт.  
proc last //Подпрограмма Last старт.
send f11 //Жмем F11 (F11 - LastObject)
end_proc //Подпрограмма Last финиш.
proc error //Подпрограмма error старт
alarm error.wav //Проиграть запись error.wav
flash //Мигать окну пилота
end_proc //Подпрограмма error финиш.
proc end //Подпрограмма end старт.
alarm error.wav //Проиграть запись error.wav
flash uo //Мигать окну ультимы
end_proc //Подпрограмма end финиш.
end_if //Всегда неверное условие финиш.  
set #i 1 //Переменная #i = 1
set $try in rock. //Переменная $try = in rock. (нельзя капать)
set $a another action. //Переменная $a = anther action. (Уже капаем)
set $b to mine. //Переменная $b = to mine (нечего капать)
set $c your pack. //Переменная $c = your pack. (Руда в рюкзаке)
set $item this item //Переменная $item = this item (таргет попал в чела)
set $co put the Copper //Пер. $co = put the copper (Copper упал в пак)
set $ir put the Iron //Пер. $ir = put the iron (Iron упал в пак)
set $si put the Silver //Пер. $si = put the siver (Silver упал в пак)
set $sh put the Shadow //$sh = put the Shadow (Shadow упал в пак)
set $bl put the Bloodrock //$bl = put the Bloodrock (Bloodrock упал в  
//пак)
set $far far away. //Пер. $far = far away (Не могу дотянуться)
set $fail useable ore. //Пер. $fail = useable ore. (Не смог выкапать)
set $heavy too heavy.. //Пер. $heavy = too heavy.. (упало что-то)
set #a 143 //Пер. #a = 143 (первая координата откуда капать)
set #b 236 //Пер. $b = 236 (вторая координая откуда капать)
set #aa #a //Пер. #aa = #a (Коректировочная переменнная)
set #bb #b //Пер. #bb = #b (Корректировочная переменнная)
wait 300 //Ждем 300мс (чтобы быстро переключить окно ультимы  
//наверх)
while_not # //Всегда перный while
:mining //Метка mining
if #a, #b 0 //если координата черная
goto module //летим к метке module
else //если координата не черная
call last //Юзаем подпрограмму last
if lastmsg = $a //если lastmsg = $a
goto test //летим к метке test
end_if //конец условия
waitfortarget 1000 //ждем таргета максимум 1сек.
wait 20 //Ждем еще 20сек для корректности
set $t lastmsg //Пер. $t = последнее собщения сервера
left #a, #b //Клик левой по координатам
set timer //Пер timer = 0 (считает время испольнения скрипта)
while $t = lastmsg //Крутим пока последний сабж сервака = $t
if timer > 10000 //Если timer > 10000
send Escape  //Жмем Escape
goto mining //Летим к метке мининг
end_if //Конец условия
end_while //Конец While'a
if lastmsg = $b or lastmsg = $item or lastmsg = $try // Если ластмсж =  
//$b или $item или $try
goto module //Летим к метке module
end_if //Конец условия
:test //Метка test
set timer //Пер. timer = 0
while_not lastmsg = $c //Крутим пока lastmsg = $c
if timer > 15000 //если timer > 15000
goto mining //Летим к метке мининг
end_if //Конец условия
if lastmsg say i //Если lastmsg = say i
say #i //Говорим значение переменной #i
end_if //Конец условия
if lastmsg = fail //если lastmsg = $fail
goto mining //летим к метке mining
end_if //конец условия
if lastmsg = $far //Если lastmsg = $far
goto module //летим к метке module
end_if //конец условия
end_while //конец whilе'a
if lastmsg = $heavy //Если lastmsg = $heavy
call error //Юзаем подпрогграмму error
stop_script //Ставим скрипт на паузу.
end_if //Конец условия
if lastmsg = $co or lastmsg = $ir or lastmsg = $si or lastmsg = #s or  
lastmsg = $bl or lastmsg = $fail or lastmsg = $b or lastmsg = $try  
//Если lastmsg = чото плохое (см раздел сетов..), (Строки две верхние  
//склеить)
goto module  //Летим к метке module
end_if //Конец условия
end_if //Конец Условия
end_if //Конец Условия
end_while //Конец while'a
:module //Метка module
set #i #i + 1 //Пер. #i = #i +1
if #i = 9 or #i = 18 or #i = 27 or #i = 36 or #i = 45 or #i = 54 or #i = 63  
or #i = 72 //Если #i кратна 9, (строки склеить)
set #aa #aa + 22 //Пер. #aa = $aa+22
set #bb #bb - 22  //Пер. #bb = #bb+22
set #a #aa //Пер. #a = #aa
set #b #bb //Пер. #b = #bb
else //В противном случае
set #a #a +22 //Пер. #a = #a+22
set #b #b +22 //Пер. #b = #b+22
end_if //Конец условия
if #i = 81 //Если #i = 81
call end //Юзаем подпрограмму End
end_script //Вырубаем скрипт
end_if //Конец цсловия
goto mining //Летим к метке mining

Вот собсна старался подробно расписать. Основное из выше названного:
1. F11 - LastObject
2. Если в то время когда чар долбиться сказать say i тогда вам скажут какой вы уже капаете тайл.
3. Чар капает 81клетку вокруг себя (Если надо - меняйте)
4. В скрипте указано какую руду не капать (Для шарда: http://dominaria.pp.ru)
5. В случае если под вас упадет руда тогда скрипт проиграет мелодию и замигает окно ультимы (еще должен ставить скрипт на паузу но почему то не ставит :cry: )
6. Когда скрипт закончиться проиграеться мелодия и скрипт остановиться.
7. Скрипт очень гибок в настройке.
8. Если что непонятно стучать в ICQ 275986216
9. Пауза между строк 0
10. Скрипт не долго ждет определяя черную местность.
11. Прямая ссылка на пилот: http://wknight.hotbox.ru/files/107b/uopilot.exe (ставить ссылку в менеджер закаччек а иначе хз почему но у меня не качаеться.)
_____________________________________________________________
P.S.
Все что написано выше настоятельно рекомендую к прочтению. В случае каких либо проблем оращаться в ICQ 275986216 (Я этот скрипт могу настроить на какие угодно условия за 2-5 мин.)