Subversion Repositories wimsdev

    !ifval $replycnt=0 and $choicecnt=1

    !ifval $replycnt=0 and $choicecnt=1

      rep=!item 1 to 6 of $choicebad1

      rep=!item 1 to 6 of $choicebad1

      rep=!append item $choicegood1 to $rep

      rep=!append item $choicegood1 to $rep

      rep=!listuniq $rep

      rep=!listuniq $rep

      rep=!sort items $rep

      rep=!sort items $rep

      chce_$i=$rep

      chce_$i=$rep

      test_print=1

      test_print=1

    !else

    !else

      chce_$i=

      chce_$i=

    !endif

    !endif

              rg_tmp=!listuniq $rg1_,$rg2_

              rg_tmp=!listuniq $rg1_,$rg2_

            !endif

            !endif

            Rg$i=!append line $rg_tmp to $(Rg$i)

            Rg$i=!append line $rg_tmp to $(Rg$i)

            !goto endRg

            !goto endRg

          !endif

          !endif

          !if $(replytype$k) iswordof coord

          !if $(replytype$k) iswordof coord

            rg_=<img src="$(rg_[1;])" />

            rg_=<img src="$(rg_[1;])" />

            Rg$i=!append line $rg_ to $(Rg$i)

            Rg$i=!append line $rg_ to $(Rg$i)

            !goto endRg

            !goto endRg

          !endif

          !endif

          !if $(replytype$k) iswordof atext wlist nocase case

          !if $(replytype$k) iswordof atext wlist nocase case

            rg_=!translate internal ;| to $\

            rg_=!translate internal ;| to $\

\

\

$ in $rg_

$ in $rg_

            rg_=!line 1 of $rg_

            rg_=!line 1 of $rg_

          !endif

          !endif

          !if $(replytype$k) iswordof function default equation sigunits numexp or $(replystyle$k) iswordof numeric

          !if $(replytype$k) iswordof function default equation sigunits numexp or $(replystyle$k) iswordof numeric

            rg_=!item 1 of $rg_

            rg_=!item 1 of $rg_

            Rg$i=!append line $ $ to $(Rg$i)

            Rg$i=!append line $ $ to $(Rg$i)

            !goto endRg

            !goto endRg

          !endif

          !endif

          !if $(replytype$k) iswordof imgcomp textcomp compose reorder

          !if $(replytype$k) iswordof imgcomp textcomp compose reorder

            rg_=!translate internal | to $\

            rg_=!translate internal | to $\

$ in $rg_

