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/)
-   Eggdrop, NeoStats, BNC (https://www.ircforumlari.net/eggdrop-neostats-bnc/)
-   -   Sajoin TCL (https://www.ircforumlari.net/eggdrop-neostats-bnc/505057-sajoin-tcl.html)

deLuxe 25 Eylül 2012 21:34

Sajoin TCL
 
Arkadaşlar belirli idente sahip kişileri belirli bir kanala almak için tcl lazım örneğin Sohbet identindekileri otomotik #Sohbet kanalına çeken tcl

saywhat 26 Eylül 2012 15:39

Cevap: Sajoin TCL
 
merhaba .
oper bot yok elimde çalışıp çalışmadığını deneme şansımda olmadı ..
yazmaya çalıştım istediğiniz kodu ,herhangi bir sorun olursa
bildirin lütfen.

Kod:

# hedef kanal adlarini,birden fazla kanal için arada bosluk birakarak yanyana girin.
set kanallar "#sohbet"
# hedef ident-ler birden fazlaysa alt alta tirnaklar içinde çogaltarak girin.
set hedefident {
"*sohbet*"
"muhabbet*"
"*laklak"
}
set mesajim "Merhaba $nick $kanallar kanalina yonlendiriliyorsunuz."
# ayarlar buraya kadar kod basliyor.
bind raw - notice yakala:ident
proc yakala:ident {from keyword text} {
 if {[string match -nocase "*client connecting*" $text]} {
 global hedefident nick kanallar mesajim
  set nick [lindex [split $text] 9]
# girislerde gordugu snoticelerden kullanicinin identini yakalayip
# islem yapacagi identle eslesip eslesmedigine bakiyor.
  foreach yakalaident [string tolower $hedefident] {
    set hedefIDyakala "*!*$yakalaident*@*"
# once bakacagi ident kismini tanimladik
# simdi yakala onu diyoruz.
    set gelenident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
    if {[string match *$yakalaident* [string tolower $gelenident]]} {
 # hedef identle yakalanana diledigimiz islemi uygulatiyoruz.
    putquick "sajoin $nick $kanallar"
    putserv "notice $nick $mesajim"
    return 0
  }
 }
}
}
putlog "ident-yakala.tcl yuklendi"
return


Lucifer 26 Eylül 2012 17:40

Cevap: Sajoin TCL
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Aradığın TCL aşağıdaki gibidir. Yukarıda verilen TCL'de işlem yapamazsan bunlarada bir göz atmanı tavsiye ederim.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ayrıca diğer açtığın konudaki yazıyla şuanda istediğin olayda tamamen aynıdır.
Kendine göre orada yazan yazıları değiştirdiğinde istediğin olacaktır.

İlgili link ; [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


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

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