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

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

- - Eggdrop bir soru (https://www.ircforumlari.net/eggdrop-neostats-bnc/421080-eggdrop-bir-soru.html)

Eggdrop bir soru

Mesela belirledigim nickler, Örnek veriyorum ali veli bu nickler sunucuya girdiğinde otomatik olarak girdikleri kanallardan cıkartılıp belirledigim kanala girişi nasıl sağlanabilir? yardım edermisiniz

Cevap: Eggdrop bir soru

Daha önce elimde bulunan bir tcl editi bu, yazarı sanırım GemLik idi emin değilim. Ama işini görür. svspart kısmına çıkarıcağın kanalları, svsjoin kısmına ise gireceği kanalları yaz. "os raw svsjoin" yerine "sajoin" de kullanabilirsin.

Alıntı:

set opnick {
"NickYaz"
}

bind join - * baglanti2
proc baglanti2 {nick uhost hand chan } {
global opnick botnick
if {(![matchattr $hand b]) && ($nick != $botnick)} {
foreach opchange [string tolower $opnick] {
if {[string match *$opchange* [string tolower $nick]]} {
putserv "os raw svspart $opnick #Kanal1,#Kanal2,#Kanal3
putserv "os raw svsjoin $opnick #Kanal1,#Kanal2,#Kanal3
return 0
}
}
}
}

Cevap: Eggdrop bir soru

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]

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

      putquick "SAJOIN $nick #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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 "Nick2" $nick]} {

      putquick "SAJOIN $nick #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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 #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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, Nick3 Yazan yere tüm kanallardan çıkarılacak nickleri yaz.

#Kanal1,#Kanal2,#Kanal3,#Kanal4,#Kanal5 Yazan yerede botun kullanıcıyı çekeceği kanalları yaz.

Cevap: Eggdrop bir soru

aha pardonhocam deniyim bunu

Cevap: Eggdrop bir soru

Hata var hocam şöyle

Kod:

"proc nick:connection {from keyword arg} {

  global botnick

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

    set nick [lindex $arg 9]

  ..."

    (file "scripts/part.tcl" line 448)

    invoked from within

Cevap: Eggdrop bir soru

Bir karakteri unuttuğum için hata vermiş, bunu denermisin.

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]

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

      putquick "SAJOIN $nick #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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 "Nick2" $nick]} {

      putquick "SAJOIN $nick #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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 #1,00"

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

      putquick "NOTICE $nick Merhaba $nick"

      putquick "NOTICE $nick Bağlantınız başarı ile tamamlanmıştır ve tüm kanallardan çıkarılıp 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"

Cevap: Eggdrop bir soru

Hatada yok işlevde yapmıyor hocam. supass girili admın listesnde ekli bot :S

Cevap: Eggdrop bir soru

Biri yardım etsin lütfen

Cevap: Eggdrop bir soru

Botun en az services admin olması gerektiğini biliyorsundur umarım.

Cevap: Eggdrop bir soru

Net admin + su pass bile giriyor işlev yok ama