Mine

on $*:text:/^[@.!]enquete */Si:#: {
  if (%enquete != on) {
    set %enquete on
    set %pergunta $2
    set %alternativa1 $3
    set %alternativa2 $4
    set %alternativa3 $5
    set %alternativa4 $6
    set %alternativa5 $7
    msg $chan *** ~7ENQUETE~ $2 - Alternativas:7 %alternativa1 -7 %alternativa2 -7 %alternativa3 -7 %alternativa4 -7 %alternativa5 -// Enquete feita por7 $nick 
  }
}
on $*:text:/^[!@.]pararenquete */Si:#: {
  if ( %enquete = on ) {
    msg $chan *** ~7ENQUENTE~ Resultados:7 %alternativa1 = %resposta1 -7 %alternativa2 = %resposta2 -7 %alternativa3 = %resposta3 -7 %alternativa4 = %resposta4 -7 %alternativa5 = %resposta5 -// Enquete feita por7 $nick | unset %alternativa* | unset %votou.* | unset %enquete | unset %resposta* | unset %pergunta
  }
}
on *:TEXT:*:#: {
  if ( %enquete = on ) {
    if ( %votou. [ $+ [ $nick ] ] != 1 ) {
      if ( $right($1,-1) == %alternativa1 ) {
        set %votou. [ $+ [ $nick ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %resposta1
      }
      if ( $right($1,-1) = %alternativa2 ) {
        set %votou. [ $+ [ $nick ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %resposta2
      }
      if ( $right($1,-1) = %alternativa3 ) {
        set %votou. [ $+ [ $nick ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %resposta3
      }
      if ( $right($1,-1) = %alternativa4 ) {
        set %votou. [ $+ [ $nick ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %resposta4
      }
      if ( $right($1,-1) = %alternativa5 ) {
        set %votou. [ $+ [ $nick ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %resposta5
      }
    }
  }
}