|
|
|
|
|
|
|
|
|
Ayarlanabilir kufur - reklam koruma |
|
|
|
 |
Okunma |
|
200 |
Facebookta Paylaş
Kod:
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: ReaL_KinG >>\\", 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..
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
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 Küfür Koruma Yüklendi
echo -a BY : ReaL_KinG
echo -a Sa? Click \\\'e T?klay?p ® KüfüR KoRuMa sekmesinden ula?abirsin
echo -a www.mircte.org
|
Yorumlar |
|
|
|
|
| |
Orhan Afacan - Bayrağıma
Cübbeli Ahmet Hoca - Ramazan Ayin 29. Günü - 29 Agustos 2011 izle
Abdullah Takdim - Firar Ediyorum
Fıtı çorbası (Karadeniz yöresi)
Fendi 2011 2012 Sonbahar Kış modelleri
|
iLAHiLER DiNLE
ilahi Sözleri
Cebriye Fırkaları
Harici Fırkaları
Rafizi Fırkaları
|
|
|
