Антимат

Антимат — это простейшее решение для поверхностной чистки текстовых сообщений от нецензурной лексики. Проверка осуществляется по таблице слов, которую при желании можно дополнить или сократить.

Вызов метода такой:

^antimat[$form:text;antimat.cfg]

или такой:

^antimat[$form:text;antimat.cfg;*БИП*]

В первом случае каждая буква слова заменится на символ * (звёздочка), во втором, всё слово заменится на *БИП*.

Сам метод:

########################################
# Антимат
#####
@antimat[text;table_path;signal][antimat]
^if(def $text){
	$result[$text]
	^try{
		$antimat[^table::load[nameless;$table_path]]
		^antimat.menu{
			$result[^result.match[\b([а-я]*?${antimat.0}[а-я]*?)\b][gi]{^if(!def $signal){^for[i](1;^match.1.length[]){*}}{$signal}}]
		}
	}{
		$exception.handled(1)
	}
}
### End @antimat[]

	antimat.zip (05 мая 2005 г., 1,1 Kb)
	метод + таблица слов

Eugene Spearance