sub miner()
  var CX=UO.GetX()
  var CY=UO.GetY()
  var CZ=UO.GetZ()
  
  var IX,IY
  Hide()
  for IX=-2 to 2
   for IY=-2 to 2
      MineIn(CX+IX,CY+IY,CZ)
      if (UO.Weight>660) then
        UO.PlayWav('C:\alarm.wav')
        return
      end if
    next
  next
end sub

Sub MineIn(X,Y,Z)
  repeat
    UO.DeleteJournal()
    UO.WaitTargetTile('1341',X,Y,Z)
    UO.UseType('0x0E85')
    repeat
      wait(100) 
    until UO.InJournal('put') or UO.InJournal('fail') or UO.InJournal('nothing here') or UO.InJournal('line of')
  until UO.InJournal('nothing here') or UO.InJournal('line of')
end sub