QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on May 08, 2020, 12:26:54 am

Title: Ken's Snake Game
Post by: SierraKen on May 08, 2020, 12:26:54 am

This is a small game, but it can be fun. :) Move around the snake on the screen with your mouse and avoid the red bombs while eating the yellow food to gain points. Once your health goes away the game ends. After a short amount of time the bombs and the food re-locate.
This is my first game using a snake tail I invented tonight. I know I could have used that one fading tail effect, but I wanted to try something different just to see if it could be done. If you look at the code, you might notice that I use CLS after 2500 plots in order to reset the variables of the snake. I tried it other ways without having to use CLS but couldn't do it for some reason. But that's OK, the player doesn't notice it anyway. Anyways, please tell me what you think. I hope you enjoy it.

Code: QB64: [Select]

1. 'Use your mouse to guide the snake around the screen to eat the yellow food.
2. 'Watch out for the red bombs or your health will go down.
3. 'Made by Sierraken (Ken G.) on May 7, 2020.
4. 'Freeware - Feel free to use any code but do not sell this game as a whole.
5. DIM x(3000), y(3000)
6. DIM xx(2000), yy(2000)
7. DIM xxx(2000), yyy(2000)
8. _TITLE "Snake Game     by SierraKen"
9. lives = 100
10. 'Setup screen.
11. SCREEN _NEWIMAGE(800, 600, 32)
12. 'Bombs
13. FOR r = 1 TO 30
14.     RANDOMIZE TIMER
15.     xx(r) = INT(RND * 750) + 25
16.     yy(r) = INT(RND * 550) + 25
17.     FOR sz = .25 TO 15 STEP .25
18.         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
19.     NEXT sz
20. NEXT r
21. 'Food
22. FOR rr = 1 TO 30
23.     RANDOMIZE TIMER
24.     xxx(rr) = INT(RND * 750) + 25
25.     yyy(rr) = INT(RND * 550) + 25
26.     FOR sz = .25 TO 5 STEP .25
27.         CIRCLE (xxx(rr), yyy(rr)), sz, _RGB32(255, 255, 128)
28.     NEXT sz
29. NEXT rr
30. 'Main Game Loop
31. DO
32.     mouseWheel = 0
33.     DO WHILE _MOUSEINPUT
34.         mouseX = _MOUSEX
35.         mouseY = _MOUSEY
36.         t = t + 1
37.         x(t) = mouseX
38.         y(t) = mouseY
39.         IF t > 50 THEN
40.             FOR sz = .25 TO 5 STEP .25
41.                 CIRCLE (x(t - 50), y(t - 50)), sz, _RGB32(0, 0, 0)
42.             NEXT sz
43.             'At a certain time, replace bombs and food and reset variable T.
44.             IF t > 2500 THEN
45.                 t = 1
46.                 CLS
47.                 FOR r = 1 TO 30
48.                     RANDOMIZE TIMER
49.                     xx(r) = INT(RND * 750) + 25
50.                     yy(r) = INT(RND * 550) + 25
51.                     FOR sz = .25 TO 15 STEP .25
52.                         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
53.                     NEXT sz
54.                     RANDOMIZE TIMER
55.                     xxx(r) = INT(RND * 750) + 25
56.                     yyy(r) = INT(RND * 550) + 25
57.                     FOR sz = .25 TO 5 STEP .25
58.                         CIRCLE (xxx(r), yyy(r)), sz, _RGB32(255, 255, 128)
59.                     NEXT sz
60.                 NEXT r
61.             END IF
62.         END IF
63.         'Draw the snake.
64.         FOR sz = .25 TO 5 STEP .25
65.             CIRCLE (mouseX, mouseY), sz, _RGB32(255, 255, 255)
66.         NEXT sz
67.         'Check to see if you hit a bomb,
68.         FOR ch = -7 TO 7
69.             IF POINT(x(t) + ch, y(t) + ch) = _RGB32(255, 0, 0) THEN
70.                 SOUND 150, .25
71.                 lives = lives - 1
72.                 lives$ = STR$(lives)
73.                 score$ = STR$(sc)
74.                 _TITLE "Score: " + score$ + "     Health: " + lives$
75.                 IF lives < 1 THEN
76.                     LOCATE 20, 40: PRINT "G A M E    O V E R"
77.                     END
78.                 END IF
79.                 FOR ex = 1 TO 35
80.                     CIRCLE (x(t) + ch, y(t) + ch), ex, _RGB32(0, 0, 0)
81.                 NEXT ex
82.             END IF
83.         NEXT ch
84.         'Check to see if you eat food.
85.         FOR ch2 = -14 TO 14
86.             IF POINT(x(t) + ch2, y(t) + ch2) = _RGB32(255, 255, 128) THEN
87.                 sc = sc + 10
88.                 score$ = STR$(sc)
89.                 lives$ = STR$(lives)
90.                 _TITLE "Score: " + score$ + "     Health: " + lives$
91.                 FOR snd = 300 TO 400 STEP 25
92.                     SOUND snd, .25
93.                 NEXT snd
94.                 FOR ex = .25 TO 8 STEP .25
95.                     CIRCLE (x(t) + ch2, y(t) + ch2), ex, _RGB32(0, 0, 0)
96.                 NEXT ex
97.             END IF
98.         NEXT ch2
99.     LOOP
100. LOOP
101.  

