alias addsilent {
  %poll.silent = $iif(!$1,$active,$1-
}

on *:JOIN:#:{
  if (%poll.joinflood == 1) { halt }
  else {
    if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,poll,question) != $null) {
      .notice $nick A poll is active. The poll question is:2 $&
        $readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,POLL,question) $& 
        $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
      set -u60 %poll.joinflood 1
    }
  }
}
on $*:TEXT:/^[@!\.]p(oll)? ?(stats|standings)/Si:#:{
  if (%poll.flood. [ $+ [ $saddress($nick) ] ] == 1) halt
  if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,poll,question) != $null) {
    var %result,%s,%yes %poll.yes. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ],%no %poll.no. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
    if (%yes == $null) %yes = 0
    if (%no == $null) %no = 0
    var %t $calc(%yes + %no)
    if (%yes == %no) {
      msg $chan Currently, there is a 7TIE ( $+ %yes yes and no votes $+ )
      var %tie 1
    }
    elseif (%no > %yes) {
      %result = 7NO
      %s = ( $+ $+(%yes yes vote,$iif(%yes != 1,s),14 $chr(91),$round($calc(%yes / %t *100),2),$chr(37),$chr(93)) $&
        and %no no $+(vote,$iif(%no != 1,s),14 $chr(91),$round($calc(%no / %t *100),2),$chr(37),$chr(93),) $+ )
    }
    else {
      %result = 7YES
      %s = ( $+ $+(%yes yes vote,$iif(%yes != 1,s),14 $chr(91),$round($calc(%yes / %t *100),2),$chr(37),$chr(93)) $&
        and %no no $+(vote,$iif(%no != 1,s),14 $chr(91),$round($calc(%no / %t *100),2),$chr(37),$chr(93),) $+ )
    }
    if (%tie != 1) {
      msg $chan Currently %result is winning! %s
    }
  }
}
on $*:TEXT:/^[@!\.]poll (-t)?/Si:#:{
  if ($chan != #idle) {
    var %display $iif($left($1,1) == @,msg $chan,notice $nick)
    if ($chan isin %silent) && ($left($1,1) == @) && ($nick !isop $chan || $nick !ishop $chan) {
      %display = .notice $nick
    }
    if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,poll,question) != $null) {
      if ($2 == question) {
        %display The poll question is:2 $&
          $readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,POLL,question) $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2)) 
        halt
      }
      else { 
        %display A poll is allready active in this channel $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
      }
    }
    elseif (!$2) %display A question needs to be polled $& 
      $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
    elseif ($left($2,2) == -t && !$3) { %display You need to set a time $& 
      $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2)) }
    elseif ($left($2,2) == -t && $right($2,-2) isnum .99+) {
      %display The time must be higher than 1 $& 
        $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
    }
    else {
      writeini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini POLL question $iif($left($2,2) == -t,$3-,$2-)
      set %poll.time. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] $&
        $iif($left($2,2) == -t,$right($2,-2),10)
      set %poll.active. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] tru dat wigga
      .timerpoll.timer. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] 1 $&
        $calc(%poll.time. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] * 60) poll.results $chan $network
      msg $chan A poll has been started by12 $nick $+ ! It will run for $&
        %poll.time. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] minutes. The question is2 $iif($left($2,2) == -t,$3-,$2-)
      %display If you dont know how poll scripts work, go to http://www.freewebs.com/owwscript/poll.htm
    }
  }
}

