Unnamed

on *:text:!Recent:#:{
  set %RunescapeNews Today we're upgrading the way website logins work. Building
  sockclose RunescapeNews
  sockopen RunescapeNews www.runescape.com 80
}

ON *:SOCKOPEN:RunescapeNews:{
  sockwrite -nt $sockname GET /detail.ws HTTP/1.1 
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf 
}

on *:SOCKREAD:RunescapeNews:{ 
  if ($sockerr) { 
    echo -a Error. 
    sockclose $sockname 
    halt 
  } 
  else { 
    var %RunescapeNews
    sockread %RunescapeNews
    if (Today we're upgrading the way website logins work. Building isin %RunescapeNews) { 
      tokenize 32 $htmlfree(%RunescapeNews)
      %RunescapeNews Recent Runescape News: 
      %RunescapeNews $1-
      sockclose $sockname 
    } 
  } 
} 
ON *:SOCKCLOSE:RunescapeNews:{ 
  unset %RunescapeNews 
} 
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ) 
  return %x 
}