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

- Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)

- - statusdan cekme (https://www.ircforumlari.net/eggdrop-neostats-bnc/521556-statusdan-cekme.html)

Merhaba, Bir TCL Yapmaya Çalışdım Ama Beceremedim. Doğrusu :)

İstediğim Şey, Bir User Sunucuya Girdiğinde, Kanallara Girmeden Status'da Girer Girmez Benim Belirlediğim BirKanala Ceksin. Bunu mIRCle Socket le Yapıyoruzda TCL olarak düzenleyemedim Mümkünmü

Cevap: statusdan cekme

PHP- Kodu:

   bind raw * notice nick:connection

proc nick:connection {from keyword arg} { 

  global botnick

  if {[string match -nocase "*Client connecting*" $arg]} {

    set nick [lindex $arg 9]

    if {[string match -nocase "Nick1" $nick]} {

      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alındınız."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."

    }

    if {[string match -nocase "Nick2" $nick]} {

      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alınmışsınızdır."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."

    }

    if {[string match -nocase "Nick3" $nick]} {

      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5"

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alınmışsınızdır."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz."

    }

  }

}

putlog "Connection TCL v1.0 - Written By CLubber"

* Nick1, Nick2 ve Nick3 olan kısımlar, botun çekmesini istediğin nickler olarak değiştir.

* Kanal1, Kanal2, Kanal3, Kanal4, Kanal5 kısmını ise, botun çekeceği kanallar olarak değiştir.

Cevap: statusdan cekme

Clubber bunu Nick belirtmeden Yapmamiz Mumkunmu? Yani sunucuya kim girerse girsin belirlediğim bir kanala çekicek şeklinde

Cevap: statusdan cekme

Kod:

bind raw * notice nick:connection

 

proc nick:connection {from keyword arg} {  

  global botnick 

  if {[string match -nocase "*Client connecting*" $arg]} { 

    set nick [lindex $arg 9]

 # etkilenmesini istemediginiz nickleri asagidaki listeye ekleyin

    set muafniklerz[list "ahmet" "mehmet" "murtaza"]

    if {[lsearch -exact $::muafniklerz $nick]} { return }

    if {[isbotnick $nick]} { return }

      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5" 

      putquick "NOTICE $nick Merhaba $nick" 

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alındınız."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz." 

    } 

} 

putlog "Connection TCL v1.0 - Written By CLubber"

şu satırda -> set muafniklerz[list "ahmet" "mehmet" "murtaza"]
set muafniklerz 'den sonra bir boşluk var ,ancak buraya postalandığında[list .... ile yapışıyor.onları kopyaladığınızda ayırın.yoksa hata verir.

kendiniz dahil hiçkimseyi muaf tutmak istemiyorsanız şu iki satırı silersiniz.

Kod:

  set muafniklerz[list "ahmet" "mehmet" "murtaza"]

    if {[lsearch -exact $::muafniklerz $nick]} { return }

ben bazılarını muaf tutmak isteyebilirsiniz diye düşünerek ekledimdi.

Cevap: statusdan cekme

Benim istediğim. Herhangi belirlediğim biri yok. sunucuya kim girerse girsin operde adminde vs.
benim belirlediğim kanala çeksin yukarıdakini denedim tcl olarak malesef çalışmadı ama hatada vermedi

Cevap: statusdan cekme

o halde bu şekilde tüm bağlananlara işlem yapacaktır.

Kod:

bind raw * notice nick:connection 

proc nick:connection {from keyword arg} {  

  if {[string match -nocase "*Client connecting*" $arg]} { 

    set nick [lindex $arg 9]

      putquick "SAJOIN $nick #Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5" 

      putquick "NOTICE $nick Merhaba $nick" 

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlandı ve sunucu yöneticisinin belirlediği kanala alındınız."

      putquick "NOTICE $nick Bilginize sunar, Teşekkür ederiz." 

    } 

} 

putlog "Connection TCL v1.0 - Written By CLubber"

not: yukarda verdiğim koddaki return ler return 0 olmalıydı.benim dikkatsizliğim.
return deyince sadece bunlara işlemi yap demiş olmuşuz olumsuz yapacakken olumlu yapmış olmuşuz. return 0 bunları es geç olmalıydı.o zaman çalışacaktır yukarda ilk postaladığımda.
geceden çıkma olunca güneş doğup ışık çarptıkça dikkat toplamak güçleşiyor.hata yapmışız orda...