Kod : Kodu kopyalamak için üzerine çift tıklayın!

         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 }