Bocks

alias bocks {
  sockopen Smog www.smogon.com 80
  set %move $$1-
}
on *:sockopen:Smog: {
  sockwrite -nt Smog GET /forums/showpost.php?p=3290505&postcount=4 HTTP/1.0
  sockwrite -nt Smog Host: www.smogon.com
  sockwrite -nt Smog $crlf
}
on *:sockread:Smog: {
  var %text
  sockread %text
  if (%found == 3) {
    echo -a 09[ $+ $time $+ ] <MoveBot> %text
    unset %found
    unset %move
    sockclose Smog
  }
  if (%found == 2) {
    inc %found 1
    echo -a 09[ $+ $time $+ ] <MoveBot> $nohtml(%text)
  }
  if (%found == 1) inc %found 1
  if ($+(<b>,%move,$chr(58),</b>,<br />) isin %text) {
    inc %found 1
    echo -a 09[ $+ $time $+ ] <MoveBot> $nohtml(%text)
  }
}
alias -l nohtml {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}