alias stats {
  sockopen Smo www.smogon.com 80
  set %:o $$1-
}
on *:sockopen:Smo: {
  sockwrite -nt Smo GET /forums/showpost.php?p=3290499&postcount=2 HTTP/1.0
  sockwrite -nt Smo Host: www.smogon.com
  sockwrite -nt Smo $crlf
}
on *:sockread:Smo: {
  var %text
  sockread %text
  if (!$sockbr) return
  if (%found <= 7) {
    if ($+(* $+ %:o $+ *<br />*) iswm %text) {
      echo -a 09[ $+ $time $+ ] <CharScript> $nohtml(%text)
      inc %found
    }
  }
  else {
    socksclose Smo
    unset %:o
  }
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}