Subversion Repositories wimsdev

!default precision=10000
wims_prefix=class user tmp

!read Exindex
exocnt=!itemcnt $exolist
!bound qnum between integer 1 and $exocnt default 1
!bound qcmlevel between integer 1 and 8 default 3
!bound random within 0,1 default 1
wims_form_method=post

!if $cmd=reply and $status!=waiting
 error=double_reply
 !exit
!endif

!if $status=$empty
 !read dialog/exo.init
!endif

!if $status!=waiting
 !distribute item $ into solution,hint
!endif

nn=!itemcnt $shufflelist
thisexo=!item ($reply_cnt)%$nn+1 of $shufflelist
imagedir=$module_dir/images/$thisexo
deffile=def/$thisexo.def
!if $nn>1 and $status!=waiting
 wims_module_log=$wims_module_log got $thisexo
!endif

!if $status!=waiting
 !reset asklist promptlist storename storeval
 !read $deffile init
 !read dialog/var.prep
!else
 !distribute line $storeval into $storename
!endif

!read $deffile info

!if $cmd=reply and $status=waiting
 !if $ask!=$empty
  !read dialog/var.proc.ask
  !if $badask!=yes
   !goto end
  !endif
 !else
  !read dialog/var.proc.ans
  !if $partial=yes
   !goto end
  !endif
 !endif
 !advance reply_cnt
 !advance score_should
 score_got=$[$score_got+$thisscore]
 status=done
 !if $reply_cnt>=$qnum
  !ifval $score_should=0
   score_should=1
  !endif
  score=$[max(0,min(10,rint(100*$score_got/$score_should)/10))]
  module_score=$score
  wims_module_log=score $module_score/10
  status=
 !endif
!endif

:end
prompts=!items $remlist of $promptlist
remcnt=!itemcnt $remlist
gotcnt=!itemcnt $gotlist