Here ya go, if you're looking into some Pokemon stuff for mIRC, here is some older stuff I wrote a few years back for my channel bot. Use whatever you want/need for your project. 8)

PokeDex
http://www.hawkee.com/snippet/8863/

And

(use !catch or !pokeball meant for use on a channel bot.)

;Pokeball III
;by Neo Nemesis

on *:TEXT:*:#: {
  if ($strip($1) == !pokeball) || ($strip($1) == !catch) {
    if ($2) && (!%poke) {
      .timerp1 1 1 msg $chan 7 $+ $nick 6throws a pokeball at4 $2- $+ 7!!!
      %poke = $rand(1,6)
      if (%poke == 1) || (%poke == 6) {
        .timerp2 1 3 msg $chan 7*!* RUMBLE *!*
        .timerp3 1 4 msg $chan 4 $+ $2- 6broke free!
        .timerpa 1 5 unset %poke
      }
      if (%poke == 3) || (%poke == 5) {
        .timerp4 1 3 msg $chan 7*!* RUMBLE *!*
        .timerp5 1 5 msg $chan 4*!* RUMBLE *!*
        .timerp6 1 6 msg $chan 4 $+ $2- 6broke free! It appeared to be caught!
        .timerpa 1 7 unset %poke
      }
      if (%poke == 4) || (%poke == 2) {
        .timerp7 1 3 msg $chan 7*!* RUMBLE *!*
        .timerp8 1 5 msg $chan 4*!* RUMBLE *!*
        .timerp9 1 7 msg $chan 5*!* RUMBLE *!*
        .timerp10 1 8 msg $chan 7 $+ $nick 6caught a4 $2-  $+ 7!!!
        .timerpa 1 9 unset %poke
      }
    }
  }
}