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