Çevrimdışı

merhaba benim elimde ikitane kod var kodlarin birisi cocorico ya biriside el33t'e ait. cocoriconun kodu reg/regex kanalda birisi kelimeyi uzattigi zaman once uyari yapip sonra atiyor ama ben kanalda op ve voicelerin bu uyari da muaf ollmasini istiyorum yani benim bir opum veyahut voiceli birisi kanalda uzun yazi yazdigi zaman ona uyari yapmamasini ve atmamasini istiyorum reg/regex uzun yazi korumasi assagida belirtilmistir.

on *^:text:*:#: {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Sizi daha Once Harfleri uzatmamaniz icin uyarmistim.!
}
:U.yr {
;# Uyarı mesajı
RETURN : Lutfen Harfleri Uzatmayiniz Aksi Taktirde Kanaldan Uzaklastirilicaksiniz.!
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}


ikinci olan kod ise el33t tarafindan yazilmis bir kod oda kanalda birisi büyük harf ile yazdigi zaman once ozelden sonra kanaldan uyarip sonra atiyor. ben gene bu kodda op ve voicelerin muaf olmasini istiyorum yani atilmamasini istiyorum kod assagida belirtilmistir.

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 $nick 4UYARI! 1 Lütfen 4CapsLock1 Tuşunu kapatarak yazınız. }
if %' == 2 { msg $chan UYARI: $nick  4Lütfen 1 CAPSLOCK tusunu kapayiniz ! }
if %' >= 3 { ban -ku600 # $nick 2 Uyarilmistiniz. 4Lutfen Kucuk Yaziniz. | unset $+(%,cc.,#,$nick) }
}



}

 

Çevrimdışı

if $nick isreg # && %> >= 75 && $len(%< >= 20) {
Zaten ikinci kod eğer kanalda normal user ise devam etmesi için ayarlanmış.
Bir kodun op ve voice icin uygulanmasını istemiyorsan yapıcağın eklemede burda el33t nin verdiği gibi
if $nick isreg #
eklediğinde kanalda normal userler o eventten etkilenir.
Bu arada lütfen başlıkları acmaya dikkat edelim.Aynı hareketin tekrarlanmasında actığınız başlık silinecektir ,bilginize.

 

Çevrimdışı

mael.. peki ya uzun yazi korumasi ?

 

Çevrimdışı

on *^:text:*:#: {
if ($me isop #) {
if ($nick !isop #) {
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan $nick $coconf(U.yr)
}
}
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 60
}
:U.sb {
;# Kick Sebebi..
RETURN Sizi daha Once Harfleri uzatmamaniz icin uyarmistim.!
}
:U.yr {
;# Uyarı mesajı
RETURN : Lutfen Harfleri Uzatmayiniz Aksi Taktirde Kanaldan Uzaklastirilicaksiniz.!
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}



bu sekilde olmasi gerek