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