Yoko :: FollowHim

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

FollowHim http://forum.yoko.com.ua/viewtopic.php?f=20&t=5747	Page 1 of 2

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

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

Author:	Edred [ 2006-02-14 14:04:04 ]
Post subject:
Savage wrote: Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф? Кайф-то как раз в написании догонялок, убивалок, лутилок...

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

Author:	kooler [ 2006-02-14 14:44:30 ]
Post subject:
Ви все дауни? Тут есть нормальные люди?

Author:	Smog [ 2006-02-14 15:37:54 ]
Post subject:
лол

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

Author:	CONDOMchick [ 2006-02-14 17:49:04 ]
Post subject:
kooler wrote: Ви все дауни? Тут есть нормальные люди? ха! вот и я гворю,одни дауни собрались!

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

Author:	Savage [ 2006-02-14 20:02:16 ]
Post subject:
Edred wrote: Savage wrote: Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф? Кайф-то как раз в написании догонялок, убивалок, лутилок... Безспорно, но афтар не претендует на писателя....

Author:	GrayLord [ 2006-02-14 20:04:54 ]
Post subject:
Savage wrote: Edred wrote: Savage wrote: Догонялка, убивалка, лутилка... А играть тогда зачем? Для чего, в чем кайф? Кайф-то как раз в написании догонялок, убивалок, лутилок... Безспорно, но афтар не претендует на писателя.... он претендует на обиженного юзера. знаешь, бывают такие - "я знаю, что вы все гуру, и без вас мне не обойтись, но я всех вас ненавижу за это."

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

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

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

Author:	GrayLord [ 2006-02-18 21:33:25 ]
Post subject:
kooler wrote: Ты чо интелект чтоль? в отличие от тебя - да. kooler wrote: ты мля мне расказывай наъуй форум нужен? я нормально спросил сначла есть ли у каво или нет я не умею писать скрипты и чо терь? нет блять сука шакалы флуд развели пиздец форум этот не для даунов, вроде тебя, а для тех, кто уже что-то умеет и нуждается в помощи в дальнейшем продвижении вперед.

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

Author:	GrayLord [ 2006-02-18 21:44:16 ]
Post subject:
kooler wrote: Госпади рот завалилбы умелец тупоголовый как ты себе представляешь такое сочетание то? если б ты был у нас тут светлая голова - то тут бы не постил такие темы. там дел то всего - порыться в документации, да подправить что-нить уже существующее под себя. а раз ты этого не хочешь сделать, да еще и орешь, почем зря, будем тебя презирать всем форумом.

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

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

Author:

GimFlex [ 2006-02-19 09:20:49 ]

Post subject:

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

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

Code:

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

Page 1 of 2	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/