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])