on *:text:*:#:{
if $read(badnicks.txt,s,$nick) { halt }
if $read(badnetwork.txt,s,$network) { halt }
var %a = 1
while %a <= $0 {
if $read(badword.txt,w,$+(*,$gettok($1-,%a,32),*)) { halt }
if $read(badtrigger.txt,w,$+(*,$gettok($1-,%a,32),*)) { halt }
inc %a
}
scid -a if ($network == EFNet) {
msg # $1-
}