302
@verb #4805:"@findcode" any any any rdo #4805
@program #4805:"@findcode" any any any
"Copied from Wulfgar (#6959):@findcode Aug 21 22:37:43 2001"
player == this || raise(E_PERM)
player:tell("Starting search...")
for object in [#0..max_object()]
  verbs = object:verbs()
  for verb in [1..length(verbs)]
    if (verbs[verb] != "E_PERM")
      code = `verb_code(object, verb) ! E_PERM => {}'
      for line in [1..length(code)]
        if (index(code[line], argstr))
          player:tell($su:nn(object), ":", verbs[verb], " (", verb, ") Line ", line)
        endif
        $cmd_utils:suspend_if_needed(0)
      endfor
    endif
    $cmd_utils:suspend_if_needed(0)
  endfor
  $cmd_utils:suspend_if_needed(0)
endfor
player:tell("Ending search...")
.

0