TCL 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)"