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

Rhall · 23 Ekim 2011, 19:04

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

house · 24 Ekim 2011, 01:02

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

CLubber · 24 Ekim 2011, 19:38

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

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.

Rhall · 24 Ekim 2011, 19:58

aha pardonhocam deniyim bunu

Rhall · 24 Ekim 2011, 20:10

Hata var hocam şöyle

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

"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

CLubber · 25 Ekim 2011, 22:17

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

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

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"

Rhall · 26 Ekim 2011, 15:39

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

Rhall · 30 Ekim 2011, 14:17

Biri yardım etsin lütfen

CLubber · 30 Ekim 2011, 15:01

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

Rhall · 05 Kasım 2011, 17:54

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Eggdrop bir soru	Rhall	Eggdrop, NeoStats, BNC	2	26 Aralık 2012 22:10
Eggdrop Komut Soru Botu	oPtimiSt	TCL Scriptler	0	19 Ocak 2012 11:03
Eggdrop bir soru yada deneme :)	Rhall	Eggdrop, NeoStats, BNC	7	17 Ekim 2011 19:15
Eggdrop Önemli Soru	eren_o7	Eggdrop, NeoStats, BNC	5	21 Şubat 2008 00:54
eggdrop'un girdiği kanallarla ilgili bi soru.	karniyarik	Eggdrop, NeoStats, BNC	0	21 Ağustos 2007 22:11

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.