@verb #8084:"@-d" none none none rdo #8084
@program #8084:"@-d" none none none
player:tell("Searching for !d wiz owned verbs..")
count = 0
for x in [#0..max_object()]
  for y in [1..length(verbs(x))]
    vi = verb_info(x, y)
    if (vi[1].wizard && !index(vi[2], "d"))
      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 Lao-Tzu (#8084) on Tue Dec 18 05:05:35 2001 MST."
.