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- }