Yoko
http://forum.yoko.com.ua/

Помогите с реализацией бега
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13377		 Page 1 of 1
Author:  some [ 2008-03-14 14:26:41 ]
Post subject:  Помогите с реализацией бега
Эксперты у меня есть скрипт но бег в нем реализован через кнопки на нампаде , как сделать так , чтобы он бегал на клавишах "вверх" и тд(которые слева от нампада) ?
заранее благодарен
Code:
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
Author:  korzh [ 2008-03-14 18:47:12 ]
Post subject: 
Code:
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

И где ты тут нумпад нашел? :)
Author:  some [ 2008-03-14 20:17:13 ]
Post subject: 
Я серьезно говорю он на нампаде бегает - тк у меня на нампаде забиты скрипты и соответственно при нажатии этих кнопок выполняет их а не бежит за чаром
Author:  Grin [ 2008-03-14 20:32:10 ]
Post subject: 
а на простых стрелках не бегает?;) анрил
Author:  some [ 2008-03-14 20:35:07 ]
Post subject: 
Вот я и хочу чтобы он бегал на стрелках :) Но не знаю как реализовать :oops:
Подскажите как реализовать ?
Author:  korzh [ 2008-03-14 20:45:06 ]
Post subject: 
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:
Author:  some [ 2008-03-14 20:54:38 ]
Post subject: 
Все равно на нампадных стрелках рулит =) :D
А мне надо чтобы на стандартных стрелочках
Author:  korzh [ 2008-03-14 21:01:50 ]
Post subject: 
Никогда не обращал внимание что на кнопках на нумпаде на цифрах 7,9,1,3 написано home, end и тд?
Так вот, пока у тебя не нажат нумлок эти кнопки работают как хом,енд итд..
Решение: включить нумлок и перезаписать макросы с включенным нумлоком и потом его не выключать :)
Author:  Kynep [ 2008-03-14 21:02:07 ]
Post subject: 
some wrote:
Все равно на нампадных стрелках рулит =) :D
А мне надо чтобы на стандартных стрелочках


Тут поменяй кода на коды стрелок:
Code:
UO.Press(40); DownArrow 
UO.Press(39); RightArrow 
UO.Press(37); LeftArrow 
UO.Press(3'8'); UpArrow

Только он перестанет ходить по диагонали ))) за это отвечают эти клавиши:
Code:
UO.Press(34); PgDown 
UO.Press(36); Home key 
UO.Press(35); End 
UO.Press(33); PgUp

Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя
ходить будет. Интерестно, а если намлок отжат, коды те же?
Author:  some [ 2008-03-14 21:03:27 ]
Post subject: 
Сейчас проверю
Author:  korzh [ 2008-03-14 21:04:42 ]
Post subject: 
Kynep wrote:
......
Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя ходить будет. Интерестно, а если намлок отжат, коды те же?

За минуту до тебя написал :)
Author:  Kynep [ 2008-03-14 21:07:38 ]
Post subject: 
korzh wrote:
Kynep wrote:
......
Хочешь оставляй, не хочешь удаляй совсем. Тока ХЗ как он у тя ходить будет. Интерестно, а если намлок отжат, коды те же?

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


Я в это время писал пост )
Author:  some [ 2008-03-14 21:53:31 ]
Post subject: 
Проверил когда намлок не горит - код кнопок такой
Code:
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]
Author:  Grin [ 2008-03-15 00:51:39 ]
Post subject: 
херней ты страдаешь... тебе все дали...
стрелыки н клаве только одни... других не существует кодуних одинаковый...
Author:  some [ 2008-03-15 05:40:06 ]
Post subject: 
Спс грин разобрался :)
p.s один удар по голове заменяет 2 часа политработы :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/