23c
@verb #3838:"tell_contents" this none this rxdo #3135
@program #3838:"tell_contents" this none this
q = {}
if ((t = this:has_tick(player)) != 0)
  for x in (this.contents)
    if (player != x && this:has_tick(x) != 0 && this:has_tick(x).cur_sq == t.cur_sq)
      q = {@q, x}
    endif
  endfor
  if (length(q) == 1)
    $msg:mtell("ghost_sing", q[1])
  elseif (length(q) > 1)
    $msg:mtell("ghost_plur", q)
  endif
else
  for x in (this.contents)
    if (this:has_tick(x) == 0 && x != player)
      q = {@q, x}
    endif
  endfor
  pass(q)
endif
.

0