39f
@verb #8219:"@path" any none none rdo #8219
@program #8219:"@path" any none none
"Copied from Dizzy_Devil (#9299):@path Jun 27 14:11:54 1999"
"Copied from Quadir (#9780):@path Jun 21 18:56:20 1999"
"MAde by Quadir (#9780)"
place = #-1
if (valid(dobj))
  place = dobj
else
  for x in ($room_db:find_all(dobjstr))
    player:Tell("    ", $su:nn(x))
    $cmd_utils:suspend_if_needed(0)
  endfor
  place = toobj($cmd_utils:read("Which room are you refering to?"))
endif
if (!valid(place))
  return player:Tell("I'm sorry but your destination inst a real place.")
endif
try
  Exits = $room_db:path_between(player.location, place, player)
except (ANY)
  return player:tell("Couldnt find you a route there.")
endtry
msg = "Go: "
for x in (Exits)
  msg = msg + x.name + ", "
  $cmd_utils:suspend_if_needed(0)
endfor
msg[$ - 1] = "."
player:tell({"", ""})
player:tell(msg)
player:Tell("*** DONE ***")
.

0