On @*:text:*:#:{
Var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))
If $nick isreg # && %> >= 98 && $len(%< >= 15) {
Inc -u600 $+(%,cc.,#,$nick) | var %? = $($+(%,cc.,#,$nick),5)
If %? == 1 { msg $chan UYARI: $nick Büyük harf kullanmayınız. Aksi taktirde kanaldan uzaklaştırılıcaksınız. }
If %? == 2 { msg $chan UYARI: $nick Büyük harf kullanmayınız. Aksi taktirde kanaldan uzaklaştırılıcaksınız. }
If %? >= 3 { mode # +b $nick | kick # $nick Büyük harf kullandınız için uzaklaştırıldınız. Tarih: $date Saat: $time | unset $+(%,cc.,#,$nick) }
}
}