on *:text:*:#:{
  if $nick isop $chan { halt }
  if $nick == Soru-Cevap { halt }
  if $nick == Sessiz { halt }
  if ($len($1-) >= 15 ) {
    if ($int($calc($regex($1,/[A-ZÁ-ÙÄ]/g)/$len($1)*100)) >= 40 ) {
      var %t = $numtok($1-,32) | while %t { if $gettok($1-,%t,32) ison $chan { halt } | dec %t }
      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 {
        mode # +b $wildsite | kick $chan $nick 5 Buyuk Harf Kullandıgınız Icin Atıldınız.
      }
    }
  }
}