
!set percents=!getscorepercent user=$uu
!set percnt=!linecnt $percents
!set per=0
!set av=0

!for i=1 to $percnt
 !set perc=!line $i of $percents
 !set p1=!word 1 of $perc
 !set p2=!word 2 of $perc
 !if $p2!=$empty
  !set per=$[$per+$p1]
  !set av=$[$av+$p2*$p1]
 !endif
!next i

!if $per>0
 !set av=$[rint(100*$av/$per)/100]
!endif

!if $percnt>0
 !set per=$[rint($per/$activecnt)]
!endif

