sub MiningASM()
  var pickaxeType = 0x0E85
  var weightLimit = 2000
  var delta = 2
  var i

  var found = false
  var cont = true

  UO.asmTLStaticClear()
  for i = 1339 to 1363
    UO.asmTLStaticAdd(i, 'mine')
  next
  UO.asmTLStaticGRemove(1360)
  UO.asmTLStaticAdd(1386, 'mine')

  var lastTimer
  
  UO.DeleteJournal()

  var myx
  var myy
  var myz
  
  var dx, dy
  var res

  UO.Disarm()
  UO.Equipt('Rhand', pickaxeType)
  UO.WarMode(1)

  while UO.Weight < weightLimit
    for dx = -delta to delta
      for dy = -delta to delta
        UO.Print("X=" + Str(dx) + " Y=" + Str(dy))

        myx = UO.GetX()
        myy = UO.GetY()
        myz = UO.GetZ()

        cont = true
        while cont
          res = UO.asmWaitTargetStaticTile('mine', myx + dx, myy + dy, myz)
          UO.Print("res=" + Str(res))
          if res then
            UO.UseType(pickaxeType)

            lastTimer = UO.Timer()
            found = false
            repeat
              if UO.InJournal("You cannot prospect") then
                found = true
                cont = true
                wait(2000)
              endif
              if UO.InJournal("you cannot mine that") then
                found = true
                cont = false
              endif
              if UO.InJournal("There is no ore") then
                found = true
                cont = false
                wait(100)
              endif
              if UO.InJournal("That is too far") then
                found = true
                cont = false
                wait(100)
              endif
              wait(100)
            until found || UO.Timer() > lastTimer + 300
            UO.DeleteJournal()
          else
            UO.Print("Тайл не найден!")
            cont = false
            wait(100)
          endif
        wend

        if UO.Weight > weightLimit then
          goto done
        endif
      next
    next
  wend

done:
end sub