Nick list Kontrol - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

28 Ekim 2014, 22:32

Selamlar IF.. aşağıdaki kod icin numaralandırma isteyecektim . öncelikle resim koyayım daha iyi anlaşılcaktır isteğim

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

yukardaki resimde diyalogun sol kısmında şifresiz sağında ise şifreli nickler görebiliyoruz bunların her ikisinide numaralandırabilirmiyiz? yani solda su kadar sifreli veya sifresiz nick var veya her nickin yanında
1.nick
2.nick
3.nick
4.nick
5.nick seklinde görünmesini sağlayabilirmiyiz? sora işlem yapıldığında nicklere diyelim 100 sifresiz nick görunuor "hepsine zline at dediğimiz de 0 nick kaldı gibi ... nsl yaparız? tşkler
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

IrCbaStarD · 29 Ekim 2014, 08:21

dialog kodlarida vermelisin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

29 Ekim 2014, 21:05

IrCbaStarD Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

dialog kodlarida vermelisin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].

ya pardon kodu vermeyi unutmuşum
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) uks
        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 uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $read(kayitsiz.txt,%i) uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $read(kayitli.txt,%i) uks
        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 }

30 Ekim 2014, 20:47

Konu güncel..

Feragat · 31 Ekim 2014, 01:57

Şöyle bir mantık kullanabilirsin.

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 192, 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 191, 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
  text "Sayı:", 22, 115 208 12 8
  text "Sayı:", 23, 189 208 12 8
  text "", 24, 129 208 25 8
  text "", 25, 203 208 25 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 $gettok($read(kayitsiz.txt,%i),2,32) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        $gettok(msg $read(kayitsiz.txt,%i),2,32) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $gettok($read(kayitli.txt,%i),2,32) $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($gettok($read(kayitsiz.txt,%i),2,32),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($gettok($read(kayitli.txt,%i),2,32),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        $gettok($read(kayitsiz.txt,%i),2,32) %sure 4Kurallara Uyunuz
        inc %i
      }
      did -r $dname 1 | did -a $dname 24 $did(1).lines
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
      did -r $dname 34 | did -a $dname 25 $did(34).lines
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $gettok($read(kayitsiz.txt,%i),2,32)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active -v $gettok($read(kayitsiz.txt,%i),2,32)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active -v $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $gettok($read(kayitsiz.txt,%i),2,32) %uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $gettok($read(kayitli.txt,%i),2,32) %uks
        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 $gettok($read(kayitsiz.txt,%i),2,32) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $gettok($read(kayitli.txt,%i),2,32) 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 $+ $gettok($did(34).seltext,2,32) kayitli.txt | did -d kknks 34 $did(34).sel | did -a $dname 24 $did(34).lines }
    if ($did == 1) { write -ds $+ $gettok($did(1).seltext,2,32) kayitsiz.txt | did -d kknks 1 $did(1).sel | did -a $dname 25 $did(1).lines }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
    unset %k %ks
  }
  did -a $dname 24 $did(1).lines | did -a $dname 25 $did(34).lines
}
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) {
    inc %k 
    did -a kknks 1 %k $6
  }
  if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 %ks $6
  }
}
menu * { 
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }

Tam olarak istediğin gibi mi bilmiyorum ama isteğine göre eklenti yapabilirsin.
Not: Her özelliğini test edip tek tek denemedim. İyi forumlar.

