Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
2 | exo=!listintersect $exo and $exolist |
||
3 | nn=!itemcnt $exo |
||
4 | wims_intro_parm=$exo |
||
5 | !if $nn<=0 |
||
6 | exo=$exolist |
||
7 | nn=!itemcnt $exolist |
||
8 | !endif |
||
9 | |||
10 | shlist= |
||
11 | !ifval $random=0 |
||
12 | shufflelist=$exo |
||
13 | !else |
||
14 | shuffle=!shuffle $nn |
||
15 | shufflelist=!item $shuffle of $exo |
||
16 | !endif |
||
17 | |||
18 | presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0 |
||
19 | presentsol =!item $qcmlevel of 2,2,1,1,0,0,0,0 |
||
20 | givehint =!item $qcmlevel of 1,1,1,1,1,0,0,0 |
||
21 | scorepower =!item $qcmlevel of 0.95,0.9,0.8,0.7, 0.6,0.5,0.4,0.3 |
||
22 | |||
23 | !distribute item 0,0,0 into reply_cnt,score_should,score_got |
||
24 | !if $nn>4 |
||
25 | loglist=$nn |
||
26 | !else |
||
27 | loglist=$shufflelist |
||
28 | !endif |
||
29 | wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel |
||
30 |