bluesaxman/deckard-and-company
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' of https://labs.murkfall.net/bluesaxman/deckard-and-company

Browse Source 
forgot to pull
This commit is contained in:
bluesaxman 2020-09-14 13:58:53 -06:00
commit 736f6e6354
1 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
Server/server.pl
View File

@ -127,22 +127,9 @@ sub addPool {
$sessions{$sessionID}{"pools"}{$poolID} = { name => "$poolID", cards => [] };
}
sub reapCards {
my $arrayRef = $_[0];
my @reapedCards = ();
print "Reaping cards";
while(@{$arrayRef}) {
push(@reapedCards,shift(@{$arrayRef}));
print ".";
}
print "Done\nReaped:";
print join(", ",@reapedCards)."\n";
return @reapedCards;
}
sub delPool {
my ($sessionID,$poolID) = @_;
my @reapedCards = reapCards(\@{$sessions{$sessionID}{"pools"}{$poolID}->{cards}});
my @reapedCards = splice($sessions{$sessionID}{"pools"}{$poolID}{cards});
delete($sessions{$sessionID}{"pools"}{$poolID});
return @reapedCards;
}
@ -202,7 +189,7 @@ sub addHand {
sub delHand {
my ($sessionID, $userID, $handID) = @_;
my @leftoverCards = reapCards(\@{$sessions{$sessionID}{"users"}{$userID}->{hands}{$handID}->{cards}});
my @leftoverCards = splice($sessions{$sessionID}{"users"}{$userID}->{hands}{$handID}->{cards});
delete($sessions{$sessionID}{"users"}{$userID}{hands}{$handID});
return @leftoverCards;
}