on $*:TEXT:/^[!](news|rsnews)$/Si:#:{
  sockclose news
  set %output.news $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen news www.runescape.com 80
}

on *:SOCKOPEN:news: {
  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:news: {
  if ($sockerr) { 
    echo -a Socket error
  }
  else {
    var %read.news
    sockread %read.news
    if (<dt><span class="newsdate">*</span>*</dt> iswm %read.news) {
      tokenize 32 $replace(%read.news,<dt><span class="newsdate">,$chr(32),</span>,$chr(32),</dt>,$chr(32))  
      %output.news $1- 
      var %read.news2
      sockread %read.news2
      if (<td style="text-align: justify; vertical-align: top;">*</td> iswm %read.news) {
        tokenize 32 $replace(%read.news2,<td style="text-align: justify; vertical-align: top;">,$chr(32),</td>,$chr(32))
        %output.news $1-
        unset %output.news
        unset %read.news
        sockclose $sockname
      }
    }
  }
}