Untitled

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 
    If (</a></td> isin %sx) { sockread %sx | sockread %sx | var %x = 1 | set %stats $+(%stats,$chr(32),$stskill(%x),$chr(32),$htmlfree(%sx)) | inc %x 1
    }
  }
}
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,&amp;)
  return %x
}