on @*:text:*:#: {
  if !$istok(Soru-Cevap Sessizi,$nick,32) && $nick !isop # {
    var %ntok = $numtok($1-,32)
    :loop
    if %ntok > 0 {
      var %rnick = $iif($gettok($1-,%ntok,32) ison #,$addtok(%rnick,$gettok($1-,%ntok,32),124),%rnick)
      dec %ntok
      goto loop
    }
    var %strip = $regsubex($strip($1-),/ %rnick /g,\1)
    if $calc($regex(%strip,/[A-ZÄÖÜĞÇİ]/g)/$len(%strip)*100) >= 70 {
      inc -eu60 $+(caps.,$nick)
      if $($+(caps.,$nick),2) == 1 {
        msg # uyarı $nick ; büyük harf kullanmayınız lütfen.
      }
      else {
        ban -k # $nick 2 Gereginden fazla büyük harf kullandınız.
      }
    }
  }
}