Mine

on *:text:!rsnews*:#: {
if ($sock(RSNews)) .sockclose RSNews
set %chan $chan
sockopen RSNews www.runescape.com 80
}
on *:SOCKOPEN:RSNews: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:RSNews: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ . Error code: $sockerr Please inform Shakaraja of this error message.
    halt
  }
  var %sockreader
  sockread %sockreader
  if (*http://news.runescape.com/newsitem.ws?id* iswm %sockreader) {
    var %read | sockread %read
    /msg %chan $htmlfree(%read)
    unset %chan
    sockclose $sockname
  }
}
alias -l htmlfree { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
}