Subversion Repositories wimsdev

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed


!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=