Mining Macros (x2)

// Author: Kraz
// Description: Simple Mining
if not listexists 'Runebooks'
  createlist 'Runebooks'
endif
if not listexists 'Runes'
  createlist 'Runes'
endif
if list 'Runes' == 0
  pushlist 'Runes' 5
  pushlist 'Runes' 11
  pushlist 'Runes' 17
  pushlist 'Runes' 23
  pushlist 'Runes' 29
  pushlist 'Runes' 35
  pushlist 'Runes' 41
  pushlist 'Runes' 47
  pushlist 'Runes' 53
  pushlist 'Runes' 59
  pushlist 'Runes' 65
  pushlist 'Runes' 71
  pushlist 'Runes' 77
  pushlist 'Runes' 83
  pushlist 'Runes' 89
  pushlist 'Runes' 95
  // All runes have been mined, go to the next runebook
  poplist 'Runebooks' 'front'
endif
// Add all your mine runebooks serial to that list
if list 'Runebooks' == 0
  pushlist 'Runebooks' 0x404536c6 //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
  pushlist 'Runebooks' 0x406762ee //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
  pushlist 'Runebooks' 0x40a0de21 //EDIT THIS USING OBJECT INSPECTOR AND SELECT A RUNEBOOK
endif
if not listexists 'Ores'
  createlist 'Ores'
  pushlist 'Ores' 0x19b7
  pushlist 'Ores' 0x19b8
  pushlist 'Ores' 0x19ba
  pushlist 'Ores' 0x19b9
endif
if not listexists 'Stones'
  createlist 'Stones'
  // Citrine
  pushlist 'Stones' 0xf15
  // Amber
  pushlist 'Stones' 0xf25
  // Emerald
  pushlist 'Stones' 0x3195
  // Star Sapphire
  pushlist 'Stones' 0xf21
  // Amethyst
  pushlist 'Stones' 0xf16
  // Ruby
  pushlist 'Stones' 0xf13
  // Diamond
  pushlist 'Stones' 0xf26
  // Sapphire
  pushlist 'Stones' 0xf19
  // Tourmaline
  pushlist 'Stones' 0xf2d
endif
if not @findalias 'Stock'
  promptalias 'Stock'
endif
if not @findobject 'Home Runebook'
  promptalias 'Home Runebook'
endif
if weight >= 390 or not @findtype 0xf39 0 'backpack'
  cast 'strength'
  pause 2000
  target! 'self'
  pause 2000
  useobject! 'Home Runebook'
  headmsg 'Check Shovels!'
  pause 1000
  if @injournal 'Insufficient mana' 'system'
    useskill 'Meditation'
    while mana != maxmana
      pause 500
    endwhile
  endif
  @clearjournal
  if @injournal 'More reagents' 'system' or @injournal 'Insufficient mana' 'system'
    clearjournal
    replay
    stop
  endif
  useobject! 'Stock'
  pause 1000
  for 0 to 'Stones'
    while @movetype Stones[] 'backpack' 'Stock'
      pause 1000
    endwhile
  endfor
  for 0 to 'Ores'
    while @findtype Ores[] 'any' 'backpack'
      useobject! 'found'
      waitfortarget 1000
      // Small forge 0xfb1
      // Elven forge 0x2dd8
      // Large forge 0x19a2
      targetground 0xfb1 'any' 2
      pause 200
      if @injournal 'not enough metal' 'system'
        moveitem 'found' 'Stock'
        pause 1000
        clearjournal
      endif
    endwhile
  endfor
  while @findtype 0x1bf2 'any' 'backpack'
    moveitem 'found' 'Stock'
    pause 1000
  endwhile
  while not @findtype 0xf39 0 'backpack'
    if not @findtype 0x1bf2 0 'backpack' 22
      movetype 0x1bf2 'Stock' 'backpack' 0 0 0 0 22
      pause 1000
    endif
    if not @findtype 0x1eb8 0 'backpack'
      movetype 0x1eb8 'Stock' 'backpack'
      pause 1000
      usetype! 0x1eb8
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 8
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 23
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 0
      pause 1000
      movetype 0x1eb8 'backpack' 'Stock'
      pause 1000
    endif
    for 5
      usetype! 0x1eb8
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 8
      waitforgump 0x38920abd 15000
      replygump 0x38920abd 72
      waitforgump 0x38920abd 15000
      pause 1000
    endfor
    replygump 0x38920abd 0
  endwhile
