@verb #4687:"findvp" any with/using this rdo #3626
@program #4687:"findvp" any with/using this
verbsfound = 0
propsfound = 0
player:tell("")
player:tell("Looking for ", dobjstr, " as Verb or Property name in all objects.")
player:tell("")
for x in [#0..max_object()]
  if (valid(x) && x.owner != this.owner)
    if (dobjstr in verbs(x))
      player:tell("[", x, "] ", x.name, ":", dobjstr, "[VERB]")
      verbsfound = verbsfound + 1
    endif
    if (dobjstr in properties(x))
      player:tell("[", x, "] ", x.name, ".", dobjstr, "[PROPERTY]")
      propsfound = propsfound + 1
    endif
  endif
endfor
player:tell("")
player:tell("VERBS: ", verbsfound, " PROPERTIES: ", propsfound)
"Last modified by Ross (#3626) on Mon Feb  3 00:04:28 2003 MST."
.