31 Ekim 2014, 14:33

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Şöyle bir mantık kullanabilirsin.

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 192, 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 191, 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
  text "Sayı:", 22, 115 208 12 8
  text "Sayı:", 23, 189 208 12 8
  text "", 24, 129 208 25 8
  text "", 25, 203 208 25 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 $gettok($read(kayitsiz.txt,%i),2,32) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        $gettok(msg $read(kayitsiz.txt,%i),2,32) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $gettok($read(kayitli.txt,%i),2,32) $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($gettok($read(kayitsiz.txt,%i),2,32),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($gettok($read(kayitli.txt,%i),2,32),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        $gettok($read(kayitsiz.txt,%i),2,32) %sure 4Kurallara Uyunuz
        inc %i
      }
      did -r $dname 1 | did -a $dname 24 $did(1).lines
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
      did -r $dname 34 | did -a $dname 25 $did(34).lines
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $gettok($read(kayitsiz.txt,%i),2,32)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active -v $gettok($read(kayitsiz.txt,%i),2,32)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active -v $gettok($read(kayitli.txt,%i),2,32)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $gettok($read(kayitsiz.txt,%i),2,32) %uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $gettok($read(kayitli.txt,%i),2,32) %uks
        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 $gettok($read(kayitsiz.txt,%i),2,32) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $gettok($read(kayitli.txt,%i),2,32) 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 $+ $gettok($did(34).seltext,2,32) kayitli.txt | did -d kknks 34 $did(34).sel | did -a $dname 24 $did(34).lines }
    if ($did == 1) { write -ds $+ $gettok($did(1).seltext,2,32) kayitsiz.txt | did -d kknks 1 $did(1).sel | did -a $dname 25 $did(1).lines }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
    unset %k %ks
  }
  did -a $dname 24 $did(1).lines | did -a $dname 25 $did(34).lines
}
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) {
    inc %k 
    did -a kknks 1 %k $6
  }
  if (*r* iswm $7) && (* !isin $7) && (@ !isin $7) && (+ !isin $7) && (% !isin $7) && (~ !isin $7) && (& !isin $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 %ks $6
  }
}
menu * { 
Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks }

Tam olarak istediğin gibi mi bilmiyorum ama isteğine göre eklenti yapabilirsin.
Not: Her özelliğini test edip tek tek denemedim. İyi forumlar.

Tesekkürler istediğim sekilde calısıyor lakin görsel acıdan sadece numaralardan sora birde nokta veya - olsaydı süper görüncekti
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

suan ki görünüm
1nick
2nick

1.Nick
2-Nick gibi olsaydı mesela
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Son anda bişey farkettim kod kayıtlı nicklerin tamamını göstermiyor bu neden kaynaklıdır ?

Feragat · 31 Ekim 2014, 15:14

TİGeR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Tesekkürler istediğim sekilde calısıyor lakin görsel acıdan sadece numaralardan sora birde nokta veya - olsaydı süper görüncekti :)

suan ki görünüm
1nick
2nick

1.Nick
2-Nick gibi olsaydı mesela :)

Son anda bişey farkettim kod kayıtlı nicklerin tamamını göstermiyor bu neden kaynaklıdır ?

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 192, 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 191, 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
  text "Sayı:", 22, 115 208 12 8
  text "Sayı:", 23, 189 208 12 8
  text "", 24, 129 208 25 8
  text "", 25, 203 208 25 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 $gettok($read(kayitsiz.txt,%i),2,46) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        $gettok(msg $read(kayitsiz.txt,%i),2,46) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $gettok($read(kayitli.txt,%i),2,46) $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($gettok($read(kayitsiz.txt,%i),2,46),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($gettok($read(kayitli.txt,%i),2,46),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        $gettok($read(kayitsiz.txt,%i),2,46) %sure 4Kurallara Uyunuz
        inc %i
      }
      did -r $dname 1 | did -a $dname 24 $did(1).lines
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
      did -r $dname 34 | did -a $dname 25 $did(34).lines
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $gettok($read(kayitsiz.txt,%i),2,46)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active -v $gettok($read(kayitsiz.txt,%i),2,46)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active -v $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $gettok($read(kayitsiz.txt,%i),2,46) %uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $gettok($read(kayitli.txt,%i),2,46) %uks
        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 $gettok($read(kayitsiz.txt,%i),2,46) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $gettok($read(kayitli.txt,%i),2,46) 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 $+ $gettok($did(34).seltext,2,46) kayitli.txt | did -d kknks 34 $did(34).sel | did -a $dname 24 $did(34).lines }
    if ($did == 1) { write -ds $+ $gettok($did(1).seltext,2,46) kayitsiz.txt | did -d kknks 1 $did(1).sel | did -a $dname 25 $did(1).lines }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
    unset %k %ks
  }
  did -a $dname 24 $did(1).lines | did -a $dname 25 $did(34).lines
}
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) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}
menu * { 
  Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks 
}

