@verb #5455:"search" any on top of/on/onto/upon this rdo #60
@program #5455:"search" any on top of/on/onto/upon this
for x in ($archive_db:filelist())
  for y in ($archive_db:fileread(x))
    if (index(y, dobjstr))
      player:tell("Player #", x, " has the following record:")
      player:tell($archive_db:fileread(x))
      break
    endif
    $cmd_utils:suspend_if_needed(1)
  endfor
endfor
player:tell("Done searching.")
"Last modified by Cecil (#7407) on Fri Jul 25 10:31:29 2003 MDT."
.