![]() |
![]() |
|
![]() | #1 | |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | koruma elimde böyle bir kod var kufur korumasi idi özele davet olarak ayarladim fakat oplari voiceleri halfoplarida atiyor yardim ede bilirmisiniz duzeltelim menu channel,status,menubar { ® OzeL KoRuMa .GösTeR:.dialog -m king king .Aç:.enable #real | .enable #real2 | echo -a 9,1Korumalar Aktif Edildi Lütfen Ban Ayarlarınız Kontrol Edinizzz!!!... .Kapat:.disable #real | .disable #real2 | echo -a 8,1 Korumalar Şuanda Pasif Konumda.... } dialog king { title " . . . . . : : : : : ÖzeLe Davet : : : : : . . . . " size -1 -1 190 208 option dbu button "EKLE", 2, 82 8 19 9 button "SiL", 3, 105 8 19 9 edit "", 4, 4 167 184 10, autohs button "< < KAYDET / ÇIK > >", 5, 52 183 77 22, ok box "BiLGi ALANI << BY: kacaK >>", 7, 81 103 106 61 radio "SADECE BAN", 6, 82 33 48 10, push radio "KONUŞAMASIN", 8, 134 47 48 10, push radio "KiCK + BAN", 9, 82 47 48 10, push radio "SADECE KiCK", 10, 134 33 48 10, push edit "", 11, 99 89 53 10, autohs check "Ban Süresini Belirlemek İstiyorum", 12, 82 66 103 10 text "BAN SÜRESİ SN.", 13, 99 79 52 8, center edit "", 1, 5 8 72 10 , autohs list 14, 5 19 73 146, size text "", 16, 82 111 103 52 } on 1:dialog:king:*:*:{ if ($devent == sclick) { if ($did == 2) { var %ekle $did(1).text if (%ekle == $null) { halt $input(Eklemek İçin Birşeyler Yazmalısın,owud,HATA) } elseif $read(küfür.txt,w,%ekle) { halt $input(Ekelemek İstediğiniz Kelime Listede Mevcut,oiud,BİLGİ) } else { write küfür.txt %ekle | did -a $dname 14 $did(1).text | did -r $dname 1 $did(1).text | did -a $dname 16 Kelime Başarı ile Eklendi } } if ($did == 3) { if ($did(14).sel == 0) { halt $input(Seçim Yapmadan Silenide İlk Kez Görüyorum,owud,HATA) } else { write -dl $+ $did(14).sel küfür.txt | did -d $dname 14 $did(14).sel } } if ($did == 6) { if ($did(6).state == 1) { set %ban sadeban | set %bantip ban -u | .enable #real | .disable #real2 } } if ($did == 8) { if ($did(8).state == 1) { set %ban konuşma | .enable #real2 | .disable #real | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanırsanız Süre Kullanamazsınız!!,oiud,BiLGi) } } if ($did == 9) { if ($did(9).state == 1) { set %ban kickban | set %değer kick | .enable #real | .disable #real2 } } if ($did == 10) { if ($did(10).state == 1) { set %ban kick | unset %bantip .enable #real | .disable #real2 | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanırsanız Süre Kullanamazsınız!!,oiud,BiLGi) } } if ($did == 12) { if ($did(12).state == 1) { set %süre açık | did -e $dname 11 } if ($did(12).state == 0) { set %süre kapalı | did -b $dname 11 } } if ($did == 5) { if ($did(4) == $null) { halt $input(Kick Mesajı Belirlemediniz!!,oiud,BiLGi) } if ($did(11) == $null) && ($did(12).state == 1) { did -u $dname 12 | did -b $dname 11 | set %süre kapalı | halt $input(Zaman Belirlemediğiniz için Ban Tipi Süresize Çevirildi,oiud,BiLGi) } else { set %kickmsg $did(4) | set %zaman $did(11) } } } if ($devent == init) { loadbuf -o $dname 14 $shortfn(küfür.txt) if (%ban == sadeban) { did -c $dname 6 | unset %değer } if (%ban == konuşma) { did -c $dname 8 } if (%ban == kickban) { did -c $dname 9 } if (%ban == kick) { did -c $dname 10 | unset %bantip | unset %zaman | did -b $dname 11 } if (%süre == açık) { did -c $dname 12 } if (%süre == kapalı) { did -b $dname 11 | unset %zaman } did -a $dname 4 %kickmsg did -a $dname 11 %zaman } if ($devent == mouse) { if ($did == 6) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Eğer Süre Belirtirseniz Kişi Sadece Belirlediğiniz süre Boyunca Ban 'lı Kalır.. Eğer Süre Belirlenmemiş ise Ban Chan Serv Yada Manuel Çözülebilir.. if ($did == 8) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Süre belirtemezsiniz.. Kişi Kanala Girip Çıkabilir Fakat Kanala Yazı Yazamaz.. if ($did == 2) did -ra $dname 16 Bu Buton ile istediğiniz Bir Kelimeyi Listenize Ekleyebilirsiniz.. Kelimenin Başına (*) işaretini Koyarsanız Kelimeden Önce Yazılan Yazıyıda Kapsar. Eğer Sonuna (*) işareti Koyarsanız Kelimeden Sonra Yazılan Yazıyıda Kapsar.. Eğer iki Tarafada Yıldız Koyarsanız Kelimeyi Yazılan Metnin içinde Arar. if ($did == 3) did -ra $dname 16 Bu Buton ile Listede Seçilmiş Olan Kelimeyi Silebilirsiniz.. Eğer Listeden Seçim yapılmadıysa Silemezsiniz.. Silmek için Bir Kelime Seçmek Zorunludur.. if ($did == 9) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Eğer Süre Belirtirseniz Kişi Kanaldan Hem BAN 'lanır Ve Kick Edilir.Belirtilen Sürenin Sonunda BAN Kendi Çözülür.. Eğer Süre Belirtilmemiş İse Ban Chan Serv Yada Manuel Çözülebilir.. if ($did == 10) did -ra $dname 16 Bu Seçeneği Tıkladığınızda Süre Belirtemezsiniz.. Kişi Sadece Kanaldan Kick Edilir.. Büyük Bir ihtimalle Tekrar Gelecektir.. Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if ($did == 14) did -ra $dname 16 Bu Liste Sizin Eklemek İstediğiniz Kelimeleri Gösterir.. Eğer Aynı Kelimeyi Eklemek isterseniz Sizi Uyarır.. if ($did == 5) did -ra $dname 16 Bu Buton Tıkladığınızda Eksik yada Yanlış Birşeyler Var ise Size Uyarı Verecektir.. Ve Ayarları Kaydedip ileti Kutusunu Kapatır.. if ($did == 12) did -ra $dname 16 Bu Seçenek BAN Tipi Seçtiğinizde Size BAN Süresi Belirlemek Gibi Bir Seçenek Sunar.. Eğer Süre Belirtilmeyen Bir BAN Tipi Seçerseniz Otmatik Ayarlanır.. if ($did == 1) did -ra $dname 16 Listeye Eklemek istediğiniz Kelimeyi Buraya Yazınız.. Varolan Kelimeleri Eklemezsiniz... if ($did == 11) did -ra $dname 16 Bu Kutucuğa Ban Süresini Yazabilirsiniz.. Eğer Harf Girmeyi Denerseniz Bu Mümkün Olmayacaktır.. Sadece Rakam Olarak Ban Süresi .sn Olarak Yazılabilir. Yada Boş Bırakılır.. örnek : 600 } if ($did == 4) did -ra $dname 16 Bu Kutucuğa Kendi Kick Mesajınızı Yazabilirsiniz.. Kişi Kanaldan Sizin Tarafınızdan Kick Edilirse Bu Mesaj Görüntülenir.. Karizma Birşey Olması Şartıyla Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. if ($devent == edit) { if ($did == 11) && ($did(11) !isnum) did -r $dname 11 } } #real off on 1@:TEXT:*:#:{ var %t 1 while (%t <= $lines(küfür.txt)) { if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %değer $chan $nick %kickmsg } inc %t } } #real end #real2 off on 1@:TEXT:*:#:{ var %t 1 while (%t <= $lines(küfür.txt)) { if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* } inc %t } } #real2 end #real off on 1@:ACTION:*:#:{ var %t 1 while (%t <= $lines(küfür.txt)) { if ($read(küfür.txt,%t) iswm $1-) { %bantip $+ %zaman # $nick %kickmsg | %değer $chan $nick %kickmsg } inc %t } } #real end #real2 off on 1@:ACTION:*:#:{ var %t 1 while (%t <= $lines(küfür.txt)) { if ($read(küfür.txt,%t) iswm $1-) { mode $chan +b ~q: $+ $nick $+ !*@* } inc %t } } #real2 end on *:LOAD:{ write küfür.txt Beni silermisin plss.. echo -a ÖzeL Koruma Yüklendi echo -a BY : kacaK echo -a Sağ Click 'e Tıklayıp ® ÖzeL Koruma @ sekmesinden ulaşabirsin echo -a kacak@kacak (kacak@kacak) } | |
| ![]() |
![]() | #2 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: koruma Kod: Kodu kopyalamak için üzerine çift tıklayın!
Şeklinde olmalı,iyi forumlar... |
| ![]() |
![]() | #5 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: koruma Normal mIRC Özel Koruma Code'si.. Alt + R yaparak Kullanmış olduğun mIRC'e yükleyebilirsin.
__________________ Lucifer dediler bana, kötülüğü anlatmak için. Halbuki, ışık ve güzelliği anlatırdı Lucifer. Ben kötüyüm bu düzen için; ama değilim asla kötülük. |
| ![]() |
![]() |
Etiketler |
koruma, mirc, mirc download, mirc indir |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
TOR Koruma .. | h4pp3n | mIRC Scripting Hazır Kodlar | 13 | 17 Haziran 2022 21:49 |
Koruma | PySSyCaT | Çevre Terimleri Sözlüğü | 0 | 28 Eylül 2014 20:19 |
Koruma | XDie | mIRC Scripting Sorunları | 4 | 11 Ocak 2012 18:50 |
kanal koruma ve kişisel koruma addon isteği | Svs1988 | mIRC Scripting Sorunları | 1 | 05 Ekim 2011 10:34 |
koruma | Cyptm | mIRC Scripting Sorunları | 1 | 16 Eylül 2008 17:39 |