390
@verb #5772:"@status" any none none rdo #5772
@program #5772:"@status" any none none
"Copied from Drusilla (#2285):@status Oct 18 13:23:15 1999"
"Copied from Xentac (#9854):@status Mar 16 19:37:55 1999"
if (!dobjstr)
  who = this
else
  who = $su:match_player(argstr)
  if (who in {#-1, #-2, #-3})
    return player:tell("Couldn't match player \"", argstr, "\"")
  endif
endif
anims = {}
for i in (who.owned_objects)
  if (i:isa($animal))
    anims = setadd(anims, i)
  endif
endfor
if (this == who)
  if (this.pets != anims)
    this.pets = anims
    player:tell("Updated pet list")
  endif
endif
lines = {}
for i in (anims)
  lines = {@lines, {i:title(), i, i.code, i.location == #-1 ? "Nowhere" | i.location:msg_who_location(i), i.location, i.listening ? "Yes" | "No"}}
endfor
player:tellcolumns("lrllrl", {1, 1, 1, 1, 1, 1}, {"Pet", "", "Code", "Location", "", "On"}, @lines)
.

0