@verb #12:"@find" any any any rdo #60
@program #12:"@find" any any any
"Lists all rooms who's name start with the input string."
if (!argstr)
  return player:tell("You must give the name of some room.")
endif
rooms = $room_db:find_all(argstr)
if (!rooms)
  $msg:mtell("not_exist", argstr)
else
  for r in (rooms)
    player:tell("  ", $string_utils:nn(r))
    path = $room_db:path_between(player.location, r, player)
    if (path == E_NACC)
      player:tell("    [no path from here to there]")
    elseif (path == {})
      player:tell("    [you are here]")
    else
      go = "go"
      for x in (path)
        if (typeof(x) == $OBJ)
          go = tostr(go, " ", x.name)
        else
          "WAIF, yuck."
          go = tostr(go, " ", x->aliases[1])
        endif
      endfor
      go = $su:lowercase(go)
      player:tell("    <A XCH_CMD=\"", go, "\">", go, "</A>")
    endif
  endfor
endif
"Last modified by Dax (#789) on Tue May  3 13:47:06 2005 MDT."
.