Fun.tcl

[fedora]

tclcopier

# Channels concernés mettre "*" pour tous les channels:
set fun(chans) "*"
 
bind join - * notice:join
proc notice:join {nick uhost hand channel} {
Global botnick fun 
if {(([lsearch -exact [string tolower $::fun(chans)] [string tolower $channel]] != -1) || ($::fun(chans) == "*")) && ($nick != $botnick)} {
PUTSERV "NOTICE $nick :\00312Bienvenue\0034 $nick ,\00312 je suis Fun le robot d'animation pour connaitre mes commandes tapez !cmd (uniquement en couleur noir)"
}
}

j'aurais fait un truc comme cela,n'allant plus sur l'IRC il ce peut que je suis un peut rouillé! code bien sur a testé.(c'est ce que j'aurai fait personnellement ) y a surement des erreurs .