raw 367:*: {
mode $2 -b $3
}
alias banac {
mode # +b
}
on &*:text:*:#:{
if ($1 == !bantemizle) { banac }
}
on *:ban:#aşk: {
if (%biz == 10) { banac | msg $chan Kanaldaki tüm banlar temizleniyor. | set %biz 1 }
if (%biz == 15) { banac | msg $chan Kanaldaki tüm banlar temizleniyor | set %biz 1 }
if (%biz == 15) { unset %biz }
else {
inc %biz
}
}
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 == 
{
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 == 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 mircdb.com
}
on *:open:?:*:{
msg $nick 2Selam4 $nick
msg $nick 2Bugün4 $date 2ve Saat 4 $time(HH:nn.ss)
msg $nick 2Konuşmadığım Süre 4 $duration($idle)
msg $nick 2Toplam Açılan Özel Pencerem 4Sayısı %q!
inc %q!
msg $nick 2Şu an Özelimdeki4 $+($query(0),.) 2Kişisin Müsait Olduğumda Cevap Vereceğim
msg $nick 2Lütfen 4Op2, 4Voice2, 4Oper 2istemeyiniz istemeniz Durumunda Direkt Olarak ignore Edileceksiniz4.2IRServisler iLe iLgiLi Sorunlariniz için 4#help 2kanalını kullanınız 4Zline, Kline, Akill, Nick 2ve 4Kanal 2$ifre 2Sorunlariniz icin 4/join #OperHelp 2Yaziniz..
inc %q!
ABD’deki Brown Üniversitesi’nin 198 ülkenin kamu kurumlarının internet hizmetlerini araştırdığı raporda Türkiye ilk 10′a girdi.
Geçen yıl 27. sırada yer alan Türkiye, bu yıl 19 basamak atlayarak Almanya, İsviçre, İtalya ve İispanya’yı geride bırakıp Avustralya ile 8. sırayı paylaştı.
Brown Üniversitesi’nin bu yıl yedincisini yaptığı uluslararası e-devlet analizi raporu hazırlanırken 198 ülkenin, haziran ve temmuz aylarında 1.687 internet sitesi incelendi. Ardından hazırlanan raporda, geçen yılın birincisi Güney Kore bu yıl da ilk sırada yer alırken, Singapur ikinci, Tayvan üçüncü, ADB ise dördüncü sırada yer aldı.
Raporda, pek çok ülkenin, internet üzerinden kamu hizmetlerinin verilmesi çalışmalarını geçen yıla göre artırdığı belirlenirken, bu yıl da Asya ülkelerinin uluslararası e-devlet kullanımı konusunda diğerlerine göre daha etkin olmayı sürdürdüğü kaydedildi.
Raporun ilk üç sırasına yerleşen Asya ülkelerini ise 5′inci sıradaki İngiltere, 6′ıncı sıradaki Kanada ve 7′inci sıradaki Portekiz izliyor. Araştırmada ülkeler, özürlülerin internet hizmetlerinden yararlanması, yayınların ulaşılabilirliği, kişiye özel sistemler, güvenlik sistemleri, iletişim sistemleri ve internet tabanlı servislerin sayısının aralarında bulunduğu 24 ölçüt çerçevesinde değerlendirildi.
Washington Üniversitesi Turing Enstitüsü’nde geliştirilen ve ‘PanImages’ adı verilen teknoloji, Danimarka’nın başkenti Kopenhag’da tanıtıldı. Yeni teknoloji ile arama yapılan nesnenin 300 ayrı dildeki karşılığı bulunuyor ve yüz binlerce resme ulaşılabiliyor.
Sitenin çalışma prensibi şu örnekle açıklanıyor: Bir Arnavut, herhangi bir arama motoruna girip kendi dilinde ‘kurbağa’ anlamına gelen ‘bretkosë’ yazdığında tüm dillerdeki karşılığı ile tarama yapılarak fotoğraflar ekrana getiriliyor.
Sitenin arama motoruna girdiğiniz kelimeyi sistem diğer dillere çeviriyor. Daha sonra çevirdiği dili Google Images ve Flickr arama motorunu kullanarak arama yapıyor.Her iki arama motorunun sonuçları, yarımşar sayfa halinde ekrana getiriliyor.
Siteye panimages.org adresinden ulaşabilirsiniz.