Mine

on *:TEXT:!setpoll*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvo $chan) { 
    set %polly on
    set %pollquestion $$2-
    set %pollchan $chan
    set %pollnick $nick
    set %pollpeople 0
    set %polltime 60
    msg %pollchan Poll started by %pollnick $+ . %pollquestion $+ ? Type !yes to answer yes and !no to answer no.
    timer 1 30 msg $chan There are 30 Seconds left of the poll and %pollpeople people have voted so far.
    timer 1 60 msg $chan Poll results are: %pollyes Yes's and %pollno No's.
  }
}

on $*:TEXT:!votes:#:{ if %poll != on { notice $nick There is no poll currently on! | halt } 
  msg $chan %votesyes people have said yes. 
msg $chan %votesno people have said no. }

on *:text:!yes *:#: {
  if (%poll == on) {
    if (%pollnick. [ $+ [ $nick ] ] != yes) {
      set %pollnick. [ $+ [ $nick ] ] yes 
      inc %pollyes 1
      inc %pollpeople 1
      notice $nick Thank you $nick for your vote.
      unset %pollnick. [ $+ [ $nick ] ]
    }
    else {
      notice $nick Please refrain from voting twice.
    }
  }
}
on *:text:!no *:#: {
  if (%poll == on) {
    set %pollnick. [ $+ [ $nick ] ] no
    if (%pollnick. [ $+ [ $nick ] ] != no) {
      inc %pollno 1
      inc %pollpeople 1
      notice $nick Thank you $nick for you vote.
      unset %pollnick. [ $+ [ $nick ] ]
    }
    else{
    notice $nick Please refrain from voting twice..
  }
}