Yoko

Code: Select all

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