Помогите с реализацией бега

some · Post by **some** » 2008-03-14 14:26:41

Эксперты у меня есть скрипт но бег в нем реализован через кнопки на нампаде , как сделать так , чтобы он бегал на клавишах "вверх" и тд(которые слева от нампада) ?
заранее благодарен

Code: Select all

sub chase() 
   If uo.getglobal('chase')=='On' then 
   uo.setglobal ('chase',0) 
   uo.print(' !!! -= Chase Terminated =- !!! ') 
   uo.exec('Terminate chase') 
   else 
   uo.setglobal('chase','On') 
   uo.print(' !!! -= Chasing =- !!! ') 
   endif 

  VAR target 
  target = uo.getserial('lasttarget') 

   while not uo.dead() and target<>"" and uo.getdistance(target) 
    if UO.GetDistance(target)>-1 then 
    uo.say('') 
    Chaser(target) 
    endif 
   wend 

  uo.setglobal('chase',0) 
  uo.print(' !!! -= Chasing ended =- !!! ') 
end sub 
;----------------------------------------------------------------- 
sub Chaser(Target) 
   VAR dx, dy 
While 1 
   If Target<>"" and not uo.dead() Then 
   dx=UO.GetX(Target)-UO.GetX() 
   dy=UO.GetY(Target)-UO.GetY() 
    If UO.GetDistance(Target)<0 Then 
     return 
    Endif 
    else 
     Return 
   Endif 

   If dx<>0 AND dy<>0 Then 
    If dx>0 AND dy>0 Then 
    UO.Press(40); DownArrow 
    Endif 

    If dx>0 AND dy<0 Then 
    UO.Press(39); RightArrow 
    Endif 

    If dx<0 AND dy>0 Then 
    UO.Press(37); LeftArrow 
    Endif 

    If dx<0 AND dy<0 Then 
    UO.Press(38); UpArrow 
    Endif 
   Endif 
    
   If dx<>0 AND dy==0 Then 
     If dx>0 Then 
    UO.Press(34); PgDown 
    Endif 

    If dx<0 Then 
    UO.Press(36); Home key 
    Endif 
   Endif 

   If dx==0 AND dy<>0 Then 
    If dy>0 Then 
    UO.Press(35); End 
    Endif 

    If dy<0 Then 
    UO.Press(33); PgUp 
    Endif 
   Endif 
Wend 
end sub

korzh · Post by **korzh** » 2008-03-14 18:47:12

Code: Select all

UO.Press(40); DownArrow
UO.Press(39); RightArrow
UO.Press(37); LeftArrow
UO.Press(38); UpArrow
UO.Press(34); PgDown
UO.Press(36); Home key
UO.Press(35); End
UO.Press(33); PgUp

И где ты тут нумпад нашел?

some · Post by **some** » 2008-03-14 20:17:13

Я серьезно говорю он на нампаде бегает - тк у меня на нампаде забиты скрипты и соответственно при нажатии этих кнопок выполняет их а не бежит за чаром

Grin · Post by **Grin** » 2008-03-14 20:32:10

а на простых стрелках не бегает?;) анрил

some · Post by **some** » 2008-03-14 20:35:07

Вот я и хочу чтобы он бегал на стрелках

Но не знаю как реализовать :oops:

Подскажите как реализовать ?

korzh · Post by **korzh** » 2008-03-14 20:45:06

UO.Press(40); DownArrow
UO.Press(39); RightArrow
UO.Press(37); LeftArrow
UO.Press(38); UpArrow
UO.Press(34); PgDown
UO.Press(36); Home key
UO.Press(35); End
UO.Press(33); PgUp

ЗЫ на нумлок нажми... :roll:

some · Post by **some** » 2008-03-14 20:54:38

Все равно на нампадных стрелках рулит =)

А мне надо чтобы на стандартных стрелочках

korzh · Post by **korzh** » 2008-03-14 21:01:50

Никогда не обращал внимание что на кнопках на нумпаде на цифрах 7,9,1,3 написано home, end и тд?
Так вот, пока у тебя не нажат нумлок эти кнопки работают как хом,енд итд..
Решение: включить нумлок и перезаписать макросы с включенным нумлоком и потом его не выключать

Kynep · Post by **Kynep** » 2008-03-14 21:02:07

some wrote:Все равно на нампадных стрелках рулит =)
А мне надо чтобы на стандартных стрелочках

Тут поменяй кода на коды стрелок:

Code: Select all

UO.Press(40); DownArrow 
UO.Press(39); RightArrow 
UO.Press(37); LeftArrow 
UO.Press(3'8'); UpArrow

Только он перестанет ходить по диагонали ))) за это отвечают эти клавиши:

Code: Select all

UO.Press(34); PgDown 
UO.Press(36); Home key 
UO.Press(35); End 
UO.Press(33); PgUp

Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя
ходить будет. Интерестно, а если намлок отжат, коды те же?

some · Post by **some** » 2008-03-14 21:03:27

Сейчас проверю

korzh · Post by **korzh** » 2008-03-14 21:04:42

Kynep wrote:......
Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя ходить будет. Интерестно, а если намлок отжат, коды те же?

За минуту до тебя написал

Kynep · Post by **Kynep** » 2008-03-14 21:07:38

korzh wrote:
Kynep wrote:......
Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя ходить будет. Интерестно, а если намлок отжат, коды те же?

За минуту до тебя написал

Я в это время писал пост )

some · Post by **some** » 2008-03-14 21:53:31

Проверил когда намлок не горит - код кнопок такой

Code: Select all

UO.Press(40); DownArrow 
UO.Press(39); RightArrow 
UO.Press(37); LeftArrow 
UO.Press(3; UpArrow 
UO.Press(34); PgDown 
UO.Press(36); Home key 
UO.Press(35); End 
UO.Press(33); PgUp

Когда намлок ГОРИТ - совершенно другой , но если намлок ГОРИТ то ходилка естественно не работает

Как же сделать на обычных стрелочках?
ПС и как узнать код кнопок ? я думаю просто подставить коды и названия нужных мне кнопок в срипт ....[/code][/quote]

Grin · Post by **Grin** » 2008-03-15 00:51:39

херней ты страдаешь... тебе все дали...
стрелыки н клаве только одни... других не существует кодуних одинаковый...

some · Post by **some** » 2008-03-15 05:40:06

Спс грин разобрался

p.s один удар по голове заменяет 2 часа политработы