//Creates a list of pack animals
@removelist packlist
@createlist packlist
@pushlist! packlist "0x123" //Pack Horse
@pushlist! packlist "0x124" //Pack Llama
//Creates a list of ores and metals
//Smelting priority from top to bottom.
@removelist orelist
@createlist orelist
@removelist metallist
@createlist metallist
@pushlist! orelist "0x19b9" //Big Ore
@pushlist! orelist "0x19b8" //Round Ore
@pushlist! orelist "0x19ba" //Medium Ore
@pushlist! orelist "0x19b7" //Small Ore
@pushlist! metallist "0" //Iron
@pushlist! metallist "2419" //Dull Copper
@pushlist! metallist "2406" //Shadow Iron
@pushlist! metallist "2413" //Copper
@pushlist! metallist "2418" //Bronze
@pushlist! metallist "2213" //Gold
@pushlist! metallist "2425" //Agapite
@pushlist! metallist "2207" //Verite
@pushlist! metallist "2219" //Valorite
//Checks if you have followers
for 6
  if @followers > 0
    if not findalias pack1
      //Then looks for packhorses and packllamas and sets one to pack1
      for 0 to packlist
        if @findtype packlist[] 0 ground 1 2 and friend found
          @setalias pack1 found
          headmsg "pack1 set"
          break
        endif
      endfor
    endfor
  endif
  while @weight > 380
    for 0 to metallist
      for 0 to orelist
        while @findtype orelist[] metallist[] 'backpack'
          @clearjournal
          movetype orelist[] backpack pack1
        endfor
      endwhile
    endwhile
    //If the pack animal is full the ore lands on the ground. The macro detects this, retrieves the ore and ignores that animal for the rest of the mining step
    for 0 to orelist
      if @findtype orelist[] any ground any 2
        moveitem found self
        unsetalias pack1
        headmsg "Pack1 IGNORED" 666
        playsound 'chime.wav'
        headmsg 'PACK FULL'
        pause 500
        stop
      endif
      while @gumpexists '0x5d553c08'
        playsound 'chime.wav'
        headmsg 'GUMP'
        pause 5000
      endwhile
      //Check & Craft TinkTool
      while counttype '0x1eb8' 'any' 'backpack' < 2
        headmsg 'CRAFTING TINKER TOOLS'
        usetype '0x1eb8'
        waitforgump 0x38920abd 15000
        replygump 0x38920abd 8
        waitforgump 0x38920abd 15000
        replygump 0x38920abd 23
        waitforgump 0x38920abd 15000
      endwhile
      // Check & Craft Shovel
      while counttype '0xf39' 'any' 'backpack' < 2
        headmsg 'CRAFTING SHOVEL'
        usetype '0x1eb8'
        waitforgump 0x38920abd 15000
        replygump 0x38920abd 8
        waitforgump 0x38920abd 15000
        replygump 0x38920abd 72
        waitforgump 0x38920abd 15000
      endwhile
      //
      usetype 0xf39
      waitingfortarget 15000
      targettilerelative 'self' '1' 'false'
      pause 1000
      if @injournal 'no metal' 'system'
        playsound 1000
        clearjournal
      endif