3a9
@verb #3309:"tell_contents" this none this rxdo #8438
@program #3309:"tell_contents" this none this
"Copied from Generic Room (#6):tell_contents by Hacker (#60) Mar 11 15:59:09 1998"
"... remove the sitters from the contents list ..."
contents = players = things = {}
for OBJ in (args[1])
  if (!(OBJ in this.sitters))
    contents = {@contents, OBJ}
  endif
  $command_utils:suspend_if_needed()
endfor
"ctype = args[2]"
if (`this.dark ! E_PROPNF => 0')
  return
endif
for x in (contents)
  if (is_player(x))
    players = {@players, x}
  else
    things = {@things, x}
  endif
endfor
if (!things)
  $msg:mtell("thing_none")
elseif (length(things) == 1)
  $msg:mtell("thing_sing", things[1])
else
  $msg:mtell("thing_plur", things)
endif
if (!players)
  $msg:mtell("player_none")
elseif (length(players) == 1)
  $msg:mtell("player_sing", players[1])
else
  $msg:mtell("player_plur", players)
endif
.

0