Mine

on *:TEXT:!rsnews:#:{
  set %nick $nick
  set %chan $chan
  sockopen rsnews runescape.com 80
}
on *:sockopen:rsnews:{
  sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws HTTP/1.1
  sockwrite -n $sockname Host: runescape.com $+ $crlf $+ $crlf
}
on *:sockread:rsnews:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %rsnews
    sockread %rsnews
    if (<dt><span class="newsdate">* iswm %rsnews || </span>*</dt> iswm %rsnews) {
      var %stripped = $nohtml(%rsnews), %rsnewsdate = $gettok(%stripped,1,12), %rsnewstext = $gettok(%stripped,1-,46)
      msg %chan ~ %rsnewsdate ~ %rsnewstext
      sockclose $sockname
      halt
    }
  }
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}