Reply To: Mining Macro (UOSteam)

I wrote this one for UOS. Works pretty well for me

clearjournal
if not @findalias "Buggie" //set your storage animal
  promptalias 'Buggie'
endif
while not @injournal 'no metal here' 'system' and not @injournal "can't mine" 'system' and not @injournal "There's no ore left there." 'system'
  if @findtype 0xf39 'any' 'backpack' //set shovels
    useobject 'found'
  else
    sysmsg "You do not have any digging tools!"
    for 1 to 300 //do arms lore if you cannot mine for any reason
      useskill 'Arms Lore'
      waitfortarget 15000
      target! 0x4021629b //set to a dagger in my backpack
      pause 10000
    endfor
    usetype 0x97b 'backpack' //eat fish steaks
    pause 1000
  endif
  waitfortarget 15000
  if direction == 0
    turn northeast
    targettileoffset 0 -1 0
  elseif direction == 1
    turn east
    targettileoffset 1 -1 0
  elseif direction == 2
    turn southeast
    targettileoffset 1 0 0
  elseif direction == 3
    turn south
    targettileoffset 1 1 0
  elseif direction == 4
    turn southwest
    targettileoffset 0 1 0
  elseif direction == 5
    turn west
    targettileoffset -1 1 0
  elseif direction == 6
    turn northwest
    targettileoffset -1 0 0
  elseif direction == 7
    turn north
    targettileoffset -1 -1 0
  endif
  pause 7500
endwhile
while @findtype 0x19b9 'any' 'backpack' //looking for ore to move to Buggie
  movetype 0x19b9 'backpack' 'Buggie'
  pause 1000
endwhile
//walk north
for 1 to 300 //do arms lore if you cannot mine for any reason
  useskill 'Arms Lore'
  waitfortarget 15000
  target! 0x4021629b //set to a dagger in my backpack
  pause 10000
endfor
usetype 0x97b 'backpack' //eat fish steaks
pause 1000
clearjournal