if (word(2 $loadinfo()) != [pf]) {
	load -pf $word(1 $loadinfo());
	return;
};

#	Copyright (c) 2004 BlackJac@EFNet
#
#	Version: 1.1.2005.03.04.1
#
#	This script will allow you to censor certain words said publically
#	in a channel and replace them with another word.

package censor;

# Watch for these words in your channels (leave a space between each word):
assign CENSOR_LIST example1 %example2% *example3*;

# Replace censored words with this pattern:
assign CENSOR_PATTERN [*censored*];

^on ^public '% % *\\\\[$$CENSOR_LIST\\\\]*' {
	fe ($2-) cc {
		push :text ${rmatch($stripcrap(all $cc) $CENSOR_LIST) ? CENSOR_PATTERN : cc};
	};
	echo <$0> $text;
};

^on ^public_other '% % *\\\\[$$CENSOR_LIST\\\\]*' {
	fe ($2-) cc {
		push :text ${rmatch($stripcrap(all $cc) $CENSOR_LIST) ? CENSOR_PATTERN : cc};
	};
	echo <$0:$1> $text;
};