Yoko

Доброго времени суток..
Помогите с такой вещичкой..

sub AR_On()
   UO.DeleteJournal()
   uo.press(38)
   wait(200)
   if uo.injournal ('Always Run is now on.')
      then uo.print('Бежим')
   else uo.press(38)
      uo.print('Бежим')
   endif
end sub


sub AR_Off()
   UO.DeleteJournal()
   uo.press(38)
   wait(200)
   if uo.injournal ('Always Run is now off.')
      then uo.print('Идём...')
   else uo.press(38)
      uo.print('Идём...')
   endif
end sub

Как то так чтоли?

Если у тебя на кнопке с кодом 38 забит переключатель то да так

sub AR_On()
   UO.DeleteJournal()
   uo.press(38)
   wait(200)
   if uo.injournal ('Always Run is now on.')
   else
   uo.press(38)
   endif
      uo.print('Бежим')
end sub

sub AR_Off()
   UO.DeleteJournal()
   uo.press(38)
   wait(200)
   if uo.injournal ('Always Run is now off.')
   else
   uo.press(38)
   endif
      uo.print('Идём...')
end sub

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

кнопка наобум, ваще на 115 стоит.. Но не работает, вот в чем фигня)


Там совсем криво.. вот тут вроде покрасивше, но тоже не то))

sub AR_Off()
   UO.DeleteJournal()
   wait(100)
   uo.press(115)
   wait(500)
    if uo.injournal('now off') then
    wait(100)
      uo.print('Идём...')
   else 
   if uo.injournal('now on') then
   wait(100)
   uo.press(115)
   wait(100)
      uo.print('Идём...')
   endif
end sub

sub AR_Off()
   if uo.GetRun('self')>0 then
   uo.press(45)
   endif
      uo.print('Шаг')
end sub 

sub AR_On()
   if uo.GetRun('self')==0 then
   uo.press(45)
   endif
      uo.print('Бег')
end sub 

event macro 32 0
if #SYSMSG = ALWAYS_RUN_IS_NOW_OFF.
event macro 32 0
halt

и все

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

Спс ) Да, изи в элементарных вещах Тема

чо за шаг бег??? как вы это контролите? без перла

_________________
**Выставляем отступы в скриптах*** ©Destruction
Feel the Power of Dark Side

uo.GetRun('self')>0
она работает только на себя. При беге выдает 1 при шаге 0

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

Доброго времени суток, Мirage будь добр объясни что означает 2ой код, как использовать его (для чего он вообще)

тоже самое что в первом скрипте только для изиуо

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

Наблюдаются траблы с этим на ДВРе.

Бег включается/выключается, но uo.GetRun('self') всегда возвращает значение 1. Посему AR_Off() переключает AlwaysRun, а AR_On() вообще ничего не делает.

Хм, пока это писал - uo.GetRun('self') стало возвращать всегда 0. Может больше подождать нужно?

Вызвал несколько раз подряд AR_On(), затем AR_Off().

Упс, даблпостинг

Можно предположить что кнопка которая забиндена в игре как Always Run совпадает с кнопкой хоткеем AR_Off() либо AR_On(). В данном примере это должны быть 3 разные кнопки.
Можно сократить до 2 если использовать глобальные переменные.

PS я просто забиндил на Alt+R "Always Run" и все

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.

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

Мне нужно из скрипта управлять ОлвейзРаном. Когда копаемся в шахте - ходим (ибо стелс), когда бежим домой - бег (ибо пешком дольше).
Тоесть нужно установить, что в определенный момент времени чар 100% бежит/идет.

Перепроверю хоткеи еще раз.

для меня на дрв вроде корректно работало сейчас этот скрипт

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

Та же срань... включается-выключается когда хочет.

Nmy, а что именно ты юзаешь?

А как сделать чтобы он при вхождение в стеалтч выключал always run, а при выходе из стеалтч опять включал ?

Через опции забиндить на кнопку AlwaysRun, а потом из скрипта ловить строчки стелса и нажимать нужную кнопку

_________________
Русский Сервер Ultima Online High Seas Adventures
Legendary

Это все понятно... Что надо в скрипте пару строчек вставить...
Если бы знал, что вставлять и как, то не спрашивал бы

ХЗ, туплю не могу разобраться....

sub main()
while not UO.Dead()
UO.DeleteJournal()
UO.UseSkill('Hiding')
while not (UO.InJournal('seem') or UO.InJournal('hidden'))
wait(200)
UO.Press(35)
wend
if UO.InJournal('seem') then
else
UO.Press(35)
endif
while not UO.INJournal('revealed')
UO.Press(35)
wend
wend
end sub

Sub test()
UO.UseSkill('Hiding') 
   AR_Off()
   while uo.Hidden()
      wait(100)
   wend
AR_On()
end sub


sub AR_Off()
   if uo.GetRun('self')>0 then
   uo.press(45)
   endif
end sub

sub AR_On()
   if uo.GetRun('self')==0 then
   uo.press(45)
   endif
end sub 

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

_________________

YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.