Unnamed

on $*:TEXT:/^[!@]rsnews/Si:#:{
  set %msg $iif(!*iswm $1-,notice $nick,msg $nick)
  set %nick $nick
  set %chan $chan
  sockopen rsnews runescape.com 80
}

on *:SOCKOPEN:rsnews:{
  sockwrite -n $sockname GET /lang/en/aff/runescape/title.ws HHTP/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) iswm %rsnews) {
    %msg %chan %rsnews }
    else {
      echo -a -
      echo -a $htmlfree(%rsnews)
    }
  }
}

alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}