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

Etiketlenen Kullanıcılar

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 26 Nisan 2010, 19:53   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Kicklemeden Sadece Hosta Ban Atsın




menu channel,status,menubar {
® KüFüR 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 " . . . . . : : : : : Küfür Koruma : : : : : . . . . "
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: deHset>>", 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 -c $dname 12 | did -u $dname 11 | 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 %bantip ban -ku | unset %zaman | .enable #real | .disable #real2 }
}
if ($did == 10) {
if ($did(10).state == 1) { set %ban kick | set %bantip kick | .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 | did -r $dname 11 | unset %zaman }
}
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 }
if (%ban == konuşma) { did -c $dname 4 }
if (%ban == kickban) { did -c $dname 9 }
if (%ban == kick) { did -c $dname 10 | unset %zaman | did -b $dname 11 | did -u $dname 12 }
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..
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 ss Listeye Eklemek istediğiniz Kelimeyi Buraya Yazınız..


aynen şu dekılde ban atmasını istiyorum.... !sus kicklemeden sadece hosta ban atsın vede ne yapıp ettiysemde sebep yazısı cıkmıyor bunu nasıl düzeltebilirim arkadaslar vede 4 tane muaf kanal nasıl yapabilirim bu addona

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Mobil Chat
Alt 27 Nisan 2010, 10:26   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Kicklemeden Sadece Hosta Ban Atsın




Bunun neresinde Kick komutu yazıyor göremedim ben :A

 
Alıntı ile Cevapla

Cevapla

Etiketler
atsın, ban, hosta, kicklemeden, mirc, mirc download, mirc indir, sadece


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
Hosta domain ismini yazdırmak istedim ama.. ? SurucLu Unreal IRCd 12 20 Aralık 2014 14:10
İrcd Başka Hosta Taşıma sohbetsevgi Unreal IRCd 8 16 Aralık 2010 12:13
hosta sorun deLiyimmm mIRC Scripting Sorunları 2 03 Şubat 2009 00:09
Arkadaşlar forumu başka hosta taşıdım bu hatayı verdii ?? [CRUEL] vBulletin Sorunları ve Çözümleri 4 01 Temmuz 2006 02:16