Yes this poll script is not original. Im sorry if you dont like that but oh well. I can go through and search the entire poll script and remove the places that give the credit to the guy or i can keep them in, your choice. I do happen to like the clan search script here. The alch script requires a file to be made called thelist.txt.
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)
}
on $*:TEXT:/^[@!.]count$/si:#:{
; add a protection so people cant spam it.
if ($nick isop $chan) || ($nick ishop $chan) {
; msg channel the users in the channel.
msg $chan 4There 2are 4Currently2 $nick($chan,0) 4users 2in 4 $+ $chan $+ .
}
else {
notice $nick 4There 2are 4Currently2 $nick($chan,0) 4users 2in 4 $+ $chan $+ .
}
}
on *:text:!mute *:#: {
if ($nick isop $chan || $nick ishop $chan) {
mode $chan +b $2
mode $chan -o $2
mode $chan -a $2
mode $chan -v $2
mode $chan -h $2
elseif ($nick ishop $chan) && ($2 ishop $chan) {
notice $nick You can't mute ops!
elseif ($2 == $me) {
notice $nick I will not mute myself!
elseif ($nick isreg $chan || $nick isvoice $chan) {
notice $nick Access Denied.
elseif ($me isvoice $chan || $me isreg $chan) {
notice $nick I have to be at least halfop for this!
}
}
}
}
}
}
on *:text:!unmute *:#: {
if ($nick isop $chan || $nick ishop $chan) {
mode $chan -b $2
mode $chan +v $2
elseif ($nick isreg $chan || $nick isvoice $chan) {
notice $nick Access Denied.
elseif ($me isvoice $chan || $me isreg $chan) {
notice $nick I have to be at least halfop for this!
}
}
}
}
on *:ACTION:*slaps*trout*:#:{
if ($2 == $bots) { halt }
inc %tcount
msg $chan 6Air`Bot takes the poor trout from $nick hands and returns it to the stream. Trouts Saved: %tcount $+
I've saved %tcount Trouts.
}
on *:ACTION:*huggle*:#:{
if ($2 == $bots) { halt }
inc %hcount 2
msg $chan 6Air`Bot jumps in and makes it a group huggle with $nick and $2 . People hugged: %hcount
}
on $*:TEXT:/^[!@]alch/Si:#: {
if ($left($1,1) == $chr(33)) { set %return notice $nick }
elseif ($left($1,1) == $chr(64)) { set %return msg $chan }
;## What is the maximum number of results per search? (next line)
set %maxresults 5
set %temp 1
if ($read(thelist.txt,w,$2- $chr(45) *)) { %return Perfect Match: $read(thelist.txt,$readn) | inc %temp }
elseif ($read(thelist.txt,w,$2- $+ s $chr(45) *)) { %return Perfect Match: $read(thelist.txt,$readn) | inc %temp }
while ($read(thelist.txt,w,* $+ $2- $+ *,$calc($readn + 1)) && %temp <= %maxresults) {
%return Match: $read(thelist.txt,w,* $+ $2- $+ *,$readn) | inc %temp
}
if (%temp > %maxresults) { %return Max results exceeded. Please be more specific. }
if (%temp == 1) { %return The item was not found. Check the spelling and try again. }
unset %maxresults %temp %return
}
alias col1 { return $+( $1-,12) }
alias col2 { return $+( $1-,4) }
on *:TEXT:?clan*:#:{
if (!$2) {
notice $nick *** [ $+ $col1(Clan) $+ $col2(]: You must supply a name)
halt
}
elseif ($2 == zezima || $2 == n0valyfe) {
notice $nick *** [$+ $col1(Clan) $+ $col2(]: You are not aloud to do that)
}
else {
inc %x 1
set %clan.name. [ $+ [ %x ] ] $replace($2- ,$chr(32),+)
set %clan.style. [ $+ [ %x ] ] $iif($left($1,1) == @,msg $chan,.notice $nick)
sockopen clan. $+ %x runehead.com 80
}
}
on *:SOCKOPEN:clan.*:{
sockwrite -n $sockname GET /clans/search.php?search= $+ %clan.name. [ $+ [ %x ] ] $+ &searchtype=exact
sockwrite -n $sockname Host: $+(www.runehead.com,$crlf,$crlf)
}
on *:SOCKREAD:clan.*:{
if ($sockerr) {
%clan.style. [ $+ [ %x ] ] *** [ $+ $col1(Clan) $+ $col2(]: Error while connecting)
sockclose $sockname
halt
}
else {
var %tmp
sockread %tmp
if $regex(results,%tmp,/No results were found for the exact search (.*)The exact<\/b> search (.*)<\/b> returned (\d+)/) {
%clan.style. [ $+ [ %x ] ] *** [ $+ $col1(Clan) $+ $col2(]: $regml(results,2)) $col1(result(s) were found for) $col2(%clan.name. [ $+ [ %x ] ])
}
if $regex(clan,%tmp,/
(.*) | /) {
%clan.style. [ $+ [ %x ] ] *** [ $+ $col1(Clan) $+ $col2(]: %clan.name. [ $+ [ %x ] ]) $col1(is in clan:) $col2($regml(clan,2)) $col1($+(http://runehead.com/clans/,$regml(clan,1)))
}
if