@verb #789:"SnR" none none none rdo #789
@program #789:"SnR" none none none
player == this || raise(E_PERM)
find = "writable"
replace = "writable"
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:notify_direct(tostr(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
  endfor
  if (x:isa($msp))
    files = {}
    if (x:isa($emsp))
      for y in (x:filelist())
        if (rindex(y, ".msp") == length(y) - 3)
          files = {@files, y}
        endif
        $command_utils:suspend_if_needed()
      endfor
    elseif (x:fileexists("description"))
      files = {"description"}
    endif
    for y in (files)
      code = x:fileread(y)
      oops = 0
      for line in [1..length(code)]
        if (index(code[line], find))
          player:notify_direct(tostr(x, "!", y, " line ", line, " -> ", code[line]))
          code[line] = strsub(code[line], find, replace)
          oops = 1
        endif
        $command_utils:suspend_if_needed()
      endfor
      if (oops)
        x:filewrite(y, code)
      endif
      $command_utils:suspend_if_needed()
    endfor
  endif
  suspend(0)
endfor
player:tell("DONE ", verb)
"Last modified by Dax (#789) on Sat May 21 03:39:52 2005 MDT."
.