on *:TEXT:!setpoll*:#:{ if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvo $chan) {
remini poll.ini $chan
set %polly on
set %pollquestion $$2-
set %pollchan $chan
set %pollnick $nick
set %polltime 60
msg %pollchan Poll started by %pollnick $+ . %pollquestion $+ ? Type !yes to answer yes and !no to answer no.
timerhalf 1 30 msg $chan There are 30 Seconds left of the poll and $readini(poll.ini,$chan,people) people have voted so far.
timerresultsq 1 60 msg $chan Poll results for %pollquestion are:
timerresults 1 61 msg $chan $readini(poll.ini,$chan,yes) Yes's and $readini(poll.ini,$chan,no) No's
unset pollnick.*
}
}
on *:TEXT:!votes:#:{
msg $chan $readini(poll.ini,$chan,yes) people have said yes.
msg $chan $readini(poll.ini,$chan,no) people have said no.
msg $chan $readini(poll.ini,$chan,people) have voted so far. }
on *:TEXT:!yes*:#:{ if ($nick !ison %pollchan) { | halt }
if ($readini(poll.ini,$chan,$nick) == voted) { notice $nick You may only vote once! | halt }
writeini poll.ini $chan yes $calc($readini(poll.ini,$chan,yes) + 1)
writeini poll.ini $chan people $calc($readini(poll.ini,$chan,people) + 1)
writeini poll.ini $chan $nick voted
notice $nick Thank you for voting.
}
on *:TEXT:!no*:#:{ if ($nick !ison %pollchan) { | halt }
if ($readini(poll.ini,$chan,$nick) == voted) { notice $nick You may only vote once! | halt }
writeini poll.ini $chan $nick voted
writeini poll.ini $chan no $calc($readini(poll.ini,$chan,no) + 1)
writeini poll.ini $chan people $calc($readini(poll.ini,$chan,people) + 1)
notice $nick Thank you $nick for your vote.
}
$iif($readini(poll.ini,$chan,no) == $null,0) <-- use that if there hasn't been any votes cast? =/