on *:text:$($buyukharfuyari($1-)):#:msg # $nick , lutfen buyuk harf kullanmayiniz.
alias buyukharfuyari {
  var %txt = $strip($1-), %karsay = $countcs(%txt,A,B,C,Ç,D,E,F,G,Ğ,H,I,İ,J,K,L,M,N,O,Ö,P,R,S,Ş,T,U,Ü,V,Y,Z,W,X)
  if ($len(%txt) > 7 && $calc(%karsay / $len(%txt) * 100) >= 70) return *
}

alias kac-saniye-icinde-yazi-tekrari return 4
alias kac-defa-yazi-tekrari return 3
alias hangi-kanallarda-calisacak return #mobil,#sohbet
alias hangi-kanala-uyari-verecek return #logs
on *:text:*:$($hangi-kanallarda-calisacak): {
  if $var($+(%,tekrar,-,$chan,-,$nick)) && $1- == $remove($eval($+(%,tekrar,-,$chan,-,$nick),2),$+($chr(32),*1*)) {
    set $+(%,tekrar,-,$chan,-,$nick) $eval($+(%,tekrar,-,$chan,-,$nick),2) *1*
    if $count($eval($+(%,tekrar,-,$chan,-,$nick),2),*1*) >= $kac-defa-yazi-tekrari {
      msg $hangi-kanala-uyari-verecek -> $nick nickinden $chan kanalinda yazi tekrari.Yazdigi Yazi : $remove($eval($+(%,tekrar,-,$chan,-,$nick),2),*1*)
      unset $+(%,tekrar,-,$chan,-,$nick)
      goto bitir
    }
    goto bitir
  }
  set $+(-eu,$kac-saniye-icinde-yazi-tekrari) $+(%,tekrar,-,$chan,-,$nick) $1- *1*
  :bitir
}