Miscellany

on $*:text:/^[!@]rsstats/Si:#: {
  set %stats.style $iif($left($1,1) == @,.msg $chan,.notice $nick)
  set %stats.user $replace($2-,$chr(32),$chr(95))
  set %stats.nick $nick
  sockopen rsstats rscript.org 80
}
on *:sockopen:rsstats: {
  sockwrite -nt $sockname Get /lookup.php?type=stats&user= $+ %stats.user  HTTP/1.1 
  sockwrite -nt $sockname Host: rscript.org $+ $crlf $+ $crlf
}
on *:sockread:rsstats: {
  if ($sockerr) { return }
  var %read
  sockread %read
  echo -a %read
  tokenize 32 %read
  if (*STAT:Overall* iswm %read) {
    set %stats.return %stats.return $c1(Overall:) $c2($2)
  }
  if (*end* iswm %read) {
    %stats.style %stats.return
  }
}