set badwords { 
"*kelime1*" 
"*kelime2*" 
"kelime3*"
"eklemeye devam et alt alta"
} 
 
bind pubm - "*" pubm:badword 
 
proc pubm:badword {nick uhost hand chan text} { 
 global badwords 
  if {[botisop $chan] && ![isbotnick $nick]} { 
   foreach badword $badwords { 
    if {[string match -nocase $badword $text]} { 
      putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
      putquick "KICK $chan $nick :Badword *$badword* yasak kelime tespit edildi." 
      } 
    } 
  } 
}