Rev 15463 | Rev 17766 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15463 | Rev 16736 | ||
---|---|---|---|
Line 19... | Line 19... | ||
19 | !endif |
19 | !endif |
20 | !if $intro_expert=yes |
20 | !if $intro_expert=yes |
21 | !distribute items 0,0,0,0 into qcmgood,penalty,givegood,givehint |
21 | !distribute items 0,0,0,0 into qcmgood,penalty,givegood,givehint |
22 | !bound intro_qcmpresent between 2 and 8 default $(default_choice[4]) |
22 | !bound intro_qcmpresent between 2 and 8 default $(default_choice[4]) |
23 | qcmpresent=$intro_qcmpresent |
23 | qcmpresent=$intro_qcmpresent |
24 | !bound intro_sol between |
24 | !bound intro_sol between -1 and $limit_version default $(default_choice[3]) |
25 | !bound intro_feed between - |
25 | !bound intro_feed between -2 and $limit_version default $(default_choice[5]) |
26 | !! for retrocompatibility |
26 | !! for retrocompatibility |
27 | presentsol=$intro_presentsol |
27 | presentsol=$intro_presentsol |
28 | !if $presentsol!=$empty |
28 | !if $presentsol!=$empty |
29 | givesol=$[$presentsol-1] |
29 | givesol=$[$presentsol-1] |
30 | !else |
30 | !else |
Line 35... | Line 35... | ||
35 | !read getparm $module_init_parm intro_check intro_hint intro_good |
35 | !read getparm $module_init_parm intro_check intro_hint intro_good |
36 | !if 4 isin $get_introcheck |
36 | !if 4 isin $get_introcheck |
37 | !set introgivehint=1 |
37 | !set introgivehint=1 |
38 | !endif |
38 | !endif |
39 | !default introgivehint=$get_intro_hint |
39 | !default introgivehint=$get_intro_hint |
40 | !bound introgivehint between - |
40 | !bound introgivehint between -2 and $limit_version default 1 |
41 | !default oefenv_givegood=$get_intro_good |
41 | !default oefenv_givegood=$get_intro_good |
42 | !default seedrepeat=0 |
42 | !default seedrepeat=0 |
43 | !default seedlastcnt=1 |
43 | !default seedlastcnt=1 |
44 | !!calculation done before the line with new. |
44 | !!calculation done before the line with new. |
45 | !if $seedlastcnt>=$seedrepeat |
45 | !if $seedlastcnt>=$seedrepeat |
46 | !set seedlastcnt=1 |
46 | !set seedlastcnt=1 |
47 | !increase seedcnt |
47 | !increase seedcnt |
48 | !else |
48 | !else |
49 | !increase seedlastcnt |
49 | !increase seedlastcnt |
- | 50 | !endif |
|
- | 51 | !if $introgivehint=-2 |
|
- | 52 | !set scorestat=!getscorestatus sheet=$wims_sheet |
|
50 | !endif |
53 | !endif |
51 | !!givehint is 1 or 0 depending whether hint must be printed or not |
54 | !!givehint is 1 or 0 depending whether hint must be printed or not |
52 | !if (4 isitemof $intro_check or $introgivehint=-1 or ($introgivehint=1 and $seedrepeat<=1) or\ |
55 | !if (4 isitemof $intro_check or $introgivehint=-1 or ($introgivehint=1 and $seedrepeat<=1) or\ |
53 | ($introgivehint>=1 and $seedcnt>=$introgivehint and $seedlastcnt>=$seedrepeat) |
56 | ($introgivehint>=1 and $seedcnt>=$introgivehint and $seedlastcnt>=$seedrepeat)\ |
- | 57 | or ($introgivehint=-2 and $scorestat=no)) |
|
54 | !set givehint=1 |
58 | !set givehint=1 |
55 | !endif |
59 | !endif |
56 | !bound intro_expow between 1 and 6 default $(list_expow[1]) |
60 | !bound intro_expow between 1 and 6 default $(list_expow[1]) |
57 | !bound intro_sepow between 1 and 6 default $(list_sepow[1]) |
61 | !bound intro_sepow between 1 and 6 default $(list_sepow[1]) |
58 | !bound intro_precw between 0 and 1 default $(list_precw[1]) |
62 | !bound intro_precw between 0 and 1 default $(list_precw[1]) |