Something

on $*:Text:/^[!@]stats/Si:#: {
  if ($len($2-) < 13) {
    inc %ID
    set $+(%,stat.rsn.,%ID) $replace($2-,$chr(32),_)
    set $+(%,stat.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
    sockopen $+(Stats.,%ID) slushpuppy.silverinterlocution.org 80
  }
}
on *:SockOpen:Stats.*: {
  var %ID = $right($sockname,4)
  sockwrite -n $sockname GET /rsstats.php?stats= $+ $($+(%,stat.rsn.,%ID),2) HTTP/1.1
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org $+ $str($crlf,2)
}
on *:SockRead:Stats.*: {
  var %ID = $right($sockname,4), %display = $($+(%,stat.display.,%ID),2)
  if ($sockerr) %display SockRead Error in $sockname $+ : ( $+ $sockerr $+ )
  else {
    var %read
    sockread %read
    if (*<br>* iswm %read) %display $remove(%read,:,<br>)
  }
}