Mine

on $*:TEXT:/^[!@]stats .{1,12}$/Si:*:{
  ;################################
  ;# CHANGE  THE  NUMBER  IN  THE #
  ;# VARIABLE  BELOW TO  EDIT THE #
  ;#  COLOR  USED  IN  MESSAGES.  #
  ;################################

  set %_lookupmsgcol 3

  ;################################

  inc %_lookups 1
  set $+(%,lookup.,%_lookups) $replace($2-,$chr(32),+) $iif($chan,$iif($left($1,1) == @,msg $chan,notice $nick),msg $nick)
  sockopen $+(lookup.,%_lookups) www.rscript.org 80
}
on *:SOCKOPEN:lookup.*:{
  sockwrite -nt $sockname GET /lookup.php?type=stats&user= $+ $gettok($($+(%,lookup.,%_lookups),2),1,32) HTTP/1.0 
  sockwrite -nt $sockname User-Agent: RuneScript Public (Crawler Bot; rscript.org;)
  sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf 
}
on *:SOCKREAD:lookup.*:{
  var %id = $right($sockname,-7)
  var %username = $gettok($($+(%,lookup.,%id),2),1,32)
  var %target = $gettok($($+(%,lookup.,%id),2),2-,32)
  if ($sockerr) { %target Socket error: $sockerr (BUILD ID: %id $+ ) }
  else {
    var %read | sockread %read
    tokenize 32 $remove(%read,Stat:)
    if ($0 == 4) { set $+(%,lookupmsg.,%id) $($+(%,lookupmsg.,%id),2) $chr(124) $+($1,:) $_col($3) }
    elseif (Not Ranked isin $1-) { return }
    elseif ($($+(%,lookupmsg.,%id),2)) { %target Stats for $replace($_col(%username),+,$chr(32)) $+ : $right($($+(%,lookupmsg.,%id),2),-2) | sockclose $sockname | unset %lookup* }
  }
}
alias _col { return $+($chr(3),$iif(%_lookupmsgcol isnum 0-15,$iif($len(%_lookupmsgcol) == 2,%_lookupmsgcol,$+(0,%_lookupmsgcol)),07),$1-,$chr(3)) }