Miscellany

set %ironcol 0
set %stonecol 2103
set %coppercol 1601
set %carboncol 1325
set %nickelcol 511
set %leadcol 505
set %zinccol 2057
set %tincol 1310
set %goldcol
set %silvercol 1154
set %colbaltcol 191
Main:
wait 1
if *minutes = 0 || *minutes = n/a
goto main
Finditem ENK C_ , #backpackid
if #findid = x
{
gosub update
ignoreitem reset
goto main
}
Gosub count #findcol
gosub time
goto main

Sub update
set %part1 Iron , #spc , PerMin , #spc , %time . %ironcol
set %part2 Stone , #spc , PerMin , #spc ,  %time . %stonecol
set *permin %part1 , %part2 , #spc , TIME , #spc , *minutes
return
Sub time
set % , time . #findcol %ore . #findcol + % . #findcol , Total / *minutes
return



Sub count
if #findstack < % . #findcol
{
set %ore . #findcol , Total % . #findcol , Total + % . %findcol
set %ore . %findcol 0
return
}
set %ore . #findcol #findstack
ignoreitem #Findid
return