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