Rev 20 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 20 | Rev 16204 | ||
|---|---|---|---|
| Line 1... | Line -... | ||
| 1 | - | ||
| 2 | !if $condtest=-1 |
1 | !if $condtest=-1 |
| 3 | scoretest=0 |
2 | scoretest=0 |
| 4 | !goto score |
3 | !goto score |
| 5 | !endif |
4 | !endif |
| 6 | 5 | ||
| 7 | casecnt=!linecnt $allcases |
6 | casecnt=!linecnt $allcases |
| 8 | !if $cutstop!=yes and $casecnt>2 |
7 | !if $cutstop!=yes and $casecnt>2 |
| 9 | oldcaseid=$caseid |
8 | oldcaseid=$caseid |
| 10 | caseline=!line 1 of $allcases |
9 | caseline=!line 1 of $allcases |
| 11 | cases=!line 2 to -1 of $allcases |
10 | cases=!line 2 to -1 of $allcases |
| 12 | caseline=!translate internal $ $ to $\ |
11 | caseline=!translate internal $ $ to $\ |
| 13 | $ in $caseline |
12 | $ in $caseline |
| 14 | activecase=!line 1 of $caseline |
13 | activecase=!line 1 of $caseline |
| 15 | caseids=!line 2 to -1 of $caseline |
14 | caseids=!line 2 to -1 of $caseline |
| 16 | cases2= |
15 | cases2= |
| 17 | caseids2= |
16 | caseids2= |
| 18 | !if $activecase>1 |
17 | !if $activecase>1 |
| 19 | cases2=!line 1 to $[$activecase-1] of $cases |
18 | cases2=!line 1 to $[$activecase-1] of $cases |
| 20 | caseids2=!line 1 to $[$activecase-1] of $caseids |
19 | caseids2=!line 1 to $[$activecase-1] of $caseids |
| 21 | !endif |
20 | !endif |
| 22 | !if $activecase<$casecnt-1 |
21 | !if $activecase<$casecnt-1 |
| 23 | cases3=!line $activecase+1 to -1 of $cases |
22 | cases3=!line $activecase+1 to -1 of $cases |
| 24 | caseids3=!line $activecase+1 to -1 of $caseids |
23 | caseids3=!line $activecase+1 to -1 of $caseids |
| 25 | cases2=!append line $cases3 to $cases2 |
24 | cases2=!append line $cases3 to $cases2 |
| 26 | caseids2=!append line $caseids3 to $caseids2 |
25 | caseids2=!append line $caseids3 to $caseids2 |
| 27 | !else |
26 | !else |
| 28 | activecase=$[$activecase-1] |
27 | activecase=$[$activecase-1] |
| 29 | !endif |
28 | !endif |
| 30 | caseid=!line $activecase of $caseids2 |
29 | caseid=!line $activecase of $caseids2 |
| 31 | caseline=!translate internal $\ |
30 | caseline=!translate internal $\ |
| 32 | $ to $ $ in $activecase\ |
31 | $ to $ $ in $activecase\ |
| 33 | $caseids2 |
32 | $caseids2 |
| 34 | allcases=$caseline\ |
33 | allcases=$caseline\ |
| 35 | $cases2 |
34 | $cases2 |
| 36 | !reset newobject,m_newobject,newObject |
35 | !reset newobject,m_newobject,newObject |
| 37 | !read deduc/objects.get |
36 | !read deduc/objects.get |
| 38 | !read deduc/methreset erase |
37 | !read deduc/methreset erase |
| 39 | # statusline=!replace item number $currstep by () in $statusline |
38 | # statusline=!replace item number $currstep by () in $statusline |
| 40 | # statusLine=!replace item number $currstep by () in $statusLine |
39 | # statusLine=!replace item number $currstep by () in $statusLine |
| 41 | object$[$currstep-1]=$allcases |
40 | object$[$currstep-1]=$allcases |
| 42 | casefinished=$oldcaseid |
41 | casefinished=$oldcaseid |
| 43 | !exit |
42 | !exit |
| 44 | !endif |
43 | !endif |
| 45 | 44 | ||
| 46 | :score |
45 | :score |
| 47 | !if $earlyscore=$empty |
46 | !if $earlyscore=$empty |
| 48 | module_score=$scoretest |
47 | module_score=$scoretest |
| 49 | wims_module_log=score $module_score/10 |
48 | wims_module_log=score $module_score/10 |
| 50 | !endif |
49 | !endif |
| 51 | score=$scoretest |
50 | score=$scoretest |
| 52 | status= |
51 | status= |
| 53 | - | ||