@verb #1994:"tell_exits" this none this rxdo #8438
@program #1994:"tell_exits" this none this
exits = {}
for x in (args[1])
  if (x.obvious && x:is_unlocked_for(player))
    exits = {@exits, {x.name, x.dest}}
  endif
  $command_utils:suspend_if_needed(0)
endfor
exits = $list_utils:append(exits, this:get_vexits(1))
if (!exits)
  return player:tell("There are no obvious exits from here.")
else
  player:tell("Exits from here:")
  for x in (exits)
    if (player:display_pueblo() && player.location == this)
      player:tell("      <a xch_cmd=\"", x[1], "\" xch_hint=\"leads to ", `x[2]:title() ! ANY => x[2].name', "\">", x[1], "</a> leads to ", `x[2]:title() ! ANY => x[2].name')
      $command_utils:suspend_if_needed(0)
    else
      short = !index(x[1], "-") ? x[1][1] | x[1][1] + x[1][index(x[1], "-") + 1]
      player:tell("      ", x[1], " [", short, "] leads to ", `x[2]:title() ! ANY => x[2].name')
    endif
  endfor
endif
"Last modified by Jay (#8438) on Tue Dec 21 08:58:19 1999 MST."
.