Always Run On|Off

[TarantuL]

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

Code: Select all

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

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

[Mirage]

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

Code: Select all

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

[TarantuL]

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


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

Code: Select all

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

[Mirage]

Code: Select all

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 

Code: Select all

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

и все

[TarantuL]

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

[CuHTpoH]

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

[Mirage]

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

[-=#MIB#=-]

Code: Select all

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 

Code: Select all

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

и все

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

[Mirage]

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

[Nearga]

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

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

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

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

[Nearga]

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

[Mirage]

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

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

[Nearga]

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

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

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

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

[Nmy]

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

[Nearga]

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

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

[Petrovich]

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

[RL_ka]

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

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

[Petrovich]

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

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

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

[Petrovich]

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

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

[Mirage]

Code: Select all

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 

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