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

Подскажите с ходилкой
http://forum.yoko.com.ua/viewtopic.php?f=20&t=6784		 Page 1 of 1
Author:  BbIDLO [ 2006-03-03 13:34:24 ]
Post subject:  Подскажите с ходилкой
Вообщем ситуация такая: Рублю лес, подомной появляеться тварь и начинает меня бить в упор. Мне надо чтоб отбегало от неё на на 2-3 шага....Может есть у кого ходилка с такими возможностями и желательно без АСМ....? :shock:

Или кому не трудно обьясните что изменить в СуперВолк чтобы можно было выполнять такую задучу :?:

Code:
sub SuperWalk(x,y,Target) 
   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" 
   While Exit<>1    
      If Target<>"" Then 
         dx=UO.GetX(Target)-UO.GetX() 
         dy=UO.GetY(Target)-UO.GetY() 
;         UO.Print("Target locked!") 
         If UO.GetDistance(Target)<2 Then 
            Exit=1 
         Endif 
      Else 
         dx=x-UO.GetX() 
         dy=y-UO.GetY() 
         If dx==0 AND dy==0 Then 
            Exit=1 
         Endif 

      Endif 
    
      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 
   Wend 
end sub 


sub StepEdit(x,y,dir,key) 
   VAR walkwait=300 
   VAR ErrLevel=0 
   If UO.GetDir()<>dir Then 
      UO.Press(key) 
      wait(walkwait) 
      If UO.GetDir()<>dir Then 
         CheckLag() 
      Endif 
   Endif 
   UO.Press(key) 
   wait(walkwait) 
   If x==UO.GetX() AND y==UO.GetY() Then 
      CheckLag() 
      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=300 
   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 
         CheckLag() 
      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 
         CheckLag() 
         If UO.GetDir()==dir AND UO.GetX()==x AND UO.GetY()==y Then 
; zatik          
            ErrLevel=1 
         Endif 
      Endif 
   Endif 
   Return ErrLevel 
end sub 


#============================================================== 
#  CheckLag() - click on backpack and awaiting "backpack" 
#               message in journal. 
# 
#  Journal has been deleted!!! 
#-------------------------------------------------------------- 
sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub
Author:  Savage [ 2006-03-03 16:11:55 ]
Post subject: 
Простыми изменениями на отбегание не переделать. Как вариант можно вычислять координаты противоположного от монстра направления и бежать туда но моно напороться на непроходимый тайл, тогда ходилка встрянет и тебя качественно убъют. Да иходит она медленно для отбегания.
Author:  BbIDLO [ 2006-03-03 17:47:12 ]
Post subject: 
Ходит вполне прилично, т.к. монстр медленный и когда не стоит к тебе в упор пытаеться кастовать. Сообственно пытался с помощью ходилки отходить в противоположную сторону, тогда какраз это и стало проблемой из-за непроходимых тайлов(камни/кусты/деревья) - их там много, это лес. Потому и оббратился на форум, может люди бывалые помогут чем :oops:
Author:  LordTom [ 2006-03-03 17:56:36 ]
Post subject:  первомай на садовой
а уменя стоит ЭПХХ. И что? Я же тебе ГБЦ не делал и не ставил. Но мы списывались на эту тему. И я пока в раздумьях, как совместить время, пространства и деньги. А так же прислушиваюсь к любой ин
Дык я тоже сзади мордой у земли сколько катался, все выслушивал))) Эт как же?! Можно из багажника свеситься. Ессено с кем нибудь за рулем совершенно верно, так и делал, сидел в ба
Author:  BbIDLO [ 2006-03-03 18:35:21 ]
Post subject: 
Так и делаю, дело в том что киляю его магией, а монстр появляеться чётко подомной и начинает касты сбивать, поэтому прежде чем монстр таки умирает он иногда успевает снести 20-60хп. :roll:
Author:  LordTom [ 2006-03-03 19:06:07 ]
Post subject:  эти зловредные соседи
да в любом случае нельзя так дико осуждать нынешних репперов,они,многие из них прошли он тяжелый путь к соаве,так сказать из грязи в князи,eminem 50 cent,и они по-праву имеют такую возможность как и
На тему Fallout. Вы слишком долго играли в Fallout, если Вы оскорбляете своих друзей, используя выражение: "Ну конечно, стреляй мне в спину, Ян" (или Маркус, или Вик, или Сулик…). Вы, нако
Author:  Savage [ 2006-03-03 22:41:17 ]
Post subject: 
Лорд, не в обиду, давай больше по делу пости. Тут в основном вопросы задают люди, далекие от программирования, так вот, если хочешь им помочь, пости готовые решения + минимум объяснений как это прикурутить к скрипту который они выкладывают.
Author:  BbIDLO [ 2006-03-03 23:25:56 ]
Post subject: 
Да ябы так и сделал и от программирования не слишком далёкий :) Просто шард у нас такой что банят за инжу слишком часто :D И все скрипты приходиться макросить тока ньюбами, с 2умя скиллами по 50. От куда у нюба хилинг ? :?
Author:  LordTom [ 2006-03-04 01:56:55 ]
Post subject:  перевозка регулятора в самолете
Ты индустриален, если: # Ты возвращаешь дрель в магазин, потому что звук не тот; # Mужик в магазине Black and Decker знает, что ты из какой-то тусовки на "Д"; # На стиральной машинкке должен стоять
Лёшенька, с Днём Рождения тебя! Ты у нас самый милый, самый романтичный и добрый мальчик со всей сети. Оставайся всегда таким же. Это хорошие качества. Желаю тебе найти свою музу, которая будет дари
Author:  BbIDLO [ 2006-03-04 03:06:24 ]
Post subject: 
Просто монстр в упор сбивает касты, в один момент ему надоедает сбивать касты и он делает пару шагов в сторону и пытаеться кастовать, но этот момент может настать и тогда когда я уже умру :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/