@verb #9131:"@pe*ople pe*ople" none none none rdo #9131
@program #9131:"@pe*ople pe*ople" none none none
if (player && caller != this)
  raise(E_PERM)
endif
fools = {}
for peeps in (connected_players())
  if (peeps.wizard)
    rank = "Wiz"
  elseif (peeps:isa($guardian))
    rank = "Guard"
  elseif (peeps.programmer)
    rank = "Prog"
  elseif (peeps:isa($builder))
    rank = "Bldr"
  else
    rank = peeps:rank()
  endif
  fools = {@fools, {rank, peeps, peeps.name, peeps:title(), peeps.location:title(), peeps.location}}
endfor
player:tellColumns("rcllrr", {1, 1, 1, 1, 5, 1}, {"Rank", "  #  ", "Name", "Title", "Location", "Local"}, @fools)
.