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

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

- - Tcl Kodda Yardım (https://www.ircforumlari.net/eggdrop-neostats-bnc/394977-tcl-kodda-yardim.html)

Tcl Kodda Yardım

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 :)

Kod:

*** Notice -- Client connecting on port 4151: MisafirUser1652290311 (

Kod:

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" ]

} 

}

Cevap: Tcl Kodda Yardım

Denemedim Büyük İhtimalle çalışır.

Kod:

#################################################################

set person [lindex $text 9]

bind raw * notice connection

proc connection {from keyword text} {

  global person

  if {![string match -nocase "*Client connecting on port*" $text]} {return}

  if {[string match -nocase "*MisafirUser*" $person]} {

    putquick "privmsg $person :Nickiniz Sunucu Kurallarına Uymadığı için değiştirilmiştir."

    putquick "privmsg $person :Lütfen Nickinizi /nick YeniNick Komutu ile Değiştiriniz." "

    putquick "privmsg $person :Örnek: /nick Dost"

  }

}

putlog "Misafir TCL v1.0 By CLubber"

#################################################################