|
Cevap: Kötü Rumuz Koruması... arkadaslar bi sorum olucak .. nickler.txt dosyasina 300 bad nick ekledim ama mIRC'i kasiyor .. bunu nickler1.txt 2'inci bir dosya olusturup yarisini ona koysak we ordan calısmasi mümkün mü we nasil yapilir ? |
Cevap: Kötü Rumuz Koruması... Alıntı:
1. Ben bunu manuel olarak popupta Aç/Kapat yapmak istedim ama yapamadım. Bunu yapmak için: menu * { . ® KARA LİSTE ..Açık:/enable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!! ..Kapalı:/disable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1KapatıLdı!! } şeklinde menu ayarı yaptım ve de; #kötürumuz off kod #kötürumuz end şeklinde adlandırma yaptım. Yalnız bu kısmın içine tam olarak kodun hangi bölümü girecek onu sanırım eksik yaptım. 2. Anlatıldığı üzere /krt #kanal şeklinde tarama yapması gerekiyor ama o çalışmıyor. Bu konuda bir düşüncesi olan var mı? Şimdiden teşekkürler. |
Cevap: Kötü Rumuz Koruması... #kötürumuz on on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } #kötürumuz end Bu şekilde değiştir [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]. |
Cevap: Kötü Rumuz Koruması... Alıntı:
|
Cevap: Kötü Rumuz Koruması... Tam anlayamadım dialog olarak mı istiosun yoksa popups'tan mı açıp/kapamak istiyosun? Popups olarak istiyosan ; menu channel { . ® KARA LİSTE ..Açık://enable #kötürumuz | enable #NickDeğiş | enable oto-tara | | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!! ..Kapalı://disable #kötürumuz | disable #NickDeğiş | disable oto-tara | | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!! } Açık dediğinde Korumanın tüm işlevleri açılır, Kapat dediğinde kapanır. Remote'dan dediğim kısmı değiştirmeyi unutma. |
Cevap: Kötü Rumuz Koruması... Teşekkürler KsK. Denemeden yorum yapınca çalışıp çalışmadığını nerden bilecektim. Aşağıda verdiğin kod tam aradığım şey. Ben denemeden başka şekilde yorum yaptım. Kusura bakma. Şu an gayet güzel çalışıyor. Teşekkürler... #kötürumuz off on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } #kötürumuz end |
Cevap: Kötü Rumuz Koruması... Bu şekilde çalışması lazım. ; Kodlamalar... ;-------------------- #kötürumuz on on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } } alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false } alias krt { if $1 ischan && $me isop $1 { var %` = $lines(Nickler.txt) while %` { if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } } dec %` } } } on *:OP:#:if $opnick == $me { krt $chan } #kötürumuz end ;----------------------------------------- |
Cevap: Kötü Rumuz Koruması... Kodun son hali şöyle oldu. Bu haliyle ayrıca kanalda sağ tıklayınca; Aç-Kapat-Tara özelliği eklenmiş oldu. Bende gayet güzel çalışıyor, affetmiyor bile. ;-------------------------------------------------- ; Kötü Rumuz Koruması ; Kodlamaların tamamı ve bazı dialog kodları el33t'e aittir... ; Dialog hazırlaması bana aittir... ; /KötüRumuz Yazarak Çalıştırabilirsiniz... ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ;--------------------------------------------------------- alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz } dialog kötürumuz { title "Kötü Rumuz Koruması" size -1 -1 200 180 option dbu text "..:: Rumuz Listesi ::..", 999, 20 10 60 10 combo 1, 5 20 90 130 button "Ekle (+)", 2, 4 146 27 13 button "Çıkar (-)", 3, 32 146 27 13 button "Temizle (!)", 4, 60 146 35 13 box "Seçenekler", 5, 101 17 93 40 check "OP olduğumda tarama yap!", 6, 106 28 73 10 check "Yeni rumuz kötüyse at!", 7, 106 40 70 10 button "?", 8, 182 28 9 9 button "?", 9, 182 40 9 9 box "Kick Mesajınız", 10, 101 60 93 40 edit "", 11, 106 76 83 10, autohs box "Açıklamalar", 12, 101 103 93 55 text "Kötü Rumuz Koruması [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] S1y4H", 13, 106 110 85 40 link " Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 14, 108 164 52 15 button "Kapat!", 15, 168 161 27 13 text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable } on *:dialog:kötürumuz:*:*:{ if ($devent == init) { loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1 if (%oto-tara == on) { did -c kötürumuz 6 } if (%NickDeğiş == on) { did -c kötürumuz 7 } did -a $dname 11 %kckmsg } if ($devent == sclick) { if ($did == 2) { var %kötürmz = $did(1).text if $read(nickler.txt,w,%kötürmz) { echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut. } else { write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text } } if ($did == 3) { if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel } } if ($did == 4) { if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return } } if ($did == 8) { did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır. } if ($did == 9) { did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır. } if ($did == 6) { if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. } elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. } } if ($did == 7) { if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. } elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. } } if ($did == 14) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } if ($did == 15) { if ($did(11) == $Null) { echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak. dialog -x kötürumuz kötürumuz set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4 /Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } else { set %kckmsg $did(11) dialog -x kötürumuz kötürumuz } } } } ; Kodlamalar... ;-------------------- #kötürumuz on on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } } alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { if $v1 iswm $1 { return $v1 } | inc %_ } | return $false } alias krt { if $1 ischan && $me isop $1 { var %` = $lines(Nickler.txt) while %` { if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg } | dec %~ } } dec %` } } } on *:OP:#:if $opnick == $me { krt $chan } #kötürumuz end ;----------------------------------------- on *:LOAD:{ echo -a $timestamp *** Kötü Rumuz Koruması başarıyla yüklendi. echo -a $timestamp *** S1y4H run notepad.exe nickler.txt set %oto-tara on set %NickDeğiş on set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4 /Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } on *:UNLOAD:{ echo -a $timestamp *** Kötü Rumuz Koruması kaldırıldı. unset %oto-tar unset %NickDeğiş unset %kckmsg } menu channel { . ® KARA LİSTE ..Açık:/enable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1AçıLdı!! ..Kapalı:/disable #KötüRumuz | .echo -a 14,1KötüRumuz Koruması 4,1KapatıLdı!! ..Tara:/krt $chan } |
Cevap: Kötü Rumuz Koruması... GuzeL emeğine Saglık .. : ) |
Cevap: Kötü Rumuz Koruması... Bu kod şu an sadece @ olduğum kanallarda işlem yapıyor. Bunu &,@,% olduğum tüm kanallarda işlem yapabilir hale getirebilir miyiz ? |
Cevap: Kötü Rumuz Koruması... Kötü Rumuz Koruması (: Konuyla pek alakası yok ama açtığınız " Türkçe Başlık " için tebrik ederim sizi. Milletin Badnick merakı nedir anlamıyorum zaten. Güzel düşünmüşsünüz. Kodu denemedim ama eminim o da işe yarıyordur. Çünkü ince düşünen bir elden çıktığı aşikâr. |
Cevap: Kötü Rumuz Koruması... Bende Böyle Bir Hata Uyarısı Verdi Neden Acaba ? Alıntı:
|
Cevap: Kötü Rumuz Koruması... Alıntı:
Komutta; mIRC ana dizininde bulunan "nickler.txt" belgesinin içeriğini Dialog'un 1 numaralı öğesine doldur,denilmekte.Komutta bir hata yok,belgenizin var olup olmadığını kontrol ediniz. ---------- Alıntı:
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } satırı yerine on *:join:#:if $kotunick($nick) && $regex($nick(#,$me).pnick,[@&%]) { mode # +b $nick | kick # $nick %kckmsg } kullanmalısınız. |
Cevap: Kötü Rumuz Koruması... ben denedim çalışıyorda. [13:57] *** Kötü Rumuz Koruması başarıyla yüklendi. [13:57] *** S1y4H fakat şöyle birşey var, /load -rs Dosya.txt yükleme yaptıgınız zaman nickler.txt açılıyor oraya badnickleri yazıyorsunuz o nickler kanala girince atıyor mesala g*t nicki ama adam g*t__ nickiyle girince atmıyor birebir aynı olcak yazdığınızla.. buda demek oluyorki boşa harcanan birşey en azından yazılan nickin versiyonlarınıda atsa _^^-- gibi ek alanlarıda atsa neyse ama yinede çalışılmış birşey |
Cevap: Kötü Rumuz Koruması... Alıntı:
Wildcard kullanirsaniz badnick'leri listenize eklerden , *pic* gibi mesela , o zaman sorun kalmayacaktir. |
Cevap: Kötü Rumuz Koruması... bunu halfop iken çalıştırma olanagı var mı ? |
| Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 19:39. |
Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk