@verb #9498:"more_money" this none this rxdo #8084
@program #9498:"more_money" this none this
"This verb is called to say that WE HAVE MORE MONEY! YAY!"
"And now we can do something with it."
caller == $smfo || raise(E_PERM)
while ($smfo.user_info[$smbroker in $smfo.user_objs][1] > $smfo:_get_index())
  $smfo.user_info[$smbroker in $smfo.user_objs][2][1][2] = $smfo.user_info[$smbroker in $smfo.user_objs][2][1][2] + 1
  $smfo.user_info[$smbroker in $smfo.user_objs][2][1][3] = $smfo.user_info[$smbroker in $smfo.user_objs][2][1][3] + $smfo:_get_index()
  $smfo.user_info[$smbroker in $smfo.user_objs][1] = $smfo.user_info[$smbroker in $smfo.user_objs][1] - $smfo:_get_index()
  $cmd_utils:suspend_if_needed(0)
endwhile
"Last modified by Lao-Tzu (#8084) on Fri May  3 09:14:17 2002 MDT."
.