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

RmX78 · 22 Mayıs 2015, 10:46

İyi Günler IF Kullanıcıları ;

Şöyle Bir Kod İsteyecektim.Araştırdım Ama Bulamadım..

Şimdi Diyelim ki Yönetim Kanalına Girince Bot Tarafından Kişi Hemen Kanaldan Çıkartılacak Ve Özeline Kod Yollayacak Şöyle Birşey " Bu Kanala Girebilmeniz İçin &Giris 547IF4 Kodunu Özelime Yazınız..." Kişinin Özeline Gönderecek Ve Kişi Botun Özeline Kodu Yazacak Ve Bot Otomatik Kanala Çekecek Bu Kişiyi.
Aynı Botta Muaf Kişiler Listesini Olmasını İstiyorum Yani X Kişisi Girince Kod Yollasın Y Kişisi Girince Direk Kanalda Tutsun Yani Muaf Olsun...
ve Bide Kanala Girmeye Yetkili Olmayan Kişilerin Özeline de " Siz Bu Kanala Girmeye Yetkili Değilsiniz..." Yazsın...

Böyle Bir Kod Araştırdım Ama Bulamadım...

Şimdiden Teşekkürler.

KuL · 22 Mayıs 2015, 16:16

Son satirda yetkili olmayan demissin, onu anlamadim. Ayri bir txt de yetkili olanlarin nickinimi ekliceksin, yoksa kanalda ekledigin accessimi diyorsun?

Yani hangi kanalda yetkili? #yönetim mi?

KuL · 22 Mayıs 2015, 20:31

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

on *:notice:*:*:{
  if %isim && $nick == ChanServ {
    if ($+(*,%isim,*) iswm $1-) { msg %isim Kanala Girebilmeniz icin Özelime !GIRIS %gecicikod yaziniz. | unset %isim }
    elseif (*tanima uyan kayit bulunamadi* iswm $1-) { msg %isim Siz bu Kanala girmeye Yetkili degilsiniz. | unset %isim }
  }
}
on *:join:#yönetim:{
  if $read(muafnick.txt,w,$nick) { halt }
  :birbak
  set -e %isim $nick
  cs access # list $nick
  sapart $nick #
  set %gecicikod $rand(A,Z) $+ $rand(1000,9999)
}

