Mine

ON *:TEXT:!world:#:{
  if ($nick isop $chan) || ($chan == #Heart) || ($network == NitrousIRC) {
    set %pcw.nick
    sockopen world heartunit.org 80
  }
  else {
    You're not allowed to view the Pest Control World.
    halt
  }
}
ON *:SOCKOPEN:world:{
  sockwrite -n world GET /forums/index.php?showtopic=3 HTTP/1.1
  sockwrite -n world Host: heartunit.org $+ $crlf $+ $crlf
}
ON *:SOCKREAD:world:{
  if ($sockerr) {
    notice %pcw.nick Couldn't complete your LookUp, try agian later.
    halt
  }
  else {
    var %temptext
    sockread %temptext
      if (<!--sizeo:5--><span style="font-size:18pt;line-height:100%"><!--/sizeo--><font color="orange"><i>CURRENT</i> PC WORLD: *][~*~][* <!--sizec--></span><!--/sizec--></font><BR><BR>   iswm %temptext) {
        notice %pcw.nick $htmlfree(%temptext)
      }
  }
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}