Subversion Repositories wimsdev

!read $deffile final

!if $speculate=yes

  thisscore=0

  !exit

!endif

!for i=1 to $anscnt

  !if ?? isin $(ans$i) or $(ans$i)=$empty

    partial=yes

    thisscore=0

    !exit

  !endif

!next i

n_=!itemcnt $gotlist

!for i=1 to $parmcnt

  !if $(weight$i)>1 and $i notitemof $gotlist

    speculate=yes

    thisscore=0

    !exit

  !endif

!next i

t_=0

!for i in $gotlist

  !if $(weight$i)<=0

    !advance t_

  !endif

!next i

!if $n_-$t_<$minask

  speculate=yes

  thisscore=0

  !exit

!endif

uselesscnt=0

!for i in $gotlist

  !if $(weight$i)<=0

    l=!line 1 of $(parm$i)

    useless=!append item $l to $useless

    !advance uselesscnt

  !endif

!next i

useless=!replace , by , $ in $useless

gotcnt=!itemcnt $gotlist

!if $thisscore>0 and $gotcnt>$minask

  thisscore=$[$thisscore*$scorepower^($gotcnt-$minask+$uselesscnt)]

!endif