



Küfür Korumasi-2
;Küfür Korumas?
dialog kufur {
title \\\\"Küfür Korumasi By LikabLe\\\\"
size -1 -1 174 118
option dbu
combo 1, 113 11 50 50, sort size edit vsbar
text \\\\"Küfür Listesi\\\\", 2, 120 2 36 8
button \\\\"Ekle\\\\", 3, 114 63 23 11
button \\\\"Ç?kar\\\\", 4, 140 63 23 11
box \\\\"Küfür Korumas?\\\\", 5, 9 13 99 50
button \\\\"Aç\\\\", 6, 18 26 37 12
button \\\\"Kapat\\\\", 7, 62 26 37 12
edit \\\\"\\\\", 8, 45 48 50 10, read
text \\\\"Durum\\\\", 9, 24 48 21 8
text \\\\"Kick Sebebiniz\\\\", 10, 9 83 41 8
edit \\\\"\\\\", 11, 51 82 121 10, autohs
button \\\\"Kaydet Ve Ç?k\\\\", 12, 33 100 47 12, ok
button \\\\"?ptal\\\\", 13, 91 100 47 12, cancel
check \\\\"Özele Küfür\\\\", 14, 12 65 45 10
check \\\\"Kanala Küfür\\\\", 15, 58 65 46 10
}
on *:dialog:kufur:*:*:{
if ($devent == init) {
did -a $dname 11 %kufursebep
did -a $dname 8 %kufurdurum
if (%kufurdurum == kapal?) { did -b $dname 14 | did -b $dname 15 }
if ($group(#ozkufur) == on) { did -c $dname 14 }
if ($group(#kufur) == on) { did -c $dname 15 }
mdx SetMircVersion $Version
mdx MarkDialog $dname
mdx SetFont 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 11 700 Tahoma
mdx SetColor 11 BackGround $rgb(16,13,130)
mdx SetColor 11 textbg $rgb(16,13,130)
mdx SetColor 11 text $rgb(255,255,255)
mdx SetColor 2,10,9 text $rgb(16,13,130)
var %i $lines(kufurler.txt)
while (%i > 0) {
did -a $dname 1 $read(kufurler.txt,%i)
dec %i
}
}
if ($devent == sclick) {
if ($did == 12) { set %kufursebep $did(11) }
if ($did == 6) { .enable #kufur | .enable #ozkufur | set %kufurdurum Aç?k | set %kufursebep $did(11) | dialog -x Kufur Kufur | dialog -m Kufur Kufur }
if ($did == 7) { .disable #kufur | .disable #ozkufur | did -b $dname 14 | did -b $dname 15 | set %Kufurdurum Kapal? | set %Kufursebep $did(11) | dialog -x Kufur Kufur | dialog -m Kufur Kufur }
if ($did == 3) { write Kufurler.txt $did(1) | did -a $dname 1 $read(Kufurler.txt,$lines(Kufurler.txt)) }
if ($did == 4) { write $+(-ds,$did(1).seltext) Kufurler.txt $did(1).seltext | did -d $dname 1 $did(1).sel }
if ($did == 14) { if ($did(14).state == 1) { .enable #ozKufur } | else { .disable #ozKufur } }
if ($did == 15) { if ($did(15).state == 1) { .enable #Kufur } | else { .disable #Kufur } }
}
}
#Kufur off
on *:TEXT:*:?:{
var %i $lines(Kufurler.txt)
while (%i > 0) {
if ($read(Kufur.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozKufursebep }
dec %k
}
}
dec %i
}
}
#Kufur end
#ozKufur off
on *:TEXT:*:?:{
var %i $lines(Kufurler.txt)
while (%i > 0) {
if ($read(Kufurler.txt,%i) iswm $1-) {
var %k $comchan($nick,0)
while (%k > 0) {
if ($nick !isop $comchan($nick,%k)) { banla $comchan($nick,%k) | kick $comchan($nick,%k) $nick %ozKufursebep }
dec %k
}
}
dec %i
}
}
#ozKufur end




| Favori Scriptler |
|
MircAlem Script V2 MircAlem Kullanıcıları için özel hazırlanmış olan yeni Versiyonumuzu Kullanımınıza Sunuyoruz.. Bir Çok özellik eklenmiştir. kullanımı kolay ve tasarımı gayet güzel olan bu scripti kullanmanızı tavsiye ederiz... |
|
Profesyonel Script MircAlem Sohbet Sunucusu Kullanıcılarının İsteği Üzerine Kanal Yetkilileri ve Kullanıcılar İçin Hazırladığımız Profesyonel Script Piyasaya Sunuyoruz.. Umarım Beğenilerinizi Toplar Ve Yeni Sürümleri İle Devamlılığını Sağlarız |
Kameralı Mirc İndir Mirc ile görüntülü sohbet imkanı hemen yükle |
|
Kelebek Mirc İndir Türkiye'nin 1 numaralı sohbet chat programı kelebek Mirc mutlaka deneyiniz |