2f4
@verb #6319:"fSnR" any at/to any rdo #6319
@program #6319:"fSnR" 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(x:filelist())]
    code = x:fileread(y)
    oops = 0
    for line in [1..length(code)]
      if (index(code[line], find))
        player:tell(x, "!", x:filelist()[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
    suspend(0)
  endfor
endfor
player:tell("DONE ", verb)
"Last modified by Dax (#789) on Mon Dec 10 21:45:51 2001 MST."
.

0