on *:text:!draw:#:{
if ($numtok($($+(%,names.,$nick),2),32) = 0) {
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 2 $+ $nick $+ 's first draw: %c1 $+ , %c2 $+ , %c3 $+ , %c4 $+ , and %c5 $+ .
}
elseif ($numtok($($+(%,names.,$nick),2),32) == 10) {
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 2 $+ $nick $+ 's second draw: %c1 $+ , %c2 $+ , %c3 $+ , %c4 $+ , and %c5 $+ .
}
else {
.msg $chan 2 $+ $nick $+ 's final draw: $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) $+ .
unset %names. $+ $nick
}
}