Subversion Repositories wimsdev

!if $condtest=-1
  scoretest=0
  !goto score
!endif

casecnt=!linecnt $allcases
!if $cutstop!=yes and $casecnt>2
  oldcaseid=$caseid
  caseline=!line 1 of $allcases
  cases=!line 2 to -1 of $allcases
  caseline=!translate internal $        $ to $\
$ in $caseline
  activecase=!line 1 of $caseline
  caseids=!line 2 to -1 of $caseline
  cases2=
  caseids2=
  !if $activecase>1
    cases2=!line 1 to $[$activecase-1] of $cases
    caseids2=!line 1 to $[$activecase-1] of $caseids
  !endif
  !if $activecase<$casecnt-1
    cases3=!line $activecase+1 to -1 of $cases
    caseids3=!line $activecase+1 to -1 of $caseids
    cases2=!append line $cases3 to $cases2
    caseids2=!append line $caseids3 to $caseids2
  !else
    activecase=$[$activecase-1]
  !endif
  caseid=!line $activecase of $caseids2
  caseline=!translate internal $\
$ to $  $ in $activecase\
$caseids2
 allcases=$caseline\
$cases2
  !reset newobject,m_newobject,newObject
  !read deduc/objects.get
  !read deduc/methreset erase
  # statusline=!replace item number $currstep by () in $statusline
  # statusLine=!replace item number $currstep by () in $statusLine
  object$[$currstep-1]=$allcases
  casefinished=$oldcaseid
  !exit
!endif

:score
!if $earlyscore=$empty
  module_score=$scoretest
  wims_module_log=score $module_score/10
!endif
score=$scoretest
status=