1.Nick
2.Nick
3.Nick olarak gösterir.

- Tümünü göstermeme sebebi; Raw'dan alınan veride, kişi eğer prefix'e sahip değilse gösteriyordu. Prefix koşullarını kaldırınca (Aktif Kanaldaki) tüm şifreli ve şifresizleri gösterir.
Bir dene bakalım, hata olursa bildirirsin. İyi forumlar.

31 Ekim 2014, 16:28

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 192, 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 191, 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
  text "Sayı:", 22, 115 208 12 8
  text "Sayı:", 23, 189 208 12 8
  text "", 24, 129 208 25 8
  text "", 25, 203 208 25 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 $gettok($read(kayitsiz.txt,%i),2,46) $did(17)
      inc %i
    }
  }
  if ($did == 5) { 
    if %kayitsiz == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) {
        $gettok(msg $read(kayitsiz.txt,%i),2,46) $did(6)
        inc %i
      }
    }
    if %kayitli == on { 
      set %globalmesaj $did(6) 
      var %i 1 
      while %i <= $lines(kayitli.txt) {
        msg $gettok($read(kayitli.txt,%i),2,46) $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($gettok($read(kayitsiz.txt,%i),2,46),2)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        WhileFix WhileFix .
        mode $active +b $address($gettok($read(kayitli.txt,%i),2,46),2)
        inc %i
      }
    }
  }
  if $did == 7 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        $gettok($read(kayitsiz.txt,%i),2,46) %sure 4Kurallara Uyunuz
        inc %i
      }
      did -r $dname 1 | did -a $dname 24 $did(1).lines
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        Zline $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
      did -r $dname 34 | did -a $dname 25 $did(34).lines
    }
  }
  if $did == 8 {
    if %kayitsiz == on {  
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active +v $gettok($read(kayitsiz.txt,%i),2,46)
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active +v $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
    }
  }
  if $did == 9 { 
    if %kayitsiz == on { 
      var %i 1 
      while %i <= $lines(kayitsiz.txt) { 
        mode $active -v $gettok($read(kayitsiz.txt,%i),2,46)
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        mode $active -v $gettok($read(kayitli.txt,%i),2,46)
        inc %i
      }
    }   
  }
  if $did == 10 { 
    if %kayitsiz == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitsiz.txt) {
        sajoin $gettok($read(kayitsiz.txt,%i),2,46) %uks
        inc %i
      }
    }
    if %kayitli == on {  
      var %i 1 
      var %uks $$?"Lütfen Userleri Çekeceğiz Kanalı Yazın # İşareti Koyun!"
      while %i <= $lines(kayitli.txt) { 
        sajoin $gettok($read(kayitli.txt,%i),2,46) %uks
        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 $gettok($read(kayitsiz.txt,%i),2,46) Lütfen Dikkat Bu Reklam Kontroldür Cevap Vermeyiniz.
        inc %i
      }
    }
    if %kayitli == on { 
      var %i 1 
      while %i <= $lines(kayitli.txt) { 
        msg $gettok($read(kayitli.txt,%i),2,46) 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 $+ $gettok($did(34).seltext,2,46) kayitli.txt | did -d kknks 34 $did(34).sel | did -a $dname 24 $did(34).lines }
    if ($did == 1) { write -ds $+ $gettok($did(1).seltext,2,46) kayitsiz.txt | did -d kknks 1 $did(1).sel | did -a $dname 25 $did(1).lines }
  }
  if $devent == close { 
    write -c kayitsiz.txt
    write -c kayitli.txt
    unset %k %ks
  }
  did -a $dname 24 $did(1).lines | did -a $dname 25 $did(34).lines
}
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) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}
menu * { 
  Kayıtlı ve Kayıtsız Nick Kontrol Sistemi:dialog -m kknks kknks 
}

