socket

alias sock {
  set %pokemon $1
  if ($sock(serebii)) .sockclose serebii
  sockopen serebii www.serebii.net 80
}
on *:SOCKOPEN:serebii: {
  sockwrite -nt $sockname GET $+(/pokedex-xy/,%pokemon,.shtml) HTTP/1.1
  sockwrite -nt $sockname Host: www.serebii.net
  sockwrite $sockname $crlf
}
on *:sockread:serebii: {
  if ($sockerr) {
    echo -a $sockerr
  }
  else {
    var %read
    sockread %read
    if (%count) dec %count
    if (%count == 3) {
      write fail.txt $right($nohtml(%read) $+ ~ $+ $gettok($read(pkmn.txt,%pokemon),2,32),-2)
    }
    if (%count == 0) {
      write fail.txt $right($nohtml(%read) $+ ~ $+ $gettok($read(pkmn.txt,%pokemon),2,32),-2)
      unset %count
      sockclose serebii
    }
    if (*Flavor Text* iswm %read) {
      set %count 6
    }
  }
}
alias -l nohtml {
  var %z, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;), %z = $replace(%x,&eacute;,$chr(233))
  return %z
}