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