@verb #909:"@al*iases" any any any rxdo #6612
@program #909:"@al*iases" any any any
"@aliases [player]"
"     Shows you the aliases of the player in question, as well as the"
"     shortest alias. Additional code by Raptor (#6319)."
this:update_usage(verb, player)
victim = argstr ? $string_utils:match_local_player(argstr) | player
if ($command_utils:player_match_failed(victim, argstr))
  return
endif
player:sub_tell("%1 (#%1~#) has %2 alias%3: %4.", victim, l = length(a = victim.aliases), l > 1 ? "es" | "", a)
player:sub_tell("Shortest alias: %1", $list_utils:shortest(a))
"Last modified by Dax (#789) on Tue Jun  2 17:08:42 1998 EDT."
.