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* } 
  } 
}