@verb #1011:"@list-all-players @lap" none none none rxdo #7153
@program #1011:"@list-all-players @lap" none none none
"Usage: @list-all-players"
"This verb lists ALL players on this MOO."
this:update_usage(verb, player)
p = players()
l = length(players())
x = $command_utils:yes_or_no("There are " + tostr(l) + " players. Are you sure you want to see the whole list?")
if (!x)
  player:tell("OK, list all players aborted.")
  return
else
  for dude in (p)
    player:tell($string_utils:nn(dude))
    $command_utils:suspend_if_needed()
  endfor
endif
"Last modified by Dax (#789) on Tue Apr 13 02:33:37 1999 MDT."
.