Something

on *:TEXT:~poll*:#:{ if ($nick ishop $chan || $nick isop $chan || $nick == Peter) {
    msg $chan 14New Poll created by $nick :4 $2-
    msg $chan 14To Vote yes on this poll type4 ~yes
  msg $chan 14To vote no type4 ~no }
}
on *:TEXT:~yes*:#:{ inc %yes }
on *:TEXT:~no*:#:{ inc %no }
on *:TEXT:~pstats*:#:{ if ($nick isop $chan || $nick ishop $chan || $nick == Peter ) {
    msg $chan 14The votes are4 %yes yes(s)14 and4 %no no(s) {
      if (%yes > %no) {
        msg $chan 14The poll wins in favor of the4 yes's }
        else { msg $chan 14The poll wins in favor of the4 no's }
      }
    }
  }
on *:TEXT:~endpoll*:#:{ if ($nick isop $chan || $nick ishop $chan || $nick == Peter) {
    set %yes 0
    set %no 0 
  msg $chan 14Poll Ended by:4 $nick }
}