Скрипты

[Fomi4]

гдето я видел но не нашел рашифрофку для пилота а именно в скрипте когда канчаится руда где персонаж капает пишет ТУТ НЕ ОСТАЛОСЬ РУДЫ был у мя скрипт каторы распознавал ето но стерся помогите пожалста или скинтье тут или в личку огромное спосибо и всех с наступаюшим !

if (lastmsg -B> ) or (lastmsg "CB ) or (lastmsg 1C9B5 ) // далеко, нет руды, попробуй по камню (c)

[AQilleuz]

етот распознаватель не пашет на 1.07 бете

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

[TAPAH]

поднимаемся...

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

[TitantOtO]

дайте скрипт на прокачку Резиста гному плз !

[Gevorg]

дайте скрипт на прокачку Резиста гному плз !

http://stratics.uoo.ru/articles/guides/healing2.html

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

[zay]

send f3
left 397, 307
wait 7s

send f3
left 421, 351
wait 7s

send f3
left 398, 368
wait 7s


подскажите как сделать так чтобы (wait 7s) не срабытывал, есл иф покажет "тут" либо "раздолб".
и как чтоб повтор копки произошёл, если "your pack" или "раздолб"( "о" в юникоде пишется 1)


у меня пелот2.10, но ластмесаги не воспринимает если:
if lastmsg xxxx or lastmsg yyyyy
или if (lastmsg xxxx) or (lastmsg yyyyy)
и так тоже if lastmsg xxxx or (lastmsg yyyy)
как сделать чтоб воспринимал пелот?

[Gevorg]

...

If (lastmsg not) or (lastmsg standing)
//что делать
end_if

[zay]

Вопрос такой у меня назрел: какой\ими командой\ами сделать чтоб перескакивал с * на ** и с ** на ***
:*
send f3
left 397, 307
wait 7s
:**
send f3
left 421, 351
wait 7s
:***
send f3
left 398, 368
wait 7s

вслучае "не осталось руды".

да и там ещё куча иф насчёт, раздолб\пак\и pickaxe.

пример
if lastmsg "CB
goto **
end_if
несрабатывает, просто проскок.

[zay]

//// просто надо было указать что клиент 203.

но теперь есть новая непонятка:

после назначения коодинат команда abs.

с ней срабатывание 99%.
но она делает прок по координавте, везде, и в уо и не в уо.
есть способ как-то исправить?

[Tupaka]

Gevorg пожалуйста напишы скрипт на Карпентри а то все переискал ненашел премнога благодарен!

[Gevorg]

Gevorg пожалуйста напишы скрипт на Карпентри а то все переискал ненашел премнога благодарен!

В случае набора максимального веса скрипт останавливается и в случае, когда нечего делать. ПРоверки на гогтовность по ластмесаге нету, исключительно время

set #ves 600
repeat 500 // сколько делать
if wght > #ves
alarm
stop_script
end_if
send F5 // Lo WFT LT
wait 3s
double_left 153, 67 // выбираем тип
wait 3s
double_left 57, 60 // что делать
wait 6s
if lastmsg You cant make anything with
gosub end
end_if
end_repeat

: end
alarm
wait 1s
alarm
wait 1s
alarm
stop_script

[Gen]

(Мож на первом кому пригодиться)
(Ща решаю проблему с обходом препятствий... нету блин в пилоте к сожалению номальной работы с файлами...)

Автоматическое движение Ver 1.0
Для программы UoPilot v2.12 WK

* Скрипт на данный момент предусмотрен ТОЛЬКО для обхода касательных препятствий. Если чар упрется скрипт остановиться. Маршрут выбирать таким образом что бы не было упоров.

*Параметр для индивидуальных настроек
Set #ActionTimeOut 50
50 это задержка в милисекундах на проверку выполнено действие или нет. Его подобрать индивидуально в зависимости от того как лагает у вас инет.

*После указания этого параметра идет запись данных о точках в которые необходимо дойти. В виде

Set #X 1
Set #Y 1
GoSub GoToPoint

Set #X 2
Set #Y 2
GoSub GoToPoint

и тд.

*Вместо указанных #X и #Y указать свои.
Точек добавлять столько сколько вам нужно

*При необходимости после GoSub GoToPoint можно вставлять требуемые вам действия соответсвенно.
*Остальные параметры являются служебными и редактированию не подлежат.

Необходимые данные:
1) Правильное отображение всех данных в пилоте
2) стрелка вниз - Движение на SouthEast
3) стрелка вверх - движение на NorthWes
4) стрелка вправо - движение на NorthEast
5) стрелка влево - движение на South West
6) клавиша Home - движение на West
7) клавиша PageUp - движение на North
клавиша PageDown - движение на East
9) клавиша End - движение на South
* Если у вас вручную чар или не двигает или двигается не в те стороны - скрипт работать не будет.
10) Задержку на выполнение строчек скрипта установить 1


