@verb #8084:"x-grep" any on top of/on/onto/upon any rdo #8084
@program #8084:"x-grep" any on top of/on/onto/upon any
if (player != this || !(iobj in {#235, #2989, #6984}))
  return $msg:mtell("huh")
endif
player:tell("Beginning grep...")
i = length(iobj.log)
player:tell($su:spacE(50, "-"))
while (i >= 1)
  if (match(iobj.log[i][2], dobjstr))
    ct = ctime(iobj.log[i][1])
    player:tell("[", ct[9..10], "/", ct[12..16], "|", length(iobj.log) - i, "]: ", iobj.log[i][2])
  endif
  $cmd_utils:suspend_if_needed(0)
  i = i - 1
endwhile
player:tell($su:spacE(50, "-"))
"Last modified by Lao-Tzu (#8084) on Sun Aug 18 18:38:51 2002 MDT."
.