3af
@verb #7214:"@grepold" any for/about any rdo #7214
@program #7214:"@grepold" any for/about any
"Copied from Catspaw (#7921):@grep Jun 30 22:40:50 1999"
player == this ? 0 | raise(E_PERM)
{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("--- Done ---")
"Last modified by JS (#7214) on Thu Aug  3 10:48:27 2000 MDT."
.

0