Pc

on *:TEXT:@poll:#: { 
  /set %chan $chan 
  /set %nick $nick 
  if ($sock(poll)) { 
    .sockclose poll 
  } 
  /sockopen poll runescape.com 80 

} 
on *:SOCKOPEN:poll: { 
  //sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws 
  //sockwrite -n $sockname Host: runescape.com 
  //sockwrite $sockname $crlf 
} 
on *:SOCKREAD:poll: { 
  if ($sockerr) { 
    .notice %nick There was an error while the socket was being read. ( $+ $sockerr $+ ) 
    /unset %nick | /unset %chan | /halt 
  } 
  else { 
    /var %data 
    /sockread %data 
    /var %newdata = $nohtml(%data) 
    if (*Latest Poll* iswm %newdata) { 
      /var %pos = $calc($pos(%newdata,Latest Poll) - 1) 
      msg %chan 4Latest Poll: $+(12,$right(%newdata,%pos),!,) 
      /unset %nick | /unset %chan 
      /sockclose poll 
      /* Made by TheXX (RAM) Http://thexx.Co.Nr | thexx@army.com 
      Server: Irc.SwiftIRC.net | User: XX/TheXX | Chan: #ram */ 


      } 
      } 
      } 
      alias nohtml { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }