if ($1-2 == !set vote ) && ($nick isop $chan) && (%vote. [ $+ [ $chan ] ] == on) {
    set -g %voteoptions. $+ $chan $lower($3-)
    msg $chan your voting options are %voteoptions. [ $+ [ $chan ] ]
  }
  if ( $1 == !vote ) {
    if ( $2 == on ) && ( $nick isop $chan ) {
      msg $chan Voting has been turned on. !set vote option1 option2 option3 etc to set options. !vote to vote.
      set -u7200 %vote. $+ $chan on
    }
    elseif ( $2 == off ) && ($nick isop $chan) {
      msg $chan Voting has been turned off. Result:
      unset %vote. $+ $chan
    }
    elseif ($2 == results) && ($3 == $null) {
      ;code to find results and output BAD CODE NEEDS REPLACING
;msg $chan $sorttok(%voteoption.test1 %voteoption.test2 %voteoption.test3,32,rn)
    ;tokenize 32 $sorttok($var(voteoption*),32,rn) | msg $chan Test 1: $1 Test 2: $2 Test 3: $3
    set %x $numtok(%voteoptions. [ $+ [ $chan ] ],32)
    ;set %totalvote test
    while (%x > 0) {
      echo $chan $var(%votechoice*,%x)
      ;$addtok($var(%votechoice*,%x),%totalvote,32)
      ;$instok($var(%votechoice*,%x).value,%totalvote,0,32)
      %totalvote = %totalvote $var(%votechoice*,%x)
      dec %x
    }
    echo $chan Totalvote = %totalvote
    tokenize 32 $sorttok($var(%totalvote).value,32,rn) | msg $chan Test 1: $1 Test 2: $2 Test 3: $3
    }
    elseif ($2 != $null) {
      ;checks to see if what they typed was an option, if it is, check to see if it exists. if no, make it and inc it. If it does, inc it
      if ($istok(%voteoptions. [ $+ [ $chan ] ],$2,32)) {
        if (%votechoice. [ $+ [ $lower($2) ] == $null) {
          set -g %votechoice. $+ $2
          inc %votechoice. $+ $2
        }
        else {
          inc %votechoice. $+ $2
        }
      }
    }
  }