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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/524093-kayitli-ve-kayitsiz-nickleri-kontrol-sistemi.html)

uFuK 18 Şubat 2013 23:12
Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu menüyü doğru kullanmanız kötü niyetli kişilerin sunucunuz üzerinde gerçekleştirdiği faaliyetleri kontrol altında tutmak için oldukca önemlidir. Algoritma olarak sunucu üzerindeki kayıtlı ve kayıtsız nickleri tespit edip soldaki listeden belirttiğiniz işlemleri yapmaktır.

Kayıtlı ve Kayıtsız Nickleri Görmek İçin Sahip Olmanız Gereken ACC: USER ACC
Menüden İşlem Yapabilmek İçin Sahip Olmanız Gereken ACC: Oper,User,Op ACC

Yani Oper olmadanda menüyü kullanabilirsiniz. Tam Verimli Olmasada

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

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

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

Kod:
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 }

Kodu remoteye ekleyin ve herhangi bir pencerede sağ tıklayın.

Tai_Pan 19 Şubat 2013 04:38
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Süpersin uFuK kardeşim yine.. Allah Razı Olsun..

Toprak 19 Şubat 2013 13:39
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Eline sağlık ufuk.

deejaymerlyn 25 Temmuz 2013 12:24
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
on ^*:JOIN:#help:{ .enable #nickkay | .who $nick }
#nickkay off
raw 352:*: { if r isin $7 { /echo -a ***** Dikkat Yardım bekleyen var! 4#help 15nick: $6 - 9Kayıtlı Nick } | else { /echo -a ***** Dikkat Yardım bekleyen var! 4#help 15nick: $6 - 4Kayıtsız Nick } }
raw 315:*: { .disable #nickkay }
#nickkay end

bu koda bide nick tanıtılmamışsa nick şifresi tanıtılmamış ve muaf nick ekleyebilirmiyiz?

uFuK 28 Temmuz 2013 13:45
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Söylediğinizden birşey anlamadım daha açık söylerseniz yardımcı olurum

FLoZoF 16 Ağustos 2013 21:23
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Eline sağlık Kardeşim Güzel emek vermişsin.

Stealth 20 Ağustos 2013 02:53
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Mükemmel bir paylaşım toprağım sağolasın.

zeusmk 28 Eylül 2014 23:45
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
romoteye kopyaladım kaydettim ama her nereye kime sağ tıkladıysam bir türlü çalışmadı ?? sebebi ne

uFuK 29 Eylül 2014 02:54
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
/dialog -m kknks kknks

Bu komutla Manuel deneyin Dialog bulunamadı hatasi alirsaniz kodu remoteye düzgün kopyalayamamişsiniz demektir.

zeusmk 30 Eylül 2014 02:28
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
elle komutu çalıştırdım. sorun yok ancak açılan pencerede hiç nick listelemedi ne kayıtlı ne de kayıtsız nikler yok. listeler boş nickleri nasıl görebilirim

uFuK 30 Eylül 2014 02:59
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Komutu Kanalda kullanmak zorundasin, hangi kanalda kayitli ve kayitsiz nickleri görmek istiyorsan o kanal aktifken /dialog -m kknks kknks komutunu yazmalısın.

zeusmk 03 Ekim 2014 03:04
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
elle komutu çalıştırdım. sorun yok ancak açılan pencerede hiç nick listelemedi ne kayıtlı ne de kayıtsız nikler yok. listeler boş nickleri nasıl görebilirim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:04 -->-> Daha önceki mesaj 01:29 --

Alıntı:
uFuK Nickli Üyeden Alıntı (Mesaj 1041282302)
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Bu menüyü doğru kullanmanız kötü niyetli kişilerin sunucunuz üzerinde gerçekleştirdiği faaliyetleri kontrol altında tutmak için oldukca önemlidir. Algoritma olarak sunucu üzerindeki kayıtlı ve kayıtsız nickleri tespit edip soldaki listeden belirttiğiniz işlemleri yapmaktır.

Kayıtlı ve Kayıtsız Nickleri Görmek İçin Sahip Olmanız Gereken ACC: USER ACC
Menüden İşlem Yapabilmek İçin Sahip Olmanız Gereken ACC: Oper,User,Op ACC

Yani Oper olmadanda menüyü kullanabilirsiniz. Tam Verimli Olmasada

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

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

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

Kod:
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 }

Kodu remoteye ekleyin ve herhangi bir pencerede sağ tıklayın.







komutu çalıştırdım ama nickler listelenmiyor yardım edebilir misiniz

uFuK 03 Ekim 2014 03:05
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Alıntı:
zeusmk Nickli Üyeden Alıntı (Mesaj 1041504696)
elle komutu çalıştırdım. sorun yok ancak açılan pencerede hiç nick listelemedi ne kayıtlı ne de kayıtsız nikler yok. listeler boş nickleri nasıl görebilirim

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 03:04 -->-> Daha önceki mesaj 01:29 --






komutu çalıştırdım ama nickler listelenmiyor yardım edebilir misiniz
Komutu kanal penceresinde çaliştirdiğinizdan eminmisiniz ?

zeusmk 03 Ekim 2014 03:06
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
komutu ekledim ve çalıştırdım. ancak açılan pencerede nickler çıkmadı. liste boş yardım edebilir misiniz neden nickler listelenmiyor

uFuK 03 Ekim 2014 17:17
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
Alıntı:
zeusmk Nickli Üyeden Alıntı (Mesaj 1041504778)
komutu ekledim ve çalıştırdım. ancak açılan pencerede nickler çıkmadı. liste boş yardım edebilir misiniz neden nickler listelenmiyor
Arkadaşım sen robotmusun ? Bonzai içipmi geliyorsunuz anlamıyorumki sana sordugum soruya cevap ver papağan gibi ayni şeyleri yazma

Kanal penceresinde çalıştırdığına eminmisin diyorum ?

WaLek 03 Ekim 2014 17:25
Cevap: Kayıtlı ve Kayıtsız Nickleri Kontrol Sistemi
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] iLk önce eline Koluna Saglık Der : ) Sonrada Son mesajınha Kahkaha atarak guldugumu belırtmek isterim :D weuhwehweuhwue : ) Bomzai mi içip geliosunuz : )))))))))))))))))


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 15:05.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk