30 Aralık 2009, 19:39 | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Bad Nick List Gline Atsın Merhaba Arkadaslar Bunu Nick Kick Ban Degilde Gline Olarak Nasıl Degiştirabiliriz Şimdiden Teşekkürler alias flowerslist { if ($dialog(flowerslist)) { dialog -c flowerslist } | dialog -ma flowerslist flowerslist } dialog flowerslist { size -1 -1 295 346, flat icon sounds/icon1.ico title "Karaliste-Badnick Addon" Combo 1, 1 1 240 330 button "&Ekle", 2, 244 2 50 150 ,flat button "&Cikar", 3, 244 155 50 150 ,flat button "&Tamam", 4, 244 308 50 38, flat ok Check "flowerslist Ac" , 5 , 1 327 241 20, flat } on *:dialog:flowerslist:*:*: { if ($devent == init) { flowerslist.init } if ($devent == sclick) { if ($did == 2) { if ($did(1) != $null) { /.auser 10 $did(1) | flowerslist.init } } if ($did == 3) { if ($did(1) != $null) { /.ruser $did(1) | flowerslist.init } } if ($did == 5) { if ($did(5).state == 1) { writeini " $+ $mircini $+ " flowerslist flowerslist on } if ($did(5).state == 0) { writeini " $+ $mircini $+ " flowerslist flowerslist off } } } } alias flowerslist.init { did -r flowerslist 1 if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { did -c flowerslist 5 } set %ul 1 while (%ul <= $ulist(*,0)) { if ($level($ulist(*,%ul)) == 10) { did -a flowerslist 1 $ulist(*,%ul) } inc %ul 1 } unset %ul } #karaliste on on 10:join:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } } } #karaliste end #karaliste on on 10art:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { mode # +b $nick | kick # $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmı$tır... } } } #karaliste end #karaliste on on 10:nick: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { mode # +b $nick | kick $chan $newnick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır... } } } #karaliste on on 10:text:*:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { mode # +b $nick | kick $chan $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır... } } } #karaliste end #karaliste on on 10:notice:*:#: { if ($readini " $+ $mircini $+ " flowerslist flowerslist == on) { if (($me isop $chan) || ($me ishelp $chan)) { mode # +b $nick | kick $chan $nick 5 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 5 Sebebinden Dolayı Yasaklanmıştır... } } } #karaliste end menu nicklist { .- Karalist-Badnick .- .Ekle:/.auser 10 $$1 | /echo -a 10 $+ $$1 4Karalisteye Alındı... | /mode # +b $nick | /kick # $nick 10 $+ # Kanalına Girişin 12Karaliste 4/ 12Badnick 4/ 12Inviter 10 Sebebinden Dolayı Yasaklanmıştır... .Çıkar:/.ruser $$1 | /echo -a 10 $+ $$1 4Karalisteden Çıkarıldı... .At:mode # +b $$1 | .kick # $$1 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız. } } menu channel { .- Karalist-Badnick .- .Ekle:/.auser 10 $$?="Nick Giriniz" | /echo -a 10Karalisteye Alındı... .Çıkar:/.ruser $$?="Nick Giriniz" | /echo -a 10Karalisteden Çıkarıldı... .Düzenle:/flowerslist | /echo -a 10 $+ $me 4Karaliste Açıldı Konu XcLusive tarafından (30 Aralık 2009 Saat 20:00 ) değiştirilmiştir. | |
|
30 Aralık 2009, 19:58 | #2 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Acil Lüten...Bad Nick List Gline Atsın Kod: Kodu kopyalamak için üzerine çift tıklayın!
kırmızı yerleri değiştirirsin. ayrıca help acil yardım vs.. gibi başlıklı konularda yasak. bi sonraki konuların başlıklarında bu tür kelimeler görülürse direk silinir. |
|
30 Aralık 2009, 21:02 | #3 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Bad nick listesini G-Line'la ızaklaştırmak Merhaba Arkadaslar Bunu Nick Ban Kick Degilde Gline Olarak Nasıl Degiştirebilirim Ayrıca Bu Kod Kanalda Operatorken Calısıyor Bunu Oper Düzeyine Nasıl Cekebiliriz 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...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) S1y4H", 13, 106 110 85 40 link "[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ([Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])", 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... ;-------------------- on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg } #NickDeğiş on on *:NICK:{ if $kotunick($newnick) { var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { if $me isop $v1 { mode $v2 +b %< | kick $v2 $newnick %kckmsg } | inc %_ } } } #NickDeğiş end 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 %` } } } #oto-tara on on *:OP:#:if $opnick == $me { krt $chan } #oto-tara 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 } [UYARI]İlk konuyu yanlış bölüme açtınız. Buda yetmesi aynı bölüme aynı konudan bir tane daha açıyorsunuz. İki konunuzu birleştirdim, daha dikkatli olun.[/UYARI] Konu Ajan tarafından (30 Aralık 2009 Saat 21:21 ) değiştirilmiştir. |
|
30 Aralık 2009, 21:14 | #4 | ||||||||||||
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Yeni.. Bad Nick List Gline Atsın
Kısmında @ prefix'ini silerseniz, deop durumunda da çalışır. Gline atmak içinde
yerine .gline $nick neden kullanabilirsiniz. Ayrıca
kısmında taramayı siz opa çıkınca başlatıyor. on me*:join:#: krt $chan olarak düzenlerseniz, opa çıktığınızda değil; kanala girdiğinizde tarar.
__________________ Suyun intiharıdır şelale... | ||||||||||||
|
30 Aralık 2009, 21:19 | #5 | ||||
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Yeni.. Bad Nick List Gline Atsın
Anlamadım Arkadasım Hiç Birşey Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Benim Gönderdigim Kodda Bitmıs Yapılmıs Seklini Gösterırsenız Cok sevinirim teşekkurler | ||||
|
30 Aralık 2009, 21:23 | #6 |
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Bad Nick List Gline Atsın Zaten bende senin verdiğin kodu düzenledim, farklı bir şey yapmadım. Bitmiş şeklide yukarıda duruyor. Neleri değiştirmen gerektiğin orada belirli.
__________________ Suyun intiharıdır şelale... |
|
31 Aralık 2009, 08:33 | #8 | ||||
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: Bad nick listesini G-Line'la ızaklaştırmak
konu aynı ama verdıgım her ıkı addon`da farklı yanlız anlamam için ayrı ayrı yazdım oldukca acemiyım hoş görünüz için tşk ederım | ||||
|
Etiketler |
atsin, atsın, bad, gline, list, lutenbad, mirc download, mirc indir |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
Benzer Konular | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Nick yazılınca satırı msg atsın | lsls | mIRC Scripting Sorunları | 5 | 30 Ağustos 2014 19:16 |
Ban degilde gline atsın istiyorum | boyner | mIRC Scripting Sorunları | 7 | 01 Ocak 2012 12:27 |
statüste ip adresine cift tıklayınca gline atsın | eyeS | mIRC Scripting Sorunları | 2 | 16 Aralık 2011 22:31 |
setnamesi asdfg olana gline atsın nasıl olur ? | eyeS | mIRC Scripting Sorunları | 10 | 09 Ekim 2011 23:59 |
Sqline List'ten girene gline | cashmare | mIRC Scripting Sorunları | 5 | 05 Şubat 2011 16:15 |