30 Line Game Challenge

[bplus]

    PRINT "i="; i
    22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i)

for 21, i = -1 and 2 ^ -1 = .5

typo on line 22 to match line 14
 22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i +1)  '  i + 1 fixes

[Cobalt]

here is my entry, less than 30 lines,  no IF\THEN or SELECT\CASE.

Code: QB64: [Select]

1. 'Card Guessing Game, Kobolt 9/17/2018-12:15pm Ver 1.0, 22 lines!
2. DIM hints(8) AS STRING
3. FOR i% = 1 TO 8
4.  READ hints(i%)
5. NEXT i%
6. RANDOMIZE TIMER
7. DO
8.  CLS
9.  c% = INT(RND * 4) + 1
10.  n% = INT(RND * 13) + 1
11.  PRINT "(S)pade, (C)lubs, (H)earts, (D)iamonds, Ace-1, Jack-11, Queen-12, King-13", SPACE$(80)
12.  PRINT "Hint - "; hints(c%), SPACE$(80)
13.  DO
14.   INPUT "What card is it (ex-D8=8 of Diamonds)"; a$
15.   Try~% = Try~% + 1
16.  LOOP UNTIL UCASE$(a$) = (hints(4 + c%) + LTRIM$(RTRIM$(STR$(n%))))
17.  Good~% = Good~% + 1
18.  BEEP
19.  INPUT "Try again?"; a$
20. LOOP UNTIL LCASE$(a$) = "n"
21. PRINT "Total trys:"; Try~%; " for "; Good~%; " Correct!"
22. DATA "a garden tool","used when somebody is bad","gotta love with this","Ladies best friend","S","C","H","D"
23.  

[Omerta7486]

I don't know why the math is acting the way it is, but as a game designer, I follow the "first fix wins now, best fix wins later" principle.

Putting INT() around the final guess at least undoes the whole .5 thing and makes the guess correct:

Code: QB64: [Select]

1.    23 PRINT "Your number is "; INT(guess)

You're right, Steve, how does binary math produce decimals? Without division, there should be no .5's in there. Do we actually have an instance of binary math producing fractional numbers?

You know what that'll do to society? Girls playing with trucks. Boys playing with dolls. Horses eating each other. Yes, horses eating each other! It's in the Bible, Fracine!

I tried to DIM guess as _byte, and it would guess 22 for 21, 6 for 5, 2 for 1. I tried to DIM guess, a, i, j as _byte, it brought back the .5's! I'm going to look more into this.

[SMcNeill]

    PRINT "i="; i
    22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i)

for 21, i = -1 and 2 ^ -1 = .5

typo on line 22 to match line 14
 22 guess = guess + (2 AND a) * 2 ^ (i) - (1 AND a) * 2 ^ (i +1)  '  i + 1 fixes

That's what it is!  The formula is correct, which is why I couldn't sort out what the heck was wrong with it!!  ;D

Typos are hell to find.  Your brain knows what *should* be there, and it just overlooks the issue completely.  NOW, the guessing game actually guesses like it's supposed to. 

One good thing about the glitch: It probably helped everyone understand how it actually works now -- Binary search up/down in powers of 2 until it finds the solution.  :D

****************

Post corrected with the proper formula. 

[Omerta7486]

Dang, I didn't read on to page two... B+ beat me by two posts making me both the later AND worst fix... Foot in mouth. Lol.

[Pete]

Have you tried putting peanut butter between your toes? I find it it helps take the edge off.

Dammit Steve, I remember when that typo crap started with me. It's just a sign of aging. Pretty soon you'll be wondering where you put your keys, and then discovering it doesn't matter, because you can't remember where you parked your car. After that, well, just hang on to that URL I posted for those "PEP" pills.

Kidding aside, thanks for posting this challenge. It got me off my duff from endless organizing, which I hate to do anyway, and got me back to doing something fun, even though I didn't read the directions. That card suit technique I came up with was new, and new stuff makes me happy. I seldom pull code from my repository, which sounds strangely akin to pulling something out of something else, but I digress. If I can code something fresh,  it's more fun but I have to admit, aging hasn't helped when it comes to the occasional goofs.

Pete

- I'm thinking of skipping my birthday this year, whenever the hell that is.

[bplus]

Hey I got it! Here is Digit Thief Level 2:

You have only 3 digits 0, 1, 2 because you live in a world where everyone has 1 finger on the upper hand and 2 digits on their lower hand... but I guess that's a different story...  ;-))
BTW this could just as easily been 10 digits but I wanted a real threat of loosing all your digits before you are done guessing. Still there is one sure strategy to never loose, boring though... Come to think, could have a rule to prevent that but that would be more lines and IF's, anyway...  ;-))

