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

Ругается что полетел счетчик вложенности goto. Mining
http://forum.yoko.com.ua/viewtopic.php?f=17&t=13374		 Page 1 of 1
Author:  altukhov [ 2008-03-13 11:23:14 ]
Post subject:  Ругается что полетел счетчик вложенности goto. Mining
помогите найти ошибку

sub mining()
var mx, my, mz, i, j

na4alo:
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

UO.DeleteJournal()

for i = mx-2 to mx+2
for j = my -2 to my+2

UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("0xAD00") and not UO.InJournal("0xA866") and not UO.InJournal("0xA20D")
UO.DeleteJournal()

if uo.waiting() then
uo.canceltarget()
endif

UO.Waittargettile("0", str(i), str(j), str(mz))
UO.Usetype("Pickaxe")
while not UO.InJournal("0xACF9") and not UO.InJournal("0xAD03")
wait (500)

wend
wend

UO.DeleteJournal()
goto na4alo
end sub
Author:  Kynep [ 2008-03-13 11:28:19 ]
Post subject:  Re: Ругается что полетел счетчик вложенности goto. Mining
altukhov wrote:
помогите найти ошибку


Code:
sub mining() 
  var mx, my, mz, i, j 

  mx = UO.GetX("self")  
  my = UO.GetY("self") 
  mz = UO.GetZ("self") 

  UO.DeleteJournal() 

  for i = mx-2 to mx+2 
    for j = my -2 to my+2 

    UO.Print("Копаем в координатах: "+str(mx-i)+" "+str(my-j)) 
      while not UO.InJournal("0xAD00") and not UO.InJournal("0xA866") and not UO.InJournal("0xA20D") 
        UO.DeleteJournal() 
        if uo.waiting() then 
          uo.canceltarget() 
        endif 
        UO.Waittargettile("0", str(i), str(j), str(mz)) 
        UO.Usetype("Pickaxe") 
        while not UO.InJournal("0xACF9") and not UO.InJournal("0xAD03") 
          wait (500) 
        wend 
      wend 
      UO.DeleteJournal() 
    next
  next
end sub
Author:  altukhov [ 2008-03-13 11:34:29 ]
Post subject: 
Спасибо работает.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/