mIRC Arsivi hakkında

Sohbetler.com mirc scripti olan AynaLive mirc kullanıcı sürümünü bedava indirebilirsiniz.

mirc

yukle

Badident koruması ( Kanal için )

Kötü ident koruması

#bident on
 on @*:JOIN:#:{
 if (*!*fuck*@* iswm $fulladdress) || (*!*yarak*@* iswm $fulladdress) || (*!*Amcik*@* iswm $fulladdress) || (*!*Orosp*@* iswm $fulladdress) || (*!*------*@* iswm $fulladdress) || (*!*annen*@* iswm $fulladdress) || (*!*www.*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*lezbiyen*@* iswm $fulladdress) || (*!*kaltak*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*azgin*@* iswm $fulladdress) || (*!*jgolo*@* iswm $fulladdress) || (*!*ipne*@* iswm $fulladdress) || (*!*ibne*@* iswm $fulladdress) || (*!*orgazm*@* iswm $fulladdress) || (*!*organ*@* iswm $fulladdress) || (*!*penis*@* iswm $fulladdress) || (*!*****@* iswm $fulladdress) || (*!*siker*@* iswm $fulladdress) || (*!*delici*@* iswm $fulladdress) {
 cs akick $chan add $fulladdress Lütfen Identinizi Deişiniz..
 cs akick $chan enforce
 cs akick $chan del $fulladdress
 }
 }
 #bident end

Bu kod sayesinde kanalınıza girmek isteyen kötü nickleri kanaldan uzaklaştırabilirsiniz.Bu basit bir ident korumasıdır. sizde eklemek yaparak kendi identlerini ekleyebilir ve bulunduğunuz kanalda uzaklaştırabilirsiniz.Bulunduğunu kanalda yetkili durumda olmanız gerekmektedir.

Kötü Nick koruması

#bident on
 on @*:JOIN:#:{
 if (*siker*!*@* iswm $fulladdress) || (*amk*!*@* iswm $fulladdress) || (*amcık*!*@* iswm $fulladdress) || (*orusp*!*@* iswm $fulladdress) || (*sik*!*@* iswm $fulladdress) || (*annen*!*@* iswm $fulladdress) || (*kaltak*!*@* iswm $fulladdress) || (*net*!*@* iswm $fulladdress) || (*azgi*!*@* iswm $fulladdress) || (*jgolo*!*@* iswm $fulladdress) || (*ipne*!*@* iswm $fulladdress) || (*ibne*!*@* iswm $fulladdress) || (*orgazm*!*@* iswm $fulladdress) || (*organ*!*@* iswm $fulladdress) || (*penis*!*@* iswm $fulladdress) || (*siker*!*@* iswm $fulladdress) || (*delici*!*@* iswm $fulladdress) {
 cs akick $chan add $fulladdress Lütfen Identinizi Deişiniz..
 cs akick $chan enforce
 cs akick $chan del $fulladdress
 }
 }
 #bident end

Buda kötü nickler için oluşturulmuştur.

 

Hava durumu remotesi

Arkadaşlar Hava durumunu mirc üzerinden nasıl öğrenebiliriz diye bir kod.Bu kodu mirce ekledikten sonra kullanıcılarınızın ” !havadurumu adres ” bulundukları yer için 5 günlük tahmini hava durumunu  öğrenebilmelerini sağlarsınız.
havadurumu
Kod:

alias havadurumu {
var %sn havadurumu- $+ $ticks
sockopen %sn mynet.com 80
sockmark %sn $1-
echo -a $1-
}
on *:sockopen:havadurumu-*:{
var %k sockwrite -tn $sockname
%k GET /havadurumu/asya/turkiye/ $+ $replace($gettok($sock($sockname).mark,1,189),$chr(32),/) HTTP/1.1
%k host: www. mynet.com | %k
}
on *:sockread:havadurumu-*:{
var %a
sockread %a
if Moved Permanently isin %a { $gettok($sock($sockname).mark,2,189) [HATA] Sorgulanan adres bulunamadı. }
var %b $remove($utfdecode($nohtml(%a)),$chr(9))
if itemprop isin %a { $gettok($sock($sockname).mark,2,189) 7 ~~~~12 $replace($remove(%b,hava durumu),>,>) İçin 5 Günlük Hava Tahmini 7~~~~ }
if span class="hv isin %a {
if day isin %a { set %hvdrm $+(10[,%b,]) $str(- ,$iif($len(%b) == 4,9,$calc(11- $iif(ş isin %b,$calc($len(%b) +1),$len(%b))))) }
if mood isin %a { set %hvdrm %hvdrm 3Hava olayı:3 %b }
if deg1 isin %a { set %hvdrm %hvdrm - 4En yüksek: %b }
if deg2 isin %a { set %hvdrm %hvdrm 1* 10En düşük: %b | $gettok($sock($sockname).mark,2,189) %hvdrm }
}
}
on *:text:!havadurumu *:#:havadurumu $replace($2-,Ç,c,ç,c,Ğ,g,ğ,g,ı,i,İ,i,Ö,o,ö,o,Ş,s,ş,s,Ü,u,ü,u) $+ ½ $+ msg #
alias noHTML return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g, $null)

