set kl(chan) "#Admin"
 
set kl(words) {
"kelime1"
"kelime2"
"kelime3"
"kelime4"
"v.s v.s"
}
 
 
bind msgm - * proc_ismi
proc_ismi {nick uhost hand text} {
 global kl
 foreach x $kl(words) {
   if {[string match -nocase *$x* $text]} {
   putserv "privmsg $kl(chan) :\00302$nick \00312Özelime muhtemel reklam içieren şu mesajı yazdı: \003$text"
 }
}
}