!set title=Champignon à couleurs variables
!if $wims_read_parm!=$empty
 !goto $wims_read_parm
!endif
oef2wims_version=3.22

ansorder=r,r
varcnt=7
prevarcnt=6
postvarcnt=0
replycnt=2
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

val6=red,pink,yellow,orange,brown,blue,white,purple,grey,black
tmp0=!itemcnt $val6

tmp1=!shuffle $(tmp0)

val7=$(tmp1)
val8=$(val6[$(val7[1])])
val9=$(val6[$(val7[2])])
val10=200,310
!readproc oef/draw.phtml $(val10[1]),$(val10[2]) \
  xrange 0,$(val10[1])	  yrange 0,$(val10[2])	  setparallelogram 0,0,$(val10[1]),0,0,$(val10[2])	  multicopy champignon.jpg	  fill 100,100,$val9	  fill 60,180,$val8  
tmp0=$ins_url
val11=$(tmp0)
replytype1=radio
replyname1=
replygood1=$(val7[1]);$val6
replytype2=radio
replyname2=
replygood2=$(val7[2]);$val6
question=__EXECUTED_1692754_EXERCISE__

!goto stat

!exit

:question
$()Quelles sont les couleurs du champignon en anglais ? 	   <table>	     <tr>	       <td rowspan=2><img src=$val11></td>	       <td> 
!read oef/embed.phtml reply1 
$()</td>	     </tr>	     <tr>	       <td> 
!read oef/embed.phtml reply2 
$()</td>	     </tr>	   </table>	
$()
!exit

:hint
$()
$()
!exit

:help
$()
$()
!exit

:solution
$()
$()
!exit

:feedback

!exit

:test

!exit

:stat
vsavelist=11
embedcnt=2
