48d
@verb #1011:"Sen*iority" any any any rxdo #7153
@program #1011:"Sen*iority" any any any
"Copied from MultiMOO_Player_Class (#8382):sen Aug  7 08:07:34 1996"
"Copied from Prog/Builder Tools (Tuxedo Mask's FO) (#1017):sen by Nexus Colony Project (#5523) May  4 18:51:45 1996"
"Usage: sen <player> [<player> <player>...]"
"   Calculates the relative seniority of a player according to position in :players()."
this:update_usage(verb, player)
if (args)
  numplayers = length(players = players())
  for name in (args)
    if (!$command_utils:player_match_failed(dude = $string_utils:match_player(name), name))
      pcn = (pos = dude in players) * 10000 / numplayers
      INT = tostr(pcn / 100)
      dec = tostr((d = pcn % 100) < 10 ? "0" | "", d)
      player:tell($string_utils:nn(dude), " is the ", $string_utils:ordinal(pos), " of ", numplayers, " players, placing them in the top ", INT, ".", dec, "%.")
    endif
    ticks_left() < 4000 || seconds_left() < 2 ? suspend(0) | 0
  endfor
else
  player:tell("Usage: sen &lt;player&gt; [&lt;player&gt; &lt;player&gt;...]")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:31 2001 MST."
.

0