/ScriptServ

[aliases]
n0=vote {
n1=  .enable #vote
n2=  set %vote.chan $parm1
n3=  set %vote.what $parm2*
n4=  set %vote.yes 0
n5=  set %vote.no 0
n6=  set %vote.active yes
n7=  msg %vote.chan  4Channel Vote Now 12Open!
n8=  msg %vote.chan 4Topic:12 %vote.what
n9=  msg %vote.chan 4Type 12!yes4 to vote yes - 12!no4 to vote no
n10=}
n11=showvotes {
n12=  if ( %vote.active !== yes ) { echo -a 12Error: 4You do not have a vote running!! | goto end }
n13=  if ( $parm1 == private ) {
n14=    echo -a 4Viewing Current Votes
n15=    echo -a 4Topic:12 %vote.what
n16=    echo -a 12Yes: 4(12> $+ %vote.yes $+ <4)12 No: 4(12> $+ %vote.no $+ <4)12
n17=  }   
n18=  if ( $parm1 == channel ) {
n19=    msg %vote.chan 4Viewing Current Votes
n20=    msg %vote.chan 4Topic:12 %vote.what
n21=    msg %vote.chan 12Yes: 4(12> $+ %vote.yes $+ <4)12 No: 4(12> $+ %vote.no $+ <4)12
n22=  }   
n23=  :end
n24=}
n25=voteresults {
n26=  .disable #vote 
n27=  msg %vote.chan 4Channel Vote Now 12Closed
n28=  msg %vote.chan 4Topic Was:12 %vote.what
n29=  msg %vote.chan 4Results!! 12Yes: 4(12> $+ %vote.yes $+ <4)12 No: 4(12> $+ %vote.no $+ <4)12
n30=  set %vote.yesperc $calc( ( %vote.yes / ( %vote.yes + %vote.no ) ) * 100 )
n31=  set %vote.noperc $calc( ( %vote.no / ( %vote.yes + %vote.no ) ) * 100 )
n32=  set %vote.winner 12!No vote the winner!
n33=  /if ( $calc( %vote.yes > %vote.no ) ) { set %vote.winner 12!Yes vote the winner! }
n34=  ; /if ( $calc( %vote.yes < %vote.no ) ) { set %vote.winner 12!No vote the winner! }
n35=  /if ( %vote.yes == %vote.no ) { set %vote.winner there was no 12outright  winner... }
n36=  msg %vote.chan 4Vote percentages: 12Yes: 4(12> $+ $round(%vote.yesperc, 0) $+ $chr(37) $+ <4)12 No: 4(12> $+ $round(%vote.noperc, 0) $+ $chr(37) $+ <4)12
n37=  describe %vote.chan declares %vote.winner
n38=  .rlevel voted
n39=  set %vote.active no
n40=  unset %vote*
n41=}