James

On $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!@.](RS?)?Stats)/Si):*:{
  tokenize 32 $iif($remove($1,$chr(44)) == $me,$2-,$1-)
  if (!$2) {
    if ($hget(defname,$address($nick,2))) {
      var %x $rand(0,10000000)
      sockopen $+(Stats.,$ticks,%x) rs.facepwn.com 80
      sockmark $+(Stats.,$ticks,%x) $hget(defname,$address($nick,2)) $+ * $+ $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
    }
    else {
      notice $nick Syntax Error: $1 <RSN> $chr(124) $1 (IRC Name)& 
    }
  }
  else {
    var %x $rand(0,10000000)
    sockopen $+(Stats.,$ticks,%x) rs.facepwn.com 80
    sockmark $+(Stats.,$ticks,%x) $iif($2,$iif($right($2,1) == &,$hget(defname,$address($nick,2)),$replace($2,$chr(32),_)),$iif($hget($address($nick,2)),$ifmatch)) $+ * $+ $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
  }
}
}
ON *:SOCKOPEN:Stats.*:{
sockwrite -nt $sockname GET $+(/Parsers/stats.php?user=,$gettok($sock($sockname).mark,1,42),&c1=,$remove($c1,$chr(3)),&c2=,$remove($c2,$chr(3)),&mode=l) HTTP/1.1
sockwrite -nt $sockname Host: rs.facepwn.com
sockwrite -nt $sockname $crlf
}
ON *:SOCKREAD:Stats.*:{
var %Display $gettok($sock($sockname).mark,2,42) , %User $gettok($sock($sockname).mark,1,42) , %Stats
sockread %Stats
if ($sockerr) {
  echo -at Error. $ifmatch
  %display $ifmatch
  sockclose $sockname
}
else {
  if (END isin %Stats) {
    if (User not found isin %read) {
      %display $c2(%User) $c1(is not ranked in any skills)
      sockclose $sockname
    }
    else {
      %display $remove(%Stats,END)
      sockclose $sockname
    }
  }
}}
}