12/02/2010, 11:34
bonjour,
je pense arriver un moment faut savoir bien chercher sur le forum, et bien regarder sont code ou il manque des p'tites chose qui s'affiche en party line.Ton TCL est casi le même (je parle du système ) que d'autre code poser sur le forum
cordialement DnS
je pense arriver un moment faut savoir bien chercher sur le forum, et bien regarder sont code ou il manque des p'tites chose qui s'affiche en party line.Ton TCL est casi le même (je parle du système ) que d'autre code poser sur le forum
tcl
set SalonEnvoi "#Amities"
set ConfNick "pseudo"
bind time - "10 19 * * *" MsgEnvoi
proc MsgEnvoi {min hour day month year} {
global botnick SalonEnvoi confirmation
foreach chan [string tolower $::SalonEnvoi] {
if {$chan != ""} {
putserv "PRIVMSG $::SalonEnvoi :Le Salon #Amitiés vous offre tout les jours à 19h10 un bon apéritif :p"
putserv "PRIVMSG $::ConfNick :Message correctement dit sur $::SalonEnvoi"
}
}
}
cordialement DnS