Stuff

on $*:TEXT:$(/^(?>\Q $+ $me $+ \E,? ?)?([!.@]stats) /Si):#:{
  tokenize 32 $iif($me isin $1,$deltok($1-,1,32),$1-)
  var %multi = $right($ticks,6)
  set %display. [ $+ [ %multi ] ] $iif(@ isin $left($1,1),msg $chan,notice $nick)
  set %statsn.uname. [ $+ [ %multi ] ] $iif(!$2,$readini(rsn.ini,RSN,$nick),$iif($2,$replace($2-,$chr(32),$chr(43)),$replace($nick,$chr(32),$chr(43))))
  sockopen statsme. [ $+ [ %multi ] ] slushpuppy.silverinterlocution.org 80
}
on *:sockopen:statsme.*: {  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname. [ $+ [ $right($sockname,6) ] ] HTTP/1.1  
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:statsme.*: {  
  if ($sockerr) { halt }  
  else {    
    var %stats.output
    sockread %stats.output   
    if (*does not* iswm %stats.output) { %display. [ $+ [ $right($sockname,6) ] ] $colour1(The User You Have Chosen To Lookup Cannot Be Found) }
    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 %overall $1
      var %x = $iif($1 == overall:,3,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. [ $+ [ $right($sockname,6) ] ] $colour1(Stats For) $colour2($titlecase( $+ $replace(%statsn.uname. [ $+ [ $right($sockname,6) ] ],$chr(43),$chr(32)))) $colour1(Total Level) $colour2($iif(%overall == Overall:,$2,-)) $colour1($+ Are As Follows :)
      %display. [ $+ [ $right($sockname,6) ] ] $remove(%y,<br>)
      unset %display. [ $+ [ $right($sockname,6) ] ]
      unset %statsn.uname. [ $+ [ $right($sockname,6) ] ]
      unset %y
      sockclose $sockname
    }  
  }
}