James

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!@.]RsPoll)/Si):#:{
  if ($readini(Status.ini,$network,$chan) == DChan && $remove($1,$chr(44)) != $me) { halt }
  else {
    var %i = $rand(10000,99999)
    set %rspoll.display. $+ %i $&
      $iif($left($iif($remove($1,$chr(44)) == $me,$iif($nick ison $.chan,$2),$1),1) == @,$iif($remove($1,$chr(44)) != $me && $readini(Status2.ini,$network,$chan),.notice $nick,msg $chan),.notice $nick)
    if (($remove($1,$chr(44)) == $me) && ($nick !isop $.chan && $nick !ishop $.chan)) {
      notice $nick Staff command
      halt
    }
    sockopen rspoll. $+ %i poll.runescape.com 80
  }
}
$lon *:SOCKOPEN:rspoll.*:{
  sockwrite -nt $sockname GET /index.ws HTTP/1.1
  sockwrite -nt $sockname Host: poll.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:rspoll.*:{
  var %x = $gettok($sockname,2,46)
  var %read
  sockread %read
  if ($regex(%read,/<b>(.*)<\/b>&nbsp; <b>(.*)<\/b>$/Si)) { %rspoll.display. [ $+ [ %x ] ] $logo $c1(The current RuneScape poll is) $c2($regml(1)) $c1($replace($regml(2),$chr(41),],$chr(40),[))
    sockclose $sockname   
  }
}