@verb #7171:"findverb(old) fofind(old) @fofind(old)" any any any rxdo #7407
@program #7171:"findverb(old) fofind(old) @fofind(old)" any any any
this:update_usage(verb, player)
args = $string_utils:words(argstr)
found = 0
for fo in (verb == "findverb" ? player.features | {@#5252:descendants(), @this.other_features})
  for verb in (args)
    vnn = vn = v = {}
    for i in [1..length(v = verbs(fo))]
      vn = {@vn, @$string_utils:explode(v[i], " ")}
    endfor
    for x in (vn)
      for j in [(i = index(x, "*") - 1) != -1 ? i | length(x)..length(x)]
        vnn = {@vnn, x[1..j]}
      endfor
    endfor
    if (verb in vnn && index(verb_info(fo, verb)[2], "x") && verb_args(fo, verb) != {"this", "none", "this"})
      player:tell($string_utils:nn(fo) + " has a verb with the name " + toliteral(`verb_info(fo, args[1])[3] ! ANY => argstr') + "...")
      found = found + 1
      break
    endif
  endfor
  $command_utils:suspend_if_needed()
endfor
player:tell(found, " features successfully matched a verb named " + strsub($string_utils:english_list(args), " and ", " or ") + "")
.