Yoko

All sides of Injection
It is currently 2024-03-28 12:20:14

All times are UTC+02:00




Post new topic  Reply to topic  [ 43 posts ]  Go to page Previous 1 2 3 Next
Author Message
PostPosted: 2012-05-31 08:53:30 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Code:
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
     next

C утра промазал.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2012-05-31 09:06:00 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
Mirage wrote:
Code:
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
     next



а у меня все проблема за проблемой ;D
с выше указанным кодом вообще ни куда не реколится при наличии руды в инвинтаре :cry:


Top
   
PostPosted: 2012-05-31 09:30:17 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
я хочу уточнить что делает next (я так понимаю он возвращает к предыдущему sub) и зачем он нужен вообще в данном коде ? если скрипт и без него как минимум полтора раза успешно выполняется, а если повезет то 2,5 ;D
и чем, по вашему мнению, вызвана ошибка "unhandled exception in parser"


Top
   
PostPosted: 2012-05-31 09:42:35 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
XuTpuH wrote:
я хочу уточнить что делает next (я так понимаю он возвращает к предыдущему sub) и зачем он нужен вообще в данном коде ?


Про For ... Next в самом начале есть примеры
viewtopic.php?f=18&t=4132


Top
   
PostPosted: 2012-05-31 09:52:46 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
спасибо. не первый раз намекают мне что надо бы уроки изучить ;D но лень не дает...
после прочтения пришел к выводу что надо бы сделать так

Code:
For a=0 to 3 
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
next
Else
Exit=1
endif
until Exit==1


сейчас вот дождусь пока завершит скрипт посмотрю что выйдет )


Top
   
PostPosted: 2012-05-31 10:20:14 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
XuTpuH wrote:
спасибо. не первый раз намекают мне что надо бы уроки изучить ;D но лень не дает...
после прочтения пришел к выводу что надо бы сделать так

Code:
For a=0 to 3 
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
next
Else
Exit=1
endif
until Exit==1


сейчас вот дождусь пока завершит скрипт посмотрю что выйдет )


Э, если это вся функция - то:
Code:
For a=0 to 3 
Exit=0
repeat
UO.FindType(Ore[a])
if UO.GetQuantity('finditem')>0 then
UO.Grab('0','finditem')
wait(1500)
Else
Exit=1
endif
until Exit==1
next


Top
   
PostPosted: 2012-05-31 10:33:26 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
нет это не вся функция, на предыдущей странице весь скрипт целиком есть, и решение которое вы описали уже было выложено и оно привело только к зацикливанию рекола на место копки.
может это конечно мистика какая и фаза луны в нужном положении, но при описанном мной способе, пока что, все работает и при отсутствии next тоже все работает ;)


Top
   
PostPosted: 2012-05-31 10:38:25 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
XuTpuH wrote:
нет это не вся функция, на предыдущей странице весь скрипт целиком есть, и решение которое вы описали уже было выложено и оно привело только к зацикливанию рекола на место копки.
может это конечно мистика какая и фаза луны в нужном положении, но при описанном мной способе, пока что, все работает и при отсутствии next тоже все работает ;)


Пардон, не заметил)

Тогда так, не перед последним endif нужен next, а чуть раньше.

Code:
Sub recall ()
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   wait(100)
   ###if uo.weight > 100 then  ;
   UO.FindType('0x19B9')
   if UO.GetQuantity('finditem')>0 then
      CheckLag()
      uo.exec("recall 0x40294E90 21") ; домой ( в рунбуке слот 1 )
      CheckLag()
      wait(10000)
      if uo.waiting() then
         uo.canceltarget()
      endif
      VAR a,Exit
      VAR UnloadCont='0x404D7327';--------айди сундука куда кидать руду   
      DIM Ore[5]
      Ore[0]=0x19B9 ; 4 and more ore
      Ore[1]=0x19B7 ; 1 ore
      Ore[2]=0x19BA ; 2 ore
      Ore[3]=0x19B8 ; 3 ore
      UO.SetReceivingContainer(UnloadCont)
      wait(500)
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
         next #<----------- тута)
         UO.UnSetReceivingContainer()
         CheckLag()
         uo.exec("recall 0x40294E90 33") ; скала ( в рунбуке слот 2 )
         CheckLag()
         wait(10000)
      endif
   end sub



Top
   
PostPosted: 2012-05-31 10:44:13 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
XuTpuH wrote:
Mirage wrote:
Code:
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
     next



а у меня все проблема за проблемой ;D
с выше указанным кодом вообще ни куда не реколится при наличии руды в инвинтаре :cry:


вот таки дела


Top
   
PostPosted: 2012-05-31 10:48:00 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
Code:
For a=0 to 3
UO.FindType(Ore[a])
if uo.findcount() then
repeat
UO.Grab('0','finditem')
wait(1500)
UO.FindType(Ore[a])
until not uo.findcount()
endif
next