// Begin Script Options ================
//Время ожидания действия, МСек.
Set #ActionTimeOut 50
// End Script Options ================

Set #X 1
Set #Y 1
GoSub GoToPoint

Set #X 2
Set #Y 2
GoSub GoToPoint


End_Script

//#Action
//0 - Действие не выполнено
//1 - Действие выполнено

//#BeginCharDir
//Содержит куда надо повернуть чара

//#Blocked
//0 - Препятствие отсутсвует
//1 - Препятствие

//#XBlocked #YBlocked
//Координаты X и Y препятствия

//#CountTurn
//Количество шагов до цели
//или движения по диаганали
//до пересчета направления

//#Barrier
//Содержит результат функции
//0 - Нет препятствия
//1 - Есть препятсвие

//Константы =======================
Set #StrToInt 0
// ================================

//=================================
// BEGIN ==========================
// Подпрограмма для записи карты
//=================================
:SaveMap
If #Blocked <> 0
Set %arr [#XBlocked #YBlocked] 1
Set #Blocked 0
Set #XBlocked 0
Set #YBlocked 0
Else
Set %arr [CharPosX CharPosY] 0
End_If
Return
//=================================
// END ============================
//=================================

//=================================
// BEGIN ==========================
//Подпрограмма для определения
//дистанции до требуемой точки
//=================================
:GetDistance
Set #DistanceNorth 0
Set #DistanceNorthEast 0
Set #DistanceEast 0
Set #DistanceSouthEast 0
Set #DistanceSouth 0
Set #DistanceSouthWest 0
Set #DistanceWest 0
Set #DistanceNorthWest 0
//Дистанция на North и South
If #Y < CharPosY
Set #DistanceNorth CharPosY - #Y
Set #BeginCharDir 0
Set #CountTurn #DistanceNorth
End_If
If #Y > CharPosY
Set #DistanceSouth #Y - CharPosY
Set #BeginCharDir 4
Set #CountTurn #DistanceSouth
End_If
//Дистанция на West и East
If #X < CharPosX
Set #DistanceWest CharPosX - #X
Set #BeginCharDir 6
Set #CountTurn #DistanceWest
End_If
If #X > CharPosX
Set #DistanceEast #X - CharPosX
Set #BeginCharDir 2
Set #CountTurn #DistanceEast
End_If
//Дистанция на NorthEast
If (#DistanceNorth <> 0) And (#DistanceEast <> 0)
If #DistanceNorth > #DistanceEast
Set #DistanceNorthEast #DistanceEast
Set #CountTurn #DistanceNorthEast
Else
Set #DistanceNorthEast #DistanceNorth
Set #CountTurn #DistanceNorthEast
End_If
Set #BeginCharDir 1
End_If
//Дистанция на SoutWest
If (#DistanceSouth <> 0) And (#DistanceWest <> 0)
If #DistanceSouth > #DistanceWest
Set #DistanceSouthWest #DistanceWest
Set #CountTurn #DistanceSouthWest
Else
Set #DistanceSouthWest #DistanceSouth
Set #CountTurn #DistanceSouthWest
End_If
Set #BeginCharDir 5
End_If
//Дистанция на NorthWest
If (#DistanceNorth <> 0) And (#DistanceWest <> 0)
If #DistanceNorth > #DistanceWest
Set #DistanceNorthWest #DistanceWest
Set #CountTurn #DistanceNorthWest
Else
Set #DistanceNorthWest #DistanceNorth
Set #CountTurn #DistanceNorthWest
End_If
Set #BeginCharDir 7
End_If
//Дистанция на SouthEast
If (#DistanceSouth <> 0) And (#DistanceEast <> 0)
If #DistanceSouth > #DistanceEast
Set #DistanceSouthEast #DistanceEast
Set #CountTurn #DistanceSouthEast
Else
Set #DistanceSouthEast #DistanceSouth
Set #CountTurn #DistanceSouthEast
End_If
Set #BeginCharDir 3
End_If
Set #Blocked 0
GoSub SaveMap
Return
//=================================
// END ============================
//=================================

//=================================
// BEGIN ==========================
//Подпрограмма поворота в сторону.
//движения
// ! #BeginCharDir должна содержать
//направление куда поворачивать
//При успехе возвращает #Action=1
//При ошибке возвращает #Action=0
//и записывает координаты
//препятствия в массив
//=================================
:TurnToStep
If CharDir = #BeginCharDir
Set #Action 1
Return
End_If
If #BeginCharDir = 0
Send PageUp
End_If
If #BeginCharDir = 1
Send Right
End_If
If #BeginCharDir = 2
Send PageDown
End_If
If #BeginCharDir = 3
Send Down
End_If
If #BeginCharDir = 4
Send End
End_If
If #BeginCharDir = 5
Send Left
End_If
If #BeginCharDir = 6
Send Home
End_If
If #BeginCharDir = 7
Send Up
End_If
Set #S 0
While (#S <= #ActionTimeOut) And (CharDir <> #BeginCharDir)
Wait 10
Set #S #S + 10
End_While
If CharDir <> #BeginCharDir
Set #Action 0
//Запись данных о препятствии
Set #Blocked 1
If ((#BeginCharDir = 7) And (CharDir = 0)) Or ((#BeginCharDir = 7) And (CharDir = 6))
Set #XBlocked CharPosX - 1
Set #YBlocked CharPosY - 1
End_If
If ((#BeginCharDir = 5) And (CharDir = 6)) Or ((#BeginCharDir = 5) And (CharDir = 4))
Set #XBlocked CharPosX - 1
Set #YBlocked CharPosY + 1
End_If
If (#BeginCharDir = 3) And (CharDir = 4) Or ((#BeginCharDir = 3) And (CharDir = 2))
Set #XBlocked CharPosX + 1
Set #YBlocked CharPosY + 1
End_If
If ((#BeginCharDir = 1) And (CharDir = 2)) Or ((#BeginCharDir = 1) And (CharDir = 0))
Set #XBlocked CharPosX + 1
Set #YBlocked CharPosY - 1
End_If
GoSub SaveMap
//END Запись данных о препятствии
Else
Set #Action 1
End_If
Return
//=================================
// END ============================
//=================================

//=================================
// BEGIN ==========================
//Подпрограмма движения до первого
//Упора
//=================================
:RunStep
Set #XBegin CharPosX
Set #YBegin CharPosY
Set #OldCharDir CharDir
//==========================
If #DistanceNorthEast > 0
Send Right
End_If
If #DistanceNorthWest > 0
Send Up
End_If
If #DistanceSouthEast > 0
Send Down
End_If
If #DistanceSouthWest > 0
Send Left
End_If
If (#DistanceNorth > 0) And ((#DistanceNorthWest = 0) And (#DistanceNorthEast = 0) )
Send PageUp
End_If
If (#DistanceSouth > 0) And ((#DistanceSouthWest = 0) And (#DistanceSouthEast = 0) )
Send End
End_If
If (#DistanceWest > 0) And ((#DistanceSouthWest = 0) And (#DistanceNorthWest = 0) )
Send Home
End_If
If (#DistanceEast > 0) And ((#DistanceNorthEast = 0) And (#DistanceSouthEast = 0) )
Send PageDown
End_If
//Пауза на выполнение действия
Wait #ActionTimeOut
Set #S 0
While (#S <= #ActionTimeOut) And (#XBegin = CharPosX) And (#YBegin = CharPosY) And (#OldCharDir = CharDir)
Wait 10
Set #S #S + 10
End_While
//Если изменилось направление чара
//Запись координат блокрующего
//Предмета
If (#BeginCharDir <> CharDir)
Set #Blocked 1
If ((#BeginCharDir = 7) And (CharDir = 0)) Or ((#BeginCharDir = 7) And (CharDir = 6))
Set #XBlocked CharPosX - 1
Set #YBlocked CharPosY - 1
End_If
If ((#BeginCharDir = 5) And (CharDir = 6)) Or ((#BeginCharDir = 5) And (CharDir = 4))
Set #XBlocked CharPosX - 1
Set #YBlocked CharPosY + 1
End_If
If (#BeginCharDir = 3) And (CharDir = 4) Or ((#BeginCharDir = 3) And (CharDir = 2))
Set #XBlocked CharPosX + 1
Set #YBlocked CharPosY + 1
End_If
If ((#BeginCharDir = 1) And (CharDir = 2)) Or ((#BeginCharDir = 1) And (CharDir = 0))
Set #XBlocked CharPosX + 1
Set #YBlocked CharPosY - 1
End_If
GoSub SaveMap
End_If
If ((#XBegin = CharPosX) And (#YBegin = CharPosY)) And (CharDir = #OldCharDir)
Set #Action 0
Else
Set #Action 1
If ((#XBegin <> CharPosX) Or (#YBegin <> CharPosY))
Set #CountTurn #CountTurn - 1
End_If
End_If
Return
//=================================
// END ============================
//=================================


//=================================
// BEGIN ==========================
//Подпрограмма для движения.
//Если время шага < #StepTimeOut
//=================================
:Walk
//1. Движение пока не будет упора
While (#Action = 1) And ((#X <> CharPosX) Or (#Y <> CharPosY))
GoSub RunStep
If #CountTurn = 0
GoSub GetDistance
End_If
End_While
//1. END
Return
//=================================
// END ============================
//=================================


:GoToPoint
GoSub GetDistance
While #Action <> 1
GoSub TurnToStep
End_While
GoSub Walk
Return

[tech]

Скрипты для страждующих

Хилинг:
Хилер:

:hil
double_left 481, 542 // бинты
waitfortarget 1000
left 320, 208 // на куклу
wait 3000
if stam < 5
goto stamina
else
goto hil
end_if

:stamina
double_left 558, 540 // на бутыльки(тотал рефреш)
goto hil

у меня постоянно рефрешки пьет, с каждым повтором, как исправить?
или дайте другой скрипт чтоб хилить куклу, пожалуйста.

[Bratan]

Немного переделан скрипт на сбор хлопка:

:Start

set #x 395
set #y 204
gosub Sbor

set #x 414
set #y 226
gosub Sbor

set #x 437
set #y 244
gosub Sbor

set #x 451
set #y 262
gosub Sbor

set #x 469
set #y 281
gosub Sbor

set #x 402
set #y 308
gosub Sbor

set #x 428
set #y 289
gosub Sbor

set #x 385
set #y 320
gosub Sbor

set #x 368
set #y 301
gosub Sbor

set #x 378
set #y 250
gosub Sbor

set #x 364
set #y 269
gosub Sbor

set #x 349
set #y 264
gosub Sbor

set #x 374
set #y 240
gosub Sbor

set #x 372
set #y 229
gosub Sbor

set #x 378
set #y 231
gosub Sbor

set #x 421
set #y 256
gosub Sbor

set #x 419
set #y 282
gosub Sbor

set #x 426
set #y 313
gosub Sbor

set #x 336
set #y 265
gosub Sbor

set #x 426
set #y 309
gosub Sbor

set #x 458
set #y 269
gosub Sbor

set #x 367
set #y 220
gosub Sbor

set #x 432
set #y 229
gosub Sbor

set #x 458
set #y 274
gosub Sbor

set #x 450
set #y 279
gosub Sbor

set #x 385
set #y 256
gosub Sbor

set #x 413
set #y 247
gosub Sbor

set #x 383
set #y 231
gosub Sbor

set #x 321
set #y 247
gosub Sbor

set #x 384
set #y 271
gosub Sbor

set #x 371
set #y 222
gosub Sbor

send pageup
wait 1s
send pageup
wait 1s
goto Start

stop_script

:Sbor

// Здесь можно доделать паузы и дописать что кто хочет
double_left #x, #y
// Здесь можно доделать паузы и дописать что кто хочет

return

[DyponT]

Ребята! будьте так добры, скиньте скриптик какой нибудь простой на Animal Taming.

Желательно с пояснениями... буду очень благодарен.

[DisconnecT]

народ есть у кого актуально работаюший под 2.10 или 2.12 скрипт на фишинг с досок на пристани... заранее спс

[VitaB]

Боевой хилинг версии .1 бета алфы гаммы

При падении здоровья меньше 60 автоматически выпивается бутылка, выдерживается пауза до возможности пить еще. И так 5 раз. После 5-го раза скрипт грозно предупреждает, что халява закончилась, пора валить и останавливается

При запуске скрипта в ответ на сообщения чара нужно подвигать в паке бутылки.

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

say Drag HEAL3
wait 1500
set #heal3 LastLiftedID
say Drag HEAL4
wait 1500
set #heal4 LastLiftedID
say Drag HEAL5
wait 1500
set #heal5 LastLiftedID

set #p 1

:check
if hits < 60
gosub heal
end_if
wait 200
goto check

:heal
:heal
gosub #p //выбор бутылки
send f12 //Last Object
wait 500
say Has healed
wait 500
if #p > 5
say WARNING: no more heal avaliable!
end_script
end_if
wait 8000 //ПАУЗА МЕЖДУ БУТЫЛКАМИ!
return

:1
set LastObjectID #heal1
set #p #p + 1
return
:2
set LastObjectID #heal2
set #p #p + 1
return
:3
set LastObjectID #heal3
set #p #p + 1
return
:4
set LastObjectID #heal4
set #p #p + 1
return
:5
set LastObjectID #heal5
set #p #p + 1
return

[Anixer]

Что бы не задавать глупых вопросов новичка в Ультиме подскажите пожалуйста где найти информацию по подробной настройке и написанию скриптов для УО пилот`а. А то с пойзонингом умаялся. В частности интересует работа с вторым окном. Для примера пытался написать простенький скрипт на пойзонинг, но меч в руке персонажа в другом окне. Как его обозначить?

send f1 // использовать пойзонинг
wait 1500
left 870, 58 // меч в руке персонажа
wait 1500
left 936, 486 // поушены с пойзоном
wait 4000

Или как задать данные скрипту, что бы искал в паке по цвету нужные итемы и переплавлял. А то прокачка БС`а с переплавкой вручную маленьких ножиков любого флегматика за один вечер "доведет до цугундера"

[Rand]

Ребят , помогите пожалуйста, нужен скрипт на форенсик.. если есть у кого.
заранее благодарен.

[Yunixxx]

123