|
menu ,status,channel {
® KüFüR KoRuMa
.GösTeR:.dialog -m king king
.Aç:.enable #real | .enable #real2 | echo -a 9,1Korumalar Aktif Edildi Lütfen Ban Ayarlariniz Kontrol Edinizzz!!!...
.Kapat:.disable #real | .disable #real2 | echo -a 8,1 Korumalar Suanda 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: ReaL_KinG >>\", 7, 81 103 106 61
radio \"SADECE BAN\", 6, 82 33 48 10, push
radio \"KONUSAMASIN\", 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 Istiyorum\", 12, 82 66 103 10
text \"BAN SÜRESI 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 Için Birseyler Yazmalisin,owud,HATA) }
elseif $read(küfür.txt,w,%ekle) { halt $input(Ekelemek Istediginiz Kelime Listede Mevcut,oiud,BILGI) }
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 Basari ile Eklendi }
}
if ($did == 3) {
if ($did(14).sel == 0) { halt $input(Seçim Yapmadan Silenide Ilk 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 konusma | .enable #real2 | .disable #real | did -b $dname 11 | did -u $dname 12 | halt $input(Bu Ban Tipini Kullanirsaniz Süre Kullanamazsiniz!!,oiud,BiLGi) }
}
if ($did == 9) {
if ($did(9).state == 1) { set %ban kickban | set %deger 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 Kullanirsaniz Süre Kullanamazsiniz!!,oiud,BiLGi) }
}
if ($did == 12) {
if ($did(12).state == 1) { set %süre açik | did -e $dname 11 }
if ($did(12).state == 0) { set %süre kapali | did -b $dname 11 }
}
if ($did == 5) {
if ($did(4) == $null) { halt $input(Kick Mesaji Belirlemediniz!!,oiud,BiLGi) }
if ($did(11) == $null) && ($did(12).state == 1) { did -u $dname 12 | did -b $dname 11 | set %süre kapali | halt $input(Zaman Belirlemediginiz 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 %deger }
if (%ban == konusma) { 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çik) { did -c $dname 12 }
if (%süre == kapali) { 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çenegi Tikladiginizda Eger Süre Belirtirseniz Kisi Sadece Belirlediginiz süre Boyunca Ban \'li Kalir.. Eger Süre Belirlenmemis ise Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == 8) did -ra $dname 16 Bu Seçenegi Tikladiginizda Süre belirtemezsiniz.. Kisi Kanala Girip Çikabilir Fakat Kanala Yazi Yazamaz..
if ($did == 2) did -ra $dname 16 Bu Buton ile istediginiz Bir Kelimeyi Listenize Ekleyebilirsiniz.. Kelimenin Basina (*) isaretini Koyarsaniz Kelimeden Önce Yazilan Yaziyida Kapsar. Eger Sonuna (*) isareti Koyarsaniz Kelimeden Sonra Yazilan Yaziyida Kapsar.. Eger iki Tarafada Yildiz Koyarsaniz Kelimeyi Yazilan Metnin içinde Arar.
if ($did == 3) did -ra $dname 16 Bu Buton ile Listede Seçilmis Olan Kelimeyi Silebilirsiniz.. Eger Listeden Seçim yapilmadiysa Silemezsiniz.. Silmek için Bir Kelime Seçmek Zorunludur..
if ($did == 9) did -ra $dname 16 Bu Seçenegi Tikladiginizda Eger Süre Belirtirseniz Kisi Kanaldan Hem BAN \'lanir Ve Kick Edilir.Belirtilen Sürenin Sonunda BAN Kendi Çözülür.. Eger Süre Belirtilmemis Ise Ban Chan Serv Yada Manuel Çözülebilir..
if ($did == 10) did -ra $dname 16 Bu Seçenegi Tikladiginizda Süre Belirtemezsiniz.. Kisi Sadece Kanaldan Kick Edilir.. Büyük Bir ihtimalle Tekrar Gelecektir.. :D
if ($did == 14) did -ra $dname 16 Bu Liste Sizin Eklemek Istediginiz Kelimeleri Gösterir.. Eger Ayni Kelimeyi Eklemek isterseniz Sizi Uyarir..
if ($did == 5) did -ra $dname 16 Bu Buton Tikladiginizda Eksik yada Yanlis Birseyler Var ise Size Uyari Verecektir.. Ve Ayarlari Kaydedip ileti Kutusunu Kapatir..
if ($did == 12) did -ra $dname 16 Bu Seçenek BAN Tipi Seçtiginizde Size BAN Süresi Belirlemek Gibi Bir Seçenek Sunar.. Eger Süre Belirtilmeyen Bir BAN Tipi Seçerseniz Otmatik Ayarlanir..
if ($did == 1) did -ra $dname 16 Listeye Eklemek istediginiz Kelimeyi Buraya Yaziniz.. Varolan Kelimeleri Eklemezsiniz...
if ($did == 11) did -ra $dname 16 Bu Kutucuga Ban Süresini Yazabilirsiniz.. Eger Harf Girmeyi Denerseniz Bu Mümkün Olmayacaktir.. Sadece Rakam Olarak Ban Süresi .sn Olarak Yazilabilir. Yada Bos Birakilir.. örnek : 600 }
if ($did == 4) did -ra $dname 16 Bu Kutucuga Kendi Kick Mesajinizi Yazabilirsiniz.. Kisi Kanaldan Sizin Tarafinizdan Kick Edilirse Bu Mesaj Görüntülenir.. Karizma Birsey Olmasi Sartiyla :D
if ($devent == edit) {
if ($did == 11) && ($did(11) !isnum) did -r $dname 11
}
}
#real on
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 | %deger $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 on
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 | %deger $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 Küfür Koruma Yüklendi
echo -a BY : ReaL_KinG
echo -a Sag Click \'e Tiklayip ® KüfüR KoRuMa sekmesinden ulasabirsin
echo -a www.mircdb.com (http://www.mircdb.com)
}
remoteyi ekledikten sonra kanal ve status te sağ klik yaparak ulaşabilirsiniz |
