4c7
@verb #3444:"ttt" this none this rxdo #2322
@program #3444:"ttt" this none this
"Copied from the generic All-In-One Room (#3310):tell_exits by Jay (#8438)Jul 25 21:50:59 2000"
"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("      ", x.name, " [<a xch_cmd=\"go ", x.name, "\" xch_hint=\"Go", x.name, "\">", x:shortest_alias(), "</a>]", " leads to ", x.dest:title(), ".")
  endif
endfor
"endif"
"Last modified by Roosterman (#2322) on Tue Jul 25 21:53:53 2000 MDT."
.

0