37c
@verb #1606:"@exits*1" none none none rxdo #833
@program #1606:"@exits*1" none none none
"Copied from Generic Room (#6):@exits by Hacker (#60)Apr 14 14:14:28 2001"
"Prints a list of all conventional exits from the current room"
exits = {}
for exit in (this:exits())
  if ($get_property(exit, "obvious"))
    exits = {@exits, exit}
  endif
endfor
if (exits)
  player:tell("Exits from ", $string_utils:nn(this), ":")
  for x in (exits)
    "    player:tell(toliteral(x));"
    "    player:tell(toliteral($get_property(x, \"dest\")));"
    player:sub_tell("  %1 (#%1~#) leads to %2 (#%2~#) via {%3}.", x, $get_property(x, "dest"), $string_utils:from_list($get_property(x, "aliases"), ", "))
    $command_utils:suspend_if_needed()
  endfor
else
  player:tell("This room has no conventional exits.")
endif
"Last modified by Cecil (#7407) on Tue Nov 26 11:39:31 2002 MST."
.

0