А так?


Top
   
PostPosted: 2012-05-31 10:50:08 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
XuTpuH wrote:
XuTpuH wrote:
Mirage wrote:
Code:
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
     next



а у меня все проблема за проблемой ;D
с выше указанным кодом вообще ни куда не реколится при наличии руды в инвинтаре :cry:


вот таки дела



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


Top
   
PostPosted: 2012-05-31 11:14:20 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
unhandled exception in parser
все так же возникает в процессе копки все так же на 2 круге...


Top
   
PostPosted: 2012-05-31 13:14:51 
Offline

Joined: 2011-06-11 19:54:23
Posts: 820
XuTpuH wrote:
unhandled exception in parser
все так же возникает в процессе копки все так же на 2 круге...

Хмм, когда с работы прийду - посмотрю что там такое.


Top
   
PostPosted: 2012-05-31 18:17:03 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
начинаю подозревать что ошибки из-за сбоев с чтением журнала
при сообщении в журнале "you are hungry" был с бой и в момент случайной отмены выбора тайла как цели(на кирку короче щелкнул случайно;D)
возможна ли такая жесткая привязанность к событиям журнала ? или это просто совпадения ?


Top
   
PostPosted: 2012-05-31 18:24:07 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Можно увидеть скрипт в том виде, в котором он сейчас находится?


Top
   
PostPosted: 2012-05-31 18:35:25 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
собственно изменения которые он претерпел с 1 вопроса это ода строчка с NEXT ;D в 400 строке

Code:
sub main()
   uo.Exec('terminate Reconnector')
   wait(1000)
   uo.Exec('exec Reconnector')
   wait(1000)
   
while not uo.dead()
  recall()
  gomine()
  gominback()
  gomine()
wend
endsub

Sub gomine()
  go(1459,1510,1)
  go(1458,1507,1)
  go(1457,1506,1)
  go(1455,1505,1)
  go(1452,1506,1)
  go(1450,1509,1)
  go(1450,1512,1)
  go(1450,1513,1)
  go(1448,1515,1)
  go(1451,1517,1)
  go(1452,1519,1)
  go(1451,1521,1)
  go(1448,1522,1)
  go(1445,1523,1)
  go(1445,1525,1)
  go(1447,1527,1)
  go(1448,1528,1)
  go(1450,1530,1)
  go(1452,1529,1)
  go(1454,1529,1)
endsub

Sub gominback()
  go(1446,1533,0)
  go(1441,1524,0)
  go(1447,1504,0)
  go(1460,1504,0)
endsub

Sub kopka()
 var kirka='0x0E85'
 var i,j,x,y,z
 var ms1="Try mining"
 var ms2="You put"
 var ms3="There is no ore"
 var ms4="You loosen"
 x=uo.getx('self')
 y=uo.gety('self')
 z=uo.getz('self')
 hiding()
 for i=-1 to 1
  for j=-1 to 1
   repeat
    uo.deletejournal()
    uo.waittargettile(0,x+i,y+j,z)
   wait(100)
    uo.usetype(kirka)
   wait(100)
    repeat
     wait(100)
    until uo.injournal(ms1) or uo.injournal(ms2) or uo.injournal(ms3) or uo.injournal(ms4)
   until uo.injournal(ms1) or uo.injournal(ms3)
  next
 next
endsub


Sub Hiding()
var ms1="You have hidden"
var ms2="You can't"
if uo.Hidden('self') then
wait(100)
else
repeat
  uo.deletejournal()
  uo.useskill('Hiding')
  repeat
   wait(100)
  until uo.injournal(ms1) or uo.injournal(ms2)
 until uo.injournal(ms1)
endif
endsub

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
    kopka()
   endif
end sub

Sub StepEdit(x,y,dir,key)
   VAR walkwait=400
   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
endsub


Sub StepArrow(x,y,dir,ldir,rdir,key)
   VAR walkwait=400
   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
endsub

Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      Wait(50)
   until UO.InJournal('backpack')
endsub

   
Sub recall ()
   Uo.exec("set norbcheck 1"); для рекола
   uo.exec("set norbcalc 1"); тоже
   wait(100)
   UO.FindType('0x19B9')
   if UO.GetQuantity('finditem')>0 then
      CheckLag()
      uo.exec("recall 0x40294E90 21") ; домой ( в рунбуке слот 1 )
      CheckLag()
      wait(10000)
      if uo.waiting() then
         uo.canceltarget()
      endif
      VAR a,Exit
      VAR UnloadCont='0x404D7327';--------айди сундука куда кидать руду   
      DIM Ore[5]
      Ore[0]=0x19B9 ; 4 and more ore
      Ore[1]=0x19B7 ; 1 ore
      Ore[2]=0x19BA ; 2 ore
      Ore[3]=0x19B8 ; 3 ore
      UO.SetReceivingContainer(UnloadCont)
      wait(500)
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
         next
         UO.UnSetReceivingContainer()
         CheckLag()
         uo.exec("recall 0x40294E90 33") ; скала ( в рунбуке слот 2 )
         CheckLag()
         wait(10000)
      endif
   end sub

Sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (uo.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(70000) # WorldSave Protection
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.Say('')
         Wait(5000)
         uo.LDblClick(357,164)
         uo.LClick(616,459)
         Wait(5000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         uo.TextOpen()
         uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         #uo.useobject('self')
         #wait(2000)
         uo.useobject('backpack')
         wait(2000)
         uo.Exec('terminate main')
         wait(5000)
         uo.Exec('exec main')
         wait(5000)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub

Sub MakeTime()
   VAR D, T, Ret, U
   Ret = STR(uo.Time())
   T = ""
   For U = 0 To Len(Ret)
      T = Ret[Len(Ret)-U] + T
      If (U == 2) OR (U == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(uo.Date())
   D = ""
   For U = 0 To Len(Ret)
      D = Ret[Len(Ret)-U] + D
      If (U == 2) OR (U == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub












Top
   
PostPosted: 2012-05-31 21:15:17 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
я вообще то не очень люблю такие скрипты но визуально 3 момента хотел бы выделить:
1)
Code:
    if k==1 then
      kopka()
   endif
end sub

Запускание копалки из ходилки... Наверное мне просто завидно что я так не делал но я так никогда не делал :))
Code:
walker(1887, 271, 0)
walker(1897, 271, 0)
walker(1904, 271, 0)
Mine()
walker(1912, 273, 0)
Mine()
walker(1916, 281, 0)

Хотя фиг знает...
2)
Code:
Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      Wait(50)  ;  <-----------
   until UO.InJournal('backpack')
endsub

Поскольку чеклаг дергается достаточно часто то пауза в менее 0.1 секунду не есть гуд. Сделай хотя бы Wait(100)

3) а это как раз ласкуток который не проверял стопудово :)
Code:
 Sub recall ()  ; <--------- скобки ушли в гости куда то...
   Uo.exec("set norbcheck 1"); для рекола  ; это не обязательно каждый раз передергивать.
   uo.exec("set norbcalc 1"); тоже
   wait(100)
   UO.FindType('0x19B9')
   if UO.GetQuantity('finditem')>0 then
      CheckLag()
      uo.exec("recall 0x40294E90 21") ; домой ( в рунбуке слот 1 )
      CheckLag()
      wait(10000)
      if uo.waiting() then
         uo.canceltarget()
      endif
      VAR a,Exit   ; ОПА Неожиданно... Ну да ладно...
      VAR UnloadCont='0x404D7327';--------айди сундука куда кидать руду   
      DIM Ore[5]   ; цифра 5. А ниже...
      Ore[0]=0x19B9 ; 4 and more ore
      Ore[1]=0x19B7 ; 1 ore
      Ore[2]=0x19BA ; 2 ore
      Ore[3]=0x19B8 ; 3 ore   всего 4. Не смертельно но...
      UO.SetReceivingContainer(UnloadCont)  ; зачем куча устаревших команд
      wait(500)
      For a=0 to 3
         Exit=0
         repeat
            UO.FindType(Ore[a])
            if UO.GetQuantity('finditem')>0 then
               UO.Grab('0','finditem')  ; зачем куча устаревших команд
               wait(1500)
            Else
               Exit=1
            endif
         until Exit==1
      next
      UO.UnSetReceivingContainer()  ; зачем куча устаревших команд
      CheckLag()
      uo.exec("recall 0x40294E90 33") ; скала ( в рунбуке слот 2 )
      CheckLag()
      wait(10000)  ; зачем так долго ждать?
   endif
end sub

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
PostPosted: 2012-05-31 21:51:46 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
Code:
walker(1887, 271, 0)
walker(1897, 271, 0)
walker(1904, 271, 0)
Mine()
walker(1912, 273, 0)
Mine()
walker(1916, 281, 0)


тоже гадость :twisted:


Top
   
PostPosted: 2012-05-31 21:53:04 
Offline

Joined: 2012-05-20 16:25:22
Posts: 25
спасибо за замечания и советы ;)
зачем там куча устаревших команд понятия не имею ;D скрипт шился из лоскутов других так что первоначальные грешки от туда
проблема была в самом инжекте и спасибо Juicy Fruit (надеюсь я не ошибся ;DD) который решил мою проблему ;)


Top
   
PostPosted: 2012-05-31 21:56:31 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 718
Location: Москва
а чё было то?


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 43 posts ]  Go to page Previous 1 2 3 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 7 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited