@verb #1409:"richest" none none none rxdo #8084
@program #1409:"richest" none none none
caller_perms() == player || raise(E_PERM)
keys = {}
datum = {}
for x in [1..length(this.user_info)]
  val = this.user_info[x][1]
  for y in (this.user_info[x][2])
    val = val + tofloat(y[2]) * this:_get_value(y[1])
  endfor
  datum = {@datum, {$su:nn(this.user_objs[x]), $su:currency(val)}}
  keys = {@keys, val}
endfor
datum = $list_utils:sort(datum, keys)
datum = $list_utils:reverse(datum)
datum = `datum[1..20] ! E_RANGE => datum'
player:tellcolumns("ll", {3, 1}, {"Player", "Net Worth"}, @datum)
"Last modified by Cecil (#7407) on Fri Apr 19 11:06:44 2002 MDT."
.