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

Неработает убегание
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17101		 Page 1 of 1
Author:  tylllkah [ 2012-11-08 09:38:34 ]
Post subject:  Неработает убегание
Не реагирует на стенки

Code:
sub maning()
   var mx, my, mz, i, j, jor, ser, noto
   uo.exec('terminate controlLopata')
   wait(200)
   uo.exec('terminate controlLopata')
   wait(200)
   Uo.exec("set norbcheck 1");
   uo.exec("set norbcalc 1");
   na4alo:
   noto=0
   mx = UO.GetX("self")
   my = UO.GetY("self")
   mz = UO.GetZ("self")
   UO.DeleteJournal()
   for i = mx-4 to mx+4
      for j = my -4 to my+4
         while not UO.Hidden()
            UO.Warmode(0)
            uo.print("Прячемся...")
            UO.UseSkill("Hiding")
            wait(2500)
         wend
         uo.exec('terminate control')
         wait(200)
         uo.exec('terminate control')
         wait(200)
         UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
         while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
            UO.DeleteJournal()
            repeat
            if uo.life < 140 or uo.InJournal('In Sanct Ylem') or uo.InJournal('In Ex Grav') or uo.InJournal('In Sanct Grav') or uo.InJournal('[FRAERA]') then
            uo.Press(112)
            uo.exec('exec control')
            endif
Author:  Juicy Fruit [ 2012-11-08 11:07:53 ]
Post subject:  Re: Неработает убегание
Code:
uo.press(112)
Wait(200)
Uo.press(112)

Поставь, вместо одного нажатия, сначала меняется направление чара, потом делается шаг.
Можно для отладки сунуть туда uo.print("кастуют стенку") чтоб было видно, проканала проверка или нет.
Author:  tylllkah [ 2012-11-08 12:01:32 ]
Post subject:  Re: Неработает убегание
Решил иначе, но пишет спид хак при убегании Джуси скинь пжл свою ходилку под ДРВ
Author:  Juicy Fruit [ 2012-11-08 12:18:39 ]
Post subject:  Re: Неработает убегание
У меня встроенная, а которая скриптом – та паленая и кривая.
Author:  tylllkah [ 2012-11-08 12:48:35 ]
Post subject:  Re: Неработает убегание
А как это встроенная?
Вопрос знатокам: кто может скинуть ходилку + бег для ДРВ?
Author:  Juicy Fruit [ 2012-11-08 13:26:29 ]
Post subject:  Re: Неработает убегание
В инжект встроенна, как в стелсе, только у меня она кривоватая))
Author:  tylllkah [ 2012-11-08 14:09:29 ]
Post subject:  Re: Неработает убегание
VAR walkwait=100 - это задержка от бега, на ДРВ она должна быть 200?

Code:
sub go(x,y,k)
   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   
      dx=x-UO.GetX()
      dy=y-UO.GetY()
      If dx==0 AND dy==0 Then
         Exit=1
      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
   if k==1 then
   endif
end sub
sub StepEdit(x,y,dir,key)
   VAR walkwait=100
   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
         ErrLevel=1
      Endif
   Endif
   Return ErrLevel
end sub
sub StepArrow(x,y,dir,ldir,rdir,key)
   VAR walkwait=100
   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         
            ErrLevel=1
         Endif
      Endif
   Endif
   Return ErrLevel
end sub
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      Wait(100)
   until UO.InJournal('ackpack')
end sub
Author:  Juicy Fruit [ 2012-11-08 14:37:22 ]
Post subject:  Re: Неработает убегание
Смотря как идешь и бежишь, на форуме ДРВ поищи темку про сх детекты, там написаны задержки для шага и бега без хорсы и на ней.
Author:  tylllkah [ 2012-11-08 17:44:49 ]
Post subject:  Re: Неработает убегание
начал сильно спамить
Author:  Juicy Fruit [ 2012-11-08 18:03:55 ]
Post subject:  Re: Неработает убегание
tylllkah wrote:
начал сильно спамить
Code:
repeat # Этоможет быть причиной?

Немаловероятно, кинь оставшийся кусок кода до wend
Author:  tylllkah [ 2012-11-08 18:11:09 ]
Post subject:  Re: Неработает убегание
Code:
sub control() # если вас отаковали или пытаются заблокировать выход, чар бежит от пка, в данный момент в портал минока
uo.DeleteJournal()
repeat                # из за этого бегает туда сюда, типо только этот скрипт гонит, убираю, то не запускается
UO.Warmode(0)
uo.msg('\w Kot: Я ATAKOBAH!!!')
UO.Warmode(0)
uo.msg('\w Rekoshet: Я АТАКОВАН!!!')
UO.Warmode(0)
uo.canceltarget()
UO.Warmode(0)
uo.Press(112)
gohome()
wait(100)
binti1()
wait(700)
havka()
wait(700)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(2500)
wend
band()
wait(700)
loot2()
wait(700)
loot()
wait(700)
binti2()
wait(700)
while not UO.Hidden()
UO.Warmode(0)
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(700)
wend
wait(200)
gomining()
wait(500)
until uo.dead()
end sub

