@verb #3512:"spy_locations" this none this rxdo #6319
@program #3512:"spy_locations" this none this
this:tellit(player, "Home: %1", $string_utils:nn(valid(dobj.home) ? dobj.home | #11))
this:tellit(player, "Current location: %d~l (#%d~$)")
with = {}
if (!(dobj.location in {#50, #49, #48, #61, #6053, #-1}))
  for x in (dobj.location:contents())
    if (is_player(x) && !x:isa($project) && x != dobj)
      with = {@with, x}
    endif
  endfor
else
  with = "(Too many people to mention, or not worth mentioning)"
endif
this:tellit(player, "With: %1", with || "No one")
"Last modified by Raptor (#6319) on Tue May 11 00:05:27 1999 MDT."
.