if not @findalias pack1
  promptalias pack1
endif
headmsg "Smelting Pack Animal's Ore" 666
//Opens the animal's pack
useobject! pack1
pause 750
useobject! pack1
pause 750
//Begins smelting t he contents
for 0 to metallist
  for 0 to orelist
    while @findtype orelist[] metallist[] pack1
      @clearjournal
      @usetype orelist[] metallist[] pack1
      waitingfortarget 5000
      @targettilerelative 'self' '1' 'false'
      pause 1000
      //Moves unsmeltable ore to your backpack
      if @injournal "not enough" system
        @moveitem found backpack 0 0 0 1
        break
      endif
    endwhile
  endfor
endfor
//Begins smelting t he contents
for 0 to metallist
  for 0 to orelist
    while @findtype orelist[] metallist[] backpack      @clearjournal
      @usetype orelist[] metallist[] backpack
      waitingfortarget 5000
      @targettilerelative 'self' '1' 'false'
      pause 1000
      if @injournal 'enough' 'system'
        poplist orelist
        @clearjournal
      endif
    endwhile
  endfor
endfor
headmsg 'All Done!'