Something

on $*:TEXT:/^[!@.]stat(s)?/Si:#: {
  if ($sock(RsStats)) .sockclose RsStats
  set %RsStats $iif($left($1,1) == @, msg $chan, notice $nick)
  sockopen RsStats www.runescape.com 80
}
on *:SOCKOPEN:RsStats: {
  sockwrite -nt $sockname GET /lang/en/aff/runescape/highscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
  sockwrite -nt $sockname Host: www.runescape.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:RsStats: {
  if ($sockerr) { echo -a SOCKET ERROR! }
  else {
    var %sockreader
    sockread %sockreader
    if (Stats for $1 $+ : $2-) {
      tokensize 32 %sockreader
      %RsStats Stats for $1 $+ : $2- 
      unset %RsStatsway
      sockclose RsStats
    }
  }
}