360
@verb #1011:"@whowith" any none none rxdo #7153
@program #1011:"@whowith" any none none
"Usage: @whowith <player>"
"   This tells you who is in the same room as that player"
this:update_usage(verb, player)
dobj = $player_db:find(dobjstr)
if (!valid(dobj))
  player:tell("No such player.")
else
  count = 0
  player:tell(dobj:title(), " is with the following connected people in ", $string_utils:nn(dobj.location), ":")
  player:tell("-----------------------------------------------------------------------------")
  for x in (dobj.location.contents)
    if (x in connected_players() && x != dobj)
      count = count + 1
      player:tell($string_utils:nn(x))
    endif
  endfor
  if (count == 0)
    player:tell("None at all!")
  endif
  player:tell("-----------------------------------------------------------------------------")
endif
.

0