Anonymous

on $*:TEXT:/^[!~@']stats*/Si:#: { 
  if (%rsoff [ $+ [ $chan ] ] == off) { halt } 
  set %notice.nick $nick
  set %display $iif(@* iswm $1,msg $chan,notice $nick)  
  set %statsn.uname $iif($2,$replace($2-,$chr(32),$chr(43)),$nick)   
  sockopen stats www.slushpuppy.silverinterlocution.org 80
}
on *:sockopen:stats:{  
  if ($sockerr) { halt }  
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname HTTP/1.1  
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:stats:{  
  if ($sockerr) { halt }  
  else {    
    var %stats.output
    sockread %stats.output    
    if (*overall* 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 07 Stats For 04 $+ $replace(%statsn.uname,$chr(43),$chr(32)) 07 $+ Are As Follows :
    %display $remove(%stats.output,<br>)
    /sockclose STATS
  }  
}