%winners
%tiebreaker false
%voting false
%tourney false
%currwinners
%num 0



on *:TEXT:!entertourney:#:{
  if ( %tourney == true ) {
    if ( $ini(contest.ini,tourney,$nick) == $null ) {
      msg # $nick is %num
      writeini contest.ini tourney $nick %num
      set %num %num + 1
    }
    else msg # $nick already has entry $readini(contest.ini,tourney,$nick)
  }
}

on 50:TEXT:!starttourney:#:{
  set %tourney true
  msg # Tourney entry is open!
}

on 50:TEXT:!stoptourney:#:{
  set %tourney false
  msg # Tourney entry is closed!
}

on 50:TEXT:!voteopen:#:{
  set %voting true
  msg # Voting open! !enter <color> to cast your vote on who will win! ( $+ $nick $+ )
}

on 50:TEXT:!voteclose:#:{
  set %voting false
  msg # VOTING CLOSED! ( $+ $nick $+ )
}

on *:TEXT:!entry:#:{
  if ( $readini(contest.ini,guesses,$nick) != $null ) {
    msg # $nick has guessed $readini(contest.ini,guesses,$nick)
  }
  else msg # $nick does not have a guess.
}

on *:TEXT:!tourneyentry:#:{
  if ( $readini(contest.ini,tourney,$nick) != $null ) {
    msg # $nick has entry $readini(contest.ini,tourney,$nick)
  }
  else msg # $nick is not entered
}


on *:TEXT:!points:#:{
  if ( $readini(contest.ini,points,$nick) != $null ) {
    msg # $nick has $readini(contest.ini,points,$nick) points.
  }
  else msg # $nick has 0 points.
}

on *:TEXT:!enter *:#:{

  if ( %voting == false ) {
    break
  }
  else {
    if ( $2 == blue ) {
      if ( (( %tiebreaker == true ) && ( $nick isin %winners )) || %tiebreaker == false ) {
        writeini contest.ini guesses $nick blue
      }
    }
    else if ( $2 == red ) {
      if ( (( %tiebreaker == true ) && ( $nick isin %winners )) || %tiebreaker == false ) {
        writeini contest.ini guesses $nick red
      }
    }
    else if ( $2 == white ) {
      if ( (( %tiebreaker == true ) && ( $nick isin %winners )) || %tiebreaker == false ) {
        writeini contest.ini guesses $nick white
      }
    }
    else if ( $2 == green ) {
      if ( (( %tiebreaker == true ) && ( $nick isin %winners )) || %tiebreaker == false ) {
        writeini contest.ini guesses $nick green
      }
    }
    else if ( $2 == black ) {
      if ( (( %tiebreaker == true ) && ( $nick isin %winners )) || %tiebreaker == false ) {
        writeini contest.ini guesses $nick black
      }
    }
    else {
      if ( %voting == true) {
        /msg # %nick $+, enter a valid color choice! (blue, red, green, black)
      }
    }
  }
}

on 50:TEXT:!winner *:#:{
  set %currwinners
  var %i = 1
  while (%i <= $ini(contest.ini,guesses,0)) {

    /var %username = $ini(contest.ini,guesses,%i)
    /var %guess = $readini(contest.ini,guesses,$ini(contest.ini,guesses,%i))
    if (%guess == $2) {
      var %points = $readini(contest.ini,points,%username)
      if ( $readini(contest.ini,points,%username) != $null ) {
        inc %points
        writeini contest.ini points %username %points
        set %currwinners %currwinners %username $+ ( $+ %points $+ )

        if (%points > 9) {
          writeini contest.ini winners %username %points
        }
      }
      else {
        writeini contest.ini points %username 1
        set %currwinners %currwinners %username $+ ( $+ 1 $+ )
      }

    }
    inc %i
  }
  msg # Winners this round: %currwinners

  if ( $ini(contest.ini,winners,0) == 1 ) {
    msg # $ini(contest.ini,winners,1) is the CONTEST WINNER!
  }
  else if ($ini(contest.ini,winners,0) > 1) {
    var %i = 1
    set %winners
    while (%i <= $ini(contest.ini,winners,0)) {
      %winners = %winners $ini(contest.ini,winners,%i)
      inc %i
    }
    msg # %winners have tied! Time for a tiebreaker!
    set %tiebreaker true
    remini contest.ini guesses
    remini contest.ini winners
  }
  else {
    remini contest.ini guesses
    remini contest.ini winners
    break
  }
}

on 50:TEXT:!resetcontest:#:{
  remini contest.ini guesses
  remini contest.ini points
  remini contest.ini winners
  remini contest.ini tourney
  set %winners
  set %tiebreaker false
  set %voting false
  set %currwinners
  set %num 0
  msg # Contest reset!
}