Title: Re: Ken's Snake Game
Post by: TempodiBasic on May 08, 2020, 07:19:20 am

Hi Ken
fine to meet another your program

I find it fine, the gameplay is good... I have seen that it is not necessary to get all the foodpoints on the screen to pass the next level.
I have taken some red bombs....
fine sound.
here a screenshot of my playing

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Good job! And Thanks to share.

Title: Re: Ken's Snake Game
Post by: SierraKen on May 08, 2020, 12:48:19 pm

Thanks TempodiBasic! Yeah the levels just change when your snake goes a certain distance. This game so far is just an example game to make a snake pretty much. I might enhance it soon. :)

Title: Re: Ken's Snake Game
Post by: SierraKen on May 08, 2020, 06:16:31 pm

I added enemies that chase you. :) Any comments are welcome as usual.

Code: QB64: [Select]

1. 'Use your mouse to guide the snake around the screen to eat the yellow food.
2. 'Watch out for the red bombs or your health will go down.
3. 'Also watch out for the enemies that move toward you. They will also make your health decrease.
4. 'Made by Sierraken (Ken G.) on May 8, 2020.
5. DIM x(3000), y(3000)
6. DIM xx(2000), yy(2000)
7. DIM xxx(2000), yyy(2000)
8. DIM x2(2000), y2(2000)
9. _TITLE "Snake Game     by SierraKen"
10. lives = 100
11. 'Setup screen.
12. SCREEN _NEWIMAGE(800, 600, 32)
13. 'Bombs
14. FOR r = 1 TO 30
15.     RANDOMIZE TIMER
16.     xx(r) = INT(RND * 750) + 25
17.     yy(r) = INT(RND * 550) + 25
18.     FOR sz = .25 TO 15 STEP .25
19.         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
20.     NEXT sz
21. NEXT r
22. 'Food
23. FOR rr = 1 TO 30
24.     RANDOMIZE TIMER
25.     xxx(rr) = INT(RND * 750) + 25
26.     yyy(rr) = INT(RND * 550) + 25
27.     FOR sz = .25 TO 5 STEP .25
28.         CIRCLE (xxx(rr), yyy(rr)), sz, _RGB32(255, 255, 128)
29.     NEXT sz
30. NEXT rr
31. 'Enemies
32. FOR rrr = 1 TO 10
33.     RANDOMIZE TIMER
34.     x2(rrr) = INT(RND * 750) + 25
35.     y2(rrr) = INT(RND * 550) + 25
36.     FOR sz = .25 TO 5 STEP .25
37.         CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(255, 0, 128)
38.     NEXT sz
39. NEXT rrr
40.  
41. 'Main Game Loop
42. DO
43.     _LIMIT 3000
44.     mouseWheel = 0
45.     DO WHILE _MOUSEINPUT
46.         mouseX = _MOUSEX
47.         mouseY = _MOUSEY
48.         t = t + 1
49.         x(t) = mouseX
50.         y(t) = mouseY
51.         IF t > 50 THEN
52.             FOR sz = .25 TO 5 STEP .25
53.                 CIRCLE (x(t - 50), y(t - 50)), sz, _RGB32(0, 0, 0)
54.             NEXT sz
55.             'At a certain time, replace bombs, food, enemies, and reset variable T.
56.             IF t > 2500 THEN
57.                 t = 1
58.                 CLS
59.                 FOR r = 1 TO 30
60.                     RANDOMIZE TIMER
61.                     xx(r) = INT(RND * 750) + 25
62.                     yy(r) = INT(RND * 550) + 25
63.                     FOR sz = .25 TO 15 STEP .25
64.                         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
65.                     NEXT sz
66.                     RANDOMIZE TIMER
67.                     xxx(r) = INT(RND * 750) + 25
68.                     yyy(r) = INT(RND * 550) + 25
69.                     FOR sz = .25 TO 5 STEP .25
70.                         CIRCLE (xxx(r), yyy(r)), sz, _RGB32(255, 255, 128)
71.                     NEXT sz
72.                 NEXT r
73.                 FOR r2 = 1 TO 10
74.                     RANDOMIZE TIMER
75.                     x2(r2) = INT(RND * 750) + 25
76.                     y2(r2) = INT(RND * 550) + 25
77.                     FOR sz = .25 TO 5 STEP .25
78.                         CIRCLE (x2(r2), y2(r2)), sz, _RGB32(255, 0, 128)
79.                     NEXT sz
80.                 NEXT r2
81.             END IF
82.         END IF
83.         'Draw the snake.
84.         FOR sz = .25 TO 5 STEP .25
85.             CIRCLE (mouseX, mouseY), sz, _RGB32(255, 255, 255)
86.         NEXT sz
87.         'Check to see if you hit a bomb,
88.         FOR ch = -7 TO 7
89.             IF POINT(x(t) + ch, y(t) + ch) = _RGB32(255, 0, 0) THEN
90.                 SOUND 150, .25
91.                 lives = lives - 1
92.                 lives$ = STR$(lives)
93.                 score$ = STR$(sc)
94.                 _TITLE "Score: " + score$ + "     Health: " + lives$
95.                 IF lives < 0 THEN
96.                     LOCATE 20, 40: PRINT "G A M E    O V E R"
97.                     END
98.                 END IF
99.                 FOR ex = 1 TO 35
100.                     CIRCLE (x(t) + ch, y(t) + ch), ex, _RGB32(0, 0, 0)
101.                 NEXT ex
102.             END IF
103.         NEXT ch
104.         'Check to see if you eat food.
105.         FOR ch2 = -14 TO 14
106.             IF POINT(x(t) + ch2, y(t) + ch2) = _RGB32(255, 255, 128) THEN
107.                 sc = sc + 10
108.                 score$ = STR$(sc)
109.                 lives$ = STR$(lives)
110.                 _TITLE "Score: " + score$ + "     Health: " + lives$
111.                 FOR snd = 300 TO 400 STEP 25
112.                     SOUND snd, .25
113.                 NEXT snd
114.                 FOR ex = .25 TO 8 STEP .25
115.                     CIRCLE (x(t) + ch2, y(t) + ch2), ex, _RGB32(0, 0, 0)
116.                 NEXT ex
117.             END IF
118.         NEXT ch2
119.         'Enemies
120.         FOR rrr = 1 TO 10
121.             FOR sz = .25 TO 5 STEP .25
122.                 CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(0, 0, 0)
123.             NEXT sz
124.             again:
125.             IF x2(rrr) > x(t) THEN x2(rrr) = x2(rrr) - .1
126.             IF x2(rrr) < x(t) THEN x2(rrr) = x2(rrr) + .1
127.             IF y2(rrr) > y(t) THEN y2(rrr) = y2(rrr) - .1
128.             IF y2(rrr) < y(t) THEN y2(rrr) = y2(rrr) + .1
129.             FOR ch = -7 TO 7
130.                 IF POINT(x2(rrr) + ch, y2(rrr) + ch) = _RGB32(255, 0, 0) THEN GOTO again:
131.             NEXT ch
132.             FOR sz = .25 TO 5 STEP .25
133.                 CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(255, 0, 128)
134.             NEXT sz
135.             'Check to see if you hit an enemy,
136.             FOR ch = -3 TO 3
137.                 IF POINT(x(t) + ch, y(t) + ch) = _RGB32(255, 0, 128) THEN
138.                     lives = lives - .01
139.                     lives$ = STR$(lives)
140.                     score$ = STR$(sc)
141.                     _TITLE "Score: " + score$ + "     Health: " + lives$
142.                     IF lives < 0 THEN
143.                         LOCATE 20, 40: PRINT "G A M E    O V E R"
144.                         END
145.                     END IF
146.                     FOR ex = 1 TO 35
147.                         CIRCLE (x(t) + ch, y(t) + ch), ex, _RGB32(0, 0, 0)
148.                     NEXT ex
149.                 END IF
150.             NEXT ch
151.         NEXT rrr
152.     LOOP
153. LOOP
154.  

