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 |