@verb #4486:"tell_exits" this none this rxdo #8084
@program #4486:"tell_exits" this none this
"Copied from the generic All-In-One Room (#3310):tell_exits by Jay (#8438)Mar 20 08:55:25 2001"
exits = args[1]
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($get_property(x, "aliases")) ! ANY => 0'
    name = $su:lowercase($call_Verb(x, "Title", {}))
    if (!alias || alias == name)
      player:tell("      ", name, " leads to ", $get_property(x, "dest"):title())
    else
      player:tell("      ", name, " [", alias, "] leads to ", $get_property(x, "dest"):title())
    endif
  endfor
endif
"Last modified by Lao-Tzu (#8084) on Wed Aug 21 06:24:07 2002 MDT."
.