@verb #7171:"@fofind fofind findverb @which which" any any any rxdo #7407
@program #7171:"@fofind fofind findverb @which which" any any any
"This verb will determine if a command is available, and if so, where it can be found."
"  findverb, @which  -- locate a verb using your own player, location, and features."
"  fofind, @fofind   -- locate which of the MOO's \"Feature Objects\" (FOs) a command can be found on."
obs = {}
{vname, astr, dstr, pstr, istr} = $command_parser:parse_command(argstr)
if (verb in {"findverb", "@which", "which"})
  dstr && (dobj = player:my_match_object(dstr))
  istr && (iobj = player:my_match_object(istr))
  obs = {@obs, @valid(dobj) ? {dobj} | {}}
  obs = {@obs, @valid(iobj) ? {iobj} | {}}
  obs = {@obs, @player.features}
else
  obs = {@$feature:leaves(), @this.other_features}
endif
player:tell("Searching for ", vname, "...")
for o in (obs)
  if (`vi = verb_info(o, vname) ! E_VERBNF')
    "Verbname matched, display object that contains it."
    player:tell($string_utils:nn(o), " has a verb named \"", vi[3], "\"")
  endif
  $command_utils:suspend_if_needed()
endfor
player:tell("Search complete.")
"Last modified by Cecil (#7407) on Sun Nov 25 17:52:37 2001 MST."
.