Forums Scripts & Popups Help

alias replacetxt {
  var %file = $qt($sfile($mircdir)), %x = 1
  while ($read(%file,w,*word*,%x)) {
    var %x = $readn
    write -l $+ %x %file $replace($v1,word,word 1)
  }
}

var %x = $calc($readn +1)