SONDAGE: NOMBRE DE RÉPONSES ILLIMITÉ!

on *:text:!sondage:#: {
  if (%sond.start) { notice $nick Impossible de préparer un sondage, un est déjà en cours. }
  else {
    msg $nick Bien, $nick $+ , nous allons commencer le sondage. Si ca prend du temps, ne perds pas patience, nous enregistrons les données.
    set %sond.nick $nick
    set %sond.nick.host $address($nick, 5)
    set %sond.start off
    timer1 1 5 /question
  }
}

alias question {
  msg %sond.nick Pour commencer, tape la question à laquelle les personnes présentes dans le channel répondront.
  set %sond.text question
}

on %sond.nick:text:*:?: {
  if (%sond.text == question) validQuestion $1-
  if (%sond.text == timer) validTimer $1
  if (%sond.text == nbrep) validNbrep $1
  if (%sond.text == reponse) validReponse $1-
  if (%sond.text == titre) validTitre $1-
}

alias validQuestion {
  set %sond.param.question $1-
  msg %sond.nick Bien, la question est: $1-
  msg %sond.nick Tape maintenant le temps en secondes au cours duquel les chatteurs devront répondre 
  set %sond.text timer
}

alias validTimer {
  set %sond.param.timer $1
  msg %sond.nick Parfait, le temps imparti est donc: $1
  msg %sond.nick nous allons passer maintenant au nombre de réponses. Combien en veux-tu?
  set %sond.text nbrep
}

alias validNbrep {
  set %sond.param.nbquest $1
  if ($1 == 1) msg %sond.nick Tu veux donc 1 réponse.
  else msg %sond.nick Tu veux donc $1 réponses.
  msg %sond.nick Tape donc ta première réponse.
  set %sond.text reponse
}

alias validReponse {
  inc %sond.numrep
  set %sond.param.reponse. $+ %sond.numrep $1-
  if (%sond.numrep == %sond.param.nbquest) {
    msg %sond.nick C'était la dernière réponse à donner. Donne un titre à ton sondage.
    set %sond.text titre
  }
  else {
    msg %sond.nick Bien. Tape maintenant la réponse suivante. Il en reste $calc(%sond.param.nbquest-%sond.numrep) $+ .
  }
}

alias validTitre {
  set %sond.param.titre $1-
  msg %sond.nick Tadaaaaaaaaaaaa!!!! Le questionnaire est maintenant fini, je n'attend plus que ton commandement pour lancer le sondage. Pour ce faire, tape !go sur le channel. Mais ne tarde pas, au bout de deux minutes, j'efface toutes les données si le sondage n'est pas commencé. 120... 119... 118...
  set %sond.go ok
  timer2 1 120 timeEnd
}

alias timeEnd {
  notice %sond.nick Je t'avais prévenu, les deux minutes se sont écoulées. A pu les jolies données de %sond.nick !!!
  unset %sond*
}

on %sond.nick:text:!go:#: {
  set %sond.chan $chan
  timer2 off
  notice $nick Le sondage va commencer. Surtout, soit patient, le temps d'initialiser les données.
  msg $chan Un sondage va bientôt commencer. Patientez un petit instant.
  timer3 1 10 sondStart
}

alias sondStart {
  msg %sond.chan %sond.nick $+ ( $+ %sond.nick.host $+ ) vous propose un petit sondage comportant 1 question et %sond.param.nbrep réponse(s).
  msg %sond.chan Le sondage s'intitule: %sond.param.titre
  msg %sond.chan La question est: %sond.param.question
  msg %sond.chan Les réponses sont (veuillez patienter si chargement il y a):
  questionListe
}

alias questionListe {
  inc %i
  msg %sond.chan %1 $+ ) %sond.param.reponse. $+ %i (tapez !sond %i $+ )
  if (%i == sond.param.nbrep) {
    msg %sond.chan Vous avez %sond.param.timer secondes pour répondre.
    timer00 1 %sond.param.timer FinDuSondage
  }
  else {
    questionListe
  }
}

on *:text:!sond*:%sond.chan: {
  if ($nick != %sond.nick) && (!%sond.avote. $+ $address($nick, 2)) {
    set %sond.avote. $+ $address($nick, 4) a voté
    notice $nick Merci d'avoir voté (ne pas recommencer, de toutes facons, c'est impossible).
    inc %sond.param.reponse. $+ $2 $+ .vote
    inc %sond.total
    pourcentages
  }
}

alias FinDuSondage {
  msg %sond.chan Le sondage: %sond.param.titre est terminé!
  msg %sond.chan Il était proposé par %sond.nick $+ ( $+ %sond.nick.host $+ )
  msg %sond.chan La question était: %sond.param.question
  msg %sond.chan Vous aviez %sond.param.timer secondes pour y répondre.
  msg %sond.chan Voici les résultats (merci de patienter si chargement il y a)
  resultats
}

alias resultats {
  inc %a
  msg %sond.chan %sond.param.reponse. $+ %a $+ .vote votes pour: %sond.param.reponse. $+ %a ( %sond.param.reponse. $+ %a $+ .pourcent
  if (%sond.param.reponse. $+ %a $+ .vote > %sond.derniere.vote) {
    set %sond.gagnante %a
  }
  set %sond.derniere.vote %sond.param.reponse. $+ %a $+ .vote
  if (%a == %sond.param.nbrep) {
    msg %sond.chan Avec %sond.param.reponse. $+ %sond.gagnante $+ .vote votes sur un total de %sond.total $+ ( $+ %sond.param.reponse. $+ %sond.gagnante $+ .pourcent $+ ) , la réponse: %sond.param.reponse. $+ %sond.derniere.vote l'emporte!
    unset %sond.*
    unset %a
    unset %i
    unset %b
  }
  else {
    resultats
  }
}

alias pourcentages {
  inc %b
  set %sond.param.reponse. $+ %b $+ .pourcent $calc($calc(%sond.param.reponse. $+ %b $+ .vote*100)/%sond.total)
  if (%b != %sond.param.nbrep) {
    pourcentages
  }
}