Subversion Repositories wimsdev

!distribute words $wims_read_parm into ans_1, ans_2

ans_type=$(replytype$ans_1)
!if symtext iswordof $(replyoption$ans_1)
  ans_style=!defof anstyle in anstype/$ans_type.input
  !if symtext iswordof $ans_style
    ans_type=symtext
  !endif
!endif

ans_w=$[$(replyweight$ans_1)]
!! get the "presentgood" var to know if good answers must be displayed.
!!
!! moved here before loading anstype (need to test effects)
!read oef/testseedscore.phtml
!readproc oef/get_presentgood.proc
!if $(replyweight$ans_1)!=$empty and NaN notin $ans_w and Inf notin $ans_w \
          and $ans_w!=1 and nocompare notwordof $ans_2
  ans_got=$freegot
  prec_got=$precgood
  weightadjust=$[$weightadjust+$ans_w-1]
  !read anstype/$ans_type $ans_2
  ans_this=$[$freegot-$ans_got]
  prec_this=$[$precgood-$prec_got]
  !if $prec_this>0
    ans_this=$[$precweight*$prec_this]
  !endif
  gotadjust=$[$gotadjust+$ans_this*($ans_w-1)]
!else
  !read anstype/$ans_type $ans_2
!endif