on $*:text:/^[!@.]stats?/Si:#:{
  set %chan $chan
  if ((%publicoff [ $+ [ $chan ] ]) && ($left($1,1) == @)) { halt } 
  VAR %y = 1
  WHILE ($Sock($+(rsstats.,%y))) INC %y
  SET $+(%,rsstats.,%y,.output) $iif($left($1,1) == @,msg $chan,.notice $nick)  

  sockopen $+(rsstats.,%y) www.rscript.org 80
  SockMark $+(rsstats.,%y) $replace($2-,$chr(32),+)
}


on *:sockopen:rsstats.*:{
  if ($sockerr > 0) { $($+(%,$sockname,.output),2) 7Socket 14Error | sockclose $sockname | halt }
  sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -nt $sockname Host: www.rscript.org $+ $crlf $+ $crlf
}

on *:sockread:rsstats.*:{
  var %pskill. [ $+ [ $nick ] ] $skill($remove($1,$left($1,1)))
  Var %read
  sockread %read 
  if ($gettok($remove(%temp [ $+ [ $right($sockname,-6) ] ],Stat:),1,32) == %pskill. [ $+ [ $right($sockname,-6) ] ]) {
    else { 
      $($+(%,$sockname,.output),2) 14Stats For6 $sock($sockname).mark $+ :7 $gettok(%read,1,42) 14 $remove($replace($gettok(%read,2-,42) 
    } 
  } 
}