1.Nick
2.Nick
3.Nick olarak gösterir.

- Tümünü göstermeme sebebi; Raw'dan alınan veride, kişi eğer prefix'e sahip değilse gösteriyordu. Prefix koşullarını kaldırınca (Aktif Kanaldaki) tüm şifreli ve şifresizleri gösterir.
Bir dene bakalım, hata olursa bildirirsin. İyi forumlar.

Feragat çok tesekkür ederim istediğim gibi calısıyor son olarak bisey daha istesem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
diyalogu actığımızda şifreli şifresiz nickleri gösteriyor ama aktif kanalda, bu kısmı sunucu genelindeki tüm şifreli şifresiz nickleri göstericek sekilde ayarlayabilirmiyiz acaba?

Feragat · 01 Kasım 2014, 01:32

TİGeR Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Feragat çok tesekkür ederim istediğim gibi calısıyor son olarak bisey daha istesem
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
diyalogu actığımızda şifreli şifresiz nickleri gösteriyor ama aktif kanalda, bu kısmı sunucu genelindeki tüm şifreli şifresiz nickleri göstericek sekilde ayarlayabilirmiyiz acaba?

who $active ve who +a $active komutlarından $active tanımını kaldır. who ve who +a olarak kalsın.

- Sonra değişmen gereken bölüm;

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

raw 352:*: { 
  if (*r* !iswm $7) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}

- Bununla değiştir;

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

raw 352:*: { 
  if (*r* !iswm $7) && (!$regex($6,/(oper|help|stat|memo|chan|nick)serv/i)) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}

- Bu şekilde sunucudaki herkesi görebilirsin. Ayrıca servislerin nicklerinide muaf tutmuş olursun. İyi forumlar.

01 Kasım 2014, 01:53

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

who $active ve who +a $active komutlarından $active tanımını kaldır. who ve who +a olarak kalsın.

- Sonra değişmen gereken bölüm;

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

raw 352:*: { 
  if (*r* !iswm $7) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}

- Bununla değiştir;

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

raw 352:*: { 
  if (*r* !iswm $7) && (!$regex($6,/(oper|help|stat|memo|chan|nick)serv/i)) && $dialog(kknks) {
    inc %k
    did -a kknks 1 $+(%k,.,$6)
  }
  if (*r* iswm $7) && $dialog(kknks) { 
    inc %ks    
    did -a kknks 34 $+(%ks,.,$6)
  }
}

- Bu şekilde sunucudaki herkesi görebilirsin. Ayrıca servislerin nicklerinide muaf tutmuş olursun. İyi forumlar.

Feragat dediklerini aynen yaptım ama bu sefer calısmadı malesef , aşağıdaki hatayı aldım

Error, /who limit of 0 exceeded. Please narrow your search down and try again
-
* End of /WHO list.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yeni Nick List Lütfen	By_Ar\|T\|iZzz	mIRC Scripting Sorunları	0	22 Mayıs 2010 21:10
Bad Nick List Gline Atsın	boyner	mIRC Scripting Sorunları	7	31 Aralık 2009 08:33
Nick List	Guard`	mIRC Scripting Sorunları	11	28 Ocak 2009 03:42
txt nick list	muratt_aziz	mIRC Scripting Sorunları	2	11 Ocak 2009 15:51
kontrol.tcl !uza nick	GhostLy	TCL Scriptler	16	10 Ekim 2008 22:54

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.