2f1
@verb #6319:"SnR" any at/to any rdo #6319
@program #6319:"SnR" any at/to any
if (caller != this)
  return $msg:mtell("huh")
endif
find = dobjstr
replace = iobjstr
for x in [#0..max_object()]
  for y in [1..length(verbs(x))]
    code = verb_code(x, y)
    oops = 0
    for line in [1..length(code)]
      if (index(code[line], find))
        player:tell(x, ":", verbs(x)[y], " line ", line, " -> ", code[line])
        code[line] = strsub(code[line], find, replace)
        oops = 1
      endif
      $command_utils:suspend_if_needed()
    endfor
    if (oops)
      set_verb_code(x, y, code)
    endif
    suspend(0)
  endfor
endfor
player:tell("DONE ", verb)
"Last modified by Dax (#789) on Mon Dec 10 21:45:23 2001 MST."
.

0