@verb #8084:"@destroy" none none none rdo #8084
@program #8084:"@destroy" none none none
deletelist = {}
for x in [#0..max_object()]
  for verb in [1..length(verbs(x))]
    if (this:_destroy_catch(x, verb))
      vi = verb_info(x, verb)
      player:tell(x, ":", vi[3])
      player:tell(verb_code(x, verb))
      if ($cmd_utils:yes_or_no("Destroy?"))
        deletelist = {@deletelist, {x, verb}}
      else
        this.ok = {@this.ok, {x, verb}}
      endif
    endif
    $cmd_utils:suspend_if_needed(0)
  endfor
endfor
if ($cmd_utils:yes_or_no("Are you SURE you want to delete all these verbs?"))
  for x in (deletelist)
    delete_verb(@x)
    suspend(0)
  endfor
  player:tell("Deleted.")
endif
"Last modified by Lao-Tzu (#8084) on Mon Nov 23 07:18:00 1998 MST."
.