Code:
on *:text:!draw:#:{
  if ($numtok($($+(%,names.,$nick),2),32) != 10) { set %names. $+ $nick Bulbasaur Ivysaur Venusaur Charmander Charmeleon Charizard Squirtle Wartortle Blastoise Caterpie Metapod Butterfree Weedle Kakuna Beedrill }
  var %i 1
  while (%i <= 5) {
    var % $+ $($+(c,%i),2) $gettok($($+(%,names.,$nick),2), $rand(1,$numtok($($+(%,names.,$nick),2),32)), 32)
    set %names. $+ $nick $remtok($($+(%,names.,$nick),2), $($+(%,c,%i),2), 32)
    inc %i
  }
  .msg $chan You drew %c1 $+ , %c2 $+ , %c3 $+ , %c4 $+ , and %c5 $+ .
  if ($numtok($($+(%,names.,$nick),2),32) == 5) { .msg $chan The remaining cards are $gettok($($+(%,names.,$nick),2), 1, 32) $+ , $gettok($($+(%,names.,$nick),2), 2, 32) $+ , $gettok($($+(%,names.,$nick),2), 3, 32) $+ , $gettok($($+(%,names.,$nick),2), 4, 32) $+ , and $gettok($($+(%,names.,$nick),2), 5, 32) $+ . }
}


This has been bugging me for a couple hours now...this is probably a better version.