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