Anonymous

on $*:TEXT:/^[!@.~]rs(news)$/Si:#:{
  /inc %x
  /set $+(%,rsnewsname,%x) $iif($left($1,1) = @, msg $chan, .notice $nick)
  /sockopen $+(rsnews.,%x) 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.*:{
  /var %read
  /sockread %read
  if (<dt><span class="newsdate">*</span>*</dt> iswm %read) { /set $+(%,rsnewsdh,$gettok($sockname,2,46)) $remove(%read,<dt><span class="newsdate">,</span>,</dt>)
  }
  if (<td style="text-align: justify; vertical-align: top;"> isin %read) { /set $+(%,rsnewsp,$gettok($sockname,2,46)) $remove(%read,<td style="text-align: justify; vertical-align: top;">,</td>)
  }
  if (<div style="margin-top: 0.5em;"><a href="*">Read more...</a></div> isin %read) { /set $+(%,rsnewsurl,$gettok($sockname,2,46)) $remove(%read,<div style="margin-top: 0.5em;"><a href=",">Read more...</a></div>)
  }
  if (<td style="padding-left: 1em; text-align: right; vertical-align: top;"> isin %read) {
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) $c1 $+ Latest $c2 $+ Runescape $c1 $+ News:
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) $c1 $+ Date: $c2 $+ $left($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),11) $c1 $+ Title: $c2 $+ $right($eval($+(%,rsnewsdh,$gettok($sockname,2,46)),2),-11)
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) $c2 $+ Description: $c1 $+ $eval($+(%,rsnewsp,$gettok($sockname,2,46)),2)
    $eval($+(%,rsnewsname,$gettok($sockname,2,46)),2) $c2 $+ URL: $c1 $+ $eval($+(%,rsnewsurl,$gettok($sockname,2,46)),2)
    /unset $+(%,rsnews*,$gettok($sockname,2,46))
    /sockclose $sockname
  }
}