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

[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

[Elvira_Drw]

макрос для кемпинга, чтоб раскладывал по 1, кидал на землю и поджигал

set #nx 666 // координаты хвороста в бакпаке(до запятой)
set #ny 371 // коорд после запятой
set #w 500 //задержка

//1
set #kx 230
set #ky 247
repeat 5
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat

//2
set #kx 233
set #ky 293
repeat 7
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat

//3
set #kx 254
set #ky 311
repeat 7
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat

//4
set #kx 276
set #ky 336
repeat 7
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat

//5
set #kx 297
set #ky 358
repeat 7
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat

//6
set #kx 317
set #ky 377
repeat 7
drag #nx,#ny #kX,#ky 1
wait #w
double_left #kx,#ky
set #kx #kx + 22
set #ky #ky - 22
end_repeat




Рубить:

//------------------- LumberJack ------------------
:Start
set #markcount 19 // кол-во поездок по руне
set #count 99 // кол-во попыток вырубки
set lastobjectid 1 //hatchet
set #stcount 1 // statictype setting

:Loc
//=-=-=-=-=-=-=- 1 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 1686
set #cy 1992

set #location 1 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 2 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 1710
set #cy 1959

set #location 2 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 3 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 1750
set #cy 2022

set #location 3 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 4 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2110
set #cy 2127

set #location 4 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 5 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2162
set #cy 2148

set #location 5 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 6 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2174
set #cy 2154

set #location 6 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 7 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2170
set #cy 2136

set #location 7 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 8 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2146
set #cy 2115

set #location 8 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 9 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2126
set #cy 2097

set #location 9 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos


//=-=-=-=-=-=-=- 10 -=-=-=-=-=-=-=--
set #markcount #markcount - 1
set #cx 2114
set #cy 2091

set #location 10 // номер локации
gosub Jump

set lasttargetkind 3
gosub ChopPos



//-----------------------------------------------
//wait 1800000 //30 min

//if wght < 600
//goto Loc
//end_if

gosub ToHome

:End
end_script

//============ Sub ==============

//----------------- CheckMsg -----------------
:CheckMsg
wait 1000

if lastmsg it //исправить при необходимости
set #Msg #Count + 1
return
end_if

if lastmsg There
set #Msg 0
return
end_if

wait 6000

if lastmsg Savagev: you hack // исправить на свое сообщение
set #Msg #Msg - 1
return
end_if

if lastmsg error
return
end_if

if lastmsg world
wait 4000
return
end_if

set #Msg #Msg - 1

return

//------------------ ToHome -------------------
:ToHome
alarm
wait 1000
alarm
wait 1000
alarm

return

//------------------ Chop ----------------------
:Chop
while #Msg > 0
send F1 // lastobject, waitfortarget, lasttarget
gosub CheckMsg
if #Msg > #Count
gosub SType
end_if
end_while
return

//----------------- ChopPos -------------------
:ChopPos
//tree 1
set lasttargetx #cx + 2
set lasttargety #cy - 3

set #Msg #count
gosub Chop

//tree 2
set lasttargetx #cx + 2
set lasttargety #cy

set #Msg #count
gosub Chop

//tree 3
set lasttargetx #cx + 2
set lasttargety #cy + 3

set #Msg #count
gosub Chop

//tree 4
set lasttargetx #cx - 2
set lasttargety #cy + 3

set #Msg #count
gosub Chop

//tree 5
set lasttargetx #cx - 2
set lasttargety #cy

set #Msg #count
gosub Chop

//tree 6
set lasttargetx #cx -2
set lasttargety #cy -3

set #Msg #count
gosub Chop

return

//------------------- Jump ---------------------
:Jump
set lastspell 31
set lasttargetkind 1
set lasttargetid #location
send f4 //lastspell, waitfortarget, lasttarget
wait 4000

if charposx <> #cx and charposy <> #cy
goto Jump
end_if

return

:SType
goto #stcount

:1
set laststatictype 3283
set #stcount #stcount + 1
goto STEnd

:2
set laststatictype 3296
set #stcount #stcount + 1
goto STEnd

:3
set laststatictype 3286
set #stcount #stcount + 1
goto STEnd

:4
set laststatictype 3290
set #stcount #stcount + 1
goto STEnd

:5
set laststatictype 3293
set #stcount #stcount + 1
goto STEnd

:6
set laststatictype 3302
set #stcount #stcount + 1
goto STEnd

:7
set laststatictype 3277
set #stcount #stcount + 1
goto STEnd

:8
set laststatictype 3280
set #stcount #stcount + 1
goto STEnd

:9
set laststatictype 3299
set #stcount #stcount + 1
goto STEnd

:10
set laststatictype 3289
set #stcount #stcount + 1
goto STEnd

:11
set laststatictype 3288
set #stcount #stcount + 1
goto STEnd

:12
set laststatictype 3291
set #stcount 1

:STEnd
return

Во хорошая тема.Мне самому писать ето лень но мож потом чо допишу.

[TEORIK_HYBRYDA]

Я писал.

[Elvira_Drw]

я их сама не писала, мне кидали макросы, и что-то некоторые у меня не идут, но с инжой мне они не нужны, пытайтесь настроить инжект, это самое реал)

[Top*[Fcc]]

