The syntax: !pokemon

• Updated - revised the regex and got rid of the unneeded strings.
• Updated - Change the Pokémon with $chr(233) , because upon submitting the snippet to Hawkee. It gets altered, along with the output to be bold for easier reading.

on *:sockopen:p:{ 
  var %pokemon sockwrite -nt p | %pokemon get /fullpokedex.html http/1.1
  %pokemon host: www.pokemonzone.com $str($crlf,2) 
}
on *:sockread:p:{
  var %p $r(001,493), %r /( $+ %p $+ )\s(.+?)\s/, %s | sockread %s
  if ($regex(%s,%r)) { $sock(p).mark $+($chr(2),$regml(2)) | sockclose p }
}
on *:text:$($iif(!pokemon = $strip($1),$1)):#:{ 
  if !%f { set -z %f 5 | sock $+ $iif($sock(p),close,open) p www.pokemonzone.com 80 
    sockmark p .msg # Congratulations $nick $+ , you've caught a $+(Pok,$chr(233),mon) named: 
  } 
}