436
@verb #9386:"rfind" any any any rdo #9386
@program #9386:"rfind" any any any
caller == this || raise(E_PERM)
player:tell("Calculating...")
suspend(1)
refs = {}
for object in [#0..#9999]
  for x in [1..`length(object:verbs()) ! E_PERM']
    if (`code = verb_code(object, x) ! E_PERM, E_INVIND')
      for line in [1..length(code)]
        $cmd_utils:suspend_if_needed()
        if (index(code[line], argstr))
          reft = tostr(object:verbs()[x], " (", x, ") ln ", line)
          refs = {@refs, $su:right(object, 5) + ":" + reft}
          break
        endif
      endfor
    endif
    $cmd_utils:suspend_if_needed()
  endfor
endfor
player:tell("Reference check complete.")
saveloc = tostr("_rfind_", task_id())
if (refc = length(refs))
  player:filewrite(saveloc, refs)
  player:filesetaccess(saveloc, "")
  if (refc <= 100)
    player:tell("All matches:")
    suspend(1)
    player:tell(refs)
  endif
  player:tell("Total ", refc, "matches. Results saved to ", player, "!", saveloc, " (-r).")
else
  player:tell("No matches.")
endif
.

0