Code:

#####################################################       aVote 1.1b fr par arcane (arc-76024@web.de)#              (#k13, #Prophecy @euIRC)#       (traduction par alamaz, #stflou @Undernet)## (Traduction francaise de la traduction anglaise. la version originale est allemande)## Script de vote avec rŽponses prŽdŽfinies## Si vous souhaitez utiliser mon script, je serai content d'avoir un petit message :)## Pour l'aide:#   /msg <botnick> vhelp##   La syntaxe est: "!vote <temps>|<sujet>|<reponses>" (séparé par des "|").#   Les réponses différentes possibles sont séparées par des ":".##     ex. "!vote 10m|Quelle est votre couleur préférée?|aucune:vert:rouge:jaune:bleu"##   Le temps est donné de cette facon:#   xxm: xx minutes; xxh: xx heures. N'utilisez pas minutes et heures en meme temps.##   Autres commandes:#   /msg $botnick vhelp: montre cette aide#   !vote (sans arguments): montre les informations a propos du vote courant (ou du dernier)"#   Votez en tapant /msg $botnick vote <réponse>"#   La personne qui a débuté le vote peut le forcer a finir avec !endvote."## Fonctionnalités:## - réponses définissables# - notice pour les utilisateurs rejoignant le channel pour les personnes n'ayant pas voté# - hostmasks pour les personnes qui votent# - vote interdit par des bots# - finir un vote par celui qui l'a commencé## A Faire:## - multiples sessions en mme temps# - rappeler le vote aux personnes parties (away)# - commentaires ?# - limiter a des groupes d'utilisateurs# - vote libre (pas de réponse définie)## Historique:## - Version 1.0:  (10.02.2003)#   - publié seulement sur forum.egghelp.org#   - premiere version#   - publié seulement en allemand# - Version 1.1:  (19.02.2003)#   - quelques problèmes mineurs fixés (merci a stdragon)#   - les statistiques du vote en cours montrées par "!vote" et a l'arrivée sur le chan#   - syntaxe changée en "!vote <temps>|<sujet>|<réponses>"#   - quelques problèmes visuels#   - traduction anglaise disponible# - Version 1.1b: (24.02.2003)#   - un bug fixé dans la procédure d'arrivée sur le chan#   - traduction francaise disponible### Merci a:## - Loki` pour son Channel Voter Script 1.15# - ppslim @forum.egghelp.org pour son aide# - stdragon @forum.egghelp.org pour avoir vérifié mon script######################################################################### Params #######################set aversion "aVote 1.1b fr"set vvotes "0"##################### Bindings #####################bind pub - !vote avote_anyvotebind msg - vhelp avote_helpbind msg - vote avote_votebind pub - !endvote avote_endbind join - * avote_reminder##################### Remove old timers ############if {![info exists vtopic]} {catch {killutimer $vtimer}}##################### AnyVote ######################proc avote_anyvote {nick mask hand chan arg} {global botnick vchan vnick vpeople vvotes vtopic vanswers vcount vtime aversion vtimestart vtimer vhandif {$arg == ""} {if {$vvotes == "0"} {puthelp "NOTICE $nick :Pas de vote en cours."if {[info exists vtopic]} {puthelp "NOTICE $nick :Dernier vote par $vnick:"puthelp "NOTICE $nick :\"$vtopic\""puthelp "NOTICE $nick :Resultats:"for {set number 0} {$number < [llength $vanswers]} {incr number} {puthelp "NOTICE $nick :\"[lindex $vanswers $number]\": [lindex $vcount $number]"}} else {puthelp "NOTICE $nick :Pas de vote en cours."}return 0} else {puthelp "NOTICE $nick :Vote en cours par $vnick:"puthelp "NOTICE $nick :\"$vtopic\""puthelp "NOTICE $nick :Statistiques:"for {set number 0} {$number < [llength $vanswers]} {incr number} {puthelp "NOTICE $nick :\"[lindex $vanswers $number]\": [lindex $vcount $number]"}puthelp "NOTICE $nick :Temps restant: [duration [expr (([unixtime] - $vtimestart) - $vtime) * -1]]"puthelp "NOTICE $nick :Votez en tapant \"/msg $botnick vote <réponse>\""return 0}} else { if {$vvotes != 0} {puthelp "NOTICE $nick :Un vote est dŽjˆ en cours."return 0}set parts [split $arg "|"] set time [lindex $parts 0] set topic [lindex $parts 1] set answers [split [lindex $parts 2] :]if {$time == "" || $topic == "" || [lindex $answers 0] == ""} {puthelp "NOTICE $nick :La syntaxe est \"!vote <temps>|<sujet>|<réponses>\" (separated by \"|\")."puthelp "NOTICE $nick :Les différentes rŽponses possibles sont separees par des \":\"."return 0}if {[lindex $answers 1] == ""} {puthelp "NOTICE $nick :Vous devez definir au minimum  deux reponses possibles."return 0}set vtimeleft $timeif [string match "*m" [string tolower $vtimeleft]] {set vtime [expr [string trimright $vtimeleft m] * 60]set vtimestart [unixtime]} elseif [string match "*h" [string tolower $vtimeleft]] {set vtime [expr [string trimright $vtimeleft h] * 3600]set vtimestart [unixtime]} else {puthelp "NOTICE $nick :$time: Format d'heure incorrect (m: minutes, h: heures)."return 0}set vchan $chanset vtopic $topicset vanswers $answersset vvotes "1"set vnick $nickset vhand $handset vcount [list] foreach answer $vanswers { lappend vcount 0 }puthelp "PRIVMSG $vchan :\002Vote par $nick:"puthelp "PRIVMSG $vchan :\"$vtopic\""puthelp "PRIVMSG $vchan :reponses possibles: [join $vanswers " : "]"puthelp "PRIVMSG $vchan :Temps: $time"puthelp "PRIVMSG $vchan :Votez en tapant \"/msg $botnick vote <réponse>\""if {[info exists vpeople]} { unset vpeople }set vtimer [utimer $vtime "avote_end \"end of time\" 2 3 4 5"]}}##################### Vote #########################proc avote_vote {nick mask hand arg} {global botnick vchan vpeople vvotes vanswers vcountif {$vvotes == 0} {puthelp "NOTICE $nick :Pas de vote en cours."return 0}set mask [maskhost $mask]if {[matchattr $hand b]} {puthelp "NOTICE $nick :Vous etes un bot sans ame et je ne vous autoriserai pas a voter, car vous n'avez pas assez d'intelligence pour cela."puthelp "PRIVMSG $vchan :Quelqu'un essaye de voter en utilisant $nick!"return 0} elseif {[info exists vpeople($mask)]} {puthelp "NOTICE $nick :Vous avez déja voté."return 0} else {for {set number 0} {$number < [llength $vanswers]} {incr number} {if {[string tolower $arg] == [string tolower [lindex $vanswers $number]]} {puthelp "NOTICE $nick :Votre vote a été compté ([string tolower $arg])."set vtemp [lindex $vcount $number]incr vtempset vcount [lreplace $vcount $number $number $vtemp]set vpeople($mask) 1return 0}}puthelp "NOTICE $nick :$arg: Reponse impossible."puthelp "NOTICE $nick :Les réponses possibles sont: [join $vanswers " : "]"}}##################### Help #########################proc avote_help {nick mask hand arg} {global botnick aversionputhelp "NOTICE $nick :$aversion par arcane - aide"puthelp "NOTICE $nick :la syntaxe est \"!vote <temps>|<sujet>|<réponses>\" (séparé par des \"|\")."puthelp "NOTICE $nick :Les réponses différentes possibles sont séparées par des \":\"."puthelp "NOTICE $nick :Le temps est donné de cette facon:"puthelp "NOTICE $nick :xxm: xx minutes; xxh: xx heures. N'utilisez pas minutes et heures en meme temps."puthelp "NOTICE $nick :Autres commandes:"puthelp "NOTICE $nick :/msg $botnick vhelp: montre cette aide"puthelp "NOTICE $nick :!vote (sans arguments): montre les informations a propos du vote courant (ou du dernier)"puthelp "NOTICE $nick :Votez en tapant /msg $botnick vote <réponse>"puthelp "NOTICE $nick :La personne qui a débuté le vote peut le forcer a finir avec !endvote."}##################### Endvote ######################proc avote_end {nick mask hand chan arg} {global botnick vchan vnick vpeople vvotes vtopic vanswers vcount vtime vtimer vhand vtimestartif {$vvotes == 0} {puthelp "NOTICE $nick :Pas de vote en cours."return 0}if {$chan == $vchan || $nick == "end of time"} {if {$hand != $vhand && $nick != "end of time"} {puthelp "NOTICE $nick :Seule la personne qui a débuté le vote peut le forcer a s'arreter."return 0}if {$nick == "end of time"} {puthelp "PRIVMSG $vchan :Vote par $vnick sur $vtopic terminé (fin de la période de temps)."} else {puthelp "PRIVMSG $vchan :Vote par $vnick sur $vtopic terminé par $nick."}puthelp "PRIVMSG $vchan :Resultats:"for {set number 0} {$number < [llength $vanswers]} {incr number} {puthelp "PRIVMSG $vchan :\"[lindex $vanswers $number]\": [lindex $vcount $number]"}set vvotes "0"catch {killutimer $vtimer}if {[info exists vpeople]} { unset vpeople }}}##################### OnJoin Reminder ##############proc avote_reminder {nick mask hand chan} {global botnick vchan vnick vpeople vvotes vtopic vanswers vcount vtime vtimestartif {![info exists vchan]} {return 0}set mask [maskhost $mask]if {$chan == $vchan && [info exists vpeople($mask)] == 0 && $vvotes != 0} {puthelp "NOTICE $nick :Vote en cours par $vnick"puthelp "NOTICE $nick :\"$vtopic\""puthelp "NOTICE $nick :Statistiques:"for {set number 0} {$number < [llength $vanswers]} {incr number} {puthelp "NOTICE $nick :\"[lindex $vanswers $number]\": [lindex $vcount $number]"}puthelp "NOTICE $nick :Temps restant: [duration [expr (([unixtime] - $vtimestart) - $vtime) * -1]]"puthelp "NOTICE $nick :Votez avec \"/msg $botnick vote <réponse>\""}}##################### Log Message ##################putlog "\0033$aversion loaded"