Yoko

Есть у кавонить догонялка?
А то вот у мя чет не работает тот скрипт каторый в пвп
Или мож есть уже выкладывали не магу найди помагите плз

Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?

Кайф-то как раз в написании догонялок, убивалок, лутилок...

Конечно Сань, ты чаго? Чагаев наголову сильнее и быстрее раз так в дцать, в общем, Чагаев всех сильнее в супертяже, первый сильный боксер за последнее время Не даром - Белый Тайсон. Держись Клич

Ви все дауни? Тут есть нормальные люди?

лол

Что лол? че флудите ? тут ваще модеры есть? баньте таких.
Неужели ушли норм парни

ха!
вот и я гворю,одни дауни собрались!

У каждого на жизненном пути встречались люди с, мягко говоря, необычными фамилиями. Даваите, посмеёмся вместе! Натолкнуло меня на эту тему следующее: мой МЧ летом работал в институте, создавал архивну
ТЕЛЕФОН Мужик просыпается в три часа ночи от телефонного звонка, глаза кое-как продрал, снимает трубку: Алло !?То есть как это пошел на @#$ ?!!! Звонит у меня телефон. Муж поднимает трубк

Безспорно, но афтар не претендует на писателя....

он претендует на обиженного юзера. знаешь, бывают такие - "я знаю, что вы все гуру, и без вас мне не обойтись, но я всех вас ненавижу за это."

Тут че все тока на дрв играют? И я сматрю тут одни дауны да?
Пиздец вас читать смешно нахуй вабще этот форум нужен?
Давай скрипт если есть если нету молчи нахуй блять хуль рот ваще открываеШ? Сука чепены малолетние

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

а на счет дрв - так их от туда толпа целая пришла сюда. с остальных шардов меньше народу.

Ты чо интелект чтоль? ты мля мне расказывай наъуй форум нужен? я нормально спросил сначла есть ли у каво или нет я не умею писать скрипты и чо терь? нет блять сука шакалы флуд развели пиздец

в отличие от тебя - да.

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

Госпади рот завалилбы умелец тупоголовый

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

Кто ты такой вабще чтобы за весь форум отвечать? рот завали я тебя несрпашивал давай по теме или иди нахуй отсуда дебил комнатный

