Subversion Repositories wimsdev

Rev

Rev 14325 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14325 Rev 14341
Line 32... Line 32...
32 
!endif
 32 
!endif
33 
 
 33 
 
34 
!writefile wimshome/log/classes/$wims_class/.grades :$percent\
 34 
!writefile wimshome/log/classes/$wims_class/.grades :$percent\
35 
title,title,$titles\
 35 
title,title,$titles\
36 
weights,weights,$weights
 36 
weights,weights,$weights
- 
 
 37 
!!-- save score for old user
- 
 
 38 
ltolduser=!listcomplement $ulist in $uulist
- 
 
 39 
!if $ltolduser!=$empty
- 
 
 40 
  nb=!itemcnt $ltolduser
- 
 
 41 
  !for i=1 to $nb
- 
 
 42 
    key=!positionof item $(ltolduser[$i]) in $uulist
- 
 
 43 
    li=!record $[$key+1] of wimshome/log/classes/$wims_class/.grades.old
- 
 
 44 
    !appendfile wimshome/log/classes/$wims_class/.grades :$li
- 
 
 45 
  !next i
- 
 
 46 
!endif
37 
 
 47 
 
38 
!for i=1 to $ucnt
 48 
!for i=1 to $ucnt
39 
!! c$i=$[$(c$i)]
 49 
!! c$i=$[$(c$i)]
40 
 !bound c$i between 0 and $maxscore default $empty
 50 
 !bound c$i between 0 and $maxscore default $joker
41 
 n_=!item $i of $ulist
 51 
 n_=!item $i of $ulist
42 
 f_=!item $i of $flist
 52 
 f_=!item $i of $flist
43 
 l_=!item $i of $llist
 53 
 l_=!item $i of $llist
44 
 h_=!hex $n_
 54 
 h_=!hex $n_
45 
 v_=!item 3 to -1 of $(g_$h_)
 55 
 v_=!item 3 to -1 of $(g_$h_)
Line 50... Line 60...
50 
  !next k
 60 
  !next k
51 
  v_=!append item $(c$i) to $v_
 61 
  v_=!append item $(c$i) to $v_
52 
 !else
 62 
 !else
53 
  v_=!replace item number $cc by $(c$i) in $v_
 63 
  v_=!replace item number $cc by $(c$i) in $v_
54 
 !endif
 64 
 !endif
- 
 
 65 
 v_=!replace internal $joker by $empty in $v_
55 
 !appendfile wimshome/log/classes/$wims_class/.grades :$n_,$f_ $l_,$v_
 66 
 !appendfile wimshome/log/classes/$wims_class/.grades :$n_,$f_ $l_,$v_
56 
!next i
 67 
!next i
57 
 
 68 
 
58 
!read var.init
 69 
!read var.init
59 
 
 70