Rev 7680 | Go to most recent revision | Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 20 | reyssat | 1 | !distribute words $wims_read_parm into ans_1, ans_2 |
| 2 | |||
| 3 | ans_type=$(replytype$ans_1) |
||
| 4 | !if symtext iswordof $(replyoption$ans_1) |
||
| 5 | ans_style=!defof anstyle in anstype/$ans_type.input |
||
| 6 | !if symtext iswordof $ans_style |
||
| 7 | ans_type=symtext |
||
| 8 | !endif |
||
| 9 | !endif |
||
| 10 | |||
| 11 | ans_w=$[$(replyweight$ans_1)] |
||
| 12 | !if $ans_w!=$empty and NaN notin $ans_w and Inf notin $ans_w and \ |
||
| 13 | $ans_w>0 and $ans_w!=1 and nocompare notwordof $ans_2 |
||
| 14 | ans_got=$freegot |
||
| 15 | weightadjust=$[$weightadjust+$ans_w-1] |
||
| 16 | !read anstype/$ans_type $ans_2 |
||
| 17 | ans_this=$[$freegot-$ans_got] |
||
| 18 | gotadjust=$[$gotadjust+$ans_this*($ans_w-1)] |
||
| 19 | !else |
||
| 20 | !read anstype/$ans_type $ans_2 |
||
| 21 | !endif |
||
| 22 | |||
| 23 |