10/12/2007, 19:58
jai fait ca mais c'est pas tres convancant
j ai pas du tout comrendre je crois
tcl
bind pub - !destin pub_destin
proc pub_destin { nick uhost handle channel arg } {
global destin1 destin2 destin
set destin1 [lindex $nick 0]
set destin2 [chanlist $chan]
if { $couple1 != "" } {
putserv "privmsg $channel :$destin1 tu est destiner a $destin2"
}
}
j ai pas du tout comrendre je crois