Veronika не капризничай есть только Боря Моисеев и Элтон Джон Че-то и правдавыбор какой-то ограниченный Никак не могу выбрать Ну ты можеш сейчас невыбирать. п
Средство одно: иметь собственную высокую психосоматическую устойчивость, и тогда ничего и ни от кого извне к Вам не пристанет. А устойчивость такую дает йога, но НЕ быстро. (ВСБ). написать (сказ

доганялка есть тока работает не на все 100%

бери любую ходилку я брал саваджа например ставишь задержку на шаг по 10 убираешь везде чеклаг и все далее запускаешь скриптик
включить alwaysrun обязательно ваще скрипт так себе не идеальный но по ровной местности сойдет

sub fol()
var x,y
while uo.getdistance('laststatus')>0
 x=uo.getx('laststatus')
 y=uo.gety('laststatus')
 go(x,y)
wend
endsub

Sub go(x,y) 
  VAR i 
  VAR dir,ldir,rdir,key,olddir 
  VAR dx,dy,Exit=0 
  VAR CacheLimit=9,CacheIndex="Text" 
  DIM CacheX[10], CacheY[10] 
  
  CacheX[0]="Test" 
 
    If dx<>0 AND dy<>0 Then 
      If dx>0 AND dy>0 Then ; GoSE 
        dir=3 
        ldir=2 
        rdir=4 
        key=40 ; DownArrow 
        olddir=UO.GetDir() 
        If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
          If olddir==2 Then ; GoNE 
            dir=1 
            ldir=0 
            rdir=1 
            key=39 ; RightArrow 
            While UO.GetDir()<>1 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSW 
            dir=5 
            ldir=5 
            rdir=6 
            key=37 ; LeftArrow 
            While UO.GetDir()<>5 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 

      If dx>0 AND dy<0 Then ; GoNE 
        dir=1 
        ldir=0 
        rdir=2 
        key=39 ; RightArrow 
        olddir=UO.GetDir() 
        If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
          If olddir==0 Then ; GoWN 
            dir=7 
            ldir=6 
            rdir=7 
            key=38 ; UpArrow 
            While UO.GetDir()<>7 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSE 
            dir=3 
            ldir=3 
            rdir=4 
            key=40 ; DownArrow 
            While UO.GetDir()<>3 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 

      If dx<0 AND dy>0 Then ; GoSW 
        dir=5 
        ldir=4 
        rdir=6 
        key=37 ; LeftArrow 
        olddir=UO.GetDir() 
        If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
          If olddir==6 Then ; GoWN 
            dir=7 
            ldir=7 
            rdir=0 
            key=38 ; UpArrow 
            While UO.GetDir()<>7 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSE 
            dir=3 
            ldir=2 
            rdir=3 
            key=40 ; DownArrow 
            While UO.GetDir()<>3 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 

      If dx<0 AND dy<0 Then ; GoWN 
        dir=7 
        ldir=6 
        rdir=0 
        key=38 ; UpArrow 
        olddir=UO.GetDir() 
        If StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) Then 
          If olddir==0 Then ; GoNE 
            dir=1 
            ldir=1 
            rdir=2 
            key=39 ; RightArrow 
            While UO.GetDir()<>1 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSW 
            dir=5 
            ldir=4 
            rdir=5 
            key=37 ; LeftArrow 
            While UO.GetDir()<>5 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 
    Endif 
  
    If dx<>0 AND dy==0 Then 
      If dx>0 Then ; GoE 
        dir=2 
        key=34 ; PgDown 
        olddir=UO.GetDir() 
        If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
          If olddir==2 Then ; GoSE 
            dir=3 
            ldir=3 
            rdir=4 
            key=40 ; DownArrow 
            While UO.GetDir()<>3 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoNE 
            dir=1 
            ldir=1 
            rdir=0 
            key=39 ; RightArrow 
            While UO.GetDir()<>1 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 
      
      If dx<0 Then ; GoW 
        dir=6 
        key=36 ; Home key 
        olddir=UO.GetDir() 
        If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
          If olddir==0 Then ; GoWN 
            dir=7 
            ldir=7 
            rdir=0 
            key=38 ; UpArrow 
            While UO.GetDir()<>7 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSW 
            dir=5 
            ldir=4 
            rdir=5 
            key=37 ; LeftArrow 
            While UO.GetDir()<>5 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 
    Endif 

    If dx==0 AND dy<>0 Then 
      If dy>0 Then ; GoS 
        dir=4 
        key=35 ; End 
        If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
          If olddir==2 Then ; GoSE 
            dir=3 
            ldir=2 
            rdir=3 
            key=40 ; DownArrow 
            While UO.GetDir()<>3 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoSW 
            dir=5 
            ldir=6 
            rdir=5 
            key=37 ; LeftArrow 
            While UO.GetDir()<>5 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 
      
      If dy<0 Then ;GoN 
        dir=0 
        key=33 ; PgUp 
        olddir=UO.GetDir() 
        If StepEdit(UO.GetX(),UO.GetY(),dir,key) Then 
          If olddir==2 Then ; GoNE 
            dir=1 
            ldir=1 
            rdir=2 
            key=39 ; RightArrow 
            While UO.GetDir()<>1 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Else ; GoWN 
            dir=7 
            ldir=7 
            rdir=6 
            key=38 ; UpArrow 
            While UO.GetDir()<>7 
               StepArrow(UO.GetX(),UO.GetY(),dir,ldir,rdir,key) 
            Wend 
          Endif 
        Endif 
      Endif 
    Endif   
end sub 


Sub StepEdit(x,y,dir,key) 
  VAR walkwait=50 
  VAR ErrLevel=0 
  If UO.GetDir()<>dir Then 
    UO.Press(key) 
    wait(walkwait) 
    If UO.GetDir()<>dir Then  
    Endif 
  Endif 
  UO.Press(key) 
  wait(walkwait) 
  If x==UO.GetX() AND y==UO.GetY() Then  
    If x==UO.GetX() AND y==UO.GetY() Then 
;zatik 
      ErrLevel=1 
    Endif 
  Endif 
  Return ErrLevel 
end sub 


Sub StepArrow(x,y,dir,ldir,rdir,key) 
  VAR walkwait=50 
  VAR ErrLevel=0 
  If UO.GetDir()<>dir Then 
    UO.Press(key) 
    wait(walkwait) 
    If UO.GetDir()<>dir AND UO.GetDir()<>ldir AND UO.GetDir()<>rdir Then 
      wait(10)
    Endif 
  Endif 

  If UO.GetX()==x AND UO.GetY()==y Then 
    UO.Press(key) 
    wait(walkwait) 
    If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
      If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
; zatik      
        ErrLevel=1 
      Endif 
    Endif 
  Endif 
  Return ErrLevel 
end sub