on *:TEXT:!stats *:#:{ 
  if ($sock(stats)) { 
    sockclose stats 
  } 
  set %nick $nick 
  set %rsn $2 
  set %display $iif($left($1,1) == @,msg $chan,.notice $nick) 
  sockopen stats slushpuppy.silverinterlocution.org 80 
} 
on *:SOCKOPEN:!stats:{ 
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %rsn HTTP/1.1 
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf 
} 
on *:SOCKREAD:!stats:{ 
  if ($sockerr) { %display Socket error | unset %display | unset %rsn | sockclose $sockname | halt } 
  else { 
    var %read 
    sockread -f %read 
    if (*Overall* iswm %read) { 
      /set %read $remove(%read,<br />) 
%display $htmlfree(%read) } } }
on *:JOIN:#:{set %whois $chan whois $nick } }