mIRC Büyük Yazı Korumasi Uyarili
on @*:text:*:#:{
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))
if $nick isreg # && %> >= 75 && $len(%< >= 20) {
inc -u600 $+(%,cc.,#,$nick) | var %’ = $($+(%,cc.,#,$nick),2)
if %’ == 1 { msg $chan UYARI: $nick 4UYARI! 4Lütfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4ßüyük 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
if %’ >= 2 { mode # +b $nick | kick # $nick | unset $+(%,cc.,#,$nick) }
}
}
[Kodlayan; DizZy]
This entry was posted on Cuma, Şubat 5th, 2010 at 00:15 and is filed under mIRC Hazır Kodlar. You can subscribe via RSS 2.0 feed to this post's comments. You can comment below, or link to this permanent URL from your own site. Your comments will appear immediately, but I reserve the right to delete innapropriate comments.