Besoin d'aide SVP

[KeeViiNou]

Bonjour,

J'ai besoin de vos lumières pour complèter un script tcl. Je souhaite améliorer ce script

bind pub - !stop stop
proc stop {nick uhost handle chan args} {
putquick "PRIVMSG #discussion :$nick 146 vient de voter pour 4!Stop 12 !!"
putquick "NOTICE #chanelo:4Stop4:1212 $nick 146>> 4!Stop 12Plus de chanson possible sur 12 $chan !!"
}
bind pub - !encore encore
proc encore {nick uhost handle chan args} {
putquick "PRIVMSG #discussion : $nick 146 vient de voter pour 4!encore 12 !!"
putquick "NOTICE #chanelo:4encore4:1212 $nick 146>> 4!encore 12Plus de chanson possible sur 12 $chan !!"

}

j'aimerais mettre que le vote ne peut etre utiliser qu'une fois, mettre un timer et le mettre dans un fichier .txt pour que par la suite le résultat soit donner automatiquement. Mais j'avoue que mes capacites en tcl sont limités...

Merci d'avance pour votre aide.