$ in $rg_

            rg_=!rows2lines $rg_

            rg_=!rows2lines $rg_

            rg_tmp=!lines2items $rg_

            rg_tmp=!lines2items $rg_

            !else

            !else

              rg_cnt_=!itemcnt $rg_tmp

              rg_cnt_=!itemcnt $rg_tmp

              rg__=!shuffle $rg_cnt_

              rg__=!shuffle $rg_cnt_

              rg_tmp=!listuniq $(rg_tmp[$rg__])

              rg_tmp=!listuniq $(rg_tmp[$rg__])

              Rg$i=!append line $rg_tmp to $(Rg$i)

              Rg$i=!append line $rg_tmp to $(Rg$i)

            !endif

            !endif

            rg_=!translate , to $ $ in $rg_

            rg_=!translate , to $ $ in $rg_

          !endif

          !endif

          !if $(replytype$k) iswordof correspond

          !if $(replytype$k) iswordof correspond

            !distribute lines $rg__ into rg1__,rg2__

            !distribute lines $rg__ into rg1__,rg2__

            !set rg__cnt=!itemcnt $rg1__

            !set rg__cnt=!itemcnt $rg1__

            !set rg_2_=!shuffle $rg__cnt

            !set rg_2_=!shuffle $rg__cnt

            !set rg__=<table class="wimsborder"><tr>

            !set rg__=<table class="wimsborder"><tr>

            !set rgg_=<table class="wimsborder"><tr>

            !set rgg_=<table class="wimsborder"><tr>

            !for tmp=1 to $rg__cnt

            !for tmp=1 to $rg__cnt

              !set rg__=$rg__<td>$(rg1__[$tmp])</td>

              !set rg__=$rg__<td>$(rg1__[$tmp])</td>

              !set rgg_=$rgg_<td>$(rg_[1;$tmp])</td>

              !set rgg_=$rgg_<td>$(rg_[1;$tmp])</td>

            !set rg__=$rg__</tr><tr>

            !set rg__=$rg__</tr><tr>

            !set rgg_=$rgg_</tr><tr>

            !set rgg_=$rgg_</tr><tr>

            !for tmp =1 to $rg__cnt

            !for tmp =1 to $rg__cnt

              !set rg__=$rg__<td>$(rg2__[$(rg_2_[$tmp])])</td>

              !set rg__=$rg__<td>$(rg2__[$(rg_2_[$tmp])])</td>

              !set rgg_=$rgg_<td>$(rg2__[$tmp])</td>

              !set rgg_=$rgg_<td>$(rg2__[$tmp])</td>

            !set rg__=$rg__</tr></table>

            !set rg__=$rg__</tr></table>

            !set rg_=$rgg_</tr></table>

            !set rg_=$rgg_</tr></table>

            Rg$i=!append line $(rg__) to $(Rg$i)

            Rg$i=!append line $(rg__) to $(Rg$i)

            !goto endRg

            !goto endRg

          !endif

          !endif

          !if $(replytype$k) iswordof draw

          !if $(replytype$k) iswordof draw

            rg__=$(rg_[2;])

            rg__=$(rg_[2;])

            tmp=!item 1 of $rg__

            tmp=!item 1 of $rg__

            !if $tmp=arrows

            !if $tmp=arrows

              !default arrow_head=10

              !default arrow_head=10

            !readproc oef/canvasdraw.phtml $rg_$	$ $rg__

            !readproc oef/canvasdraw.phtml $rg_$	$ $rg__

            rg_=!replace internal $\

            rg_=!replace internal $\

$ by in $canvasdraw_out

$ by in $canvasdraw_out

            !goto endRg

            !goto endRg

          !endif

          !endif

          Rg$i=!append line $ $ to $(Rg$i)

          Rg$i=!append line $ $ to $(Rg$i)

:endRg

:endRg

          !if $conditioncnt<1

          !if $conditioncnt<1

            !if noanalyzeprint notwordof $(replyoption$k)

            !if noanalyzeprint notwordof $(replyoption$k)

              !if $(replyname$k)$rg_ !=

              !if $(replyname$k)$rg_ !=

          Replytype$i=!append item $(replytype$k) to $(Replytype$i)

          Replytype$i=!append item $(replytype$k) to $(Replytype$i)

          Replystyle$i=!append item $(replystyle$k) to $(Replystyle$i)

          Replystyle$i=!append item $(replystyle$k) to $(Replystyle$i)

        !endif r$k isitemof $thisstep

        !endif r$k isitemof $thisstep

        !reset replyoption$k

        !reset replyoption$k

      !next k

      !next k

    rep=!imgrename $rep

    rep=!imgrename $rep

    ans_$i=!trim $rep

    ans_$i=!trim $rep

    !if $(ans_$i)!=

    !if $(ans_$i)!=

      test_print=1

      test_print=1

    !endif

    !endif

  !reset intro_check

  !reset intro_check

  !if $latex_exists>=0

  !if $latex_exists>=0

    !readproc oef/latex.proc exo

    !readproc oef/latex.proc exo

  !endif

  !endif

  Rg$i=!imgrename $(Rg$i)

  Rg$i=!imgrename $(Rg$i)

!if $latex_exists>=1

!if $latex_exists>=1

  !readproc oef/latex.proc end

  !readproc oef/latex.proc end

!endif

!endif