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]
}

bind pubm - "% *" spam:words      ;# botun olduğu tüm kanallardaki mesajlarda ilgili proc işletir.

proc spam:words {nick uhost hand chan text} {
#   if {[matchattr [nick2hand $nick] mnoaf|mnoaf $chan] \        ;# işlemden muaf tutulacak olanlar bu satırda m=bot-master,n=bot sahibi,o=op alan,a=oto-op edilen ve f=dostlar
#   || [isop $nick $chan] || [ishalfop $nick $chan] \            ;# kanaldaki oplar ve halfoplar
#   || [isvoice $nick $chan] || $::botnick eq $nick} { return 0 }  ;# kanaldaki voicelar ve botun yazdıklarına tepki vermesin*
   
         set dosya "spam.txt"                        ;# yasak kelimelerin girileceği dosya adı
         set nick [filter $nick]                     ;# nickteki varsa özel karakterleri filtre ederek görmesi için
         set text [filter [stripcodes bcruag $text]]  ;# yakalanacak kanal mesajlarındaki renk kodlarını ve özel Tcl karakterlerini ayıklayıp botun görmesi/işlemesi için
         set t [join [lrange [split $text] 0 end]]     ;# kişinin yazdığı/gönderdiği satırın tamamı dikkate alınır.
         #set host [lindex [split [getchanhost $nick $chan] "@"] 1]      ;# nickin hostunu alır.hosta işlem yapılacaksa satırı etkin kılın
         #set ident [lindex [split [getchanhost $nick $chan] "@"] 0]     ;# nickin ident kısmına işlem yaptıralacaksa satırı etkin kılın.
         regsub -all -- {[A-Z\+\%\`\=\&\#\+\-\_\!\~\<\,\@\#\$\%\^\&\*]} $t "A+%`=&#+-_!~<,@#$%^&*" t   ;# yasak söz/lerin farklı karakterler arasında gizlenmeye çalışılmasına karşı..
         
         set i 0                            
         set fp [open $dosya r]
      while {[gets $fp b] >= 0} {                           ;# dosya açılıp son satıra dek okunur.
  if {[string match -nocase "*$b*" $t]} {                   ;# dosyadaki sözlerle eşleşme olup olmadığı kontrol edilir.
           #putkick $chan $nick :selametle...               ;# yasak keli/meleri kullanan kanaldan kicklensin deniyorsa etkin kılın
           #pushmode $chan +b $nick                         ;# nicke ban isteniyorsa etkin kılın
           #pushmode $chan +b *!$ident@*                        ;# kişinin ident kısmına ban için etkin kılın
           #pushmode $chan +b *!*@$host                         ;# kişinin host kısmına ban için etkin kılın
           #flushmode $chan                                 ;# banlardan biri etkin kılınacaksa bunu etkinleştirmeniz halinde mod hemen işleme konur.daha hızlı tepki vermesini sağlar.
           putquick "shun $nick 5m :det!!!"
           putquick "sajoin $nick 0"
           putquick "sajoin $nick #uyarı"
           incr i
           }
       close $fp
   }
   return 0
}

# Tcl özel karakterlerini filtre etmekte kullanılacak prosedür.
proc filter {text} {
   set text [string map {"\\" "\\\\" "\[" "\\\[" "\]" "\\\]" "\{" "\\\{" "\}" "\\\}" "\$" "\\\$" "\"" "\\\""} $text] 
   return [subst $text]
}