————————————

 

 

Kodun alıntı yapıldığı adresi : ircforumlari.net/hazir-kodlar/585121-hava-durumu-havadurumu-adres.html

Kodu paylaşan & yapan : Paint

Arkadaşlar kodun hata verdiğini düşünüyorsanız forum adresine giriş yapıp yorumları görebilirsiniz.

Mircde özel avatar sistemi

Adından anlaşıkdığı gibi özelde konuştuğunuz kişinin avatarını siz sizin avatarınızı karşınızdakinin görmesini sağlayan bir kod
Kodun çalışabilmesi için karşıtaraftda aynı kodun olması gerekmektedir.
Kod Güncellenmiştir Kod yazarı (fav) niçkim banlanmış durumda umarım işinize yarar bir çalışma olmuştur farklı tarzlarda güncellemelere açıktır herkes kullanabilir

alias urs { sockclose ursm
  if $1 = $null { %sharing_file = $$msfile($$msfile($mircdir\)) }
  if $1 { %sharing_file = $1- }
  %tempsockname = ursm | echo 3 yüklenmeye çalışıyor...
  sockopen %tempsockname www.hizliresim.com 80 | sockmark %tempsockname filename= $+ %sharing_file | unset %sharing_file | unset %tempsockname
}
on *:sockopen:ursm: { 
  bset -t &postdata 1 ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="local_files[]"; filename=" $+ $nopath($gettok($mid($sock($sockname).mark,11),1,59)) $+ " $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Type: image/ $+ $gettok(%ds,2,46) $+ $crlf $+ $crlf
  bread " $+ $gettok($mid($sock($sockname).mark,10),1,59) $+ " 0 $file($gettok($mid($sock($sockname).mark,10),1,59)).size &file_contents
  bcopy &postdata $calc($bvar(&postdata,0) + 1) &file_contents 1 -1
  bset -t &postdata $calc($bvar(&postdata,0) + 1) $crlf $+ ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_size" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_effect" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) Content-Disposition: form-data; name="upload_setting_rotate" $+ $crlf $+ $crlf
  bset -t &postdata $calc($bvar(&postdata,0) + 1) ------WebKitFormBoundarydeA4whaMQad30HrZ--
  sockwrite -nt $sockname POST /upload.php HTTP/1.1 | sockwrite -nt $sockname Host: www.hizliresim.com
  sockwrite -nt $sockname Content-Type: multipart/form-data; boundary=----WebKitFormBoundarydeA4whaMQad30HrZ
  sockwrite -nt $sockname Content-Length: $bvar(&postdata,0) $+ $crlf $+ $crlf | sockwrite -nt $sockname Connection: Keep-Alive | sockwrite $sockname &postdata
}
on *:sockread:ursm: { var %x | sockread %x
  if (<img style="max-width isin %x) { set %brrg $gettok(%x,4,34) | set %orta  $gettok(%x,2,47) $+ / | set %sonksm $gettok($gettok(%x,-1,47),1,46) $+ . $+ $gettok($gettok(%x,-1,46),-2,34) | echo -a 7Başarıyla yüklendi } 
}
alias query { .timer 1 1 echo 3 $$1 Kendi Özelinize Resim Koymak için 4 Tıklayınız | query $$1 | yklr }
on ^*:notice:*:?: { 
  if (.png isin $2) { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.jpg isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (.bmp isin $2)  { set %fg $2 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .notice %niickk %sonksm >-x | .timerdowunload 5 10 yklr | write avt.txt %rsm | haltdef }
  if (>-x isin $2) { set %fg $1 | set %niickk $nick | resimindir http:// $+ %orta $+ %fg | .timerdowunload 5 10 yklr | write avt.txt %rsm }
  haltdef
}
alias yklr { //Background -dp %niickk "avatar/ $+ %rsm $+ " }
on *:open:?:*:{ if (!$regex($nick,/(^(Oyuncu|Test-Oyunu|TaTLiFM|kaos|KelimeTuretmece|kelime)$)/i)) { yklr | .notice $nick > %sonksm | echo 3 $nick Kendi Özelinize Resim Koymak için 4 Tıklayınız }
}
on *:connect: {  tmz }
alias tmz { var %x = 1 | var %t = $lines(avt.txt) | while %x <= %t { .timer 1 $calc(%x * 2) .remove $read(avt.txt,%x) | inc %x } }
on ^*:hotlink:*:*: { if Tıklayınız isin $strip($1) { return } }
on *:hotlink:*:*: { if Tıklayınız isin $strip($1) { urs } }
menu * {
  Avatarım
  .Karşı Tarafın göreceği Resiminizi Seçiniz:urs
}
alias resimindir { if $sock(resin) || $sock(resin2) { echo -a * Başka bir işlem devam etmekte }
  else { .unset %resin.* | .set %resin.govde $remove($1,http://) | .set %resin.uzanti $gettok(%resin.govde,2-,47) | .set %resin.ana $gettok(%resin.govde,1,47) | .set %resin.ismi $gettok(%resin.govde,$numtok(%resin.govde,47),47) | sockopen resin %resin.ana 80 }
}
on *:sockopen:resin: { if $sockerr { echo 3 -a * hata oluştu, lütfen bağlantınızı kontrol ediniz }
  else { sockwrite -n $sockname GET / $+ %resin.uzanti HTTP/1.0 | sockwrite -n $sockname Host: %resin.ana $+ $crlf $+ $crlf }
}
on *:sockread:resin: { var %ğ | sockread %ğ
  if (*404*Not* iswm %ğ) || (*Found* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (*403* iswm %ğ) || (*Forbid* iswm %ğ) { sockclose resin | sockclose resin2 | .unset %resin.* | .halt }
  if (* !iswm %ğ) { .sockclose resin2 | sockrename resin resin2 | write -c $qt(avatar/ $+ %resin.ismi) }
}
on *:sockread:resin2: { sockread &pdata | bwrite $shortfn(avatar/ $+ %resin.ismi) -1 -1 &pdata | set %rsm %resin.ismi }
on *:sockclose:resin2: { if $isfile(avatar/ $+ %resin.ismi) { .unset %resin.* } }




Kod orjinal bağlantısı : ircforumlari.net/hazir-kodlar/656954-ozel-avatar-karsinizdakini-gorme-imkani.html
Kod yazarı : muratt_aziz

ideal sohbet mirc script

mircMerhaba arkadaşlar bu makalede indirebielceğiniz bir mircden bahsetmek istiyorum.Bu script tabiki de başlıkta geçtiği gibi ideal sohbet mirc ile alakalı.Biliyorsunuz bir çok insan günlük hayattan sıkılıp sohbet yapabileceği platformları arayıp dururlar.Sizlere burada bahsetmek istediğim şey şu; insanlar aramalar yaparken seviyeli sohbet , kaliteli sohbet,ideal sohbet gibi aramalarn yaparak kendilerine uygun ve iyi bir site ararlar.Tabi bu site her zaman dediğimiz yada düşündüğümüzm gibi olmaya bilir.Bunun için sizlere bahane.net sitesini de denemenizi tavsiye ediyorum.

Bahanechat.NET sitesi de ideal ve kaliteli sohbet yapabileceğiniz nadide yazılı chat platformlarından biridir.Bu siteye ister ideal mirc isterseniz bahane scripti indirip girebilirsiniz.Biz sizde en ideal yol olarak mirc tavsiye ediyoruz.Bu mirc tüm virüs programları ile taratılmış olup temizdir.Hemen bir mirc bahane indirip bağlanın ve seviyeli insanlarla ideal yollarla tanışın.Yapmanız gereken mirc indirip kurmak , sohbete bağlanmak.Bu kadar basit.

Bahane mirc indir.

Beğendiğiniz mirc scripti indirin…

chat sohbetMerhaba arkadaşlar bu makalemde sizlere mircarsivi üzerinde yayınladığımız mirc scriptlerden bahsetmek istiyorum.Bunlardan en popüler olanları ve en çok kullanılan scriptleri paylaştık.

Aynalive kullanıcı sürümü ( sade sürüm )

Aynalive oper script kullanan kullanıcılar için tabiki oper.exe mirc scriptimiz var ve sitenin anasayfasından indirebilirsiniz.Bunun yanında aynalive script basit sürümüde sitede yayınladık.Bu mirc daha çok admin panelini vs fazlalık görenler için basitce dizayn edilmiştir.

Bahane.net – mIRC Script

Bahane yönetimi tarafından 2008 yılında geliştirilmiş ilk ve profesyonel sürümüdür.Bu scripti kullandığınızda ne kadar iyi olduğunu sizde göreceksiniz.Scripti özel ve genel korumalar, küfür addonu  gibi çok iyi addona dökülmüş kodlar mevcut.Ayrıca servisleri rahat kullanabilmeniz için chamserv,nickserv,memoserv çok iyi bir şekilde yazılmış.

Superalem.com – Superalem mIRC

Superalem.com tarafından geliştirilmiş bir mirc scripttir.Bu scriptte diğer 15 Mb boyu olan scriptlere göre çok sade ve en küçük boyuta indirgenmiş hoş bir mirc.Sanırım mircalem scripti de buna çok benziyor.Sade ve kullanıcı dostu scriptleri sevenler için ideal.

Kelebek mIRC

Kelebek mirc için hem resim hemde açıklmasını daha önce yaptığımız script sayfası için şuraya bakınız.. ( özellikler )

– TÜM MİRC SCRİPTLER IRC.Bahane.NET adresine yönlendirilmiştir.İsteiğiniz dahilinde bu mircler ile başka sitelere giirş yapmanız mümkündür.

– Eğer sizde sahip olduğunuz eski bir mirc varsa ve eskiden çokca kullanılmışsa , sitemizde yayınlamamız için yorum olarak bu konu altından istekte bulunabilirsiniz.Böylece giriş link irc.bahane.net olarak ayarlanmış mircinizi siteye koyabiliriz.Sizde mirc scriptinizi kullanan kullanıcıları görün….

 

 

Hakkarim.net – Yeni version 1.40 indir

Merhaba arkadaşlar , hakkarim.net üzerinde okey oynayanlar için yeni sürüm yayınlanmıştır.Ayrıca hakkarim.net bu sürümle birlikte bazı kurallarda getirmiştir.Bu kurallara dikkat etmeye çalışınız.Hakkarim.net yeni sürümü olan 1.40 sürümü ile birlikte 34 oyununu oynamak içn programı indirmeniz gerekmektedir.

Program hakkarim.net üzerinde barındırılıp  hakkarim.net sunucularını ilgilendirmektedir.Bu yüzden güvenli ve temizdir.

HAKKARIM.NET -OKEY OYUNU YENI VERSIYONA GIT

Kayıtlı ve Kayıtsız nickleri kontrol Addonu

Sununuz üzerindeki kayıtlı yada kayıtsız nickleri kontrol altına alıp çeşitli işlemler mi uygulamak istiyorsunuz.Ozaman bu kod tam size göre.Kodu ircforumları sitesinden alıntı yaptım.

unutmanet

Kodlayan uFuK nickli arkadaştır.

Açıklama : uFuK’a aittir.

Bu kod ile neler yapabilirsiniz ?

A) Reklam Kontrolü
Menüden Kayıtlı ve Kayıtsız Nickller İşlem Seçeneklerinden birisini seçin ve bu butona tıklayın. Seçtiğiniz seçenek durumundaki nicklere oto olarak reklam kontrol mesajı göndericek ve bu mesaja 2 saniye içerisinde cevap verenleri menüdeki belirttiğiniz kanala yazdığı mesajla birlikte kopyalacaktır. Bu menü işleme tabi değildir siz duruma göre manuel olarak işlem yapıcaksınız. (masum userlerde bu menüden etkilendiği için işleme tabi tutulmamıştır, örneğin; özel kabul addonları, oto özel mesaj addonları vb.)

B) Away Mesaj Kontrolü
Sunucunuzda away mesajını yasaklayıpta userlerinizi mağdur etmenizin bir manası yok. Bu butona tıkladıgınızda away konumundaki userleri tespit edecek ve away olanların away mesajlarını belirttiğiniz kanala kopyalayacaktır. İşleme tabi değildir, manuel işlem gerektirir)

C) Seçtiğiniz Türdeki Nicklere Mesaj Gönderme
Örneğin nicki kayıtsız kullanıcılara oto olarak kayıt mesajı gönderebilirsiniz. Yada kayıtlı kullanıcılara sistemle ilgili bilgi vermek için text mesajı gönderebilirsiniz.

 

 

 


dialog kknks {
  title "Kayıtlı ve Kayıtsız Nickler Kontrol Sistemi"
  size -1 -1 253 237
  option dbu
  list 1, 115 11 58 211, size hsbar vsbar
  box "Kayıtsız Nickler", 4, 109 2 68 224
  edit "", 2, 13 73 74 10, autohs
  edit "", 6, 13 43 74 10, autohs
  button "Hepsine Zline At", 7, 12 130 74 10
  button "Hepsine Kanalda Voice Ver", 8, 12 146 74 10
  button "Hepsinin Voicesini Geri Al", 9, 12 162 74 10
  button "Hepsini Kanala Sajoin Yap", 10, 12 179 74 10
  box "Mesaj Menüsü", 11, 3 2 98 101
  box "Global İşlemler Menüsü", 12, 2 106 98 120
  button "Away Mesaj Kontrolü Yap", 13, 12 195 74 10
  button "Reklam Mesaj Kontrolü Yap", 14, 12 211 74 10
  button "Hepsini Kanalda Banla", 15, 12 115 74 10
  edit "", 17, 13 13 74 10, autohs
  button "Nick Register Bilgisi", 16, 26 25 52 12
  button "Text Mesaj Gönder", 5, 23 54 54 12
  button "Reklam,Away Kanalı", 3, 21 85 57 9
  box "Kayıtlı Nickler", 20, 183 2 68 224
  list 34, 189 11 58 211, size hsbar vsbar
  radio "Kayıtsızlara İşlem", 18, 116 228 57 9
  radio "Kayıtlılara İşlem", 19, 190 228 52 9
  text "İşlem Yapacağınız Nick Türünü Sagdan Seçiniz", 21, 1 228 112 8
}

on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}
on *:dialog:kknks:sclick:*: {
  if $did(18).state == 1 { set %kayitsiz on | unset %kayitli }
  if $did(19).state == 1 { set %kayitli on | unset %kayitsiz }
  if ($did == 16) { 
    set %kayitmsg $did(17)
    var %i 1 
    while %i <= $lines(kayitsiz.txt) {
      msg $read(kayitsiz.txt,%i) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $read(kayitli.txt,%i) $did(6)
        inc %i
      }
    }
  }
  if $did == 3 { 
    set %ckanal $did(2)
  }
  if $did == 15 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +b $address($read(kayitsiz.txt,%i),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +b $address($read(kayitli.txt,%i),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        Zline $read(kayitsiz.txt,%i) %sure 4Kurallara Uyunuz
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $read(kayitli.txt,%i)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active  -v $read(kayitsiz.txt,%i)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active  -v $read(kayitli.txt,%i)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) %ufuks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %ufuks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) %ufuks
        inc %i
      }
    }
  }
  if $did == 13 { 
    set %awayk on 
    .timer 1 1 who +a $active
    .timer 1 4 unset %awayk
  }
  if $did == 14 {
    set %reklamkontrol on 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        msg $read(kayitsiz.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $read(kayitli.txt,%i) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    .timer 1 2 unset %reklamkontrol
  }
}

