Something

on $*:text:/^[!@]astats/Si:#: { 
  sockclose astats
  if ($2 == $null) { notice $nick 12Specify a valid Runescape 2 username please.
    halt 
  } 
  else {  
    set %stats.display $iif($left($1,1) == @,msg $chan,.notice $nick) 
    set %stats.name $replace($2-,$chr(32),+) 
    sockopen astats www.slushpuppy.silverinterlocution.org 80 
  } 
} 
on *:sockopen:astats: { 
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %stats.name 
  sockwrite -nt $sockname host: www.slushpuppy.silverinterlocution.org 
  sockwrite -nt $sockname $crlf 
} 
on *:sockread:astats: { 
  if ($sockerr) {
    echo -a Error
    socklose $sockname
    halt
    else { 
      var %asockreader 
      sockread %asockreader 
      if (*The combat level for* iswm %asockreader) {
        set %combat %asockreader
        %stats.display %combat
        sockclose $sockname
      }
    }
  }
}