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 ) {
      inc -u30 %bharf. [ $+ [ $nick ] ] 1
      if %bharf. [ $+ [ $nick ] ] == 1 {
        msg $chan UYARI: $nick $+ , 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.
      }
    }
  }