и спамит...
Author:  Juicy Fruit [ 2012-11-08 18:38:06 ]
Post subject:  Re: Неработает убегание
Code:
sub maning()
   var mx, my, mz, i, j, jor, ser, noto
   na4alo:
   noto=0
   mx = UO.GetX("self")
   my = UO.GetY("self")
   mz = UO.GetZ("self")
   UO.DeleteJournal()
   for i = mx-4 to mx+4
      for j = my -4 to my+4
         while not UO.Hidden()
            UO.Warmode(0)
            uo.print("Прячемся...")
            UO.UseSkill("Hiding")
            wait(2500)
         wend
         UO.Print("Копаем в координатх: "+str(mx-i)+" "+str(my-j))
         while not UO.InJournal("no ore here|location|far away|in rock|Iron Ore|Copper|Rusty Ore")
            UO.DeleteJournal()
            if uo.waiting() then
               uo.canceltarget()
            endif
            UO.Waittargettile("1341", str(i), str(j), str(mz))
            If uo.count(Shovel) then
               uo.usetype(Shovel)
            else
               UO.Press(112)
               uo.exec('exec controlLopata')
            end if
            while not UO.InJournal("You put|heavy|location|no ore|but fail|far away|in rock")
               wait (500)
               if uo.injournal("heavy") or uo.dead() then
                  pwav() # Сообщение что появился елемент
               endif
               for jor = 0 to 9
                  ser = uo.journalserial(jor)
                  if ser == uo.getserial('self') then
                     noto = 0
                  else
                     noto = uo.getnotoriety(ser)
                  endif
                  if uo.life < 170 or uo.InJournal('In Sanct Ylem') or uo.InJournal('In Ex Grav') or uo.InJournal('In Sanct Grav') or uo.InJournal('[FRAERA]') then
                     control()
                  endif
               next
            wend
            if uo.weight > 700 then # Максимальный вес
               goto end
            endif
         wend
         UO.DeleteJournal()
      next
   next
   goto na4alo
   end:
   if uo.waiting() then
      uo.canceltarget()
   endif
   UO.Press(112)
   gohome()
   while not UO.Hidden()
      UO.Warmode(0)
      uo.print("Прячемся...")
      UO.UseSkill("Hiding")
      wait(2500)
   wend
   wait(3000)
   loot2()
   wait(1000)
   loot()
   wait(3000)
   havka()
   wait(2500)
   reccal:
   uo.deletejournal()
   if uo.waiting() then
      uo.canceltarget()
   endif
   gomining()
   wait(500)
   goto na4alo
end sub

sub control() # если вас отаковали или пытаются заблокировать выход, чар бежит от пка, в данный момент в портал минока
   uo.DeleteJournal()
   repeat                # из за этого бегает туда сюда, типо только этот скрипт гонит, убираю, то не запускается
      UO.Warmode(0)
      uo.msg('\w Kot: Я ATAKOBAH!!!')
      UO.Warmode(0)
      uo.msg('\w Rekoshet: Я АТАКОВАН!!!')
      UO.Warmode(0)
      uo.canceltarget()
      UO.Warmode(0)
      uo.Press(112)
      gohome()
      wait(100)
      binti1()
      wait(700)
      havka()
      wait(700)
      while not UO.Hidden() and not uo.dead()
         UO.Warmode(0)
         uo.print("Прячемся...")
         UO.UseSkill("Hiding")
         wait(2500)
      wend
      band()
      wait(700)
      loot2()
      wait(700)
      loot()
      wait(700)
      binti2()
      wait(700)
      while not UO.Hidden() and not uo.dead()
         UO.Warmode(0)
         uo.print("Прячемся...")
         UO.UseSkill("Hiding")
         wait(700)
      wend
      wait(200)
      gomining()
      wait(500)
      if not uo.dead() then
         return
      endif
   until uo.dead()
end sub

until от того рипита потерял где-то, рипит убрал. Во 2 функции жесть, бан чата не ловишь на минуту?)
Code:
      uo.msg('\w Kot: Я ATAKOBAH!!!')
      UO.Warmode(0)
      uo.msg('\w Rekoshet: Я АТАКОВАН!!!')

Между мессагами задержку бы хотяб 500 сделать. Или в отдельную функцию их вывести и запускать её через uo.exec('exec bla'), чтоб не тратил время и сразу топал на выход.
Author:  tylllkah [ 2012-11-08 18:52:39 ]
Post subject:  Re: Неработает убегание
а ты поставил, просто не пойму где...
Author:  Juicy Fruit [ 2012-11-08 19:02:05 ]
Post subject:  Re: Неработает убегание
Code:
repeat # Этоможет быть причиной?

Это убрал вообще.
Author:  tylllkah [ 2012-11-09 10:12:05 ]
Post subject:  Re: Неработает убегание
cпс
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/