2a3
@verb #7788:"@-d" none none none rdo #7788
@program #7788:"@-d" none none none
"Copied by a bloody bloody thief, and I'm not telling you from who!"
player:tell("Searching for !d wiz owned verbs..")
count = 0
for x in [#0..max_object()]
  for y in [1..length(`x:verbs() ! E_PERM => {}')]
    vi = `verb_info(x, y) ! ANY => {$no_one}'
    if (vi[1].wizard && !index(vi[2], "d") && index(vi[2], "x"))
      count = count + 1
      player:tell(x, ":", toliteral(vi[3]))
    endif
    $cmd_utils:suspend_if_needed() && player:tell("... ", x)
  endfor
endfor
player:tell(count, " verbs found.")
"Last modified by Floyd (#7788) on Sat Oct  5 12:37:15 2002 MDT."
.

0