37e
@verb #8043:"@grep @grep-full" any for/about any rxdo #8043
@program #8043:"@grep @grep-full" any for/about any
{minobj, maxobj} = {verb == "@grep-full" ? #1 | player:my_match_object(args[1]), verb == "@grep-full" ? #9999 | player:my_match_object(args[1])}
for object in [minobj..maxobj]
  object in {#2500, #5000, #7500} && player:tell("Now serving object ", object, "...")
  for x in [1..length(`verbs(object) ! E_PERM => {}')]
    code = `verb_code(object, x) ! E_PERM => {}'
    q = 0
    for a in (code)
      q = q + 1
      index(a, iobjstr) && this:tell(object, ":\"", verbs(object)[x], "\" (Line ", q, ") -> ", a)
      $cmd_utils:suspend_if_needed()
    endfor
    $cmd_utils:suspend_if_needed()
  endfor
  $cmd_utils:suspend_if_needed()
endfor
this:tell("Grep of ", $su:nn(object), " finished.")
"Last modified by Russ (#8043) on Sun Sep 12 00:56:15 1999 MDT."
.

0