@verb #9090:"@pwho @top" any any any rdo #7446
@program #9090:"@pwho @top" any any any
if (verb == "@top")
  totop = toint(argstr)
  if (totop == 0)
    totop = 25
  endif
endif
cow = {}
data = {}
if (verb == "@pwho")
  cow = this.p
elseif (verb == "@top")
  don = {}
  for con in (this.p)
    re = con in this.p
    $cmd_utils:suspend_if_needed()
    sca = this.ps[re][8]
    scb = this.ps[re][7]
    scc = this.ps[re][6]
    scb = this.ps[re][6] / 3
    score = sca - scb + scc
    don = listappend(don, score)
    cow = listappend(cow, con)
  endfor
  hatop = 0
  for wawa in ($list_utils:Reverse($list_utils:sort(cow, don)))
    hatop = hatop + 1
    if (hatop > totop - 1)
    else
      $cmd_utils:suspend_if_needed()
      wa = wawa in this.p
      data = {@data, {wawa.name, this.ps[wa][6], this.ps[wa][7], this.ps[wa][8], this.ps[wa][9]}}
    endif
  endfor
  player:tellColumns({20, 8, 8, 8, 8}, {"Name", "Hits", "Deaths", "Kills", "HP"}, @data)
  return
endif
for x in (cow)
  $cmd_utils:suspend_if_needed()
  if (verb == "@pwho")
    if (x.location == this && x:connected())
      wa = x in this.p
      data = {@data, {x.name, this.ps[wa][6], this.ps[wa][7], this.ps[wa][8], this.ps[wa][9]}}
    endif
  else
    wa = x in this.p
  endif
endfor
player:tellColumns({20, 8, 8, 8, 8}, {"Name", "Hits", "Deaths", "Kills", "HP"}, @data)
"Last modified by Dax (#789) on Tue May  3 14:09:37 2005 MDT."
.