tcl
# 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 .
[font=Times New Roman]La différence entre Linux et Windows ,c'est que Linux c'est comme une belle fille , il faut l'apprivoiser , la comprendre , la séduire tandis que Windows , c'est comme une prostitué , il faut payer et surtout bien se protéger.[/font]