Something

on $*:Text:/^[!@]rsstats/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 $+(Stat.,%ID) slushpuppy.silverinterlocution.org 80
  }
}
on *:SockOpen:Stat.*: {
  var %ID = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ $($+(%,stat.rsn.,%ID),2) HTTP/1.1
  sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf
}
on *:SockRead:Stat.*: {
  var %ID = $gettok($sockname,2,46), %display = $($+(%,stat.display.,%ID),2)
  if ($sockerr) %display SockRead Error in $sockname $+ : ( $+ $sockerr $+ )
  else {
    var %read
    sockread %read
    if (*<br>* iswm %read) {
      tokenize 32 $remove(%read,:,<br>)
      %display $1-
    }
  }
}