Mine

on $*:TEXT:/^[!~@']stats*/Si:#: { 
  if (%rsoff [ $+ [ $chan ] ] == off) { halt }
  var %multi = $right($ticks,6)
  set %display. [ $+ [ %multi ] ] $iif(@* iswm $1,msg $chan,notice $nick)  
  set %statsn.uname. [ $+ [ %multi ] ] $iif($2,$replace($2-,$chr(32),$chr(43)),$nick)   
  sockopen stats. [ $+ [ %multi ] ] slushpuppy.silverinterlocution.org 80
}
on *:sockopen:stats.*:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname. [ $+ [ %multi ] ] HTTP/1.1  
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:stats.*:{  
  if ($sockerr) { halt }  
  else {    
    var %stats.output
    sockread %stats.output   
    if (*overall* iswm %stats.output) || (*strength* iswm %stats.output) || (*defense* iswm %stats.output) || (*fletching* iswm %stats.output) || (*cooking* iswm %stats.output) || (*firemaking* iswm %stats.output) || (*fishing* iswm %stats.output) {    
      tokenize 32 %stats.output    
      var %x = 1, %y 
      while (%x < $numtok(%stats.output,32)) { 
        set %y $+(%y,$chr(32),$colour1($gettok(%stats.output,%x,32)),$chr(32),$colour2($gettok(%stats.output,$calc(%x + 1),32))) 
      inc %x 2 } 
      %display. [ $+ [ %multi ] ] $colour1(Stats For) $colour2($titlecase( $+ $replace(%statsn.uname. [ $+ [ %multi ] ],$chr(43),$chr(32)))) $colour1($+ Are As Follows :)
      %display. [ $+ [ %multi ] ] $remove(%y,<br>)
      /sockclose STATS. [ $+ [ %multi ] ]
    }  
  }
}