on ^*:OPEN:?:pmkban $1-
on *:TEXT:*:?:pmkban $1-
on *:ACTION:*:?:pmtkban $1-
on *:NOTICE:*:?:pmkban $1-
alias -l pmkban {
var %r /bitch|bastard|cunt|cock|fuc?k|<censored>| $&
h(0|o)rn(ie|y)|nigger|\btwat\b|whore|penis|shit| $&
\bcibai\b|di ?ck|pussy-?|fak you|fck|slut/iS
if $regex($1-,%r) {
var %c,%i 1
while $comchan($nick,%i) {
%c = $v1
if $nick(%c,$me,~&@%) {
ban -ku600 %c $nick 2 Ten minute ban for foul language in private message!
}
inc %i
}
.ignore -u600 $nick 2
}
}