on 1:load:{
  set %pollchan $$?="Polling Channel"
  dialog -dm poll poll
}

dialog poll {
  title "Poll Config"
  size -1 -1 224 79
  option dbu
  box "Choices", 1, 1 15 220 50
  text "Poll Title or Topic:", 2, 3 4 45 8
  edit "", 3, 50 4 171 10
  edit "", 4, 30 33 187 10
  edit "", 5, 30 43 187 10
  edit "", 6, 30 53 187 10
  edit "", 7, 30 23 187 10
  text "Choice 1:", 8, 3 23 25 8
  text "Choice 2:", 9, 3 33 25 8
  text "Choice 3:", 10, 3 43 25 8
  text "Choice 4:", 11, 3 53 25 8
  button "Accept", 12, 2 65 75 12
  button "Cancel", 13, 146 65 75 12
  button "Apply", 14, 77 65 75 12
}

on *:text:!poll:%pollchan:{
  notice $nick Poll Topic: %polltop
  notice $nick to vote type !vote 1,2,3 or 4
  notice $nick 1. %c1 - %v1 votes
  notice $nick 2. %c2 - %v2 votes
  notice $nick 3. %c3 - %v3 votes
  notice $nick 4. %c4 - %v4 votes
}
on *:text:!test:#:{
  echo ..
}
on *:text:!vote*:%pollchan:{
  if ( $readini(vote.ini, vote, $nick) == 1 ) { notice $nick you have already voted | halt }
  elseif ( $readini(vote.ini, vote, $ial($ial($nick),1).host)  == 1 ) { notice $nick you have already voted | halt }
  elseif ( $2 == 1 ) { writeini vote.ini vote $nick 1 | writeini vote.ini vote $ial($ial($nick),1).host 1 |  set %v1 $calc(%v1 + 1) | notice $nick your vote has been recorded | halt }
  elseif ( $2 == 2 ) { writeini vote.ini vote $nick 1 | writeini vote.ini vote $ial($ial($nick),1).host 1 | set %v2 $calc(%v2 + 1) | notice $nick your vote has been recorded | halt }
  elseif ( $2 == 3 ) { writeini vote.ini vote $nick 1 | writeini vote.ini vote $ial($ial($nick),1).host 1 | set %v3 $calc(%v3 + 1) | notice $nick your vote has been recorded | halt }
  elseif ( $2 == 4 ) { writeini vote.ini vote $nick 1 | writeini vote.ini vote $ial($ial($nick),1).host 1 | set %v4 $calc(%v4 + 1) | notice $nick your vote has been recorded | halt }
}
menu channel {
  Akumahi Poll:
  .Configure:/pollset
  .Set Channel:/set %pollchan $$?="Poll Channel"
  .Clear Votes:/clearvote
}

alias pollset {
  dialog -dm poll poll
  did -a poll 3 %polltop
  did -a poll 4 %c1
  did -a poll 5 %c2
  did -a poll 6 %c3
  did -a poll 7 %c4
}
alias clearvote {
  remove vote.ini
  set %v1 0
  set %v2 0
  set %v3 0
  set %v4 0
}

on 1:dialog:poll:sclick:12: {
  set %c1 $did(4).text
  set %c2 $did(5).text
  set %c3 $did(6).text
  set %c4 $did(7).text
  set %polltop $did(3).text
  dialog -exit poll
}
on 1:dialog:poll:sclick:13: {
  dialog -exit poll
}
on 1:dialog:poll:sclick:14: {
  set %c1 $did(4).text
  set %c2 $did(5).text
  set %c3 $did(6).text
  set %c4 $did(7).text
  set %polltop $did(3).text
}