Yoko

All sides of Injection
https://yoko.uokit.com/

FollowHim

https://yoko.uokit.com/viewtopic.php?t=5747

Page 1 of 2

FollowHim

Posted: 2006-02-14 13:39:32
by kooler
Есть у кавонить догонялка?
А то вот у мя чет не работает тот скрипт каторый в пвп :(
Или мож есть уже выкладывали не магу найди помагите плз

Posted: 2006-02-14 13:56:54
by Savage
Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?

Posted: 2006-02-14 14:04:04
by Edred
Savage wrote:Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?


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

способ замены масла

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

Posted: 2006-02-14 14:44:30
by kooler
Ви все дауни? Тут есть нормальные люди?

Posted: 2006-02-14 15:37:54
by Smog
лол

Posted: 2006-02-14 15:46:13
by kooler
Что лол? че флудите ? тут ваще модеры есть? баньте таких.
Неужели ушли норм парни :(

Posted: 2006-02-14 17:49:04
by CONDOMchick
kooler wrote:Ви все дауни? Тут есть нормальные люди?


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

вопрос к создателям форума

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

Posted: 2006-02-14 20:02:16
by Savage
Edred wrote:
Savage wrote:Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?


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

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

Posted: 2006-02-14 20:04:54
by GrayLord
Savage wrote:
Edred wrote:
Savage wrote:Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф?


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

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

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

Posted: 2006-02-18 21:14:45
by kooler
Тут че все тока на дрв играют? И я сматрю тут одни дауны да? :)
Пиздец вас читать смешно нахуй вабще этот форум нужен?
Давай скрипт если есть если нету молчи нахуй блять хуль рот ваще открываеШ? Сука чепены малолетние

Posted: 2006-02-18 21:24:34
by GrayLord
kooler wrote:Тут че все тока на дрв играют? И я сматрю тут одни дауны да? :)
Пиздец вас читать смешно нахуй вабще этот форум нужен?
Давай скрипт если есть если нету молчи нахуй блять хуль рот ваще открываеШ? Сука чепены малолетние

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

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

Posted: 2006-02-18 21:27:25
by kooler
Ты чо интелект чтоль? ты мля мне расказывай наъуй форум нужен? я нормально спросил сначла есть ли у каво или нет я не умею писать скрипты и чо терь? нет блять сука шакалы флуд развели пиздец

Posted: 2006-02-18 21:33:25
by GrayLord
kooler wrote:Ты чо интелект чтоль?

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

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

Posted: 2006-02-18 21:40:22
by kooler
Госпади рот завалилбы умелец тупоголовый

Posted: 2006-02-18 21:44:16
by GrayLord
kooler wrote:Госпади рот завалилбы умелец тупоголовый

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

Posted: 2006-02-18 23:04:20
by kooler
Кто ты такой вабще чтобы за весь форум отвечать? рот завали я тебя несрпашивал давай по теме или иди нахуй отсуда дебил комнатный

представляю вам ромку

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

Posted: 2006-02-19 09:20:49
by GimFlex
доганялка есть тока работает не на все 100%

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

Code: Select all

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

All times are UTC+02:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited