well for 1 there are way too many names to set to a var
so..

why not have it write all the names to a txt file on load like this

on *:load:{
  if (!$isfile(pokenames.txt)) { 
    write pokenames.txt Bulbasaur
    write pokenames.txt Ivysaur
    write pokenames.txt Venasaur
    write pokenames.txt Charmander
    write pokenames.txt Charmeleon
    write pokenames.txt Charzard
  }
}

then you can just do

on *:text:!Pokemon:#:{ if (!%pokeflood) { set -u3 %pokeflood on | msg # $read(pokenames.txt) $gettok(is caught. Congratulations.|escaped from the pokeball. Darn it!,$r(1,2),124) } }