So using only FOR loops to substitute for IF's and all other flow control mechanisms except GOTO, here is Digit Thief Level 2 at 24 lines (no colons except for line labels and no externals) plus 1 code debugger line I left in:

Code: QB64: [Select]

1. RANDOMIZE TIMER ' Digit Thief 2 minus IF.bas for QB64 2018-09-18 B+
2. jumpStart:
3. gCount% = 0
4. thief% = INT(RND * 3)
5. digits$ = "012"
6. PRINT
7. loopAgain:
8. 'PRINT "(debug thief is here:"; thief%; ")" '<<<<< I used this line to check my code
9. INPUT "Enter Guess (0 to 2) where the digit thief is now "; guess%
10. gCount% = gCount% + 1
11. kstart = -1 * (guess% <> thief%)
12. FOR k = kstart TO 0
13.     PRINT "You caught the thief in" + STR$(gCount%) + " guesses."
14.     GOTO jumpStart
15. NEXT k
16. MID$(digits$, thief% + 1, 1) = " "
17. PRINT "Digits Left Update: " + digits$
18. thief% = ABS(INT(RND * 3) - 1 + thief%) MOD 3
19. lstart = -1 * (digits$ <> STRING$(3, " "))
20. FOR l = lstart TO 0
21.     PRINT "Dang! too late! Gone in" + STR$(gCount%) + " guesses."
22.     GOTO jumpStart
23. NEXT l
24. GOTO loopAgain
25.  

BTW there is no escape from Level 2. ha, ha, ha....

EDIT: one less FOR loop, one less line 23 lines plus a debugger commented out.

[bplus]

Oh I just made 30 Line limit, Digit Thief 3 minus IF.bas now prevents digit guarding.

Code: QB64: [Select]

1. RANDOMIZE TIMER ' Digit Thief 3 minus IF.bas for QB64 2018-09-18 B+  prevent "digit guarding"
2. jumpStart:
3. gCount% = 0
4. thief% = INT(RND * 3)
5. digits$ = "012"
6. lastGuess% = -999
7. PRINT
8. loopAgain:
9. INPUT "Enter Guess (0 to 2) where the digit thief is now "; guess%
10. jstart = -1 * (guess% <> lastGuess%)
11. FOR j = jstart TO 0
12.     PRINT "Give Digit Thief a 50/50 chance! No digit guarding, make a different choice."
13.     GOTO loopAgain
14. NEXT j
15. gCount% = gCount% + 1
16. lastGuess% = guess%
17. kstart = -1 * (guess% <> thief%)
18. FOR k = kstart TO 0
19.     PRINT "You caught the thief in" + STR$(gCount%) + " guesses."
20.     GOTO jumpStart
21. NEXT k
22. MID$(digits$, thief% + 1, 1) = " "
23. PRINT "Digits Left Update: " + digits$
24. thief% = ABS(INT(RND * 3) - 1 + thief%) MOD 3
25. lstart = -1 * (digits$ <> STRING$(3, " "))
26. FOR l = lstart TO 0
27.     PRINT "Dang! too late! Gone in" + STR$(gCount%) + " guesses."
28.     GOTO jumpStart
29. NEXT l
30. GOTO loopAgain
31.  

[Pete]

Wait jus ah dad-burn minute thar Varmint! You stole that thar name from me! Oops, sorry, err, my version was called Idgit Thief.

 - Sam

[bplus]

And here is: 21 minus IF.bas

Code: QB64: [Select]

1. RANDOMIZE TIMER '21 minus IF.bas for QB64 2018-09-18 B+
2. DIM deck%(1 TO 52)
3. DATA 2,3,4,5,6,7,8,9,10,10,10,10,11,2,3,4,5,6,7,8,9,10,10,10,10,11,2,3,4,5,6,7,8,9,10,10,10,10,11,2,3,4,5,6,7,8,9,10,10,10,10,11
4. FOR i% = 1 TO 52
5.     READ deck%(i%)
6. NEXT
7. 'DO 'to run in loop uncomment, commented lines == Way more fun!!!
8. 'CLS: di% = 0: playerT% = 0: dealerT% = 0
9. FOR i% = 52 TO 2 STEP -1 'shuffle
10.     r% = INT(RND * i%) + 1
11.     SWAP deck%(r%), deck%(i%)
12. NEXT
13. FOR i% = -1 TO 0
14.     di% = di% + 1
15.     playerT% = playerT% + deck%(di%)
16.     _PRINTSTRING (27, di% + 5), "Player card: " + RIGHT$(SPACE$(2) + STR$(deck%(di%)), 2) + " total is " + RIGHT$(SPACE$(2) + STR$(playerT%), 2)
17.     i% = (playerT% < 15)
18. NEXT
19. istart% = -1 * (playerT% > 21)
20. FOR i% = istart% TO 0
21.     di% = di% + 1
22.     dealerT% = dealerT% + deck%(di%)
23.     _PRINTSTRING (27, di% + 7), "Dealer card: " + RIGHT$(SPACE$(2) + STR$(deck%(di%)), 2) + " total is " + RIGHT$(SPACE$(2) + STR$(dealerT%), 2)
24.     i% = (dealerT% < playerT%)
25. NEXT
26. istart% = -1 * (playerT% > 21 OR (dealerT% < 22 AND dealerT% >= playerT%))
27. FOR i% = istart% TO 0
28.     PRINT "Hey Player, you Won!"
29.     GOTO skip
30. NEXT
31. PRINT "Sorry Player, Dealer Won!"
32. skip:
33. '_DELAY 4
34. 'LOOP 'this is line 34 minus 4 commented lines  = 30 !
35.  

