QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Prithak on December 31, 2018, 09:55:41 pm

Title: A VERY Simple Game!
Post by: Prithak on December 31, 2018, 09:55:41 pm

This is a game I made in just 1 Hour. This is a game me and my friends used to play on paper but now, It's on PC! Here's the code:
(BTW, this is a 2-player game)

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. COLOR , _RGB32(255, 255, 255)
3. COLOR _RGB32(0, 0, 0)
4. _FULLSCREEN
5. CLS
6. turn = 1
7. a$ = "CUT-N-CUT"
8. LOCATE 1, 40 - LEN(a$) / 2: PRINT a$
9. b$ = "A Multiplayer Game!"
10. LOCATE 2, 40 - LEN(b$) / 2: PRINT b$
11. LOCATE 3, 1: PRINT "This game is in development... So no multiplayer for the next 3 updates"
12. INPUT "Enter the total no. "; no
13. DIM x$(no)
14. FOR i = 1 TO no
15.     x$(i) = STR$(i)
16. NEXT i
17. x = 1
18. y = 1
19. CLS
20. PRINT "2ND PLAYER LOOK BACK!!!"
21. INPUT "1st Player enter your chosen number"; cn1
22. CLS
23. PRINT "1ST PLAYER LOOK BACK!!!"
24. INPUT "2nd Player enter your chosen number"; cn2
25. CLS
26. DO
27.     x = 1
28.     y = 1
29.     FOR i = 1 TO no
30.         LOCATE y, x: PRINT x$(i)
31.         LOCATE 1, 20: PRINT "Turn: "; turn
32.         y = y + 1
33.         IF y > 25 THEN
34.             y = 1
35.             x = x + 10
36.         END IF
37.     NEXT
38.     in:
39.     LOCATE 26, 1: INPUT "Enter your num"; num
40.     IF RIGHT$(x$(num), 5) = "(CUT)" THEN
41.         PRINT "That number is already chosen!"
42.         GOTO in
43.     END IF
44.     x$(num) = x$(num) + "(CUT)"
45.     IF num = cn1 AND turn = 2 THEN
46.         PRINT "PLAYER 1 WINS!!"
47.         END
48.     ELSEIF num = cn1 AND turn = 1 THEN
49.         PRINT "PLAYER 1 CUT HIS/HER OWN NUMBER! PLAYER 2 WINS!!"
50.         END
51.     ELSEIF num = cn2 AND turn = 1 THEN
52.         PRINT "PLAYER 2 WINS!!"
53.         END
54.     ELSEIF num = cn2 AND turn = 2 THEN
55.         PRINT "PLAYER 2 CUT HIS/HER OWN NUMBER! PLAYER 1 WINS!!"
56.         END
57.     END IF
58.     IF turn = 1 THEN
59.         turn = 2
60.     ELSEIF turn = 2 THEN
61.         turn = 1
62.     END IF
63.  
64.     _DISPLAY
65.     CLS
66.     _LIMIT 60
67. LOOP
68. 'LOL
69. 'LOL
70.  

And also, I'm looking for making this a competitive game, If any ideas bubble up your mind. Please let me know!
HOW TO PLAY:
1) Choose the limit of the numbers(Like, From 1 to 20)
2) Player 1 Chooses a Number from 1 to 20
3) Player 2 Chooses another Number from 1 to 20
4) If Player 1 Cuts the number of Player 2, Player 2 Wins.
5) If Player 2 Cuts the number of Player 1, Player 1 Wins.
6) If Player 1 or 2 Cuts his/her own number, he/she loses.

It's as simple as that!

With due regards,
-Prithak

Title: Re: A VERY Simple Game!
Post by: bplus on January 01, 2019, 11:08:52 am

Hi Prithak,

I love simple games.

So the object of this game is to NOT be the first to pick one of the picked numbers, as opposed to say trying to guess what the other player did pick before the other player does. So if the other player seems to be avoiding a number that might be the one he picked. Correct?

I am surprised the font effect achieved by _FULLSCREEN.

I will try a version to play against the computer, if you don't mind.

Title: Re: A VERY Simple Game!
Post by: bplus on January 01, 2019, 04:38:52 pm

Ha, took an hour to write up, a couple of hours to debug (and overhaul) some more hours to refine:

Code: QB64: [Select]

