;Alan's bad-word filter #2 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 [ "bad_word" "replaced_by" ]
	[ "kiss" "osculate" ]
	[ "grope" "hug" ]
;*****************************************************************
	] bwarray =
		{ DUP 0 GET badword = 1 GET replace =
			{ "`page I am using bad language" SAY
				{ "$1" GREPSUB replace & "$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 }