Rev 13086 | Rev 14581 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 13086 | Rev 14564 | ||
---|---|---|---|
Line 15... | Line 15... | ||
15 | !if $intro_expert=yes |
15 | !if $intro_expert=yes |
16 | !distribute items 0,0,0,0 into qcmgood,penalty,givegood,givehint |
16 | !distribute items 0,0,0,0 into qcmgood,penalty,givegood,givehint |
17 | !bound intro_qcmpresent between 2 and 8 default $(default_choice[4]) |
17 | !bound intro_qcmpresent between 2 and 8 default $(default_choice[4]) |
18 | qcmpresent=$intro_qcmpresent |
18 | qcmpresent=$intro_qcmpresent |
19 | !bound intro_sol between 0 and $limit_version default $(default_choice[3]) |
19 | !bound intro_sol between 0 and $limit_version default $(default_choice[3]) |
20 | !bound intro_feed between |
20 | !bound intro_feed between -1 and $limit_version default $(default_choice[5]) |
21 | !! for retrocompatibility |
21 | !! for retrocompatibility |
22 | presentsol=$intro_presentsol |
22 | presentsol=$intro_presentsol |
23 | !if $presentsol!=$empty |
23 | !if $presentsol!=$empty |
24 | givesol=$[$presentsol-1] |
24 | givesol=$[$presentsol-1] |
25 | !else |
25 | !else |
Line 30... | Line 30... | ||
30 | !read getparm $module_init_parm intro_check intro_hint |
30 | !read getparm $module_init_parm intro_check intro_hint |
31 | !if 4 isin $get_introcheck |
31 | !if 4 isin $get_introcheck |
32 | !set introgivehint=1 |
32 | !set introgivehint=1 |
33 | !endif |
33 | !endif |
34 | !default introgivehint=$get_intro_hint |
34 | !default introgivehint=$get_intro_hint |
35 | !bound introgivehint between |
35 | !bound introgivehint between -1 and $limit_version default 1 |
36 | !default seedrepeat=0 |
36 | !default seedrepeat=0 |
37 | !default seedlastcnt=1 |
37 | !default seedlastcnt=1 |
38 | !!calculation done before the line with new. |
38 | !!calculation done before the line with new. |
39 | !if $seedlastcnt>=$seedrepeat |
39 | !if $seedlastcnt>=$seedrepeat |
40 | !set seedlastcnt=1 |
40 | !set seedlastcnt=1 |
41 | !increase seedcnt |
41 | !increase seedcnt |
42 | !else |
42 | !else |
43 | !increase seedlastcnt |
43 | !increase seedlastcnt |
44 | !endif |
44 | !endif |
45 | !!givehint is |
45 | !!givehint is 1 or 0 depending whether hint must be printed or not |
46 | !if (4 isitemof $intro_check or ($introgivehint=1 and $seedrepeat<=1) or\ |
46 | !if (4 isitemof $intro_check or $introgivehint=-1 or ($introgivehint=1 and $seedrepeat<=1) or\ |
47 | ($introgivehint>=1 and $seedcnt>=$introgivehint and $seedlastcnt>=$seedrepeat)) |
47 | ($introgivehint>=1 and $seedcnt>=$introgivehint and $seedlastcnt>=$seedrepeat)) |
48 | !set givehint=1 |
48 | !set givehint=1 |
49 | !endif |
49 | !endif |
50 | !bound intro_expow between 1 and 6 default $(list_expow[1]) |
50 | !bound intro_expow between 1 and 6 default $(list_expow[1]) |
51 | !bound intro_sepow between 1 and 6 default $(list_sepow[1]) |
51 | !bound intro_sepow between 1 and 6 default $(list_sepow[1]) |