alias songaverage {
var %path songs.ini
var %song $1-
var %e 0
var %avg 0
var %tot $ini(%path,%song,0)
while ( %e <= $ini(%path,%song,0) ) {
var %value $readini(%path,%song,$ini(%path,%song,%e))
var %avg $calc(%avg + %value)
inc %e
}
if ( %tot == 0 ) {
return 0
}
else {
return $calc(%avg / %tot)
}
}