Author Topic: Blackjack game (unfortunately variable names compressed) (Read 4533 times)

qbguy · « **on:** October 06, 2018, 09:21:08 pm »

Code: QB64: [Select]

DECLARE SUB M ()
DECLARE SUB N (Y!)
DECLARE SUB O ()
DECLARE FUNCTION P! (W!)
DECLARE FUNCTION Q% ()
DECLARE FUNCTION R$ (W!)
RANDOMIZE TIMER
DIM SHARED A(1 TO 52), B(0 TO 16, 1 TO 16), C(0 TO 16)
DIM SHARED D(0 TO 16), E(1 TO 16)
DIM SHARED G
F = 1000
G = 0
CALL M
CLS
DO
FOR I = 0 TO 16
C(I) = 0
FOR J = 1 TO 16
B(I, J) = 0
E(J) = 0
NEXT
NEXT
PRINT "Your money: "; F
E(1) = -1
WHILE E(1) < 0 AND E(1) <= 1000
INPUT "Wager"; E(1)
IF E(1) < 0 THEN PRINT "Bet must be nonnegative."
IF E(1) > 1000 THEN PRINT "Max bet $1000."
WEND
H = 1
K = 1
N 0
N 0
N 1
N 1
O
PRINT "Dealer Upcard: "; R$(B(0, 1))
PRINT "Your hand:"; R(B(1, 1)); R(B(1, 2))
PRINT
 
IF B(0, 1) = 11 THEN
1 INPUT "Would you like insurance"; X$
X$ = UCASE$(LTRIM$(RTRIM$(X$)))
SELECT CASE X$
CASE "Y", "YES", "AYE", "YUP", "YEAH", "OUI", "JA", "SI"
L = .5 * E(1)
CASE "N", "NAY", "NOPE", "NO", "NEIN", "NYET", "NON"
L = 0
CASE ELSE
GOTO 1
END SELECT
END IF
IF D(0) = 21 THEN
PRINT "Dealer Blackjack."
IF D(1) <> 21 THEN F = F - E(1)
IF L > 0 THEN
PRINT "You get "; L * 2; "from insurance"
F = F + L * 2
L = 0
END IF
GOTO 4
ELSEIF D(1) = 21 THEN
IF L > 0 THEN
PRINT "You lose the insurance bet"
F = F - L
L = 0
END IF
PRINT "Blackjack!"
F = F + E(1) * 1.5
GOTO 4
ELSEIF L > 0 THEN
PRINT "You lose the insurance bet"
F = F - L
L = 0
END IF
DO WHILE H <= K
2 LINE INPUT "Your move:"; X$
X$ = LTRIM$(RTRIM$(UCASE$(X$)))
SELECT CASE X$
CASE "HIT", "H"
N H
O
IF D(H) >= 21 THEN H = H + 1
CASE "STAND", "S"
H = H + 1
CASE "DOUBLE", "D"
E(H) = E(H) * 2
N H
O
H = H + 1
CASE "SPLIT", "P"
IF (P(B(H, 1)) <> P(B(H, 2))) OR (C(H) <> 2) THEN
PRINT "You cannot split."
GOTO 2
ELSE
B(K + 1, 1) = B(H, 2)
C(K + 1) = 1
N K + 1
B(H, 2) = 0
C(H) = 1
N H
K = K + 1
E(K) = E(H)
O
END IF
CASE "QUIT", "Q", "BYE", "ADIOS"
SYSTEM
CASE ELSE
PRINT "Invalid Selection"
GOTO 2
END SELECT
PRINT "Dealer Upcard: "; R$(B(0, 1))
FOR I = 1 TO K
PRINT "Hand"; I; ": ";
FOR J = 1 TO C(I)
PRINT R(B(I, J));
NEXT
IF H = I THEN PRINT "<- Current hand ";
PRINT "(Sum ="; D(I); ")"
NEXT
PRINT
LOOP
PRINT "Dealer's hand:"; R$(B(0, 1)); R$(B(0, 2));
3 O
IF D(0) < 17 THEN
T = TIMER + .5
WHILE T < TIMER
WEND
N 0
PRINT R$(B(0, C(0)));
GOTO 3
END IF
FOR I = 1 TO K
IF D(I) > 21 THEN
PRINT "Bust on Y"; I
F = F - E(I)
ELSEIF D(0) > 21 THEN
PRINT "Dealer bust: win on Y"; I
F = F + E(I)
ELSEIF D(I) > D(0) THEN
PRINT "Win on Y"; I
F = F + E(I)
ELSEIF D(I) < D(0) THEN
PRINT "Lose on Y"; I
F = F - E(I)
ELSE
PRINT "Push on Y"; I
END IF
NEXT
4 LOOP
 
SUB M
FOR I = 1 TO 52
A(I) = I
NEXT
J = 52
DO
K = INT(J * RND(1)) + 1
SWAP A(K), A(J)
J = J - 1
LOOP WHILE J > 1
END SUB
 
SUB N (Y)
C(Y) = C(Y) + 1
B(Y, C(Y)) = Q
END SUB
 
SUB O
FOR I = 0 TO K + 1
T = 0
S = 0
FOR J = 1 TO C(I)
X = P(B(I, J))
S = S + X
IF X = 11 THEN T = T + 1
NEXT
DO WHILE (S > 21 AND T > 0)
S = S - 10
T = T - 1
LOOP
D(I) = S
NEXT
END SUB
 
FUNCTION P (W)
V = (W MOD 13) + 1
SELECT CASE V
CASE 1
P = 11
CASE 2 TO 10
P = V
CASE 11 TO 13
P = 10
END SELECT
END FUNCTION
 
FUNCTION Q%
IF G = 52 THEN M: G = 0
G = G + 1
Q = A(G)
END FUNCTION
 
FUNCTION R$ (W)
DIM SUIT AS STRING
SUIT = CHR$(((W - 1) \ 13) + 3)
V = 1 + (W MOD 13)
SELECT CASE V
CASE 1
R$ = "A" + SUIT + " "
CASE 2 TO 10
R$ = LTRIM$(STR$(V)) + SUIT + " "
CASE 11
R$ = "J" + SUIT + " "
CASE 12
R$ = "Q" + SUIT + " "
CASE 13
R$ = "K" + SUIT + " "
END SELECT
END FUNCTION
 
 

News:

Author Topic: Blackjack game (unfortunately variable names compressed) (Read 4533 times)

qbguy

Blackjack game (unfortunately variable names compressed)