Tekil Mesaj gösterimi
Alt 06 Şubat 2006, 20:17   #1
Çevrimdışı
XooM
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
op ve voicelerde kodu etkisiz kılmak




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) }
}




}

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet