@verb #9386:"wpfind" none none none rdo #9386
@program #9386:"wpfind" none none none
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 (`verb_info(object, x)[1].wizard && !index($su:from_list(verb_code(object, x)), "set_task_perms(caller_perms()") ! E_PERM, E_INVIND')
      refs = {@refs, tostr(object, ":", object:verbs()[x], " (", x, ")")}
    endif
    $cmd_utils:suspend_if_needed()
  endfor
endfor
player:tell("Wiz perms check complete.")
saveloc = "_wpfind"
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
.