IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Şubat 2006, 20:17   #1
Çevrimdışı
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ı sohbet odaları Benimmekan Mobil Sohbet
Alt 06 Şubat 2006, 21:16   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



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.

 
Alıntı ile Cevapla

Alt 08 Şubat 2006, 20:58   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



mael.. peki ya uzun yazi korumasi ?

 
Alıntı ile Cevapla

Alt 09 Şubat 2006, 00:03   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)



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

 
Alıntı ile Cevapla

Cevapla

Etiketler
etkisiz, kilmak, kodu, kılmak, mirc, mirc download, mirc indir, op, ve, voicelerde


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Namaz Kılmak.. Düş Şiir, Hikaye ve Güzel Sözler 0 03 Ağustos 2011 00:52
Namaz Kılmak Ecrin Genel İslami Konular 0 08 Nisan 2011 21:51
bir kodu iptal edip diğerini etkin kılmak radiCOOL mIRC Scripting Sorunları 1 02 Mayıs 2006 04:07