on *:dialog:kknks:*:*: {
  if $devent == init { 
    who $active
    did -a $dname 17 %kayitmsg
    did -a $dname 6 %globalmesaj 
    did -a $dname 2 %ckanal
    if %kayitli == on { did -c $dname 19 }
    if %kayitsiz == on { did -c $dname 18 }
    .timer 1 1 savebuf -o kknks 1 kayitsiz.txt  
    .timer 1 2 savebuf -o kknks 34 kayitli.txt
  }
  if $devent == dclick { 
    if ($did == 34) { write -ds $+ $did(34).seltext kayitli.txt | did -d kknks 34 $did(34).sel }
    if ($did == 1) { write -ds $+ $did(1).seltext kayitsiz.txt | did -d kknks 1 $did(1).sel }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
  }
}
raw 301:*: { 
  if %awayk == on {
    if $me ison %ckanal { 
      /msg %ckanal 12Nickname 4 $qt($2) 12Away Mesajı 4 $qt($3-) 
    } 
  }
}
on *:text:*:?: { 
  if %reklamkontrol == on { 
    msg %ckanal 12Reklama Takılan Rumuz: 4 $nick 12Yazdığı İleti: 4 $1-
  }
}
raw 352:*: { 
  if (*r* !iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 1 $6
  }
  if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    did -a kknks 34 $6
  }
}
menu * { 
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }