Card Game 21

[SierraKen]

Hi all. Today I worked all day on my really old card game of 21. You play against the computer.  I converted it from the ASIC 5.0 computer language (which was a lot like GW-BASIC with a tiny compiler). I made it much better with QB64. After testing it dozens of times lol I think there's no problems with it, but if you find any, please tell me. Thanks. I added ASCII card graphics as well as the ability for the computer to hold his cards without choosing one. It's usually who goes over 21 loses, like the original card game is, but if the computer holds his cards and you hold your cards, nobody gets to 21 and it's whoever has the highest number wins.  Unlike the original card game, you get to see the computer's cards and he gets to see yours. So, like many card games, it's all about chance. I also added colored text and fixed the graphic detail on the welcome page. This is a good example of how BASIC programs used to be made in the 80's and 90's. :)

Edit: Instructions updated and re-posted on July 10, 2019.

Code: QB64: [Select]

1. 'This game was made using ASIC programming language, which is like GW-BASIC, in 1997.
2. 'It was later updated for QB64 programming language on July 9, 2019.
3.  
4. _TITLE "Twenty-One"
5. _SCREENMOVE 400, 200
6. st:
7. RESTORE design
8. f = 0
9. face = 0
10. pl = 0
11. t = 0
12. tt = 0
13. nn = 0
14. n = 0
15. c = 0
16. cc = 0
17. co = 0
18. uquit = 0
19. CLS
20. SCREEN _NEWIMAGE(800, 600, 12)
21. FOR a = 1 TO 45
22.     FOR b = 1 TO 13
23.         READ co
24.         LINE (b * 2, a * 2)-((b + 5) * 2, (a + 5) * 2), co, BF
25.     NEXT b
26. NEXT a
27. COLOR 10, 0
28. LOCATE 10, 20
29. PRINT "Card Game 21"
30. LOCATE 13, 20
31. PRINT "By Ken G."
32. LOCATE 30, 20
33. INPUT "Press enter to begin game.", a$
34. CLS
35. COLOR 15, 0
36. PRINT "                Instructions"
37. PRINT
38. PRINT
39. PRINT "        Whoever is closest to 21 wins."
40. PRINT "        But whoever goes over 21, loses."
41. PRINT
42. PRINT
43. INPUT "        Press enter to begin.", beg$
44. CLS
45. start:
46. you:
47. COLOR 15, 0
48. IF pl = 0 THEN GOTO you2:
49. IF pl = 1 THEN GOTO you2:
50. PRINT
51. PRINT "Do you want to pick up a card (Y/N)";
52. INPUT ac$
53. IF ac$ = "N" THEN uquit = 1: GOTO computer:
54. IF ac$ = "n" THEN uquit = 1: GOTO computer:
55. IF ac$ = "no" THEN uquit = 1: GOTO computer:
56. IF ac$ = "NO" THEN uquit = 1: GOTO computer:
57. IF ac$ = "No" THEN uquit = 1: GOTO computer:
58. you2:
59. CLS
60. COLOR 10, 0
61. tt = tt + 1
62. LOCATE 2, 20: PRINT "Round: "; tt
63. pl = 1
64. RANDOMIZE TIMER
65. n = INT(RND * 10) + 1
66. PRINT
67. PRINT "Your card is a "
68. f = n
69. GOSUB cards:
70. c = c + n
71. PRINT
72. PRINT "Your total is: ";
73. PRINT c
74. IF c > 21 THEN GOTO uover:
75. computer:
76. COLOR 12, 0
77. pl = 2
78. t = t + 1
79. IF cc = c AND uquit = 1 THEN GOTO tie:
80. IF cc > 16 AND cc > c THEN
81.     tt = tt + 1
82.     PRINT
83.     PRINT "Round: "; tt
84.     PRINT
85.     PRINT "Computer holds his cards."
86.     IF uquit = 1 THEN GOTO total:
87.     GOTO you:
88. END IF
89. RANDOMIZE TIMER
90. nn = INT(RND * 10) + 1
91. f = nn
92. PRINT
93. PRINT "The Computer's card is a "
94. GOSUB cards:
95. cc = cc + nn
96. PRINT
97. PRINT "The Computer's total is: ";
98. PRINT cc
99. IF cc > 21 THEN GOTO uwin:
100. IF uquit = 1 THEN
101.     PRINT
102.     INPUT "Press enter for computer's turn.", b$
103.     GOTO computer:
104. END IF
105. GOTO you:
106. uover:
107. COLOR 12, 0
108. PRINT
109. PRINT "You went over 21!"
110. PRINT "The Computer automatically wins."
111. FOR snd = 500 TO 100 STEP -10
112.     SOUND snd, .5
113. NEXT snd
114. GOTO done:
115. uwin:
116. COLOR 10, 0
117. PRINT "You Win!"
118. FOR snd = 400 TO 600 STEP 10
119.     SOUND snd, .5
120. NEXT snd
121. PRINT "Here is the score:"
122. COLOR 12, 0
123. PRINT "Computer: ";
124. PRINT cc
125. COLOR 10, 0
126. PRINT "You: ";
127. PRINT c
128.  
129. GOTO done:
130. total:
131. COLOR 12, 0
132. PRINT
133. t = t - 1
134. t$ = STR$(t)
135. PRINT "Computer quits after " + t$ + " cards."
136. PRINT "The Computer's total is: ";
137. PRINT cc
138. IF cc > c THEN GOTO cwins:
139. IF cc < c THEN GOTO uwin:
140. IF cc = c THEN GOTO tie:
141. tie:
142. COLOR 10, 0
143. PRINT
144. PRINT "You and Computer finishes with a Tie!"
145. PRINT "Here is the score: "
146. COLOR 12, 0
147. PRINT "Computer: ";
148. PRINT cc
149. COLOR 10, 0
150. PRINT "You: ";
151. PRINT c
152. FOR snd = 400 TO 600 STEP 10
153.     SOUND snd, .5
154. NEXT snd
155. GOTO done:
156.  
157. cwins:
158. COLOR 12, 0
159. PRINT
160. FOR snd = 500 TO 100 STEP -10
161.     SOUND snd, .5
162. NEXT snd
163. PRINT "Computer Wins."
164. PRINT "Here is the score:"
165. PRINT "Computer: ";
166. PRINT cc
167. COLOR 10, 0
168. PRINT "You: ";
169. PRINT c
170.  
171.  
172. done:
173. COLOR 15, 0
174. PRINT "Do you want to play again (Y/N)";
175. INPUT ag$
176. IF ag$ = "Y" OR ag$ = "y" THEN GOTO st:
177. END
178.  
179. cards:
180. RANDOMIZE TIMER
181. face = INT(RND * 4) + 1
182. IF face = 1 THEN
183.     c$ = CHR$(3)
184. END IF
185. IF face = 2 THEN
186.     c$ = CHR$(4)
187. END IF
188. IF face = 3 THEN
189.     c$ = CHR$(5)
190. END IF
191. IF face = 4 THEN
192.     c$ = CHR$(6)
193. END IF
194. f$ = STR$(f)
195. IF f < 10 THEN
196.     PRINT "   ------"
197.     PRINT "   |"; f$; "  |"
198.     PRINT "   | "; c$; "  |"
199.     PRINT "   |    |"
200.     PRINT "   ------"
201. END IF
202.  
203. IF f = 10 THEN
204.     PRINT "   ------"
205.     PRINT "   |"; f; "|"
206.     PRINT "   | "; c$; "  |"
207.     PRINT "   |    |"
208.     PRINT "   ------"
209. END IF
210. RETURN
211.  
212.  
213. design:
214. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
215. DATA 1,1,1,1,2,2,1,2,2,1,1,1,1
216. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
217. DATA 1,1,2,2,2,2,2,2,2,2,2,1,1
218. DATA 1,1,2,2,2,2,2,2,2,2,2,1,1
219. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
220. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
221. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
222. DATA 1,1,1,1,1,1,2,1,1,1,1,1,1
223. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
224. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
225. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
226. DATA 1,1,1,1,1,1,2,1,1,1,1,1,1
227. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
228. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
229. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
230. DATA 1,1,2,2,2,2,2,2,2,2,2,1,1
231. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
232. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
233. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
234. DATA 1,1,1,1,1,1,2,1,1,1,1,1,1
235. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
236. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
237. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
238. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
239. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
240. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
241. DATA 1,1,2,2,2,2,2,2,2,2,2,1,1
242. DATA 1,1,2,2,2,2,2,2,2,2,2,1,1
243. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
244. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
245. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
246. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
247. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
248. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
249. DATA 1,1,1,1,1,1,2,1,1,1,1,1,1
250. DATA 1,1,1,1,1,2,2,2,1,1,1,1,1
251. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
252. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
253. DATA 1,1,1,2,2,2,2,2,2,2,1,1,1
254. DATA 1,1,2,2,1,1,2,1,1,2,2,1,1
255. DATA 1,1,2,1,1,2,2,2,1,1,2,1,1
256. DATA 1,1,1,1,2,2,2,2,2,1,1,1,1
257. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
258. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1
259.  
260.  
261.