Subversion Repositories wimsdev

Rev

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 0 and $limit_version default $(default_choice[5])
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 0 and $limit_version default 1
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 0 or 1 depending whether hint must be printed or not
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])