[Omerta7486]

Here is my entry. Started it last night. Finished it about an 30mins ago, then played it a little.
It's a simple dice game. No IFs, WHILEs, DOs, SELECTs, and all logic is math based. Please tell me if the instructions are clear enough. It's quite a complex little game for 30 lines! Which made it kind of hard to sum up. Lol.

Code: QB64: [Select]

1. 1 RANDOMIZE TIMER(.001)
2. 2 FOR a% = 0 TO 20000
3.    3 FOR die%% = 1 TO 6
4.        4 keep(die%%) = 0
5.        5 tally(die%%) = 0
6.        6 dice(die%%) = INT(RND * 6 + 1)
7.    7 NEXT
8.    8 kept%% = 0
9.    9 FOR hand%% = 0 TO 6
10.        10 FOR hold%% = 0 TO 2
11.            11 this%% = kept%%
12.            12 FOR die%% = kept%% + 1 TO 6
13.                 PRINT "Welcome to DICE!"; CHR$(13); CHR$(13); "Choose your selections carefully, as after you have made decisions on all dice,"; "the game rerolls. You MUST keep at least 1 die each roll, and once you have kept"; "6 dice, you will receive your score for the round."; CHR$(13); "REMEMBER: When you do not keep a die, it is rerolled."; CHR$(13); CHR$(13); "Your goal is to reach 20000pts! Have Fun!"; CHR$(13); CHR$(13); "SCORE HELP"; CHR$(13); "----------"; CHR$(13); "1=100  2=0  3=0  4=0  5=50  6=0"; CHR$(13); "Triple 1's=1000 Triple 4's=400"; CHR$(13); "Triple 2's=200  Triple 5's=500"; CHR$(13); "Triple 3's=300  Triple 6's=600"; CHR$(13); "A straight of 1-6=2000"; STRING$(4, 13); "Current score is:"; score%; "/ 20000"; CHR$(13); "Dice rolled in this hand:       "; dice(1); dice(2); dice(3); dice(4); dice(5); dice(6); CHR$(13); "Dice you have kept this round:  "; keep(1); keep(2); keep(3); keep(4); keep(5); keep(6); CHR$(13); CHR$(13); "Keep die"; RTRIM$(STR$(die%%)); "? [It's a"; RTRIM$(STR$(dice(die%%))); "] (1=y 0=n)";
14.                14 INPUT "", in
15.                15 keep(kept%% + 1) = in * dice(die%%)
16.                16 kept%% = kept%% + in
17.                17 tally(keep(kept%%)) = tally(keep(kept%%)) + in
18.            18 NEXT
19.            19 hold%% = 2 * (kept%% - this%%)
20.        20 NEXT
21.        21 FOR die%% = 1 TO 6
22.            22 dice(die%%) = (ABS(keep(die%%) <> 0) * 0) + (ABS(keep(die%%) = 0) * INT(RND * 6 + 1))
23.        23 NEXT
24.        24 hand%% = kept%%
25.    25 NEXT
26.     score% = score% + (tally(1) * 100) + (INT(tally(1) / 3) * 700) + (INT(tally(2) / 3) * 200) + (INT(tally(3) / 3) * 300) + (INT(tally(4) / 3) * 400) + (tally(5) * 50) + (INT(tally(5) / 3) * 350) + (INT(tally(6) / 3) * 600) + (INT(ABS((tally(1) = 1) + (tally(2) = 1) + (tally(3) = 1) + (tally(4) = 1) + (tally(5) = 1) + (tally(6) = 1)) / 6) * 2000)
27.    27 a% = score%
28.    28 CLS
29. 29 NEXT
30. 30 PRINT "Congratulations! You beat 20000pts! Your score was:"; score%

[EDIT]Fixed code in code box.

[bplus]

