Скрипты

[Devil Dun'Shaar]

Любителям легкого заработка посвящается

// Скрипт на тинкеринг для UOPilot 1.04 beta7 by WKnight
// Производство ожерелий
// Written by Devil Dun'Shaar
set #checklag 1 // включаем/выключаем проверку лагов.
set #lags 0
set #escr 0 // включаем/выключаем остановку скрипта
set #n 10 // количество предметов, через которое хотим делать проверку на лаги. Если #escr = 1, то количество предметов, которое хотим произвести.

:begin
if #checklag = 1
gosub chlg
end_if
gosub settime

:craft
repeat #n
send F1 #wt // LastObject
if lastmsg You can't  make
alarm
end_script
end_if
left 265, 68 
wait #wt
double_left  220, 62
wait #wt
double_left  60, 58 
wait #ct
right 82, 53
end_repeat
if #escr = 1
alarm
end_script
else 
goto begin
end_if

:settime
if #checklag = 0
:lags0
set #wt 750
gosub swtc
return
end_if
if #lags = 0
goto lags0
end_if
if #lags = 1
set #wt 1000
gosub swtc
return
end_if
if #lags = 2
set #wt 1500
gosub swtc
return
end_if
if #lags = 3
set #wt 2500
gosub swtc
return
end_if

:chlg
set timer
say lags?
while_not lastmsg lags?
if timer > 60000
goto chlg
end_if
if lastmsg error
goto chlg
end_if
end_while
set #tis timer
if #tis < 200
set #lags 0
end_if
if #tis > 300
set #lags 1
end_if
if #tis > 700
set #lags 2
end_if
if #tis > 1500
set #lags 3
end_if
return

:swtc
set #swt #wt * 3
set #ct 4000 - #swt
if #wt > 1500
set #ct 1000
end_if
return

Я не гарантирую, что скрипт не будет производить колец для ключей. Однако гарантирую, что скрипт способен просечь лаги и установить задержки в зависимости от силы лагов

[Nigolka]

Разве кольца для ключей ввели?
_____________________________________________
Devil Dun'Shaar: они всегда были
просто они не ньюби поэтому ими никто никогда не пользовался.
----------------------------------------------------
Ааа... вот чего я не знал оказывается... спасибо, буду знать...

[Dino]

выложите плиз скирипт на кэмпинг!!

[Canek]

Качал на этом скрипте мининг с 30 до 150, так что ручаюсь, что рабочий.
Писал под пилот 1.07 бета 8.

Скрипт на мининг, Пашет только с гномьей киркой или лопатой, т.к.простой киркой не пашет таргет сэлф.Выкапывает 10 тайлов вправо, потом спускается на 1 вниз, выкапывает 10 влево, опять спускается на 1 вниз... и всё сначала. Скрипт очень удобен, т.к. можно изменять напраление и количество выкапываемых тайлов простым изменением кол-ва репитов. Капните разок и запускайте скрипт.

:begin
repeat 10
:right
send f3 // LastObject-WTF-TargetSelf
wait 500 // Ждём пол секунды...
if lastmsg there is no // Если ничего нет...
send right // Идём на право.
goto enda
else // Если месаги не было...
wait 4500 // Ждём, пока откопает.
goto right // Начинаем всё с начала.
end_if
:enda
end_repeat

send down
send down // Спускаемся на тайл вниз.

repeat 10
:left
send f3 // LastObject-WTF-TargetSelf
wait 500 // Ждём пол секунды...
if lastmsg there is no // Если ничего нет...
send left // Идем налево.
goto endb
else // Если месаги не было...
wait 4500 // Ждём, пока откопает.
goto left // Начинаем всё с начала.
end_if
:endb
end_repeat

send down
send down // Спускаемся на тайл вниз.

goto begin // Начинаем всё заново.

[FIGHTER]

народ а существует скрпит для трекинга??? Если большая просьба выложие тут =) респект заранее