on *:text:*:?:{
  if $1 == !giris {
    if $2 == %gecicikod { msg $nick Kodu Basariyla girdiniz | sajoin $nick #yönetim }
    if $2 != %gecicikod { msg $nick Kodu dogru girdiginizden lütfen emin olun, Kodu tekrar almak icin !yenile yazmaniz yeterlidir Özelime }
  }
  if $1 == !yenile {
    goto { birbak }
  }
}

Zaman yüzünden Deneme Firsatim olmadi ama sanirim böyle olur.

Biri #yönetim Kanalina girerse onu sapart eder (muafnick listesindekiler haric)

ve özeline Kayitli ise Kodu yollar, degilse kanala giremezsiniz mesajini.

Her Join de kod yenilendigi icin, dünden kalma kodu kullanamazlar yani.

Eger Zaman Asimina yani biri kodu alip ama uzun süre girmeyip, o sürede kanala join olduysa ozaman eski sifreyi kabul etmez.

Onun icinde !yenile var. !yenile diyince kullaniciya yeni sifre verir.

Yazmada hata yapmadiysam sorun olmamasi gerek, ama sen bir dene sorun cikarsa buraya yaz düzeltmeyi denerim.

Feragat · 22 Mayıs 2015, 21:12

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hatırlarsan yaklaşık 2-3 sene kadar önce seninle bu koda benzer bir kod yapmıştık. Yaprak.gen.tr sunucusunda yanılmıyorsam. Çok zor bir şey değil biraz eventları ve koşulları inceleyerek kolayca yapabilirsin.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodda ilk gözüme çarpan hata goto döngüsü. Boş bir vaktinde kodu test et mutlaka.

KuL · 22 Mayıs 2015, 22:14

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

Kusura bakmayin düsünmede iyi ama pratikde calismayan bir "goto" eventine denk geldim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Tesekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam, bilgilendirme icin
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!

on *:notice:*:*:{
  if %isim && $nick == ChanServ {
    if ($+(*,%isim,*) iswm $1-) { msg %isim Kanala Girebilmeniz icin Özelime !GIRIS %gecicikod yaziniz. | unset %isim }
    elseif (*tanima uyan kayit bulunamadi* iswm $1-) { msg %isim Siz bu Kanala girmeye Yetkili degilsiniz. | unset %isim }
  }
}
on *:text:*:?:{
  if $1 == !giris {
    if $2 == %gecicikod { msg $nick Kodu Basariyla girdiniz | sajoin $nick #yönetim }
    if $2 != %gecicikod { msg $nick Kodu dogru girdiginizden lütfen emin olun, Kodu tekrar almak icin !yenile yazmaniz yeterlidir Özelime }
  }
  if $1 == !yenile { set -u5 %isim $nick | cs access #yönetim list $nick }
}
on *:join:#yönetim:{
  if $read(muafnick.txt,w,$nick) { halt }
  set -e %isim $nick
  cs access # list $nick
  sapart $nick #
  set %gecicikod $rand(A,Z) $+ $rand(1000,9999)
}

RmX78 · 28 Mayıs 2015, 14:35

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

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hatırlarsan yaklaşık 2-3 sene kadar önce seninle bu koda benzer bir kod yapmıştık. Yaprak.gen.tr sunucusunda yanılmıyorsam. Çok zor bir şey değil biraz eventları ve koşulları inceleyerek kolayca yapabilirsin.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kodda ilk gözüme çarpan hata goto döngüsü. Boş bir vaktinde kodu test et mutlaka.

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Böyle Bir Kod Yapılmıştı Ama Bir Hata Sonucu Arşivim Silindi Bu Yüzden Yardım İstedim.Dediğiniz Gibi Araştırma Yapılsa ve Uğraşılsa Aslında Yapılabilir.Ama Bazı İnsanlar Vardır ki Bazı Konulara Yetenekleri Yoktur...
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Zamanında Yapılan O Kod Sistemini Tekrar Paylaşma İmkanın Var Mı?

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

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

Kusura bakmayin düsünmede iyi ama pratikde calismayan bir "goto" eventine denk geldim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Tesekkür ederim @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam, bilgilendirme icin
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!

on *:notice:*:*:{
  if %isim && $nick == ChanServ {
    if ($+(*,%isim,*) iswm $1-) { msg %isim Kanala Girebilmeniz icin Özelime !GIRIS %gecicikod yaziniz. | unset %isim }
    elseif (*tanima uyan kayit bulunamadi* iswm $1-) { msg %isim Siz bu Kanala girmeye Yetkili degilsiniz. | unset %isim }
  }
}
on *:text:*:?:{
  if $1 == !giris {
    if $2 == %gecicikod { msg $nick Kodu Basariyla girdiniz | sajoin $nick #yönetim }
    if $2 != %gecicikod { msg $nick Kodu dogru girdiginizden lütfen emin olun, Kodu tekrar almak icin !yenile yazmaniz yeterlidir Özelime }
  }
  if $1 == !yenile { set -u5 %isim $nick | cs access #yönetim list $nick }
}
on *:join:#yönetim:{
  if $read(muafnick.txt,w,$nick) { halt }
  set -e %isim $nick
  cs access # list $nick
  sapart $nick #
  set %gecicikod $rand(A,Z) $+ $rand(1000,9999)
}

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Paylaşımın İçin Teşekkürler En Yakın Süre de Deneyecem Şuan İçin Müsait Değilim.
Yine de Ellerine Sağlık...

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Muaf Kanal/Nick Giriş Çıkış Bilgisi Kanal ve Özelde Komut Yardımı	Goemon	Conference Room (CR)	4	01 Şubat 2016 02:03
kanal giriş yetkisi	Shiniori	Unreal IRCd	0	04 Ekim 2013 23:09
KanaL Giriş Sorun	By_ATMACA	mIRC Scripting Sorunları	2	29 Haziran 2012 20:52
Kanal Giriş Çıkışları	Kayıtlı	mIRC Scripting Sorunları	3	06 Haziran 2008 12:40
KanaL giriş Sorunu	Shujinko	mIRC Scripting Sorunları	2	17 Ekim 2007 15:25

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

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.