#####################################################################
# Name: Check Bad Word v1.0
# Author: Epic (epicnet@mail.ru, http://epicnet.ru)
# Description: Checks the entire text of the channel for bad words and kick if found.
#####################################################################
on *:TEXT:*:#:{
if ($badword($1-)) {
.timerBADWORD 1 5 bw_kick $chan $nick $v1
}
}
alias -l bw_kick {
.kick $1 $2 You are a $+(",$3,") yourself!!!
}
alias -l badword {
var %bw scumbag,fool,moron,idiot,imbecile,gay,freak
var %bw_text $remove($strip($1-),?,!,:,;,",.,-,_,$chr(40),$chr(41)$chr(44))
var %i 1 | while (%i <= $numtok(%bw,44)) { var %bwi $gettok(%bw,%i,44) | if ($istok(%bw_text,%bwi,32)) { return %bwi } | inc %i }
}