IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
11Beğeni(ler)

Yeni Konu aç Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2
 
LinkBack Seçenekler Stil
Alt 28 Ekim 2014, 22:32   #1
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Nick list Kontrol



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.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 29 Ekim 2014, 08:21   #2
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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

 
Alıntı ile Cevapla

Alt 29 Ekim 2014, 21:05   #3
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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 }


Konu Feragat tarafından (29 Ekim 2014 Saat 21:22 ) değiştirilmiştir. Sebep: Kodlar, code tagına alındı.
 
Alıntı ile Cevapla

Alt 30 Ekim 2014, 20:47   #4
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



Konu güncel..

 
Alıntı ile Cevapla

Alt 31 Ekim 2014, 01:57   #5
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



Şö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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 31 Ekim 2014, 14:33   #6
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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 ?

 
Alıntı ile Cevapla

Alt 31 Ekim 2014, 15:14   #7
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 31 Ekim 2014, 16:28   #8
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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?

 
Alıntı ile Cevapla

Alt 01 Kasım 2014, 01:32   #9
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 01 Kasım 2014, 01:53   #10
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: Nick list Kontrol



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.

 
Alıntı ile Cevapla

Cevapla
Sayfa 1 Toplam 2 Sayfadan 1 2

Etiketler
kontrol, list, nick

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

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




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org