sub mining() 
    Var mnPickaxe, mnR, mnXSt, mnXEnd, mnYSt, mnYEnd, mnXMy, mnYMy, mnZMy, mnX, mnY, mnXCur, mnYCur, mnCheck 
    mnPickaxe = "0x0E85" # Тип кирки 
    mnR = 3              # Радиус копания 

    mnXSt = - mnR 
    mnXEnd = mnR 
    mnYSt = - mnR 
    mnYEnd = mnR 

    For mnXCur = mnXSt To mnXEnd 
     For mnYCur = mnYSt To mnYEnd 
      hiding() 
      Repeat 
       UO.DeleteJournal() 
       mnXMy = UO.GetX() 
       mnYMy = UO.GetY() 
       mnZMy = UO.GetZ() 
       mnX = mnXCur + mnXMy 
       mnY = mnYCur + mnYMy 

       UO.Print("Current position (" + Str(mnX) + ";" + Str(mnY) + ";" + Str(mnZMy) + ")") 
       UO.WaitTargetTile("1530", Str(mnX), Str(mnY), Str(mnZMy)) 
       UO.UseType(mnPickaxe) 

       mnCheck = 0 
       Repeat 
        mnCheck = mnCheck + 1 
        Wait(100) 
       Until mnCheck >= 120 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line") 
      Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining") 
     Next 
    Next 
end sub 

sub hiding() 
    Var hdntim 
    If Not UO.Hidden() Then 
     hdnst: 
      UO.DeleteJournal() 
      hdntim = 0 
      UO.UseSkill('Hiding') 
      Repeat 
       hdntim = hdntim + 1 
       Wait(100) 
      Until UO.InJournal("You have hidden yourself well") Or hdntim >= 36 
      If Not UO.InJournal("You have hidden yourself well") Then 
       Goto hdnst 
      End If 
    End If 
end sub 

mnCheck = 0 
 Repeat 
 mnCheck = mnCheck + 1 
 Wait(100) 
 Until mnCheck >= 200 Or UO.InJournal("You put") Or UO.InJournal("You loose") Or UO.InJournal("Try mining") Or UO.InJournal("no line") Or UO.InJournal("no ore") Or UO.InJournal("no line") 
 Until UO.InJournal("no ore") Or UO.InJournal("no line") Or UO.InJournal("Try mining") 
 Next 
 Next 
end sub