Ultima Online Antares

sub mine(PX,PY)
   var x,y,z
   VAR LastTimer
   UO.Set('finddistance','2')
   z=UO.GetZ("self")
   for x=-2 to 2
      for y=-2 to 2
     ;hide()  
         UO.Print(str(x)+" "+str(y))
         Repeat
            if UO.InJournal('TORMOZ') then
               pause()
            endif
            if uo.injournal('boulder')or UO.count('0x134F') then
               boulder()
            endif
    
        
            if uo.dead() then
               ressurect(PX,PY)
            endif
          
            UO.DeleteJournal()
            UO.Warmode("0")
            
            UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
            
            UO.UseType('0x0E85')
            
            LastTimer=UO.Timer()
            Repeat
               wait(500)
               lookout()
            Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") or UO.InJournal("yourself") OR UO.Timer()>LastTimer+200
          
         Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or UO.InJournal("yourself"); ВОТ тут быле еще or UO.InJournal("must wait") - Я убрал, теперь копка не сбивается, но бесит это постоянное авто таргет кенсилид
         if UO.Weight>(uo.str*4 - 45) then
            unload(PX,PY)
         endif
        
      next
   next
end sub