Ah nice, as I understand it, all the choices are prearranged and it is matter of choosing combination with yes = * 1 or no * 0 questions. Completely different approach from what I had done.

My tests seem to be getting stuck on choice for selecting 6th die, I keep choosing no and it keeps showing me the same number.  I don't fully understand game like how many times you are allowed to reject a die.

[Omerta7486]

Ahh... I knew I was forgetting to explain some things. That was my bad. It should explain it better now in the above code.

In case it doesn't(Oh, I broke the challenge rules and used a CASE XD), here is a breakdown of DICE.

You roll a hand of 6 dice.

You get 6 6 4 1 1 5

You decide to take 1 1 5 and keep them.

You now have 1 1 5, and you reroll the 6 6 4 and get 1 3 2.

You decide to take the 1.

You now have 1 1 5 1, and you reroll the 3 2 and get 5 5.

You decide to take both fives.

You end this round with 1 1 5 1 5 5 and earn 1500pts. 1000 for the triple 1's and 500 for the triple 5's.

That ends that round, and then the game rerolls all 6 dice for the next round.

You roll 6 3 1 2 4 5.

You decide to keep all six dice, because you have a straight 1-2-3-4-5-6.

You end the round with 6 3 1 2 4 5 and earn 2000pts. for the straight. You now have a score of 3500pts.

You ALWAYS have to keep at least one(1) die, whether it scores points or not, and you can keep between 1-6 dice from each hand.

[TerryRitchie]

I needed a distraction, this challenge was perfect.

Here is my entry - Yellow GOOD ... Red BAD

Code: QB64: [Select]

1. DIM box(50) AS STRING
2. SCREEN _NEWIMAGE(640, 480, 32) ' *** YELLOW GOOD ... RED BAD ***
3. _MOUSEHIDE
4. DO
5.     _LIMIT 30
6.     CLS
7.     LOCATE 1, 1
8.     PRINT STR$(score)
9.     WHILE _MOUSEINPUT
10.     WEND
11.     m$ = RIGHT$("0" + LTRIM$(STR$(_MOUSEX)), 3) + RIGHT$("0" + LTRIM$(STR$(_MOUSEY)), 3) ' xxxyyy
12.     LINE (VAL(LEFT$(m$, 3)) - 10, VAL(RIGHT$(m$, 3)) - 10)-(VAL(LEFT$(m$, 3)) + 10, VAL(RIGHT$(m$, 3)) + 10), _RGB32(255, 255, 255), BF ' white box
13.     FOR x = 1 TO 50
14.         IF box(x) = "" OR VAL(MID$(box(x), 4, 3)) > 500 THEN box(x) = RIGHT$("0" + LTRIM$(STR$(INT(RND(1) * 600) + 20)), 3) + "-40" + RIGHT$("0" + LTRIM$(STR$(INT(RND(1) * 10) + 1)), 2) + LTRIM$(STR$(INT(RND(1) * 2)))
15.         box(x) = LEFT$(box(x), 3) + RIGHT$("0" + STR$(VAL(MID$(box(x), 4, 3)) + VAL(MID$(box(x), 7, 2))), 3) + RIGHT$(box(x), 3) ' add speed to y
16.         LINE (VAL(LEFT$(box(x), 3)) - 20, VAL(MID$(box(x), 4, 3)) - 20)-(VAL(LEFT$(box(x), 3)) + 20, VAL(MID$(box(x), 4, 3)) + 20), _RGB32(255, VAL(RIGHT$(box(x), 1)) * 255, 0), BF
17.         IF VAL(LEFT$(m$, 3)) - 10 <= VAL(LEFT$(box(x), 3)) + 20 AND VAL(LEFT$(m$, 3)) + 10 >= VAL(LEFT$(box(x), 3)) - 20 AND VAL(RIGHT$(m$, 3)) - 10 <= VAL(MID$(box(x), 4, 3)) + 20 AND VAL(RIGHT$(m$, 3)) - 10 >= VAL(MID$(box(x), 4, 3)) - 20 THEN
18.             IF VAL(RIGHT$(box(x), 1)) = 1 THEN
19.                 score = score + 1
20.                 box(x) = ""
21.                 SOUND 220, 1
22.                 SOUND 440, 1
23.             ELSE
24.                 SOUND 220, 10
25.                 END
26.             END IF
27.         END IF
28.     NEXT x
29.     _DISPLAY
30. LOOP

[bplus]

Hi Omerta,

Ahhh, you must accept at least 1 die, got it! Thanks

Omerta: "In case it doesn't(Oh, I broke the challenge rules and used a CASE XD), here is a breakdown of DICE."
LOL that one case might be forgiven :)

Now, how many hands are there? If you have answered this question already, I apologize for my poor reading skills.

Append" OK "For hands = 0 to 6" so seven hands OK