1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# step by step
!ifval $substep=0
substep=2
!if $step>=$stepcnt
done=yes
!endif
!if $ans=--
error=dontknow
!exit
!endif
!if ($ask_reason>0 and $ans!=$step_reason) or\
($ask_reason=0 and $ans!=$step_test)
error=step_error
!if $ask_reason=0
scorecnt=$[$scorecnt-10]
!else
scorecnt=$[$scorecnt-2]
!endif
!else
scorecnt=$[$scorecnt+10]
!endif
!exit
!endif
!ifval $substep=1
!exit
!endif
!if $[$substep]=2 and $ans=next and $step<$stepcnt
!advance step
!read scenario/var.step
substep=0
!exit
!endif
|
