on *:TEXT:!stats*:#: { sockopen hiscore hiscore.runescape.com 80 | set %user $2 | set %n $nick }
on *:sockopen:hiscore: { 
  sockwrite -n hiscore GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ %user HTTP/1.1
  sockwrite -n hiscore Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:hiscore:{
  if ($sockerr) {
    notice %n Error.
    halt
  }
  else {
    var %temptext
    sockread %temptext
    if (<td align="right">*</td><td align="right"> iswm %temptext) {
      notice %n -
      notice %n Stats for %user $htmlfree(%temptext)
sockclose hiscore
    }
  }
}
on *:sockclose:hiscore: { unset %n | unset %user }
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}