@verb #9090:"tell_contents" this none this rxdo #7446
@program #9090:"tell_contents" this none this
"Copied from Generic Room (#3):tell_contents by Slacker (#2) Apr 10 14:19:52 1997"
contents = args[1]
"ctype = args[2]"
if (`this.dark ! E_PROPNF => 0')
  return
endif
players = things = {}
for x in (contents)
  if (is_player(x))
    players = {@players, x}
  else
    things = {@things, x}
  endif
endfor
if (this:loc(player) == 0)
  if (!things)
    $msg:mtell("thing_none")
  elseif (length(things) == 1)
    $msg:mtell("thing_sing", things[1])
  else
    $msg:mtell("thing_plur", things)
  endif
endif
yeed = {}
for x in (players)
  hm = x in this.p
  if (this.ps[hm][1] == this:loc(player))
    if (x.location == this)
      if (!(x in this.hiding))
        if (x:connected())
          yeed = listappend(yeed, x)
        endif
      endif
    endif
  endif
endfor
players = yeed
if (!players)
  $msg:mtell("player_none")
elseif (length(players) == 1)
  $msg:mtell("player_sing", players[1])
else
  $msg:mtell("player_plur", players)
endif
.