Miscellany

on *:text:!enquete*:*:{
  if ( $nick = Mud ) {
    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:*:#: {
  if ( %enquete = on ) {
    if ( [ %votou. [ $+ [ $nick ] ] ] != 1 ) {
      if ( $right($1,-1) == %alternativa1 ) {
        set [ %votou. [ $+ [ $nick ] ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %alternativa1
      }
      if ( $right($1,-1) = %alternativa2 ) {
        set [ %votou. [ $+ [ $nick ] ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %alternativa2
      }
      if ( $right($1,-1) = %alternativa3 ) {
        set [ %votou. [ $+ [ $nick ] ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %alternativa3
      }
      if ( $right($1,-1) = %alternativa4 ) {
        set [ %votou. [ $+ [ $nick ] ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %alternativa4
      }
      if ( $right($1,-1) = %alternativa5 ) {
        set [ %votou. [ $+ [ $nick ] ] ] 1
        notice $nick *** ~7ENQUETE7~ Obrigado por votar!
        inc %alternativa5
      }
    }
  }
}
on *:text:!pararenquete:*:{
  if ( $nick = Mud ) && ( %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
  }
}