Vote system
alias vote.system { dialog -m vote.system vote.system }
dialog vote.system {
title "Vote System"
size -1 -1 140 61
option dbu
text "Question:", 1, 8 7 25 8
edit "", 2, 32 6 104 10
text "Channel:", 3, -31 15 25 8
edit "", 4, 32 26 104 10
edit "", 5, 32 36 104 10
text "Time (Secs):", 6, 2 37 30 8
text "Channel:", 7, 10 27 22 8
button "Start", 8, 12 48 37 12, ok
button "Stop", 9, 90 48 37 12, cancel
edit "!yes", 10, 32 16 48 10
text "Triggers:", 11, 8 17 22 8
edit "!no", 12, 89 16 47 10
}
on *:dialog:vote.system:init:0:{
setmdx
mdx SetDialog $dname style 0 title
mdx SetFont $dname 5 ANSI 13 700 Tahoma
}
on *:dialog:vote.system:sclick:8: {
if ($did(2).text != $null) && ($did(4).text != $null) && ($did(5).text isnum) { /set %vote.system.question $did(2).text | /set %vote.system.trigger1 $did(10).text | /set %vote.system.trigger2 $did(12).text | /set %vote.system.channel $did(4).text | /set %vote.system.time $did(5).text | /msg %vote.system.channel Vote System | /msg %vote.system.channel Question: %vote.system.question | /msg %vote.system.channel Type: %vote.system.trigger1 Or %vote.system.trigger2 | .timervote.system 1 %vote.system.time vote.system.results } | else { return }
}
on *:dialog:vote.system:sclick:9: {
if ($did(2).text != $null) && ($did(4).text != $null) && ($did(5).text isnum) { //msg %vote.system.channel Vote System Stoped | /unset %vote.system.question | /unset %vote.system.channel | /unset %vote.system.time | unset %vote.system.triggerresult1 | unset %vote.system.triggerresult2 | unset %vote.system.* | .timervote.system off } }
alias -l vote.system.results {
msg %vote.system.channel Vote System
msg %vote.system.channel Results:
msg %vote.system.channel Question: %vote.system.question
msg %vote.system.channel Yes: %vote.system.triggerresult1
msg %vote.system.channel No: %vote.system.triggerresult2
unset %vote.system.question
unset %vote.system.channel
unset %vote.system.time
unset %vote.system.triggerresult1
unset %vote.system.triggerresult2
unset %vote.system.*
}
alias -l percent return $round($calc(($1 / $2) * 100),$iif($3,$3,2))
on *:text:%vote.system.trigger1:%vote.system.channel: {
if (%vote.system. [ $+ [ $nick ] ] == $null) { set %vote.system. $+ $nick %vote.system.triggerresult1 | inc %vote.system.triggerresult1 | .notice $nick Vote System <<!>> Your Vote has been Added <<!>> | halt } | else { .notice $nick Vote System <<!>> You already Voted <<!>> | halt }
}
on *:text:%vote.system.trigger2:%vote.system.channel: {
if (%vote.system. [ $+ [ $nick ] ] == $null) { set %vote.system. $+ $nick %vote.system.triggerresult2 | inc %vote.system.triggerresult2 | .notice $nick Vote System <<!>> Your Vote has been Added <<!>> | halt } | else { .notice $nick Vote System <<!>> You already Voted <<!>> | halt }
}
menu channel {
Vote System: vote.system
}