@verb #2111:"@place" any none none rxdo #7446
@program #2111:"@place" any none none
player:tell("<<Seaching....>>")
player:tell("")
all_places = this:descend_suspend($room)
len = length(dobjstr)
for item in (all_places)
  $command_utils:suspend_if_needed(0)
  if ((namelen = length(item.name)) >= len)
    if (item.name[1..len] == dobjstr || (namelen >= len + 4 && item.name[1..4] == "the " && item.name[5..len + 4] == dobjstr))
      own = item.owner
      player:tell($string_utils:right(tostr(item), 6), " ", item.name, "--owner-- ", own, " ", own.name)
    endif
  endif
endfor
dest = dobjstr
dest1 = "The " + dobjstr
player:tell($string_utils:right(tostr(item), 6), " ", item.name, " --owner-- ", own, " ", own.name)
player:tell()
player:tell("<<Completed search for rooms with title:  ", dobjstr, " >>")
"Last modified by Dax (#789) on Thu Dec 13 20:47:33 2001 MST."
.