[Devil Dun'Shaar]

Трекинг:
Втаешь в место где поблизости нет никаких монстров, запушкаешь скрипт.
Окно с ультимой должно быть активным

send delete // UseSkill (Tracking)
set timer
while_not 100, 67 5403524 
if timer > 3000
break 1
end_if
end_while
double_left 104, 63 
wait 200
right 27, 61

[Jun]

Canek:

Качал на этом скрипте мининг с 30 до 150, так что ручаюсь, что рабочий.
Писал под пилот 1.07 бета 8.....


Может не до 150 а до 115 ты мининг так прокачал. :P

[FIGHTER]

огромное пасибо за скрипт, ещё онда просьба (это про вердаты) народ если у кого нить есть патч на цветные иконки в спеллбуке скинте ссылку тут или отправте на мыло : slimer2004@yandex.ru заранее респект

[ConkurenT]

Покажите мне хорошый скрипт на STEALING!!!
у меня 100 Snooping-а !!!
Я хочу прокачать уже и Stealing!!!

[Makaveliiii]

Люди а если я орк, и мне нету резона одивать орковскую вещ чтобы за поизонить себя?
Как мне кочать с 80?

[Devil Dun'Shaar]

Макиавелли, ставь чара куклу-хумана, и пытайся им одевать орковскую шмотку. А сам лечи. И вообще после 70 хилинг лучше растет, если лечишь кого-нить еще, а не себя..

[Canek]

Может не до 150 а до 115 ты мининг так прокачал. :P

Ну ошибся, ну с кем не бывает? =Р
Кстати, мой любимый макрос на ламбер, может кто уже выкладывал, не заметил.Просто ходим и кликам по деревьям:

set $s1 you put
set $s2 you hack
set $s3 there are no logs
set $s4 you can't
set $s5 changed
set $s6 too far away
set $s7 you can carry
set #endless 0
send F10// lastobject
waitfortarget 5000
send f11 // lasttarget
while #endless = 0
if lastmsg = $s1 or lastmsg = $s2 or lastmsg = $s5 or lastmsg = $s7 or timer > 6000
send F10 // lastobject
waitfortarget 5000
send f11 // lasttarget
wait 10
set timer 0
end_if
if lastmsg = $s3 or lastmsg = $s4 or lastmsg = $s6
send F10 // lastobject
wait 10
set timer 0
end_if
end_while

[Canek]

Может не до 150 а до 115 ты мининг так прокачал. :P

Ну ошибся, ну с кем не бывает? =Р
Кстати, мой любимый макрос на ламбер, может кто уже выкладывал, не заметил.Просто ходим и кликам по деревьям:

set $s1 you put
set $s2 you hack
set $s3 there are no logs
set $s4 you can't
set $s5 changed
set $s6 too far away
set $s7 you can carry
set #endless 0
send F10// lastobject
waitfortarget 5000
send f11 // lasttarget
while #endless = 0
if lastmsg = $s1 or lastmsg = $s2 or lastmsg = $s5 or lastmsg = $s7 or timer > 6000
send F10 // lastobject
waitfortarget 5000
send f11 // lasttarget
wait 10
set timer 0
end_if
if lastmsg = $s3 or lastmsg = $s4 or lastmsg = $s6
send F10 // lastobject
wait 10
set timer 0
end_if
end_while

[HitmanCM]

У меня не работают кнопки home PgDawn как мне качать резист без титана?. Така у меня его слутали.
Вот этот скрипт я написал но с ним всё время вылетает уо
repeat 6
send 9
end_repeat
repeat 6
send 8
end_repeat
repeat 7
send 9
end_repeat
repeat 7
send 8
end_repeat
repeat 7
send 9
end_repeat
repeat 7
send 8
end_repeat
repeat 7
send 9
end_repeat
repeat 7
send 8
end_repeat
double_left 883, 501
repeat 2
double_left 916, 463
waitfortarget 2000
send J
wait 4000
end_repeat

[Billy Notherhum]

Помогите мне плиз!
Я воспользовался скриптом Геворга на прокачку мининга.
А вот и сам скрипт...

set #max 100 // максимальное кол-во копок в одном месте
// надо на случай если последнее сообщение не срабатывает
set #dlin 15 // максимальное число шагов в одном направлении
set #ves 250 // ограничим свой вес этим (примерно)
set #napr 0 // направление: 0 - влево, 1 - вправо

:main
set #i 1 // счетчик для сравнения с макс длиной
while #i <> #dlin
set #xx charposx // текущие координаты чара
set #yy charposy
gosub kopaem
if #xx = charposx and #yy = charposy
// положение чара при движении не изменилось!
gosub dopshag !!!! Останавливается на этой строчке и всё !!!!
break
end_if
if wght > #ves
goto fin // пора заканчивать!
end_if
end_while
if #napr = 0
set #napr 1
else
set #napr 0
end_if
goto main

:fin
alarm
msg FULL!
end_script

:kopaem // копать в одном месте
repeat #max
send F5 9s // lastobject waitfortarget targetself
set $te There is no ore here to mine.
if lastmsg = $te //There is no ore here to mine.
break
end_if
if lastmsg try mining in rock
gosub idem_vert
break
end_if
end_repeat
gosub idem_hor
return

:idem_vert // обходим препятствие
if #napr = 0
send Down
send Down
wait 1000
else
send Up
send Up
wait 1000
end_if
return

:idem_hor // сдвигаемся влево (вправо)
set #xx charposx // текущие координаты чара
set #yy charposy
if (#xx = 2558 and #yy = 489 ) or (#xx = 2559 and #yy = 488 ) or (#xx = 2560 and #yy = 487 ) or (#xx = 2562 and #yy = 485 ) or (#xx = 2563 and #yy = 482 )
send Down
send Down
end_if
if #napr = 0
if chardir = 5
send Left
else
send Left
send Left
end_if
set #a random 4
If #a = 1
send PageUp
send PageUp
end_if
If #a = 2
send PageDown
send PageDown
end_if
wait 800
else
if chardir = 1
send Right
else
send Right
send Right
end_if
set #a random 4
If #a = 1
send PageUp
send PageUp
end_if
If #a = 2
send PageDown
send PageDown
end_if
wait 1000
end_if
return

пишет Метка "dopshag" не найдена, проверьте скрипт...
А иногда в окне UO пишется It's too far away...
Я в скриптах практически не разбираюсь, помогите мне плиз!

[Hate]

Прошу выложить хороший скрипт на магию..

[Gevorg]

2 Billy Notherhum
Просто это часть скрипта майнинг для работы двух чаров параллельно и dopshag, нужен был для того, чтобы их маршруты не совпадали.
Решение твоей проблемы, просто удали этот цикл или, чтобы особо не мучаться эту строчку. и все должно работать.

P.S> я практически каждый день на форуме, так что если есть вопросы по скриптам, можно писать в личку, по мере возможности буду отвечать...

[IceOFF]

Прошу выложить хороший скрипт на магию..

Я ведь уже на 3-ей странице выкладывал... Самый удобный и быстрый я считаю... Вот':

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

:m1
repeat 100
Send F5 2500
if lastmsg You lack
break 1
end_if
end_repeat
repeat 100
Send F6 4000
if lastmsg You are at peace
break 1
end_if
end_repeat
double_left 633, 620
wait 1500
goto m1
end_script

(ф5-Каст спел либо пойзон, либо найт сайт, вейт фор таргет ласт таргет, ф6 юз скилл медитация.)
Дабл кик там с координатами это на еду...
Все макросы попрут на любом пилоте, удачной прокачки)

[Aka Riven]

Народ спасибо большое ! Оч помагли!

[mastakila]

Люди напищите плизз скрипт на СТИЛИНГ