21_Game Rosetta Code

[bplus]

Hurry and play and win! before I figure out how to make AI smarter!

Code: QB64: [Select]

1. DEFINT A-Z
2. RANDOMIZE TIMER
3. _TITLE "21_Game from Rosetta Code" 'b+ just saw this at Rosetta 2020-08-09 today
4. ' ref:   http://rosettacode.org/wiki/21_Game
5.  
6. ' Take turns adding 1, 2, or 3 until someone makes the total = 21, they are winner.
7.  
8. DO
9.     Total = 0 'reset
10.     PRINT "21_Game Rosetta Code:" 'title for total
11.     LOCATE 1, 60: PRINT "Running Total:"; Total
12.     IF RND < .5 THEN human = 1 ELSE human = 0 'who goes first
13.     DO
14.         human = 1 - human 'toggle player
15.         IF human THEN
16.             getHuman: 'in case human plays 22, 23...
17.             INPUT "Human: enter 1, 2, 3 for your turn, any other quits > "; add
18.             IF add < 1 OR add > 3 THEN PRINT "Human quits, goodbye!": END
19.             IF add + Total > 21 THEN PRINT "Too much to add, try again...": GOTO getHuman
20.         ELSE 'ai turn
21.             IF Total >= 18 THEN
22.                 add = 21 - Total
23.             ELSEIF Total = 17 THEN 'lost
24.                 add = 1
25.             ELSEIF Total = 16 THEN
26.                 add = 1
27.             ELSEIF Total = 15 THEN
28.                 add = 2
29.             ELSEIF Total = 14 THEN
30.                 add = 3
31.             ELSE
32.                 add = 3 ' AI not that smart ;(
33.             END IF
34.         END IF
35.         IF human THEN LOCATE CSRLIN - 1, 60 ELSE LOCATE CSRLIN, 60
36.         IF human THEN PRINT "    Human adds "; add ELSE PRINT "       AI adds "; add
37.         Total = Total + add
38.         LOCATE CSRLIN, 60: PRINT "Running Total:"; Total
39.         IF Total = 21 THEN
40.             LOCATE CSRLIN, 60
41.             IF human THEN PRINT "*** Human wins ***" ELSE PRINT " *** AI wins ***"
42.             EXIT DO
43.         END IF
44.     LOOP
45.     PRINT "Press any for next game..."
46.     SLEEP
47.     CLS
48.     _KEYCLEAR
49. LOOP
50.  

[bplus]

I suspect this is another version of NIM. :)

[bplus]

OK this should be harder to beat:

Code: QB64: [Select]

1. DEFINT A-Z
2. RANDOMIZE TIMER
3. _TITLE "21_Game from Rosetta Code" 'b+ saw this at Roseetta 2020-08-09
4. ' ref:   http://rosettacode.org/wiki/21_Game
5. ' 2020-08-10 stronger AI
6.  
7. ' Take turns adding 1, 2, or 3 until someone makes the total = 21, they are winner.
8.  
9. DO
10.     Total = 0 'reset
11.     PRINT "21_Game Rosetta Code:" 'title for total
12.     LOCATE 1, 60: PRINT "Running Total:"; Total
13.     IF RND < .5 THEN human = 1 ELSE human = 0 'who goes first
14.     DO
15.         human = 1 - human 'toggle player
16.         IF human THEN
17.             getHuman: 'in case human plays 22, 23...
18.             INPUT "Human: enter 1, 2, 3 for your turn, any other quits > "; add
19.             IF add < 1 OR add > 3 THEN PRINT "Human quits, goodbye!": END
20.             IF add + Total > 21 THEN PRINT "Too much to add, try again...": GOTO getHuman
21.         ELSE 'ai turn
22.             IF Total >= 18 THEN
23.                 add = 21 - Total
24.             ELSE
25.                 add = 0
26.                 FOR i = 1 TO 3
27.                     IF (Total + i) MOD 4 = 1 THEN add = i
28.                 NEXT
29.                 IF add = 0 THEN add = 1
30.             END IF
31.         END IF
32.         IF human THEN LOCATE CSRLIN - 1, 60 ELSE LOCATE CSRLIN, 60
33.         IF human THEN PRINT "    Human adds "; add ELSE PRINT "       AI adds "; add
34.         Total = Total + add
35.         LOCATE CSRLIN, 60: PRINT "Running Total:"; Total
36.         IF Total = 21 THEN
37.             LOCATE CSRLIN, 60
38.             IF human THEN PRINT "*** Human wins ***" ELSE PRINT " *** AI wins ***"
39.             EXIT DO
40.         END IF
41.     LOOP
42.     PRINT "Press any for next game..."
43.     SLEEP
44.     CLS
45.     _KEYCLEAR
46. LOOP
47.  

[loudar]

As far as I noticed; it's only beatable when AI starts. Any other way, the AI would just force you to lose :D

[bplus]

As far as I noticed; it's only beatable when AI starts. Any other way, the AI would just force you to lose :D

Yes just like NIM, but the only way to beat it is if you start. I'd like to see the screen shot if you can beat it if AI has first move.

Here is how to beat AI