@verb #8084:"probe" none none none rdo #8084
@program #8084:"probe" none none none
rooms = {player.location}
exits = player.location:exits()
nexits = {}
while (1)
  for x in (exits)
    dest = `x:real_dest() ! ANY => x.dest'
    "    #8084:Tell(dest);"
    if (typeof(dest) == $ERR)
      continue
    elseif (dest in rooms)
      continue
    elseif (!`dest:acceptable(this) ! E_VERBNF => 0')
      continue
    else
      rooms = setadd(rooms, dest)
      for x in (dest.contents)
        if (is_player(x) && x in connected_players())
          player:tell("Location: ", $string_utils:nn(dest), ", Player: ", $string_utils:nn(x), ".")
          player:tell("Path between: ", $su:nn_list($room_db:path_between(player.location, dest, player)))
          nexits = 1
          break
        endif
      endfor
      if (nexits == 1)
        break
      endif
      nexits = {@nexits, @dest:exits()}
    endif
  endfor
  if (nexits in {1, {}})
    break
  endif
  exits = nexits
  nexits = {}
endwhile
player:tell("Probe ended. ", length(rooms), " rooms checked.")
"Last modified by Dax (#789) on Tue May  3 13:46:01 2005 MDT."
.