!set title=Schéma de QCM avec une bonne réponse
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22

ansorder=r
varcnt=6
prevarcnt=5
postvarcnt=0
replycnt=1
choicecnt=0
conditioncnt=0
feedbackcnt=0
format=html

val1=$imagedir
val2=$confparm1
val3=$confparm2
val4=$confparm3
val5=$confparm4

!if $testcondition=yes
 !goto test
!endif
!if $status=waiting
 !exit
!endif

tmp=!trim quest1, a1, a2, a3, 1	quest2, b1, b2, b3, b4, 2	quest3, c1, c2, c3, 3
val6=!translate internal $	\
$ to ;; in $tmp
tmp=!translate internal $	$ to ; in $val6

tmp0=!rowcnt $tmp
tmp1=!randint 1, $(tmp0)

val7=$[rint($(tmp1) )]
val8=$(val6[$val7 ; 1])
val9=$(val6[$val7 ; 2..-2]) 
val10=$[rint($(val6[$val7 ; -1]))]
replytype1=radio
replyoption1=shuffle 
replyname1=
replygood1=$val10; $val9 
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$() $val8 :  
!read oef/embed.phtml reply1 
$() 
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=8
embedcnt=1
