QB64.org Forum

Active Forums => Programs => Topic started by: Kiara87 on September 10, 2020, 07:26:08 pm

Title: testa o croce
Post by: Kiara87 on September 10, 2020, 07:26:08 pm

another program
is a coin toss based game
You can choose heads or tails if user types one means that he chooses heads if he types 2 and chooses tails
the game will have 10 tokens which are equivalent to 10 credits
Whether the user's choice is right will increase the value depends on the amount of credit you have wagered

Code: QB64: [Select]

1. CLS
2. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
3. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
4. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
5. LOCATE 2, 30: PRINT "=== TESTA O CROCE ==="
6.  
7. PRINT
8. PRINT
9.  
10. PRINT "Premi qualsiasi tasto per continuare..."
11. tasto$ = INPUT$(1)
12.  
13. Credito = 10
14. 3 CLS
15. IF Credito <= 0 THEN LOCATE 15, 30: PRINT "GAME OVER": END
16. LOCATE 1, 1: PRINT "É"; STRING$(78, 205); "»" 'string$ scrive 78 volte il valore in ascii del 205
17. LOCATE 2, 1: PRINT "º"; TAB(80); "º" 'tab significa fai un spazio di 80 caratteri una tabbulazione
18. LOCATE 3, 1: PRINT "È"; STRING$(78, 205); "¼" 'string$ scrive 78 volte il valore in ascii del 205
19. LOCATE 2, 30: PRINT "il tuo credito"; Credito; "gettoni"
20. PRINT
21. PRINT
22. PRINT
23. 1 PRINT "Quanto vuoi puntare?"
24. INPUT ">", Puntata
25. PRINT "Hai puntato "; Puntata
26. IF Puntata <= 0 THEN PRINT "Devi puntare qualcosa.": GOTO 1
27. IF Puntata > Credito THEN PRINT "Non possiedi tutto questo credito.": GOTO 1
28. PRINT
29. PRINT
30. 2 PRINT
31. PRINT "1-Testa     2-Croce"
32. scelta$ = INPUT$(1)
33. IF scelta$ <> "1" AND scelta$ <> "2" THEN PRINT "Digita 1 oppure 2": GOTO 2
34. scelta2 = VAL(scelta$)
35.  
36. RANDOMIZE TIMER
37. caso = INT(RND * 2) + 1
38.  
39. Vincita = Puntata * 2 - Puntata
40.  
41. IF caso = scelta2 THEN PRINT "Complimenti, hai vinto!!!": tasto$ = INPUT$(1): Credito = Credito + Vincita: GOTO 3
42.  
43. IF caso <> scelta2 THEN PRINT "Peccato hai perso": tasto$ = INPUT$(1): Credito = Credito - Puntata: GOTO 3
44.  
45.  
46.  

Title: Re: testa o croce
Post by: bplus on September 11, 2020, 12:28:00 am

One side of my coin says 1, the other says 2. Predict what the next flip will be 1 or 2, right or wrong we keep flipping until the flip doesn't match the first flip. That will be the amount you've won or lost if you matched the first flip or not.

I did not RANDOMIZE TIMER (like Kiara did) so you can learn to "predict" 2 for awhile and then 1 for awhile to get a little ahead in the game ;-))

Code: QB64: [Select]

1. _TITLE "1 for 1 and 2 for 2 PLUS" 'b+ 2020-09-11
2. DO
3.     INPUT "Enter 1 for 1, 2 for 2, or 0 to quit this silly game > ", choice
4.     IF choice = 0 THEN
5.         END
6.     ELSEIF choice = 1 OR choice = 2 THEN ' alrighty! let's play!
7.         rollEm = INT(RND * 2) + 1
8.         PRINT rollEm; ",";
9.         DO
10.             again = INT(RND * 2) + 1
11.             PRINT again; ",";
12.             count = count + 1
13.         LOOP UNTIL again <> rollEm
14.         PRINT
15.         IF choice = rollEm THEN
16.             yourPoints = yourPoints + count
17.         ELSE
18.             yourPoints = yourPoints - count
19.         END IF
20.         PRINT "Your Points ="; yourPoints
21.     ELSE
22.         _CONTINUE 'heh, heh
23.     END IF
24.     count = 0
25. LOOP
26.  

Text Only | Text with Attachments