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