bad word replacer
Platform: mIRC
Published Mar 30, 2005
Updated Sep 04, 2008
This scriptwill say (censored) instead of a bad word, the third line is wear you add the words then the fourth is what you want it to sya instead,
on *:INPUT:*: {
if (/* !iswm $1) || ($ctrlenter) {
var %acros = shoot,fark,slut,slapper,slag,@#$,!@#$,ass,arse,fark,niger,mother !@#$,wanka,wanker,fanny,!@#$,
var %expand = (Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);(Censored);
var %x = $numtok(%acros,44)
while (%x) {
var %w = $gettok(%acros,%x,44)
var %xx = $findtok($1-,%w,0,32)
while (%xx) {
tokenize 32 $reptok($1-,%w,$gettok(%expand,%x,59),%xx,32)
dec %xx
}
dec %x
}
msg $target $1-
halt
}
}