Forums Scripts & Popups [request] poll script

;************************************************
;********************** POLL ********************
;************************************************




on *:TEXT:!poll *:#: {
  if (($nick !isop $chan) && ($$2 != results)) {
    msg $chan Only mods may use this feature.
  }
  else {
    ; *********
    ; OPEN POLL
    ; *********
    if ($$2 == open) {
      unset %polloptions 
      unset %pollvotes
      unset %hasvoted
      set %polloptions $3-
      var %numberofoptions $numtok($3-,124)
      while ( %numberofoptions > 0 ) {
        dec %numberofoptions
        set %pollvotes %pollvotes 0
      }
      var %number $numtok(%polloptions,124)
      while (%number > 0) {
        if (%number == $numtok(%polloptions,124)) {
          var %finalresults %number - $gettok(%polloptions,%number,124) %finalresults
        }
        else {
          var %finalresults %number - $gettok(%polloptions,%number,124) || %finalresults
        }
        dec %number
      }
      msg $chan A new poll has been opened: %finalresults
    }

    ; ************
    ; POLL RESULTS
    ; ************
    elseif ($$2 == results) {
      if (%polloptions != $null) {
        msg $chan Current Results are: $pollresults
      }
      else {
        msg $chan Results for previous poll are: %oldresults
      }
    }
    ; **********
    ; POLL CLOSE
    ; **********
    elseif ($$2 == close) {
      msg $chan $nick has closed the poll! Results are: $pollresults
      set %oldresults $pollresults      
      unset %polloptions
      unset %pollvotes
      unset %hasvoted
    }
  }
}



alias pollresults {
  var %number $numtok(%polloptions,124)
  while (%number > 0) {
    if (%number == $numtok(%polloptions,124)) {
      var %finalresults $gettok(%polloptions,%number,124) : $gettok(%pollvotes,%number,32) votes %finalresults
    }
    else {
      var %finalresults $gettok(%polloptions,%number,124) $+ : $gettok(%pollvotes,%number,32) votes || %finalresults
    }
    dec %number
  }
  return %finalresults
}





on *:TEXT:!vote *:#: {
  if ( %polloptions == $null) {
    msg $chan There is no open poll to vote on!
  }
  elseif ($nick isin %hasvoted) {
    msg $chan $nick $+ , you have already voted in this poll!
  }
  elseif ($$2 !isnum 1 - $numtok(%pollvotes,32)) {
    msg $chan $$2- is not a valid poll option! 
  }
  else {
    set %hasvoted %hasvoted $nick
    var %voteupdate $gettok(%pollvotes,$$2,32)
    inc %voteupdate
    set %pollvotes $puttok(%pollvotes,%voteupdate,$$2,32)
    msg $chan $nick has voted for option $$2 $+ : $gettok(%polloptions,$$2,124)
  }
}