@verb #7338:"do_audit" this none this rxdo #7921
@program #7338:"do_audit" this none this
#7921:tell(player.name, " audits you.")
extra = dupes = rooms = features = toys = {}
extra = {#0}
for dobj in ($imp.owned_objects)
  if (dobj:isa($room))
    rooms = {@rooms, dobj}
  elseif (dobj:isa($feature))
    features = {@features, dobj}
  elseif (dobj:isa($imp))
    extra = {@extra, dobj}
  elseif (dobj:isa(#1333))
    dupes = {@dupes, dobj}
  else
    toys = {@toys, dobj}
  endif
endfor
player:tell("Category                                     Size  Expires")
player:tell("--------  ---------------------------------  ----  -------")
player:tell("          Catspaw                     #7921  ", $string_utils:right(tostr(object_bytes(#7921) / $kb, "K"), 4), "  89 days")
player:tell("          Moo Canada, eh?                #0   ", #2735.total_byte / $kb / $kb, "G  37 yrs")
player:tell("--------  ---------------------------------  ----  -------")
this:process("Dupes   ", dupes)
player:tell("--------  ---------------------------------  ----  -------")
this:process("Rooms   ", rooms)
player:tell("--------  ---------------------------------  ----  -------")
this:process("Channels", features)
player:tell("--------  ---------------------------------  ----  -------")
this:process("Toys    ", toys)
player:tell("--------  ---------------------------------  ----  -------")
.