Message automatique

[aliasangelius]

L'erreur viendrais pas du fait que tu ne kill pas ton timer par hasard ?
Sinon comme je t'es dit hier il faudrais voir niveau d'un return
Avec un return dans ce genre là :

tclcopier

#Salon ou le message va etre transmis
set salon_robot "#accueil"
# Message dit automatiquement toutes les X minutes : 120 (2h00)
set timerauto 120
# Liste des messages dit automatiquement 
set textauto {
    "Hey coucou bienvenue par ici"
}
 
proc go {} {
    set phrase [lindex $::textauto [rand [llength $::textauto]]]
    foreach chan $::salon_robot {
        foreach line $::textauto {
            putserv "PRIVMSG $chan : $phrase"
            return 0
        }
    }
    if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $::timer go }
        if {[string compare [string index $::timerauto 0] "!"] == 0} { set timer [string range $::timerauto 1 end] } { set timer [expr $::timerauto * 60] }
}

Moi je le ferait comme ça ton code poto ensuite je suis pas sûr c'est à tester