Untitled

set *minutes 0
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 %irc . %ironcol %ore . %ironcol + %ore . %ironcol , Total
set %irc . %stonecol %ore . %stonecol + %ore . %stonecol , Total
set %part1 Iron , #spc , %irc . %ironcol , #spc , PerMin , #spc , %time . %ironcol
set %part2 Stone , #spc , %irc . %stonecol , #spc , PerMin , #spc ,  %time . %stonecol
set *permin %part1 , %part2 , #spc , TIME , #spc , *minutes
;event sysmessage *permin
return

Sub time
set % , time . #findcol ( %ore . #findcol + %ore . #findcol , Total ) / *minutes
return



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