@verb #6570:"@players" none none none rxdo #2633
@program #6570:"@players" none none none
{new_players, ll, su} = {{}, player:linelen(), $string_utils}
"Inserted..."
players = this:textwrap(su:name_list(connected_players()), player:linelength(), " ")
players[1] = " " + players[1]
return player:tell({"Connected Players:", @players})
"Disabled..."
player:tell(su:space(ll, "-"))
for p in (connected_players())
  new_players = {@new_players, tostr(su:left(p, 6), su:right(p.name, 12, "."))}
endfor
for line in (lines = su:columnize(new_players, 3))
  line = su:center(su:left(line, length(lines[1])), ll)
  player:tell(line)
endfor
player:tell(su:space(ll, "-"))
"Last modified by Eve (#2633) on Sat Sep  5 15:09:53 1998 EDT."
.