@verb #6570:"@aliases @names" any none none rxd #2633
@program #6570:"@aliases @names" any none none
"@aliases <obj>"
"Lets you see all the aliases a player (or object) has."
dobj = (p = player):my_match_object(argstr)
dobj == $failed_match ? dobj = $string_utils:match_player(argstr) | 0
if (!argstr)
  return p:tell("Syntax:  ", verb, " <obj>")
elseif (!$recycler:valid(dobj))
  return p:tell("No such object.")
elseif (!dobj:has_property("aliases"))
  return p:tell(dobj, " has no .aliases property.")
endif
p:tell(";", dobj, ".aliases = ", toliteral(dobj.aliases))
"Last modified by Eve (#2633) on Mon Aug  3 14:30:41 1998 EDT."
.