code tcl a la connexion d'un user

[snip74]

Bonsoir

Merci beaucoup de ton aide et de ta réponse

Judge et venu sur irc et on a réglé le code que j'avais trouvé sur se forum on la une peut modifier et sa fonctionne.

Code :

bind raw - NOTICE connection:notice

proc connection:notice {from key arg} {
global botnick notc mod
set text [split $arg]
if {[join [lrange $text 2 5]] == "Notice -- Client connecting"} {
set nick [lindex $text 9]
putquick "PRIVMSG $nick :Message"
}
}

Salut,

Si j'ai bien compris ton message :

tclcopier

bind raw - "NOTICE" msg_pv
proc msg_pv {from key arg} {
  set type [lrange $arg 4 5]
  set pseudo [lindex $arg 9]
	if {$type == "Client connecting"} {
		putquick "PRIVMSG $psuedo :TON MESSGE"
	}
}

Cordialement,

Cordialement Stéphane