uhh just looking for a site u could get the details from, here's 1 http://www.dragonflycave.com/names.aspx

Or because i am nice, u can get it from here:
https://docs.google.com/leaf?id=0B7Cj8D_ZMGV3YjUzNTJhOTYtMDYzMy00Mjc4LTk4MzctMTUzOTZhNWY3MWFh&hl=en

if you do use that file then remember to save it in to your mirc folder

Also here is a sample of what you could do

on *:TEXT:*:#:{
  if $1 == !poke {
    var %a $iif($len($2) == 1,$+(00,$2)) $iif($len($2) == 2,$+(0,$2)) $iif($len($2) == 3,$2)
    if !$readini(poke.ini, Names, %a) { notice $nick Number %a is not valid }
  else { notice $nick   $+($me,'s) Pokedex  1,4 $+(:,%a,:) $readini(poke.ini, Names, %a) } }
  if $1 == !rpoke { var %a $ini(poke.ini,names,0) | var %b $rand(1,%a) | var %c $iif($len(%b) == 1,$+(00,%b)) $iif($len(%b) == 2,$+(0,%b)) $iif($len(%b) == 3,%b) | notice $nick  $+($me,'s) Pokedex 1,4 $+(:,%c,:) $readini(poke.ini, Names, %c) } 
}

!poke or !rpoke for a random selection