|
| Alıntı: |
on @*:text:*:#: {
if $me !isop $chan { halt } | if $nick isop $chan { halt }
if ($regex($1-,/([[:print:]])11/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 10
}
: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 500
}
:U.sb {
;# Kick Sebebi..
RETURN 2Kanal Genelinde 12Uzun Harf 4Kullanıp Kullanıcıları Rahatsız Ettiğiniz icin Kanaldan ,Uzaklastırıldınız !
}
:U.yr {
;# Uyarı mesajı
RETURN 2Uyarı : 2Lutfen Harfleri Uzatmayın , Aksi Taktirde Kanaldan Uzaklaştırılacaksınız!
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 15
}
|
Arkadaslar Bır Seyı Merak Ettım Sımdı Bu Kod Guzel Kım Yapmıssa Elıne Saglık Bu Kodda Kısı Harf Uzatmadan Script Kullanıcıyı Uyarıyor Ve Sonra Kullanıcı Uzatıyor Bu Nasıl Bunun Mantıgı Nasıl Anlamadım
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
| Alıntı: |
(22:36:39) <kanryam> sunaaaaaaaaaaaaaaaaaa
(22:36:39) <Microsoft> UYARI: kanryam Harfleri uzatmayınız..
|