17/07/2013, 16:36
Voici le code finit
tcl
bind pub - !stats pub_stats
proc pub_stats {nick host hand chan args} {
if {$chan == "#salon1"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon1 http://"
} elseif {$chan == "#salon2"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon2 http://"
} elseif {$chan == "#salon3"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon3 http://"
} elseif {$chan == "#salon4"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon4 http://"
} elseif {$chan == "#salon5"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon5 http://"
} elseif {$chan == "#salon6"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon6 http://"
} elseif {$chan == "#salon7"} {
puthelp "NOTICE $nick :Voici les stats du salon #salon7 http://"
}
}
putlog "Liens-stats.tcl bien chargé"