on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]teststats)/Si):#:{
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  var %multi = $right($ticks,6)
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick)
  set %statsn.uname. [ $+ [ %multi ] ] $iif(!$2,$readini(rsn.ini,RSN,$nick),$iif($2,$replace($2-,$chr(32),$chr(43)),$replace($nick,$chr(95),$chr(43))))
  sockopen stats. [ $+ [ %multi ] ] hiscore.runescape.com 80
}
on *:sockopen:stats.*: {  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /hiscorepersonal.ws?user1= $+ %statsn.uname. [ $+ [ $right($sockname,6) ] ] HTTP/1.1  
  sockwrite -nt $sockname Host: hiscore.runescape.com $crlf $+ $crlf
}
on *:sockread:stats.*: {  
  if ($sockerr) { halt }  
  else {   
    sockread %sx 
    tokenize 32 %sx
    if (*<td align="right">* iswm %sx) {
      var %x = 1
      while (%x < 50) { 
        set %stats $+(%stats,$chr(32),$htmlfree($gettok(%sx,%x,32)))
      inc %x }
    }  
  }
}