Pour la première partie (mettre un +v), il suffit d'ajouter un:
à la fin de la procéduretgcorrectanswer
Ensuite, pour l'enlever automatiquement, je pense que le plus simple est d'ajouter à la suite:
Et bien sur, la petite procédure unvoice:
tcl
pushmode $::tgchan +v $nick
à la fin de la procéduretgcorrectanswer
Ensuite, pour l'enlever automatiquement, je pense que le plus simple est d'ajouter à la suite:
tcl
killtimer $::timerunvoice($nick)
set $::timerunvoice($nick) [timer 5 unvoice $nick]
Et bien sur, la petite procédure unvoice:
tcl
proc unvoice { $nick } {
pushmode $::tgchan -v $nick
}