Forums Scripts & Popups replacing bad words with **'s

on *:INPUT:*:{
  var %string = $1-
  if (($left($1,1) isin / $readini($mircini,text,commandchar)) || ($left($$1,1) == !) || ($left($$1,1) == @) || ($ctrlenter == $true)) { return }
  var %tokens = $gettok(%string,0,32)
  var %i = 1
  while (%i <= %tokens) {
    var %check = $gettok(%string,%i,32)
    if (%check isin %naughtywords) {
      var %checkl = $len(%check)
      var %string = $replace(%string,%check, $str(*,%checkl))
    }
    inc %i
  }
  msg $active %string
  halt
}
alias naughtywords { set %naughtywords %naughtywords $$1- }