Sunucuya giriş yapan MisafirUserxxxx nicklerinin özeline mesaj göndermek istiyorum.
Belki alakasız oldu ama arşiv başlığında userleri joinle ilgili bir kod vardı ve aşağıdaki gibi değiştirdim. Tcl olarak kaydettim.
Help botumun confuna ekledim. Ama çalıştıramadım.
Yardımcı olursanız sevinirim
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!
*** Notice -- Client connecting on port 4151: MisafirUser1652290311 (
Kod: Kodu kopyalamak için üzerine çift tıklayın!
bind raw - NOTICE baglanti
proc baglanti {from keyword text} {
if {[string match -nocase "*Client connecting*MisafirUser*" $text]} {
set nick [lindex [split $text] 9]
utimer 1[list putserv "raw close" ]
utimer 1[list putserv "PRIVMSG $nick Nickiniz Sunucu Kurallarına Uymadığı için MisafirUserXXX olarak Değiştirilmiştir." ]
utimer 1[list putserv "PRIVMSG $nick Lütfen Nickinizi /nick YeniNick Komutu ile Değiştiriniz." ]
utimer 1[list putserv "PRIVMSG $nick Örnek : /nick Dost" ]
}
}