1. _TITLE "Who cut 1?" 'inspired by Prithak's game posted 2018-12-31
2. 'the disadvantage of going first is you are first in line to risk the bomb
3. 'the advantage is if both players pick the same number for the bomb the first will never get it.
4. _FULLSCREEN
5. DO
6.     CLS 'show instructions to game
7.     cp 2, "Who Cut 1 ?"
8.     cp 4, "This game has 0 to 9 numbers to pick from."
9.     cp 5, "You will plant a bomb under one."
10.     cp 6, "The computer will do the same."
11.     cp 7, "You will take turns cutting numbers"
12.     cp 8, "until one cuts a number with a bomb."
13.     cp 10, "Player =" + STR$(player) + "  Computer =" + STR$(computer)
14.     'computer chooses it's bomb site
15.     choices$ = "0123456789"
16.     computerBomb = INT(RND * 10)
17.     MID$(choices$, computerBomb + 1, 1) = "b"
18.  
19.     'player choice's bomb site
20.     DO
21.         PRINT: cp 13, "Player, enter the number place (0 to 9) for your bomb > "
22.         INPUT "", bomb
23.         CLS
24.     LOOP UNTIL bomb >= 0 AND bomb <= 9
25.     MID$(choices$, bomb + 1, 1) = "b"
26.  
27.     'start game
28.     gameover = 0
29.     WHILE NOT gameover
30.         'display cuts up to this point
31.         CLS
32.         'PRINT computerBomb; " Numbers left:  " + choices$ '<<<<<< debug track hidden game status
33.         PRINT "Numbers left:"
34.         nonCutChoices$ = ""
35.         FOR i = 0 TO 9
36.             IF MID$(choices$, i + 1, 1) <> "c" THEN
37.                 PRINT i
38.                 nonCutChoices$ = nonCutChoices$ + LTRIM$(STR$(i))
39.             ELSE
40.                 PRINT "Cut"
41.             END IF
42.         NEXT
43.  
44.         'computer moves first each turn
45.         'don't be a stupid computer and pick the bomb you planted!!!
46.         computerPick = computerBomb
47.         WHILE computerPick = computerBomb
48.             computerPick = VAL(MID$(nonCutChoices$, INT(RND * LEN(nonCutChoices$) + 1), 1))
49.         WEND
50.         LOCATE 13, 1: PRINT "Computer picks "; computerPick
51.         IF MID$(choices$, computerPick + 1, 1) = "b" THEN
52.             PRINT "BOOM!, Player wins!"
53.             winner$ = "player"
54.             LOCATE computerPick + 2, 4: PRINT "BOOM!"
55.             gameover = -1
56.         ELSE
57.  
58.             'computer picks successfully
59.             MID$(choices$, computerPick + 1, 1) = "c"
60.             LOCATE computerPick + 2, 4: PRINT "Cut"
61.  
62.             'player's turn, don't allow player cheat by cutting a number already cut
63.             DO
64.                 LOCATE 15, 1: PRINT SPACE$(79)
65.                 LOCATE 15, 1: INPUT "Player, enter a number to cut (not yet cut) > ", playerPick
66.             LOOP WHILE MID$(choices$, playerPick + 1, 1) = "c" OR playerPick = computerPick
67.  
68.             'handle player's legal choice
69.             IF MID$(choices$, playerPick + 1, 1) = "b" THEN
70.                 PRINT "BOOM!, Computer wins!"
71.                 winner$ = "computer"
72.                 LOCATE playerPick + 2, 4: PRINT "BOOM!"
73.                 gameover = -1
74.             ELSE
75.                 MID$(choices$, playerPick + 1, 1) = "c"
76.                 LOCATE playerPick + 2, 4: PRINT "Cut"
77.                 LOCATE 16, 1: PRINT "Good pick."
78.                 _DELAY 1
79.             END IF
80.         END IF
81.         ' if gameover still = 0 then loop around
82.     WEND
83.  
84.     'finish game, total scores
85.     IF winner$ = "player" THEN player = player + 1 ELSE computer = computer + 1
86.     cp 18, "Play again? enter y for yes > "
87.     INPUT "", again$
88.     IF again$ <> "y" THEN done = -1
89. LOOP UNTIL done
90.  
91. SUB cp (row, text$)
92.     LOCATE row, (80 - LEN(text$)) / 2: PRINT text$;
93. END SUB
94.  
95.  

Title: Re: A VERY Simple Game!
Post by: Prithak on January 02, 2019, 10:44:48 pm

Quote from: bplus on January 01, 2019, 04:38:52 pm

Ha, took an hour to write up, a couple of hours to debug (and overhaul) some more hours to refine:

Code: QB64: [Select]

