31c
@verb #4457:"@contents" none none none rxdo #4457
@program #4457:"@contents" none none none
emsg = ""
things = exits = players = {}
for x in (this.location.contents)
  if (x:isa($exit))
    exits = {@exits, x}
  elseif (x:isa($player))
    players = {@players, x}
  elseif (x:isa($thing))
    things = {@things, x}
  endif
endfor
if (exits)
  for x in (exits)
    emsg = emsg + tostr(x.name, " to ", x.dest:title(), " ")
  endfor
  player:tell("You can go ", emsg[1..$ - 1], ".")
endif
if (things)
  tmsg = this:name_list(things)
  player:tell("You see ", tmsg, " lying around here.")
endif
if (players)
  pmsg = this:name_list(players)
  player:tell("You see", pmsg, " hangin around here.")
endif
"Last modified by Rubbie (#4457) on Sun May 28 23:43:08 2000 MDT."
.

0