[i]
My version does not use notepad [/i] ^_^

on *:TEXT:*:#:{
  var %pokemon = 1|2|3|4|5|6, %p = $gettok(%pokemon,$rand(1,$numtok(%pokemon,124)),124), %chance = $rand(1,2)
  if ($me == Bot && !pokeball* iswm $strip($1)) {
    if (!%flood) {
      set -zc %flood 30
      .timer 1 1 msg $chan $nick throw a pokeball at %p 
      .timer 1 2 msg $chan the pokeball is glowing
      if (%chance == 1) { .timer 1 4 .msg $chan $nick caught the %p $+ ! }
      if (%chance == 2) { .timer 1 4 .msg $chan the %p escaped! }
    }
    else {
      .notice $nick please wait %flood seconds to use another !pokeball
    }
  }
}