on $*:TEXT:/^[@!\.](y|n)/Si:#:{
  var %display.v $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($chan isin %poll.silent) && ($left($1,1) == @) && ($nick !isop $chan || $nick !ishop $chan) {
    %display.v = .notice $nick
  }
  if (%poll.flood. [ $+ [ $saddress($nick) ] ] == 1) haltdef
  if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,poll,question) != $null) {
    if (%poll.flood. [ $+ [ $saddress($nick) ] ] != 1) {
      set -u60 %poll.flood. [ $+ [ $saddress($nick) ] ] 1
    }
    if ($right($left($1,2),-1) == y) {
      if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,yes,$saddress($nick)) == yes) {
        %display.v $nick $+ $chr(58) You have allready voted in this poll $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
      }
      elseif ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,no,$saddress($nick)) == no) {
        %display.v $nick $+ $chr(58) Your vote has been changed to7 YES  $+ $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
        writeini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini yes $saddress($nick) yes
        remini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini no $saddress($nick)
        inc %poll.yes. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
        dec %poll.no. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
      }
      else {
        writeini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini yes $saddress($nick) yes
        %display.v  $+ $nick $+ $chr(58) Your7 YES vote has been counted. $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
        inc %poll.yes. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
      }
    }
    elseif ($right($left($1,2),-1) == n) {
      if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,no,$saddress($nick)) == no) {
        %display.v $nick $+ $chr(58) You have allready voted in this poll $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
      }
      elseif ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,yes,$saddress($nick)) == yes) {
        %display.v $nick $+ $chr(58) Your vote has been changed 7 NO $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
        writeini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini no $saddress($nick) no
        remini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini yes $saddress($nick)
        inc %poll.no. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
        dec %poll.yes. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
      }
      else {
        writeini poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini no $saddress($nick) no
        %display.v  $+ $nick $+ $chr(58) Your7 NO vote has been counted. $& 
          $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
        inc %poll.no. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ]
      }
    }
  }
}
on $*:TEXT:/^[@!\.]e(nd)? ?(poll)/Si:#:{
  var %display.ep $iif($left($1,1) == @,msg $chan,.notice $nick)
  if ($chan isin %poll.silent) && ($left($1,1) == @) && ($nick !isop $chan || $nick !ishop $chan) {
    %display.ep = .notice $nick
  }
  if ($readini(poll- [ $+ [ $chan ] $+ ] - [ $+ [ $network ] $+ ] .ini,poll,question) != $null) {
    poll.results $chan $network
    .timerpoll.timer. [ $+ [ $chan ] $+ ] . [ $+ [ $network ] ] off
  }
  else {
    %display.ep No poll is active for this channel! $& 
      $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
  }
}

alias poll.results { 
  var %result,%yes %poll.yes. [ $+ [ $1 ] $+ ] . [ $+ [ $2 ] ],%no %poll.no. [ $+ [ $1 ] $+ ] . [ $+ [ $2 ] ]
  if (%yes == $null) %yes = 0
  if (%no == $null) %no = 0
  var %t $calc(%yes + %no)
  msg $1 The poll has ended!
  msg $1 The question was:2 $readini(poll- [ $+ [ $1 ] $+ ] - [ $+ [ $2 ] $+ ] .ini,POLL,question)
  if (%yes == %no) {
    %result = 7TIE ( $+ %yes yes and no votes $+ )
  }
  elseif (%no > %yes) {
    %result = 7NO wins! ( $+ $+(%yes yes vote,$iif(%yes != 1,s),14 $chr(91),$round($calc(%yes / %t *100),2),$chr(37),$chr(93)) $&
      and %no no $+(vote,$iif(%no != 1,s),14 $chr(91),$round($calc(%no / %t *100),2),$chr(37),$chr(93),) $+ )
  }
  else {
    %result = 7YES wins! ( $+ $+(%yes yes vote,$iif(%yes != 1,s),14 $chr(91),$round($calc(%yes / %t *100),2),$chr(37),$chr(93)) $&
      and %no no $+(vote,$iif(%no != 1,s),14 $chr(91),$round($calc(%no / %t *100),2),$chr(37),$chr(93),) $+ )
  }
  msg $1 The poll result was $+ $chr(58) %result $& 
    $+($chr(2),$chr(91),$chr(3),12,$chr(79),$chr(119),$chr(119),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(3),$chr(93),$chr(2))
  unset %poll.*. [ $+ [ $1 ] $+ ] . [ $+ [ $2 ] ]
  .remove poll- [ $+ [ $1 ] $+ ] - [ $+ [ $2 ] $+ ] .ini
}

alias saddress {
  if (.ipt.aol.com isin $address($1,2)) return $address($1,3)
  elseif (.phil.east.verizon.net isin $address($1,2)) return $address($1,3)
  else return $address($1,2)
}