Subversion Repositories wimsdev

Rev

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 0 and $limit_version default $(default_choice[3])
24
  !bound intro_sol between -1 and $limit_version default $(default_choice[3])
25
  !bound intro_feed between -1 and $limit_version default $(default_choice[5])
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 -1 and $limit_version default 1
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])