@verb #3310:"tell_exits" this none this rxdo #8438
@program #3310:"tell_exits" this none this
"Checks to see if it needs to show exits."
"Then checks if the exit will accept the player, and shows the exit if a"
"positive check."
if (!this:get_room_option("show_exits"))
  return
endif
exits = {}
for x in (args[1])
  if (x.obvious && x:is_unlocked_for(player))
    exits = setadd(exits, x)
  endif
endfor
if (!exits)
  return player:tell("There are no obvious exits from here.")
else
  player:tell("Exits from here:")
endif
if (player:display_pueblo() && player.location == this)
  return this:do_pueblo_exits(exits)
else
  for x in (exits)
    alias = `$list_utils:shortest(x.aliases) ! ANY => 0'
    name = $string_utils:lowercase(x:title())
    if (!alias || alias == name)
      player:tell("      ", name, " leads to ", x.dest:title())
    else
      player:tell("      ", name, " [", alias, "] leads to ", x.dest:title())
    endif
  endfor
endif
"Last modified by Jay (#8438) on Tue Jan 23 13:35:10 2001 MST."
.