I need help with those line of code from SIMSIMP.BAS
Ok, this code has been taken from SIMSIMP.BAS.
I need help with those line of code. How to set-up to have the player�s first two cards to be 2 Aces and the dealer�s up card to be a Ten?
I appreciate.
Robin
===============================
' Deal a round of cards
Handnum = 1
FOR P = 1 TO Players ' Player's
CardNum = 0 ' first
HardTotal(P, 1) = 0: AceFlag(P, 1) = 0 ' card
GOSUB DealOne
NEXT P
P = 0 ' Dealer's
CardNum = 0 ' first
HardTotal(0, 1) = 0: AceFlag(0, 1) = 0 ' card
GOSUB DealOne: Upcard = Hit
FOR P = 1 TO Players
CardNum = 1 ' Player's
GOSUB DealOne ' second
NumHands(P) = 1 ' card
NumCards(P, 1) = 2
NEXT P
P = 0 ' Dealer's
CardNum = 1 ' second
GOSUB DealOne: HoleCard = Hit ' card
NumCards(0, 1) = 2