Code:
on *:text:!draw:#:{
  var %names Bulbasaur Ivysaur Venusaur Charmander Charmeleon Charizard Squirtle Wartortle Blastoise Caterpie Metapod Butterfree Weedle Kakuna Beedrill
  var %c1 $rand(1,15)
  var %c2 $rand(1,15)
  var %c3 $rand(1,15)
  while (%c2 == %c1) { var %c2 $rand(1,15) }
  while (%c3 == %c1 || %c3 == %c2) { var %c3 $rand(1,15) }
  .msg $chan You drew $gettok(%names, %c1, 32) $+ , $gettok(%names, %c2, 32) $+ , and $gettok(%names, %c3, 32)
}


Uh something like this? I fail to see what the original is suppose to be doing.