@verb #9321:"feets" any any any rxd #1186
@program #9321:"feets" any any any
if (argstr == "")
  player:tell("USAGE: #9321:feets <search_word> [np]")
  return
endif
for x in (children($feature))
  for y in (`x:verbs() ! E_TYPE => {}')
    if (match(y, "%(^%| %)" + args[1] + "%( %|%*%|$%)"))
      player:tell("Match! ", y, " on ", x, "-", x.name)
    elseif (index(y, args[1]) && args[$] != "np")
      player:tell("Potch! ", y, " on ", x, "-", x.name)
    endif
  endfor
endfor
player:tell("Search complete.")
"Last modified by Kagen (#1186) on Sun Jan 13 21:24:31 2002 MST."
.