Someone

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 ) {
    msg $chan the poll has been stopped the results are:
    msg $chan %yes voted for yes!
    msg $chan %no voted for no!
    /unset %poll
  }  
}