;Alan's bad-word filter script.
;Place this entire script in your gate.
;In addition, place the last section, only, in rooms where you want this function.
ON SIGNON
{
;Badwordfilter - prevent a user from saying 'bad words'
;This is an OUTCHAT script.
	badwordfilter GLOBAL
	{ [
;*****************************************************************
;List your 'bad words' here in form "word1" "word2" "word3" ...
	"Bill Gates" "Microsoft"
;*****************************************************************
	] bwarray =
		{ badword =
			{ "`page I am using bad language" SAY
				{ "$1****$2" GREPSUB CHATSTR = } { CHATSTR LOWERCASE "(.*)" badword & "(.*)" & GREPSTR } WHILE
			} CHATSTR badword SUBSTR IF
		} bwarray FOREACH
	} badwordfilter DEF
}



;The following is part of the this gate script.
;In addition, place the following section, only, in rooms where you want this function.
;Enable gate functions.
ON OUTCHAT { badwordfilter GLOBAL badwordfilter EXEC }