Someone

alias lol {
  var %s = 1
  while ($sock($+(rstats.,%s))) inc %s
  .remove $+(rstats.,%s)
  sockopen $+(rstats.,%s) hiscore.runescape.com 80
  sockmark $+(rstats.,%s) $1-
  ; # Retrieve this data with $sock($sockname).mark in the on sockopen/sockread/sockclose
}
on *:SOCKOPEN:rstats.*:{
  sockwrite -nt $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1=zezima HTTP/1.1 $+ $crlf
  sockwrite -nt $sockname $+(Host: hiscore.runescape.com,$str($crlf,2))
}
on *:sockread:rstats.*:{
  if ($sockerr) {
    echo -a error. $sock($sockname).wsmsg
  }
  else {
    sockread &data
    bwrite $sockname -1 &data
  }
}