Subversion Repositories wimsdev

files=!record 1 of scenarios/$thisexo.def/.files
files=!words2items $files
file=!randitem $files

deffile=scenarios/$thisexo.def/$file
allcnt=!recordcnt $deffile
header=!record 1 of $deffile
header=!trim $header
hcnt=!linecnt $header
cc=1
!for i=7 to $hcnt
 l=!line $i of $header
 !if @ notin $l
  r$cc=!randitem $l
  !advance cc
 !else
  l=!translate @ to $\
$ in $l
  l=!trim $l
  l1=!line 1 of $l
  c1=!itemcnt $l1
  s=!randint 1,$c1
  lc=!linecnt $l
  !for j=1 to $lc
   lj=!line $j of $l
   r$cc=!item $s of $lj
   !advance cc
  !next j
 !endif
!next i

presentation=!record 2 of $deffile
good=!record 3 of $deffile
traps=!record 4 of $deffile
remarks=!record 5 of $deffile
reserved=!record 6 of $deffile
good=!trim $good
!distribute lines $header into title,author,amail,translator,tmail,format
!distribute items $ into bad_1,bad_2,bad_3,bad_4,bad_5,bad_6,bad_7,bad_8,bad_9,bad_10,bad_11,bad_12
scorecnt=0

!for i=7 to $allcnt
 t=!record $i of $deffile
 s=!item 1 of $t
 bad_$s=!append item $i to $(bad_$s)
!next i

!if $sstyle=1
 r=!random 0,1
 !distribute item $ into bad_steps, bad_reasons
 !if $r<0.75
  t=!randint 7, $allcnt
  t=!record $t of $deffile
  !distribute lines $t into l,bad_reason
  s=!item 1 of $l
  tt=!line 3 to -1 of $t
  picked=!line 1 to $s-1 of $good
  picked=!append line $tt to $picked
  n=!itemcnt $l
  !for i=1 to $n/2
   s1=!item 2*$i-1 of $l
   s2=!item 2*$i of $l
   bad_steps=!append item $s1 to $bad_steps
   bad_reasons=!append item $s2 to $bad_reasons
  !next i
 !else
  picked=$good
 !endif
 stepcnt=!linecnt $picked
 step=$stepcnt
!else
 step=1
 stepcnt=!linecnt $good
 !read scenario/var.step
!endif

status=waiting
substep=0