on *:text:*:#Adwords:{
  var %\ = 1,%\\ = $lines(spam.txt),%nickx = $remove($token($2,1,58),$chr(40))
  while %\ <= %\\ {
    if $+(*,$read(spam.txt,%\),*) iswm $strip($2-) {
      shun %nickx 5m kurallara_uyalım | sajoin %nickx 0  | sajoin %nickx #deneme
    }
    inc %\
  }
}

bind pubm - "#adwords *" ad:words

proc ad:words {nick uhost hand chan text} {
         set dosya "spam.txt"
         set text [filter [stripcodes bcruag $text]]
   if {[regexp -nocase -- {\((.*?):PRIVMSG:(.*)$} $text "" hedef laf]} {
         regsub -all -- {[A-Z\+\%\`\=\&\#\+\-\_\!\~\<\,\@\#\$\%\^\&\*]} "A+%`=&#+-_!~<,@#$%^&*" "" laf
         set laf *[string map -nocase {" " *} $laf]* 
         set i 0
         set fp [open $dosya r]
      while {[gets $fp b] > -1} {
  if {[string match -nocase "*$b*" $laf]} {
           putquick "shun $hedef 5m :det!!!"
           putquick "sajoin $hedef 0"
           putquick "sajoin $hedef #uyarı"
           incr i
           }
      }
      close $fp
   }
  return 0
}

proc filter {text} {
   set text [string map {\\ \\\\ \[ \\\[ \] \\\] \{ \\\{ \} \\\} \$ \\\$ \" \\\"} $text]  
   return $text
}

bind pubm - "% *" ad:words

proc ad:words {nick uhost hand chan text} {
         # bot ana dizininde spam.txt dosyası oluşturun içine yasak sözleri alt alta yazın
         # wildcard kullanarak ta ekleme yapılabilir *sp*a? vs gibi .
         # bunlarda büyük-küçük harf fark etmez.         
         set dosya "spam.txt"
         
         # yakalanacak kanal mesajındaki olası renk kodlarını ve özel karakterleri ayıklamak için
         set text [filter [stripcodes bcruag $text]]
         
         #kanalda hangi mesajı yakalayıp, postalayan nicki ve yazdığı şeyleri yakaladığı kısım
   if {[regexp -nocase -- {\((.*?):PRIVMSG:(.*)$} $text "" hedef laf]} {
   
         # spam sözü,harfler arasına farklı karakterler yerleştirip atanlar için alttaki satır.
         # ilk attığım kodda bu satırda hata yapmışım.o nedenle beklenen işi yapmıyor-du...
         # olması gereken şekli budur.
         regsub -all -- {[A-Z\+\%\`\=\&\#\+\-\_\!\~\<\,\@\#\$\%\^\&\*]} $laf "A+%`=&#+-_!~<,@#$%^&*" laf
         
         # bu satıra gerek yokmuş.bu olsada,olmasada yapacağını yapıyor.
         #set laf *[string map -nocase {" " *} $laf]*
         
         set i 0
         set fp [open $dosya r]
      while {[gets $fp b] >= 0} {
      
         # kanaldan yakalanan mesajlar "laf" dosyadan okunanlarla eşleşiyormu ?
         # diğer deyişle ,yasak kelime/ler içeriyor mu?
  if {[string match -nocase "*$b*" $laf]} {
  
           # kendi botumda denerken eklediğim satır. "laf" ları ve nick kısmını, dosyadan okunan
           # kelimelerle eşleşme olduğunda kanala yakalanan nicki ve "laf" ları nasıl yakaladığını
           # "laf" içinde ve nick'te olabilecek özel karakterlerin bot için bir sorun 
           # olup olmadığını görmek için kullandım.  siz kullanmayın..          
           #puthelp "privmsg $chan :laf çıktısı: -> $laf  - hedef-nick çıktısı: ->  $hedef"
           
           #putquick "shun $hedef 5m :det!!!"
           #putquick "sajoin $hedef 0"
           #putquick "sajoin $hedef #uyarı"
           incr i
           }
       }
       close $fp
   }
   return 0
}
# Tcl için özel karakterleri filtre etmek için prosedür.
# bunda da "sorun" vardı .. istenen işi iyi yapmıyordu...onarıldı..
proc filter {text} {
   set text [string map {"\\" "\\\\" "\[" "\\\[" "\]" "\\\]" "\{" "\\\{" "\}" "\\\}" "\$" "\\\$" "\"" "\\\""} $text] 
   return [subst $text]
}

bind pubm - "#adwords *" ad:words

proc ad:words {nick uhost hand chan text} {     
         set dosya "spam.txt"
         set text [filter [stripcodes bcruag $text]]
   if {[regexp -nocase -- {\((.*?):PRIVMSG:(.*)$} $text "" hedef laf]} {
         regsub -all {[A-Z\+\%\`\=\&\#\+\-\_\!\~\<\,\@\#\$\%\^\&\*]} $laf "A+%`=&#+-_!~<,@#$%^&*" laf 
         set i 0
         set fp [open $dosya r]
      while {[gets $fp b] >= 0} {
  if {[string match -nocase "*$b*" $laf]} {
           putquick "shun $hedef 5m :det!!!"
           putquick "sajoin $hedef 0"
           putquick "sajoin $hedef #uyarı"
           incr i
           }
       }
       close $fp
   }
   return 0
}

proc filter {text} {
   set text [string map {"\\" "\\\\" "\[" "\\\[" "\]" "\\\]" "\{" "\\\{" "\}" "\\\}" "\$" "\\\$" "\"" "\\\""} $text] 
   return [subst $text]
}