Added deck generation code
This commit is contained in:
parent
e003d06b23
commit
df4572115f
@ -28,9 +28,34 @@ sub generateSession {
|
||||
return $newSession;
|
||||
}
|
||||
|
||||
sub generateSingle {
|
||||
my $DDF = shift;
|
||||
my @cards = ("");
|
||||
for (@$DDF) {
|
||||
my @tempcards = ();
|
||||
my %datablock = %$_;
|
||||
for (@cards) {
|
||||
my $current = $_;
|
||||
for (@{$datablock{data}}) {
|
||||
push(@tempcards,$current.$_);
|
||||
}
|
||||
}
|
||||
@cards = @tempcards;
|
||||
}
|
||||
return @cards;
|
||||
}
|
||||
|
||||
sub generateDeck {
|
||||
my $DDF = from_json(shift);
|
||||
# Add proper handling for reading of DDFs
|
||||
if ("ARRAY" eq ref($DDF->[0])) {
|
||||
my @deck = ();
|
||||
for (@$DDF) {
|
||||
push(@deck,generateSingle($_));
|
||||
}
|
||||
return @deck;
|
||||
} else {
|
||||
return generateSingle($DDF);
|
||||
}
|
||||
}
|
||||
|
||||
sub shuffle {
|
||||
|
Loading…
x
Reference in New Issue
Block a user