TCL Bad words
Bad words
set badword "fuck suck hui pishka"
bind pubm -|- * badword:check
proc badword:check {nick uhost hand chan text} {
global badword
set bad ""
foreach element $badword {
foreach element1 $text {
if {$element1 == $element} {
set bad "$element"
break
}
}
}
if {$bad != ""} {
putserv "KICK $chan $nick : $bad is \002bad word!!\002"
}
}
putlog "Lil bad word TCL By IRCHelp.UniBG.oRG ft. LHG Crew Loaded (Users request)"