1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
exo=!listintersect $exo and $exolist
nn=!itemcnt $exo
wims_intro_parm=$exo
!if $nn<=0
exo=$exolist
nn=!itemcnt $exolist
!endif
shlist=
!ifval $random=0
shufflelist=$exo
!else
shuffle=!shuffle $nn
shufflelist=!item $shuffle of $exo
!endif
presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0
presentsol =!item $qcmlevel of 2,2,1,1,0,0,0,0
givehint =!item $qcmlevel of 1,1,1,1,1,0,0,0
scorepower =!item $qcmlevel of 0.95,0.9,0.8,0.7, 0.6,0.5,0.4,0.3
!distribute item 0,0,0 into reply_cnt,score_should,score_got
!if $nn>4
loglist=$nn
!else
loglist=$shufflelist
!endif
!set title=!lookup $exo in Extitles_$modu_lang
wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel
|
