@verb #1730:"description" this none this rxdo #9620
@program #1730:"description" this none this
points = 0
tell = {}
if (this.bp != {})
  for profile in (this.bp)
    for entry in (profile[2])
      points = points + entry[1]
      caller:tell(entry[2])
    endfor
    tell = {@tell, profile[1] + "'s bonus points: " + $su:english_number(points)}
    points = 0
  endfor
endif
tell = {@tell, @this.description}
return tell
"Last modified by Velusip (#9620) on Fri Mar  1 15:51:24 2002 MST."
.