alias resultyes { return %pollyes }
alias resultno { return %pollno }


on *:text:!gpoll *:#: {
  unset %poll*
  set -u60 %gpoll on
  amsg Global Poll started by $nick $+ . $$2- $+ ? Type !yes to answer yes and !no to answer no.
  timer 1 60 amsg Yes: $!resultyes No: $!resultno
}
on *:text:!yes*:#: {
  if (%gpoll == on) {
    if (%pollnick. [ $+ [ $nick ] ] == $null) {
      set %pollnick. [ $+ [ $nick ] ] yes 
      inc %pollyes
      notice $nick Thank you $nick for your vote.
    }
    else {
      notice $nick Please refrain from voting twice.
    }
  }
}
on *:text:!no*:#: {
  if (%gpoll == on) {
    if (%pollnick. [ $+ [ $nick ] ]  == $null) {
      set %pollnick. [ $+ [ $nick ] ] yes 
      inc %pollno
      notice $nick Thank you $nick for your vote.
    }
    else {
      notice $nick Please refrain from voting twice.
    }
  }
}