on *:TEXT:!poll*:#: {
  if (%poll == $null) {
    msg $chan 4 $nick started a poll: the question was12 $2-
    set %poll yes
  }
}
on *:TEXT:!vote*:#: {
  if ( %poll != $null ) {
    /set %count $calc ( ( %count ) + 1 )
    /inc %count
    /inc %yes
    /inc %no
    msg $chan 12 $nick has voted 4 $2 12on the latest poll:
  }
  on *:TEXT:!spoll*:#: {
    of (%poll != $null) {
      unset %poll
      msg $chan the poll has been stopped the results are:
      msg $chan %yes voted for yes!
      msg $chan %no voted for no!
    }  
  }