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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 28 Ağustos 2010, 13:15   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Argo Kelime uyaRıcısı




/uyarı on
/on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 11,1 Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. IRC.AkasyaFM.com ßy.oSmanLi | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarı end

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Aralık 2010, 18:46   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Argo Kelime uyaRıcısı




işe yaramıyor

 
Alıntı ile Cevapla

Alt 01 Ocak 2011, 12:26   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Argo Kelime uyaRıcısı




/uyarı on
on *:text:*:#sohbete:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | msg $chan [ U y a r ı ] : $nick : Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. }
else { if (%say [ $+ [ $nick ] ] >= 1) { cs akick $chan add $nick $+ !*@* 11,1 Daha Onceden > $+ %kelime [ $+ [ $nick ] ] $+ < Kelimesinden Dolayi Uyarı Aldınız 2. Olarak > $+ $strip($1-) $+ < Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan Uzaklaştırıldınız.. İRC.PROSOHBET.COM ßy.ağır_severim | cs akick $chan enforce | cs akick $chan del $nick $+ !*@* | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarı end


coder değilim ama az buçuk anlarım kodlardan şimdi çalışıyor ve sohbete olan kanalı kendi kanalınızı yazarak işleme koyabilirsiniz veya boş bırakıp öylece yetkili olduğunuz kanalllarda kullanabilirsiniz işe yarıyor

 
Alıntı ile Cevapla

Alt 01 Ocak 2011, 13:08   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Argo Kelime uyaRıcısı




#uyarılı on
on *:text:*:#:{
if ($nick isreg $chan) {
if $istok($1-,it,32) || $istok($1-,lan,32) || $istok($1-,maymun,32) || $istok($1-,Ayı,32) || $istok($1-,köpek,32) || $istok($1-,mal,32) || $istok($1-,salak,32) || $istok($1-,aptal,32) || $istok($1-,enayi,32) || $istok($1-,?küz,32) || $istok($1-,angut,32) || $istok($1-,oğlum,32) || $istok($1-,ger?zekal?,32) || $istok($1-,sie,32) || $istok($1-,sia,32) || $istok($1-,hıyar,32) || $istok($1-,?nek,32) || $istok($1-,si@,32) || $istok($1-,uza,32) || $istok($1-,lahn,32) || $istok($1-,lanh,32) || $istok($1-,saxo,32) || $istok($1-,manyak,32) || $istok($1-,salak,32) || $istok($1-,uzaa,32) || $istok($1-,kro,32) {
if (!%say [ $+ [ $nick ] ]) { inc %say [ $+ [ $nick ] ] | set %kelime [ $+ [ $nick ] ] $strip($1-) | kick $chan $nick 10 Lütfen Seviyeyi Düşürmeyiniz Aksi Taktirde Kanaldan Uzaklaştırılıcaksınız !. By $me Tarafindan }
else { if (%say [ $+ [ $nick ] ] >= 1) { mode $chan +b $nick | kick $chan $nick 12Daha Onceden 4 > $+ %kelime [ $+ [ $nick ] ] $+ < 12 Kelimesinden Dolayi Uyarı Aldınız 2. Olarak 4 > $+ $strip($1-) $+ < 12 Olan Yasak ve Kötü Unsur Içeren Sözcüğü Kullandıgınız Için Kanaldan 4 Uzaklaştırıldınız.. [ 12 $me 4] | unset %say [ $+ [ $nick ] ] | unset %kelime [ $+ [ $nick ] ] }
}
}
}
}
#uyarılı end

İşinizi görürse buyurun. kodun kime ait oldugunu bilmiyorum yapanin eline sağlık.

 
Alıntı ile Cevapla

Cevapla

Etiketler
argo, kelime, mirc, mirc download, mirc indir, uyarıcısı


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
Argo / Operasyon: Argo Replikleri (2012), Argo Film Replikleri Violent Film Replikleri 0 01 Aralık 2014 13:34
mirc kelime uyarıcısı AybarSsss mIRC Scripting Hazır Kodlar 5 09 Temmuz 2009 11:07
Küfür Veya Başka Bir Deyimle Argo kelime Koruması LauReLL mIRC Scripting Hazır Kodlar 6 13 Ağustos 2007 04:16