@verb #9102:"@aliases ll @owner" any none none rdo #9102
@program #9102:"@aliases ll @owner" any none none
"Copied from ChocolateGuy (#4813):ll Jun 22 11:56:34 2000"
what = this:my_match_object(dobjstr)
if (!valid(what))
  what = $su:match_player(dobjstr)
  if (!valid(what))
    biglist = $physical:descendants_suspended()
    what = $su:match_suspended(dobjstr, biglist, "name", biglist, "aliases")
    if (!valid(what))
      return $cmd_utils:object_match_failed(what, dobjstr)
    endif
  endif
endif
player:tell("Name: ", what.name)
player:tell("Title: ", what:title())
player:tell("Aliases: ", $su:english_list(what.aliases))
player:tell("  shortest: ", $list_utils:shortest(what.aliases))
player:tell("-----")
what:look_self()
player:tell("-----")
player:tell("Owner: ", what.owner:nn())
player:tell("r: ", what.r, "; w: ", what.w, "; f: ", what.f)
player:tell("Verbs: ", toliteral(what:verbs()))
player:tell("Files: ", toliteral(what:filelist()))
player:tell("Props: ", toliteral(what:properties()))
.