Subversion Repositories wimsdev

Rev

Rev 2356 | Rev 4570 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2356 Rev 2935
Line 28... Line 28...
28 
  !next it
 28 
  !next it
29 
  nbit=!linecnt $list2
 29 
  nbit=!linecnt $list2
30 
  !for m=1 to $nbit
 30 
  !for m=1 to $nbit
31 
   t=!line $m of $list2
 31 
   t=!line $m of $list2
32 
   !for u=1 to $usercnt
 32 
   !for u=1 to $usercnt
33 
    s=!word $(t[2]) of $(userscore_$(u)[$(t[1]);])
 33 
    s=!word $(t[2]) of $(userscore_$(u)[$(convert_table[$(t[1])]);])
34 
    !if $s>=$livret_minac
 34 
    !if $s>=$livret_minac
35 
     l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+$s/$nbit
 35 
     l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+$s/$nbit
36 
    !else
 36 
    !else
37 
     !if $s!=0
 37 
     !if $s!=0
38 
      l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+0
 38 
      l_$(u)_$(k)_$(l)=$(l_$(u)_$(k)_$(l))+0