else
  msg 'All Come'
  for 0 to 'Runes'
    useobject! Runebooks[0]
    waitforgump 0x554b87f3 15000
    replygump 0x554b87f3 Runes[]
    pause 3000
    if @injournal 'More reagents' 'system' or @injournal 'Insufficient mana' 'system'
      clearjournal
      continue
    endif
    poplist 'Runes' 'front'
    if @injournal 'location is blocked' 'system'
      clearjournal
      continue
    endif
    useskill 'hiding'
    useobject 0x3b21b
    if not @findalias 'Beetlle'
      promptalias 'Beetle'
    endif
    if @findtype 0xf39 0 'backpack' and weight <= 389
      for 15
        if not usetype! 0xf39 or weight >= 390
          replay
          stop
        endif
        waitfortarget 1000
        targettileoffset -1 0 0
        pause 1000
        if counttype 0x19b9 'any' 'backpack' > 10
          movetype 0x19b9 'backpack' 'Beetle'
          pause 500
        endif
        if @injournal 'there is no metal' 'system'
          clearjournal
          replay
          stop
        endif
      endfor
    else
      break
    endif
    pause 3000
  endfor
endif

useskill 'hiding'
if not @findalias 'Beetle'
  promptalias 'Beetle'
endif
if counttype 0x19b9 'any' 'backpack' < 188
  movetype 0x19b9 'backpack' 'Beetle'
endif
if not listexists 'miningerrormessages'
  createlist 'miningerrormessages'
  pushlist 'miningerrormessages' 'no metal here'
  pushlist 'miningerrormessages' "You can't mine there"
  pushlist 'miningerrormessages' "Target cannot be seen"
  pushlist 'miningerrormessages' "You can't mine that"
endif
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
  useobject 'found'
else
  sysmsg "You do not have any digging tools!"
  stop
endif
waitfortarget 500
if direction == 0
  targettileoffset 0 -1 0
elseif direction == 1
  targettileoffset 1 -1 0
elseif direction == 2
  targettileoffset 1 0 0
elseif direction == 3
  targettileoffset 1 1 0
elseif direction == 4
  targettileoffset 0 1 0
elseif direction == 5
  targettileoffset -1 1 0
elseif direction == 6
  targettileoffset -1 0 0
elseif direction == 7
  targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
  useobject 'found'
else
  sysmsg "You do not have any digging tools!"
  stop
endif
waitfortarget 500
if direction == 1
  targettileoffset 0 -1 0
elseif direction == 2
  targettileoffset 1 -1 0
elseif direction == 3
  targettileoffset 1 0 0
elseif direction == 4
  targettileoffset 1 1 0
elseif direction == 5
  targettileoffset 0 1 0
elseif direction == 6
  targettileoffset -1 1 0
elseif direction == 7
  targettileoffset -1 0 0
elseif direction == 0
  targettileoffset -1 -1 0
endif
pause 200
if @findtype 0xe86 'any' 'backpack' or @findtype 0xf39 'any' 'backpack'
  useobject 'found'
else
  sysmsg "You do not have any digging tools!"
  stop
endif
waitfortarget 500
if direction == 7
  targettileoffset 0 -1 0
elseif direction == 0
  targettileoffset 1 -1 0
elseif direction == 1
  targettileoffset 1 0 0
elseif direction == 2
  targettileoffset 1 1 0
elseif direction == 3
  targettileoffset 0 1 0
elseif direction == 4
  targettileoffset -1 1 0
elseif direction == 5
  targettileoffset -1 0 0
elseif direction == 6
  targettileoffset -1 -1 0
endif
pause 10