rs 2007 poll

on $*:TEXT:/^[!.@](votes|poll)/Si:#: {
  if ($sock(poll)) sockclose poll
  sockopen poll services.runescape.com 80
  set %poll.chan $chan
}
on *:SOCKOPEN:poll:{
  sockwrite -nt $sockname GET /m=poll/retro_ajax_result HTTP/1.1
  sockwrite -nt $sockname Host: services.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:poll:{
  if ($sockerr) { halt  }
  sockread &t
  if (*votes* iswm $bvar(&t,1-).text) {
    var %pos $bfind(&t,1,123)
    var %pos2 $bfind(&t,%pos,125)
    if (%pos2 != 0) {
      var %sockreader $bvar(&t,$+(%pos,-,$calc(%pos2 + 1))).text
      msg %poll.chan Runescape 2007 votes: $bytes($remove(%sockreader,"votes":,$chr(123),$chr(125)),bd)
    }
  }
}