Mine

on $*:TEXT:/^[!@]Poll */Si:#Pcelites-staff: {
  if (%poll.status != on) {
    set %Poll.question $2-
    set %poll.no 0
    set %poll.yes 0
    msg $chan A poll has been initiated by $nick - $2- - !Vote (YES/NO)
  }
}

on $*:TEXT:/^[!]Vote Yes/Si:#Pcelites-staff: {
  if ($readini voted.ini Voted $address($nick,2) == Yes) { notice $nick You have already voted in this poll! | HALT }
  else {
    inc %Poll.yes 1
    notice $nick your vote of YES has been cast - Current results: YES ( $+ %Poll.yes $+ ) NO ( $+ %Poll.no $+ )
    writeini Voted.ini Voted $address($nick,2) YES
  }
}



on $*:TEXT:/^[!]Vote No/Si:#Pcelites-staff: {
  if ($readini voted.ini Voted $address($nick,2) == Yes) { notice $nick You have already voted in this poll! | HALT }
  else {
    inc %Poll.no 1
    notice $nick your vote of NO has been cast - Current results: YES ( $+ %Poll.yes $+ ) NO ( $+ %Poll.no $+ )
    writeini Voted.ini Voted $address($nick,2) YES
  }
}