on $*:text:/^[!@]stats*/Si:*: {
  if (!$2) { notice $nick Syntax: !stats RSN }
  elseif ($sock(stats)) {
    .sockclose stats
  }
  set %display $iif($left($1,1) == @,msg $chan,notice $nick)
  set %display1 $iif($left($1,1) == @,msg $chan,notice $nick)
  set %chan $chan
  set %nick $nick
  set %person $2
  sockopen stats slushpuppy.silverinterlocution.org  80
}
on *:SOCKOPEN:stats:{
  sockwrite -nt $sockname GET /rsstats.php?stats=RSN $+ %person $+ &searchtype=exact HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org
sockwrite -nt $sockname $crlf $crlf
}
on *:SOCKREAD:stats:{
if ($sockerr) {
msg $chan ERROR: $sockname $+ . Code: $Sockerr
halt
}
else {
var %sockreader
sockread %sockreader
if ( *'/rsstats.php?stats=*'>*</a></td> iswm %sockreader ) {
%display $c1($htmlfree(%sockreader))
unset %chan
unset %nick
unset %person
}
}
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
return %x
}