on *:text:*:#: {
  if  ($me isop #) && ($nick isreg #) {
    if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
      set -u30 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
      set -u30 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
      return
    }
    var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
    var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
    if (%rpt == $1-) {
      inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
      if (%rps > 2) && ($nick !isop #) {
        hinc -mu5 tekrars $+($chan,.,$nick) 1
        if $hget(tekrars,$+($chan,.,$nick)) == 1 { 
          /msg # $nick uyarı1
        }
        if $hget(tekrars,$+($chan,.,$nick)) == 2 { 
          /msg # $nick uyarı2
        }
        if $hget(tekrars,$+($chan,.,$nick)) == 3 { 
          .kick # $nick  Sebeb.
          .hdel -s tekrars $+($chan,.,$nick)) 
        }
      }
    }
  }
  if ($me isop #) && ($nick isreg #) && ($nick !isop #) {
    if ($len($1-) < 20) || ($nick isop #) return
    var %text = $strip($remove($1-,$chr(32)))
    var %non.caps = $len($removecs(%text,A,B,C,Ç,Ü,Ğ,İ,Ş,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
    var %full.line = $len($strip($remove(%text,$chr(32))))
    var %percent = $calc(1 - (%non.caps / %full.line)) 
    if (%percent >= 0.8) {
      hinc -mu20 Capsq $+($chan,.,$nick) 1
      if $hget(Capsq,$+($chan,.,$nick)) == 1 { 
        /msg # $nick uyarı
      }
      if $hget(Capsq,$+($chan,.,$nick)) == 2 { 
        /msg # $nick uyarı 
      }
      if $hget(Capsq,$+($chan,.,$nick)) == 3 { 
        .kick # $nick Sebeb.
        .hdel -s Capsq $+($chan,.,$nick)) 
      }
    }
  }
}