Title: Re: Ken's Snake Game
Post by: euklides on May 09, 2020, 11:06:48 am

Fun game.
Why is there no possibility of regaining lives ?

Title: Re: Ken's Snake Game
Post by: SierraKen on May 09, 2020, 01:07:50 pm

Thanks for the suggestion Euklides! I added the ability to get more health every 100 food pellets you get. I also made the game harder by speeding up the enemies every time the screen changes. It gets pretty hair raising after awhile. :)
Here is the update:

Code: QB64: [Select]

1. 'Use your mouse to guide the snake around the screen to eat the yellow food pellets.
2. 'Watch out for the red bombs or your health will go down.
3. 'Also watch out for the enemies that move toward you. They will also make your health decrease.
4. 'The game speeds up a little more when the screen changes.
5. 'Your health increases by 50 points every 100 food pellets.
6. 'Made by Sierraken (Ken G.) on May 9, 2020.
7. DIM x(3000), y(3000)
8. DIM xx(2000), yy(2000)
9. DIM xxx(2000), yyy(2000)
10. DIM x2(2000), y2(2000)
11. _TITLE "Snake Game      by SierraKen"
12. lives = 100
13. et = .1
14. 'Setup screen.
15. SCREEN _NEWIMAGE(800, 600, 32)
16. 'Bombs
17. FOR r = 1 TO 30
18.     RANDOMIZE TIMER
19.     xx(r) = INT(RND * 750) + 25
20.     yy(r) = INT(RND * 550) + 25
21.     FOR sz = .25 TO 15 STEP .25
22.         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
23.     NEXT sz
24. NEXT r
25. 'Food
26. FOR rr = 1 TO 30
27.     RANDOMIZE TIMER
28.     xxx(rr) = INT(RND * 750) + 25
29.     yyy(rr) = INT(RND * 550) + 25
30.     FOR sz = .25 TO 5 STEP .25
31.         CIRCLE (xxx(rr), yyy(rr)), sz, _RGB32(255, 255, 128)
32.     NEXT sz
33. NEXT rr
34. 'Enemies
35. FOR rrr = 1 TO 10
36.     RANDOMIZE TIMER
37.     x2(rrr) = INT(RND * 750) + 25
38.     y2(rrr) = INT(RND * 550) + 25
39.     FOR sz = .25 TO 5 STEP .25
40.         CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(255, 0, 128)
41.     NEXT sz
42. NEXT rrr
43.  
44. 'Main Game Loop
45. DO
46.     _LIMIT 3000
47.     mouseWheel = 0
48.     DO WHILE _MOUSEINPUT
49.         mouseX = _MOUSEX
50.         mouseY = _MOUSEY
51.         t = t + 1
52.         x(t) = mouseX
53.         y(t) = mouseY
54.         IF t > 50 THEN
55.             FOR sz = .25 TO 5 STEP .25
56.                 CIRCLE (x(t - 50), y(t - 50)), sz, _RGB32(0, 0, 0)
57.             NEXT sz
58.             'At a certain time, replace bombs, food, enemies, reset variable T, and speed up enemies.
59.             IF t > 2500 THEN
60.                 t = 1
61.                 et = et + .005
62.                 CLS
63.                 FOR r = 1 TO 30
64.                     RANDOMIZE TIMER
65.                     xx(r) = INT(RND * 750) + 25
66.                     yy(r) = INT(RND * 550) + 25
67.                     FOR sz = .25 TO 15 STEP .25
68.                         CIRCLE (xx(r), yy(r)), sz, _RGB32(255, 0, 0)
69.                     NEXT sz
70.                     RANDOMIZE TIMER
71.                     xxx(r) = INT(RND * 750) + 25
72.                     yyy(r) = INT(RND * 550) + 25
73.                     FOR sz = .25 TO 5 STEP .25
74.                         CIRCLE (xxx(r), yyy(r)), sz, _RGB32(255, 255, 128)
75.                     NEXT sz
76.                 NEXT r
77.                 FOR r2 = 1 TO 10
78.                     RANDOMIZE TIMER
79.                     x2(r2) = INT(RND * 750) + 25
80.                     y2(r2) = INT(RND * 550) + 25
81.                     FOR sz = .25 TO 5 STEP .25
82.                         CIRCLE (x2(r2), y2(r2)), sz, _RGB32(255, 0, 128)
83.                     NEXT sz
84.                 NEXT r2
85.             END IF
86.         END IF
87.         'Draw the snake.
88.         FOR sz = .25 TO 5 STEP .25
89.             CIRCLE (mouseX, mouseY), sz, _RGB32(255, 255, 255)
90.         NEXT sz
91.         'Check to see if you hit a bomb,
92.         FOR ch = -7 TO 7
93.             IF POINT(x(t) + ch, y(t) + ch) = _RGB32(255, 0, 0) THEN
94.                 SOUND 150, .25
95.                 lives = lives - 1
96.                 lives$ = STR$(lives)
97.                 score$ = STR$(sc)
98.                 _TITLE "Score: " + score$ + "     Health: " + lives$
99.                 IF lives < 0 THEN
100.                     LOCATE 20, 40: PRINT "G A M E    O V E R"
101.                     END
102.                 END IF
103.                 FOR ex = 1 TO 35
104.                     CIRCLE (x(t) + ch, y(t) + ch), ex, _RGB32(0, 0, 0)
105.                 NEXT ex
106.             END IF
107.         NEXT ch
108.         'Check to see if you eat food.
109.         FOR ch2 = -14 TO 14
110.             IF POINT(x(t) + ch2, y(t) + ch2) = _RGB32(255, 255, 128) THEN
111.                 sc = sc + 10
112.                 IF sc / 1000 = INT(sc / 1000) THEN lives = lives + 50
113.                 score$ = STR$(sc)
114.                 lives$ = STR$(lives)
115.                 _TITLE "Score: " + score$ + "     Health: " + lives$
116.                 FOR snd = 300 TO 400 STEP 25
117.                     SOUND snd, .25
118.                 NEXT snd
119.                 FOR ex = .25 TO 8 STEP .25
120.                     CIRCLE (x(t) + ch2, y(t) + ch2), ex, _RGB32(0, 0, 0)
121.                 NEXT ex
122.             END IF
123.         NEXT ch2
124.         'Enemies
125.         FOR rrr = 1 TO 10
126.             FOR sz = .25 TO 5 STEP .25
127.                 CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(0, 0, 0)
128.             NEXT sz
129.             again:
130.             IF x2(rrr) > x(t) THEN x2(rrr) = x2(rrr) - et
131.             IF x2(rrr) < x(t) THEN x2(rrr) = x2(rrr) + et
132.             IF y2(rrr) > y(t) THEN y2(rrr) = y2(rrr) - et
133.             IF y2(rrr) < y(t) THEN y2(rrr) = y2(rrr) + et
134.             FOR ch = -7 TO 7
135.                 IF POINT(x2(rrr) + ch, y2(rrr) + ch) = _RGB32(255, 0, 0) THEN GOTO again:
136.             NEXT ch
137.             FOR sz = .25 TO 5 STEP .25
138.                 CIRCLE (x2(rrr), y2(rrr)), sz, _RGB32(255, 0, 128)
139.             NEXT sz
140.             'Check to see if you hit an enemy,
141.             FOR ch = -3 TO 3
142.                 IF POINT(x(t) + ch, y(t) + ch) = _RGB32(255, 0, 128) THEN
143.                     lives = lives - .01
144.                     lives$ = STR$(lives)
145.                     score$ = STR$(sc)
146.                     _TITLE "Score: " + score$ + "     Health: " + lives$
147.                     IF lives < 0 THEN
148.                         LOCATE 20, 40: PRINT "G A M E    O V E R"
149.                         END
150.                     END IF
151.                     FOR ex = 1 TO 35
152.                         CIRCLE (x(t) + ch, y(t) + ch), ex, _RGB32(0, 0, 0)
153.                     NEXT ex
154.                 END IF
155.             NEXT ch
156.         NEXT rrr
157.     LOOP
158. LOOP
159.  

Text Only | Text with Attachments