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
|
!if $wims_read_parm=nocompare
!exit
!endif
!! replygood will be three numbers in millisecondes
!! minimum, maximum, second maximum
!distribute item $(replygood$i) into min_, max_, mmax_
min_=$[$min_]
max_=$[$max_]
mmax_=$[$mmax_]
!if $(reply$i) <= $max_ and $(reply$i) >= $min_
diareply$i=good
!advance freegot
reply_$i=
!else
!if $(reply$i) > $max_ and $(reply$i) <= $mmax_
diareply$i=good
partialgood$i=yes
freegot =$[$freegot+min(1,ceil(10*($mmax_-$(reply$i))/($mmax_-$max_))/10)]
reply_$i=long
sc_reply$i=0.5
!else
diareply$i=bad
!if $(reply$i) > $mmax_
reply_$i= too_long
sc_reply$i=0.25
!else
reply_$i=too_short
sc_reply$i=0.75
!endif
!endif
!endif
|
