@verb #1011:"allhere" none none none rxdo #7153
@program #1011:"allhere" none none none
"Usage:  allhere"
"  This will return the name, number, and flags of everything at your present location."
"--Be warned... it might run out of tickes--"
this:update_usage(verb)
if (length(player.location.contents) > 1)
  loc = tostr(player.location.name, " (", player.location, ")")
  player:tell("The contents of your location: '", loc, "':")
  for thing in (player.location.contents)
    $command_utils:suspend_if_needed(2)
    if (thing == player)
    else
      cx = tostr(" ", thing:titlec(), " (", thing, ")")
      cx = tostr($string_utils:left(cx, 40), thing.owner.name, " (", thing.owner, ")")
      player:tell(cx)
    endif
  endfor
else
  player:tell("There is nothing here.")
endif
"Last modified by Absolute (#7153) on Fri Dec  8 16:37:04 2000 MST."
.