ON *:TEXT:!setpoll*:#:{ if (%pollX [ $+ [ $chan ] ] == ON) { notice $nick 10There is already a poll... Please Wait | halt }
  else { 
    set %maker $+ $chan $nick
    set %channn $+ $chan $chan
    set %poll $+ $chan $2-
    set %pollX $+ $chan ON 
    set %yes $+ $chan 0
    set %no $+ $chan 0
    set %neither $+ $chan 0
    unset %pollN [ $+ [ $chan ] ]
    msg $chan 10 $+ %maker [ $+ [ $chan ] ] has just set a poll for %channn [ $+ [ $chan ] ] $+ . Type !Yes to vote yes, !No to vote no, or !neither if you just dont care. The Poll:4 %poll [ $+ [ $chan ] ]    
  }
}
ON *:TEXT:!finish*:#:{  
  if (%maker [ $+ [ $chan ] ] == $null) { notice $nick 10How can you end a poll that isnt there? | halt }
  if ($nick == %maker [ $+ [ $chan ] ]) {
    unset %maker $+ $chan
    unset %channn $+ $chan
    unset %poll $+ $chan
    unset %pollX $+ $chan
    unset %voted*
    set %pollN $+ $chan OFF
    msg $chan 10The poll for $chan $+ . Final Reasults: Yes:4 %yes [ $+ [ $chan ] ] 4No:12 %no [ $+ [ $chan ] ] 12Neither:4 %neither [ $+ [ $chan ] ] 
    unset %yes [ $+ [ $chan ] ] 
    unset %no [ $+ [ $chan ] ] 
    unset %neither [ $+ [ $chan ] ] 
  }
  else { notice $nick 12Are you4 %maker [ $+ [ $chan ] ] $+ 12? Didnt Think so 
  }  
}
ON *:TEXT:!yes:#:{ 
  if (%pollN [ $+ [ $chan ] ] == OFF) { notice $nick 10There is no poll right now. | halt }
  if (%voted [ $+ [ $chan ] ] == $nick $+ Yes $+ $chan) && (%pollX [ $+ [ $chan ] ] == ON) { notice $nick 12Shame on you, you have already voted! | halt 
  if ($chan == %channn [ $+ [ $chan ] ]) && (%pollX [ $+ [ $chan ] ] == ON) }
  set %yes [ $+ [ $chan ] ] $calc( %yes [ $+ [ $chan ] ] + 1 )
  set %voted $+ $chan $nick $+ Yes $+ $chan
  notice $nick 12Thank you for voting Yes $nick $+ , Total Yes votes:4 %yes [ $+ [ $chan ] ] 
}
ON *:TEXT:!no:#:{ 
  if (%pollN [ $+ [ $chan ] ] == OFF) { notice $nick 10There is no poll right now. | halt }
  if (%voted [ $+ [ $chan ] ] == $nick $+ Yes $+ $chan) && (%pollX [ $+ [ $chan ] ] == ON) { notice $nick 4Shame on you, you have already voted! | halt 
  if ($chan == %channn [ $+ [ $chan ] ]) && (%pollX [ $+ [ $chan ] ] == ON) }
  set %no [ $+ [ $chan ] ] $calc( %no [ $+ [ $chan ] ] + 1 )
  set %voted $+ $chan $nick $+ Yes $+ $chan
  notice $nick 12Thank you for voting No $nick $+ , Total No votes:4 %no [ $+ [ $chan ] ] 
}
ON *:TEXT:!poll:#:{ 
  if (%poll [ $+ [ $chan ] ] == $null) { notice $nick 12There is no Set poll. }
  else { notice $nick 12The Poll is:4 %poll [ $+ [ $chan ] ] }
}
ON *:TEXT:!yesvotes:#:{ if (%yes [ $+ [ $chan ] ] == $null) { notice $nick 10There is no set poll. }
  else { notice $nick 12There are a total of:4 %yes [ $+ [ $chan ] ] 10yes votes. }
}

ON *:TEXT:!novotes:#:{ 
  if (%no [ $+ [ $chan ] ] == $null) { notice $nick 10There is no set poll. }
  else { notice $nick 12There are a total of:4 %no [ $+ [ $chan ] ] 12no votes. }
}
ON *:TEXT:!neither:#:{ 
  if (%pollN [ $+ [ $chan ] ] == OFF) { notice $nick 12There is no set poll. | halt }
  if (%voted [ $+ [ $chan ] ] == $nick $+ Yes $+ $chan) && (%pollX [ $+ [ $chan ] ] == ON) { notice $nick 12Shame on you, you have already voted! | halt 
  if ($chan == %channn [ $+ [ $chan ] ]) && (%pollX [ $+ [ $chan ] ] == ON) }
  set %neither [ $+ [ $chan ] ] $calc( %no [ $+ [ $chan ] ] + 1 )
  set %voted $+ $chan $nick $+ Yes $+ $chan
  notice $nick 10Thank you for voting neither $nick $+ , Total neither votes:4 %neither [ $+ [ $chan ] ] 
}
ON *:TEXT:!neithervotes:#:{ 
  if (%neither[ $+ [ $chan ] ] == $null) { notice $nick 12There is no set poll. }
  else { notice $nick 10There are a total of:4 %neither [ $+ [ $chan ] ] 10neither votes. }
}
ON *:TEXT:!reasults:#:{ if (%pollX [ $+ [ $chan ] ] == ON) { notice $nick 10Current Reasults: Yes:4 %yes [ $+ [ $chan ] ] 12No:4 %no [ $+ [ $chan ] ] 12Neither:4 %neither [ $+ [ $chan ] ] }
  else { if (%pollN [ $+ [ $chan ] ] == OFF) { notice $nick 10There is no set poll.
    }
  }
}


on $*:text:/^[!@.]monster?/Si:#:{
  set %chan $chan
  VAR %q = 1
  WHILE ($Sock($+(monster.,%q))) INC %q
  SET $+(%,monster.,%q,.output) $iif($left($1,1) == @,msg $chan,.notice $nick)  

  sockopen $+(monster.,%q) www.o-ss.net 80
  SockMark $+(monster.,%q) $replace($2-,$chr(32),+)
}


on *:sockopen:monster.*:{
  if ($sockerr > 0) { $($+(%,$sockname,.output),2) 7Socket 14Error | sockclose $sockname | halt }
  sockwrite -nt $sockname GET /parsers/monster.php?monster= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net $+ $crlf $+ $crlf
}

on *:sockread:monster.*:{
  if ($sockerr) msg %chan 7There 14Was 7a 14Socket 7Error 14Getting 7Monster 14Information.7Please 14Try 7again 14Later.
  else { 
    Var %read
    sockread %read 
    if (*Race* iswm %read) { 
      if (*database* iswm %read) { msg %chan 7Search 14Returned 7No 14Results. | /cleanup $sockname | /halt } 
      else { 
        $($+(%,$sockname,.output),2) 14Monster:7 $gettok(%read,1,42) 14 $remove($replace($gettok(%read,2-,42),M:,7Members Only:,Q:,14Quest Only:7),END)  
      } 
    } 
  }
}


on $*:TEXT:/^[@!~`.]count$/si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) { 
    ; msg channel the users in the channel.
    msg $chan 4There 12are 4Currently12 $nick($chan,0) 4users 12in 4 $+ $chan $+ .
  } 
  else {
    notice $nick 4There 12are 4Currently12 $nick($chan,0) 4users 12in 4 $+ $chan $+ .
  }
}