Blackjack: BJDealCard(recipient,facedown) - File Exchange

Code covered by the BSD License

Highlights from
Blackjack

BJCreateBoard(AllVisible) Creates the Blackjack Playing Board
BJInitValues Creates a GUI that allows the player to determine the initial values to be
BJActionSelect(Action) This function is called when the Hit, Stand and Double boxes are pressed
BJBetSuggest(handles) This function uses the True Count and number of decks in use to determine
BJDealCard(recipient,facedown... This function will deal a card to the dealer
BJDealerHits(handles) Deal Card
BJDetermineWinner Determines the winner of the blackjack hand
BJPlayerHits(handles) Performs the required actions when a player decides to hit, on the hand
BJSetTrueCntColor(handles) Sets the color of the True Count string that is output to the screen based
BJSuggest(UseCount, varargin) This function uses the Player, Dealer, BJOdds and Cards structures to determine
BJUpdateHiLoCount(handles,Car... Updates the Hi-Lo count, where CardSpot is the location of the card in the
HandsLeft(handles) function for updating the value of Bankroll.HandsLeft when the
QuitGame
ShuffleCards(NumDecks) This function takes the number of decks needed as an input, and outputs a
[oarg,varargout]=cardplot(var... CARDPLOT Plot playing cards for card games.
Blackjack.m
View all files

from Blackjack by Michael Iori
Fully functional blackjack simulator

BJDealCard(recipient,facedown)

function BJDealCard(recipient,facedown)
%This function will deal a card to the dealer
%recipient will be set to either 'player' or 'dealer'
%facedown should be 1 if dealing the dealer's face down card

global BJPLAYER
global BJDEALER
global CARDS
global BJBOARD

if ~exist('facedown','var') || ~facedown
    Rank = CARDS.Rank(CARDS.NextCard);
else
    Rank = 0;
end

switch recipient
    case 'player'
        BJPLAYER.NumCards(BJPLAYER.CurrentHand) = BJPLAYER.NumCards(BJPLAYER.CurrentHand) + 1;
        BJPLAYER.Hand(BJPLAYER.CurrentHand,BJPLAYER.NumCards(BJPLAYER.CurrentHand)) = CARDS.NextCard;
        [BJPLAYER.handle(BJPLAYER.NumCards(BJPLAYER.CurrentHand),:,BJPLAYER.CurrentHand),BJPLAYER.Cardx(BJPLAYER.NumCards(BJPLAYER.CurrentHand),BJPLAYER.CurrentHand),BJPLAYER.Cardy(BJPLAYER.NumCards(BJPLAYER.CurrentHand),BJPLAYER.CurrentHand)] ...
            = CardPlot(BJPLAYER.x(BJPLAYER.CurrentHand),BJPLAYER.y(BJPLAYER.CurrentHand),BJBOARD.csize/(BJPLAYER.Splits+1),CARDS.Rank(CARDS.NextCard),CARDS.Suit(CARDS.NextCard));           
        CARDS.CardCount(CARDS.Rank(CARDS.NextCard)) = CARDS.CardCount(CARDS.Rank(CARDS.NextCard)) - 1;
        BJPLAYER.x(BJPLAYER.CurrentHand) = BJPLAYER.x(BJPLAYER.CurrentHand) + BJBOARD.xIncrement/(BJPLAYER.Splits+1);
        BJPLAYER.Total(BJPLAYER.CurrentHand) = BJPLAYER.Total(BJPLAYER.CurrentHand) + CARDS.Value(CARDS.NextCard);
    case 'dealer'
        BJDEALER.NumCards = BJDEALER.NumCards + 1;
        BJDEALER.Hand(BJDEALER.NumCards) = CARDS.NextCard;
        [BJDEALER.handle(BJDEALER.NumCards,:),BJDEALER.Cardx(BJDEALER.NumCards),BJDEALER.Cardy(BJDEALER.NumCards)] ...
            = CardPlot(BJDEALER.x,BJDEALER.y,BJBOARD.csize,Rank,CARDS.Suit(CARDS.NextCard));
        CARDS.CardCount(CARDS.Rank(CARDS.NextCard)) = CARDS.CardCount(CARDS.Rank(CARDS.NextCard)) - 1;
        BJDEALER.x = BJDEALER.x+BJBOARD.xIncrement;
        BJDEALER.Total = BJDEALER.Total + CARDS.Value(CARDS.NextCard);
end

CARDS.NextCard = CARDS.NextCard + 1;
CARDS.CardsLeft = CARDS.CardsLeft - 1;

Highlights from Blackjack

Highlights from
Blackjack