хмм....все на мининг попробывал и везде мне пишут Проверьте Правильнописание Макроса! (IMG:style_emoticons/default/sad.gif)

[Elvira_Drw]

\"]хмм....все на мининг попробывал и везде мне пишут Проверьте Правильнописание Макроса! (IMG:style_emoticons/default/sad.gif)

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

[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 мин.)

[Steiner]

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

А самому слабо?

[Kot (Irk)]

Народ а МОжите написать скрипт на лумбер

чтобы он шёл и кромсал все деревья которые рядом ?

ну например он вырыбил деревь дальше пошёл вырубил дальше пошёл итд! - !

например деревья стоят в 2 ряда - как я уже заметил на серваках много таких мест :roll:

Очень прошу (IMG:style_emoticons/default/smile.gif)

[Elvira_Drw]

Народ а МОжите написать скрипт  на лумбер  

чтобы   он шёл и кромсал все деревья которые рядом ?

ну например  он вырыбил  деревь дальше пошёл вырубил дальше пошёл  итд! - !

например  деревья стоят в 2 ряда -  как я уже заметил на серваках много таких мест  :roll:  

Очень прошу (IMG:style_emoticons/default/smile.gif)

Помоему это не реально сложно, если и есть такой макрос, то он сбиваться будет.

[Destruction]

По поводу складки руды - бред собачий собъеться на первом лаге!
По поводу рубки леса все рекомендую на форум уо пилота, в раздел готовые макросы!

[CLoP]

какой сайт UOpilota???
ссылку напиши!!!!

[Destruction]

какой сайт UOpilota???
ссылку напиши!!!!

http://wknight.hotbox.ru/ - старый сайт пилота, ща я разрабатываю новый, когда все баги будут пофиксены - кину ссылку, на сайте есть ссылка на форум, так же рекомендую идти на новый форум (старый повесился чутка) - http://offtop.ru/uopilot/ - всех ждем, всем рады,

P.S. Даже если вам не интересно, пожалуйцста просто зайдите на форум (надо выдержать 30 чел месяц...)

[SiduS]

+1 )

[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

[Antichrist]

Нифига себе... Респект!

[TARAKAN 47]

Просто и эфективно!

[Destruction]

И еще на мининг, просьба копирайты не тереть, достаточно чтобы он норм работал поправить в самом начале пару переменных.

// Mining by: Destruction v1.1
// web-master@rpri.ru
// Не забудьте, пауза между строк - 0!
set #storona 9 // сторона обкапываемого квадрата (5,7,9)
set $last F11 //LastObject
set $last2 F12 //LastObject + LastTarget
set #max_time 2000 //Время которое ждать таргета
set #max_time2 14000 //Максимальное время которе разрешаеться чару капать руду.
// Установка ластмессаг, если у вас их столько нету то просто оставьте ластмессаги лишние пустыми (IMG:style_emoticons/default/smile.gif)))
set $ok1 fail to find any //Можно капать, сабж 1.
set $ok2 You put the//Можно капать, сабж 2.
set $ok3 skill in//Можно капать, сабж 3.
set $mine is no ore here //Нет руды
set $fail1 is too far //Нельзя капать, сабж1.
set $fail2 mining in rock//Нельзя капать, сабж2.
set $fail3 no line of sight//Нельзя капать, сабж3.
set $fail4 //Нельзя капать, сабж4.
set #finish #storona * #storona
set #xxx 144
set #yyy 236
if_not #storona = 9
set #xxx #xxx + 44
if_not #storona = 7
set #xxx #xxx + 44
end_if
end_if
//Модуль проверки цвета
set #x #xxx
set #y #yyy
set #xx #x
set #yy #y
set #a 0
wait 3000

:color_module
move #x #y
set #a #a + 1
if #x #y 0
set %color [#a] 0
else
set %color [#a] 1
end_if
//Модуль смены #x и #y.
if #a = #finish
goto mining
end_if
set #kratno #a / #storona
set #kratno #kratno * #storona
if #kratno = #a
set #x #xx + 22
set #y #yy + 22
set #xx #x
set #yy #y
else
set #x #x + 22
set #y #y - 22
end_if
goto color_module

:mining
set #a 0
set #x #xxx
set #y #yyy
set #xx #x
set #yy #y
goto module
:mine
send $last
set timer
while target = 0
if timer > #max_time
goto mine
end_if
end_while
wait 200
left #x, #y
:while
set timer
while_not #
if target = 1 and timer > 3000
send Escape
goto module
end_if
if lastmsg = $mine
break
end_if
if timer > #max_time2
goto module
end_if
if lastmsg = $fail1 or lastmsg = $fail2 or lastmsg = $fail3 or lastmsg = $fail4
set %color [#a] 0
break
end_if
if lastmsg = $ok1 or lastmsg = $ok2 or lastmsg = $ok3
send $last2
goto while
end_if
end_while

:module
set #a #a + 1
set #color %color [#a]
if #color = 0
goto module
end_if
if #a = 1
goto mine
end_if
if #a = #finish
// При обкопке последнего тайла начинаем капать квадрат по новой.
goto mining
end_if
set #kratno #a / #storona
set #kratno #storona * #kratno
if #a = #kratno
set #x #xx + 22
set #y #yy + 22
set #xx #x
set #yy #y
goto mine
end_if
set #x #x + 22
set #y #y - 22
goto mine