on *:text:*:#:{
  if ($len($1-) >= 10 ) {
    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 20 ) {
      inc -u30 %bharf. [ $+ [ $nick ] ] 1
      if %bharf. [ $+ [ $nick ] ] == 1 {
        msg $chan Uyarı : Lütfen büyük harf kullanmayınız     
      }
      if %bharf. [ $+ [ $nick ] ] == 2 {
        msg $chan Uyarı : Bu ikinci uyarınız lütfen büyük harf kullanmayınız        
      }
      if %bharf. [ $+ [ $nick ] ] == 3 {
        msg $chan Uyarı : Bir kez daha tekrarlarsan döverim seni  
      }
      if %bharf. [ $+ [ $nick ] ] == 4 {
        ban -ku $chan $nick Sana demiştim :)
      }
    }
  }
  if $regex($1-,/([[:print:]])\1\1/gi) >= 7 {
    inc -u30 %uharf. [ $+ [ $nick ] ] 1
    if %uharf. [ $+ [ $nick ] ] == 1 {
      msg $chan Uyarı : Harfleri uzatma    
    }
    if %uharf. [ $+ [ $nick ] ] == 2 {
      msg $chan Uyarı : 2. uyarı uzatma kardeşim   
    }
    if %uharf. [ $+ [ $nick ] ] == 3 {
      msg $chan Uyarı : sopalıksın tam atacağım bak   
    }
    if %uharf. [ $+ [ $nick ] ] == 4 {
      ban -ku $chan $nick Hakettin ama :)
    }
  }
  if $prot(bword,$1-,küfürler.txt) {
    ban -ku $chan $nick Küfür etme lütfen.
  }
}