@verb #3425:"@find-verb" any none none rd #3425
@program #3425:"@find-verb" any none none
if (player != this)
  return raise(E_PERM)
endif
name = $string_utils:trim(dobjstr)
if (name && name[1] == ":")
  name = name[2..$]
endif
if (!name)
  this:tell("Usage: @find-verb (verb name)")
  this:tell("       => locate all objects in the vinciny that have (verb name) and tell which of their parents define it.")
  return
endif
results = ""
objects = $list_utils:remove_duplicates(this:find_verbs_on())
for thing in (objects)
  if (valid(thing) && (mom = $object_utils:has_verb(thing, name)))
    results = results + "   " + $string_utils:nn(thing)
    mom = mom[1]
    if (thing != mom)
      results = results + "--" + $string_utils:nn(mom)
    endif
  endif
endfor
if (results)
  this:tell("The verb ", name, " is on", results)
else
  this:tell("The verb ", name, " is nowhere to be found.")
endif
"Last modified by Janus (#3425) on Sun Jul 21 08:04:32 2002 MDT."
.