Subversion Repositories wimsdev

!nocache

stepdiag=bad

!for i=1 to $replycnt

 !if r$i isitemof $gotsteps

  !if r$i isitemof $thisstep

   saverep$i=$(reply$i)

  !else

   reply$i=$(saverep$i)

  !endif

  r_=!trim $(reply$i)

  !if $(replytype$i)!=code

   reply$i=$r_

  !endif

  !if $r_=$empty and $(replytype$i)!=coord || \

    $click_x$click_y=$empty and $(replytype$i)=coord || \

    ($(reply$i)=?????? and $(replytype$i) iswordof menu)

   error=empty_data

   !exit

  !endif

  m_reply$i=$(reply$i)

  !read oef/screply.proc

  !default replytype$i=default

  tt=!word 1 of $(replygood$i)

  	# analyzed reply

  !if $tt=?analyze

   t_=!rows2lines $(replygood$i)

   t_=!word 2 of $t_

   !read oef/ans.proc $i nocompare

   !if $error!=$empty

    !exit

   !endif

   !default m_reply$i=$(reply$i)

   !read oef/screply.proc

   val$t_=$(reply$i)

   !if NaN isin $test

    !goto badans

   !endif

   !goto cont

  !endif

  !read oef/ans.proc $i

  !default m_reply$i=$(reply$i)

  !read oef/screply.proc

  !if bad isin $Test

   error=bad_exo

   !advance reply_cnt

   status=

   !exit

  !endif

  !if NaN isin $test

   :badans

   error=bad_answer

   bad_name=$(replyname$i)

   bad_value=$(reply$i)

   !exit

  !endif

  !if $(diareply$i)!=good and nonstop notwordof $(replyoption$i)

   !exit

  !endif

  :cont

 !endif

!next i

!for i=1 to $choicecnt

 !if c$i isitemof $gotsteps

  !if c$i isitemof $thisstep

   savech$i=$(choice$i)

  !else

   choice$i=$(savech$i)

  !endif

  !default choice$i=0

  choic=$[rint($(choice$i))]

  !if $choic=0 and ($oefsteps=$empty or c$i isitemof $gotsteps)

   error=empty_data

   !exit

  !endif

  !if NaN isin $choic or $choic<1 or $choic>$(choiceitems$i)+2

   error=bad_answer

   bad_name=$(choicename$i)

   bad_value=$(choice$i)

   !exit

  !else

   choice$i=$choic

  !endif

  ch=!item $choic of $(choicelist$i)

  m_choice$i=$ch

  !if $qcmgood<1 and $choic=$[$(choiceitems$i)+2]

   !if $(choicegood$i)=$empty

    chh=good

   !else

    chh=bad

   !endif

  !endif

  !if ($choic>$(choiceitems$i) or $ch notitemof $(choicegood$i)) and $chh!=good

   !exit

  !endif

 !endif

!next i

!advance oefstep

m_step=$oefstep

!if $dynsteps=yes

 !read oef/nextstep.proc

!endif

stepdiag=ok

thisstep=!line $oefstep of $oefsteps

gotsteps=!line 1 to $oefstep of $oefsteps

gotsteps=!lines2items $gotsteps