Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 09, 2020, 10:20:56 pm

Title: 21_Game Rosetta Code
Post by: bplus on August 09, 2020, 10:20:56 pm
Hurry and play and win! before I figure out how to make AI smarter!
Code: QB64: [Select]
  1. DEFINT A-Z
  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.  
  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
  50.  
Title: Re: 21_Game Rosetta Code
Post by: bplus on August 09, 2020, 11:35:33 pm
I suspect this is another version of NIM. :)
Title: Re: 21_Game Rosetta Code
Post by: bplus on August 10, 2020, 04:42:34 am
OK this should be harder to beat:
Code: QB64: [Select]
  1. DEFINT A-Z
  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.  
  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
  47.  
Title: Re: 21_Game Rosetta Code
Post by: loudar on August 10, 2020, 06:18:09 am
As far as I noticed; it's only beatable when AI starts. Any other way, the AI would just force you to lose :D
Title: Re: 21_Game Rosetta Code
Post by: bplus on August 10, 2020, 12:08:00 pm
Quote from: loudar on August 10, 2020, 06:18:09 am
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
Text Only | Text with Attachments