1. _TITLE "Who cut 1?" 'inspired by Prithak's game posted 2018-12-31
2. 'the disadvantage of going first is you are first in line to risk the bomb
3. 'the advantage is if both players pick the same number for the bomb the first will never get it.
4. _FULLSCREEN
5. DO
6.     CLS 'show instructions to game
7.     cp 2, "Who Cut 1 ?"
8.     cp 4, "This game has 0 to 9 numbers to pick from."
9.     cp 5, "You will plant a bomb under one."
10.     cp 6, "The computer will do the same."
11.     cp 7, "You will take turns cutting numbers"
12.     cp 8, "until one cuts a number with a bomb."
13.     cp 10, "Player =" + STR$(player) + "  Computer =" + STR$(computer)
14.     'computer chooses it's bomb site
15.     choices$ = "0123456789"
16.     computerBomb = INT(RND * 10)
17.     MID$(choices$, computerBomb + 1, 1) = "b"
18.  
19.     'player choice's bomb site
20.     DO
21.         PRINT: cp 13, "Player, enter the number place (0 to 9) for your bomb > "
22.         INPUT "", bomb
23.         CLS
24.     LOOP UNTIL bomb >= 0 AND bomb <= 9
25.     MID$(choices$, bomb + 1, 1) = "b"
26.  
27.     'start game
28.     gameover = 0
29.     WHILE NOT gameover
30.         'display cuts up to this point
31.         CLS
32.         'PRINT computerBomb; " Numbers left:  " + choices$ '<<<<<< debug track hidden game status
33.         PRINT "Numbers left:"
34.         nonCutChoices$ = ""
35.         FOR i = 0 TO 9
36.             IF MID$(choices$, i + 1, 1) <> "c" THEN
37.                 PRINT i
38.                 nonCutChoices$ = nonCutChoices$ + LTRIM$(STR$(i))
39.             ELSE
40.                 PRINT "Cut"
41.             END IF
42.         NEXT
43.  
44.         'computer moves first each turn
45.         'don't be a stupid computer and pick the bomb you planted!!!
46.         computerPick = computerBomb
47.         WHILE computerPick = computerBomb
48.             computerPick = VAL(MID$(nonCutChoices$, INT(RND * LEN(nonCutChoices$) + 1), 1))
49.         WEND
50.         LOCATE 13, 1: PRINT "Computer picks "; computerPick
51.         IF MID$(choices$, computerPick + 1, 1) = "b" THEN
52.             PRINT "BOOM!, Player wins!"
53.             winner$ = "player"
54.             LOCATE computerPick + 2, 4: PRINT "BOOM!"
55.             gameover = -1
56.         ELSE
57.  
58.             'computer picks successfully
59.             MID$(choices$, computerPick + 1, 1) = "c"
60.             LOCATE computerPick + 2, 4: PRINT "Cut"
61.  
62.             'player's turn, don't allow player cheat by cutting a number already cut
63.             DO
64.                 LOCATE 15, 1: PRINT SPACE$(79)
65.                 LOCATE 15, 1: INPUT "Player, enter a number to cut (not yet cut) > ", playerPick
66.             LOOP WHILE MID$(choices$, playerPick + 1, 1) = "c" OR playerPick = computerPick
67.  
68.             'handle player's legal choice
69.             IF MID$(choices$, playerPick + 1, 1) = "b" THEN
70.                 PRINT "BOOM!, Computer wins!"
71.                 winner$ = "computer"
72.                 LOCATE playerPick + 2, 4: PRINT "BOOM!"
73.                 gameover = -1
74.             ELSE
75.                 MID$(choices$, playerPick + 1, 1) = "c"
76.                 LOCATE playerPick + 2, 4: PRINT "Cut"
77.                 LOCATE 16, 1: PRINT "Good pick."
78.                 _DELAY 1
79.             END IF
80.         END IF
81.         ' if gameover still = 0 then loop around
82.     WEND
83.  
84.     'finish game, total scores
85.     IF winner$ = "player" THEN player = player + 1 ELSE computer = computer + 1
86.     cp 18, "Play again? enter y for yes > "
87.     INPUT "", again$
88.     IF again$ <> "y" THEN done = -1
89. LOOP UNTIL done
90.  
91. SUB cp (row, text$)
92.     LOCATE row, (80 - LEN(text$)) / 2: PRINT text$;
93. END SUB
94.  
95.  

WOW! I'd love including this in my main game but I need to learn this not CTRL + C and CTRL + V it xD. This was a nice play bplus! Thanks for making this

-Prithak

Title: Re: A VERY Simple Game!
Post by: Prithak on January 02, 2019, 10:46:49 pm

Quote from: bplus on January 01, 2019, 11:08:52 am

Hi Prithak,

I love simple games.

So the object of this game is to NOT be the first to pick one of the picked numbers, as opposed to say trying to guess what the other player did pick before the other player does. So if the other player seems to be avoiding a number that might be the one he picked. Correct?

I am surprised the font effect achieved by _FULLSCREEN.

I will try a version to play against the computer, if you don't mind.

Correct! BTW, I came up with this game at school xD. Instead of guessing others number, we have to avoid it lol.
I'm surprised as well at the font of _FULLSCREEN! It looks cool!

-Prithak

Title: Re: A VERY Simple Game!
Post by: bplus on January 03, 2019, 07:50:51 am

A nice game and a pleasure to share ideas with someone across the world! :)

Text Only | Text with Attachments