Race Car Game

[SierraKen]

Hi all,

Today I made a game I've wanted to make since I was a kid when my toy hand-held race car game broke one day.
You start with 5 cars and you move the arrow keys. You can go backwards but it doesn't do anything besides make the lines in the
road move back. I'll put this on my website http://KensProgras.com soon. I know things can be added like oil slick or shooting or whatever
but I think I accomplished a good game in 1 afternoon. :) Tell me what you think. Oh, and I tried to add engine sound but it messed up the sounds
when you hit another car or the side of the road.

(NOTE: This is Version 1, Version 2, which includes many things, is posted on the next page of this forum topic.)

Code: QB64: [Select]

1. 'I've wanted to make this game since I was a kid when I owned a little hand-held race car game where you steered the little wheel"
2. 'to avoid the other cars. That toy broke when I was a kid so I've wanted a similar one on the computer. :)
3. 'Enjoy!
4. '
5. 'Made on July 14, 2019 by Ken G.
6. 'Freeware only.
7.  
8. _TITLE "RACE CAR"
9. _SCREENMOVE _MIDDLE
10. SCREEN _NEWIMAGE(640, 480, 32)
11. begin:
12. CLS
13. PRINT "                             R  A  C  E    C  A  R"
14. PRINT: PRINT: PRINT
15. PRINT "                                  By Ken G."
16. PRINT: PRINT: PRINT
17. PRINT "                    Use your arrow keys to steer your car"
18. PRINT "                    around the other cars as far as you can"
19. PRINT "                    without hitting them."
20. PRINT
21. PRINT "                    You get 5 cars."
22. PRINT "                    Every time you hit a street edge, you"
23. PRINT "                    lose 200 points."
24. PRINT
25. PRINT
26. INPUT "                    Press Enter to play!", a$
27. CLS
28.  
29.  
30. LINE (0, 240)-(640, 240), _RGB32(127, 255, 127)
31. rc = 5
32. x = 320
33. y = 250: yy = 450
34. cx = 350: cy = 420
35. u = 1
36. sc = 0
37. collision = 0
38. go:
39. _LIMIT 100
40. a$ = INKEY$
41. IF a$ = CHR$(27) THEN END
42. IF a$ = CHR$(0) + CHR$(72) THEN u = 1: d = 0: r = 0: L = 0
43. IF a$ = CHR$(0) + CHR$(80) THEN u = 0: d = 1: r = 0: L = 0
44. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: L = 0
45. IF a$ = CHR$(0) + CHR$(75) THEN L = 1: r = 0
46. IF u = 1 THEN
47.     oy = y
48.     y = y + 5
49.     IF y > 640 THEN y = 250
50.     LINE (x, oy)-(x, oy + 10), _RGB32(0, 0, 0)
51.     LINE (x, y)-(x, y + 10), _RGB32(127, 255, 127)
52.     oyy = yy
53.     yy = yy + 5
54.     IF yy > 640 THEN yy = 250
55.     IF yy < 240 THEN yy = 640
56.     LINE (x, oyy)-(x, oyy + 10), _RGB32(0, 0, 0)
57.     LINE (x, yy)-(x, yy + 10), _RGB32(127, 255, 127)
58. END IF
59.  
60. IF d = 1 THEN
61.     oy = y
62.     y = y - 5
63.     IF y < 240 THEN y = 640
64.     LINE (x, oy)-(x, oy + 10), _RGB32(0, 0, 0)
65.     LINE (x, y)-(x, y + 10), _RGB32(127, 255, 127)
66.     oyy = yy
67.     yy = yy - 5
68.     IF yy < 240 THEN yy = 640
69.     IF yy > 640 THEN yy = 250
70.     LINE (x, oyy)-(x, oyy + 10), _RGB32(0, 0, 0)
71.     LINE (x, yy)-(x, yy + 10), _RGB32(127, 255, 127)
72. END IF
73.  
74. IF r = 1 THEN
75.     ocx = cx: ocy = cy
76.     GOSUB erasecar:
77.     cx = cx + 2
78.     'Check street edge.
79.     IF cx > 570 THEN
80.         cx = 550
81.         SOUND 800, .25
82.         sc = sc - 200
83.     END IF
84.     GOSUB drawcar:
85. END IF
86.  
87.  
88. IF L = 1 THEN
89.     ocx = cx: ocy = cy
90.     GOSUB erasecar:
91.     cx = cx - 2
92.     'Check street edge.
93.     IF cx < 40 THEN
94.         cx = 60
95.         SOUND 800, .25
96.         sc = sc - 200
97.     END IF
98.     GOSUB drawcar:
99. END IF
100. 'Street Sides
101. LINE (320, 240)-(0, 480), _RGB32(127, 255, 127)
102. LINE (320, 240)-(640, 480), _RGB32(127, 255, 127)
103. GOSUB drawcar:
104.  
105. 'Other Car
106. RANDOMIZE TIMER
107. oc = INT(RND * 1000) + 1
108. IF oc > 980 AND occ = 0 THEN
109.     occ = 1
110.     RANDOMIZE TIMER
111.     oxx2 = (RND * 12) - 6
112.     oyyy = 250
113.     oxxx = 305
114. END IF
115. IF occ = 1 THEN
116.     oldoyyy = oyyy
117.     oldoxxx = oxxx
118.     oyyy = oyyy + 5
119.     oxxx = oxxx + oxx2
120.     LINE (oldoxxx, oldoyyy)-(oldoxxx + 30, oldoyyy + 30), _RGB32(0, 0, 0), BF
121.     CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
122.     CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
123.     CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
124.     CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
125.  
126.     LINE (oxxx, oyyy)-(oxxx + 30, oyyy + 30), _RGB32(127, 249, 127), BF
127.     CIRCLE (oxxx, oyyy + 5), 5, _RGB32(127, 227, 127)
128.     CIRCLE (oxxx + 30, oyyy + 5), 5, _RGB32(127, 227, 127)
129.     CIRCLE (oxxx + 30, oyyy + 25), 5, _RGB32(127, 227, 127)
130.     CIRCLE (oxxx, oyyy + 25), 5, _RGB32(127, 227, 127)
131.  
132.     IF oyyy > 640 THEN
133.         occ = 0
134.         LINE (oxxx, oyyy)-(oxxx + 20, oyyy + 20), _RGB32(0, 0, 0), BF
135.         CIRCLE (oldoxxx, oldoyyy + 5), 5, _RGB32(0, 0, 0)
136.         CIRCLE (oldoxxx + 30, oldoyyy + 5), 5, _RGB32(0, 0, 0)
137.         CIRCLE (oldoxxx + 30, oldoyyy + 25), 5, _RGB32(0, 0, 0)
138.         CIRCLE (oldoxxx, oldoyyy + 25), 5, _RGB32(0, 0, 0)
139.  
140.         oyyy = 250
141.         oxxx = 320
142.         collision = 0
143.         GOTO nex:
144.     END IF
145. END IF
146. nex:
147.  
148. 'Detect Collision
149. IF cx > oxxx - 5 AND cx < oxxx + 35 AND cy > oyyy - 5 AND cy < oyyy + 35 THEN
150.     SOUND 800, .25
151.     IF collision = 0 THEN rc = rc - 1
152.     IF rc = 0 THEN GOTO done:
153.     collision = 1
154. END IF
155.  
156.  
157. LOCATE 1, 1: PRINT "Score: "; sc
158. sc = sc + 1
159.  
160. LOCATE 1, 70: PRINT "Cars:"; rc
161.  
162. GOTO go:
163.  
164. drawcar:
165. 'Car
166. LINE (cx, cy)-(cx + 30, cy + 30), _RGB32(127, 227, 127), BF
167. LINE (cx + 5, cy - 5)-(cx + 25, cy), _RGB32(127, 227, 127), BF
168. CIRCLE (cx, cy + 5), 5, _RGB32(127, 227, 127)
169. CIRCLE (cx + 30, cy + 5), 5, _RGB32(127, 227, 127)
170. CIRCLE (cx + 30, cy + 25), 5, _RGB32(127, 227, 127)
171. CIRCLE (cx, cy + 25), 5, _RGB32(127, 227, 127)
172. RETURN
173.  
174. erasecar:
175. LINE (ocx, ocy)-(ocx + 30, ocy + 30), _RGB32(0, 0, 0), BF
176. LINE (ocx + 5, ocy - 5)-(ocx + 25, ocy), _RGB32(0, 0, 0), BF
177. CIRCLE (ocx, ocy + 5), 5, _RGB32(0, 0, 0)
178. CIRCLE (ocx + 30, ocy + 5), 5, _RGB32(0, 0, 0)
179. CIRCLE (ocx + 30, ocy + 25), 5, _RGB32(0, 0, 0)
180. CIRCLE (ocx, ocy + 25), 5, _RGB32(0, 0, 0)
181. RETURN
182.  
183. done:
184. LOCATE 10, 30: PRINT "G A M E    O V E R"
185. LOCATE 14, 30: PRINT "Score: "; sc
186. LOCATE 1, 70: PRINT "Cars:"; rc
187. again:
188. LOCATE 17, 30
189. INPUT "Would you like to play again? (Yes/No)", ag$
190. IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO begin:
191. END
192.  
193.  
194.  

[Pete]

Was that an early arcade game? It seems very familiar.

Pete

[SierraKen]

Here is the original. I got it around 1982 or so. It used paper to scroll inside the track with the cars going by. lol When you hit a car it flashed a light at you and made a sound. :) My game looks a bit more like the arcade game Pole Position, but with no turns, just a straight track, like my old toy was.  lol

[Petr]

Hi SierraKen, i like it!

I'm not at home now, but I'm going to look at it more deeply at home. Acceleration and braking fluency can be resolved with the TIMER function, that is, when you add throttle, record time and add a higher speed after some time limit, the same for braking. Definitely a very interesting program. The sounds .... well, I would change the frequency of the sound by the Y-axis distance in the loop.

Something as this:

Code: QB64: [Select]

1.  
2. SCREEN _NEWIMAGE(1024, 768, 256)
3. CarWidth = 70
4. CarHeight = 115
5.  
6.  
7. DO
8.     CLS
9.     WHILE _MOUSEINPUT: WEND
10.  
11.     LINE (512 - CarWidth, 384 - CarHeight)-(512 + CarWidth, 384 + CarHeight), 14, B 'static car
12.  
13.     LINE (_MOUSEX - CarWidth, _MOUSEY - CarHeight)-(_MOUSEX + CarWidth, _MOUSEY + CarHeight), 15, B 'car used with mouse
14.     distance = ABS(_MOUSEY - 384) / 30 'return always positive value
15.     LOCATE 1
16.     PRINT distance
17.  
18.     FOR S = 150 - distance TO 170 - distance STEP 10
19.         lenght = S / 900
20.         SOUND S, lenght
21.     NEXT S
22.     _DISPLAY
23.     _LIMIT 40
24. LOOP
25.  
26. there muss be _LIMIT used for applying sound difference in time. Or is harder way with SNDLOOP used with SNDSETPOS.
27.  

[OldMoses]

4498, much better than I would expect with my reflexes. Very cool old school rendering. Takes me back...

[bplus]

Hi Ken,

Your best game yet!

[SierraKen]

Wow thanks guys! Petr, yeah I used _DELAY for a long time with it, I'll try it again. I would rather use that than a TIMER loop if I can. I'll also try to figure out a way to add engine sounds but most likely I won't be able to because 2 SOUND commands at the same time don't work well together on my computer for some reason. I wonder if a mp3 sound would work in the background? I'll look into it. I decided that I'm also going to try and add oil slicks and possibly other details. :) So version 2 will be coming soon, I'll post it here when I'm ready.

[Pete]

This is another one of those cases where I wish there was a way to get programs like this on phone and PDA devices. Windows Phone crapped out, so that pretty much blew out the possibility of a QB64 C/C++ translator at least working on a Windows phone. Android is more JAVA based, but there is an OpenGL for Android. I recall Rob had a JAVA written version of QB64 as something on his wish list, if he ever redid QB64.

This one is remarkably under 200 lines, so I don't know, maybe it could be ported to SmallBasic for Android. It's been a couple of years since I've programmed in that language, so, I really just guessing.

I'm looking forward to the new additions to this race car app. I'm trying to recall if Pole Position had acceleration and deceleration capabilities. I know, I know, if it gets over-complicated, it loses its appeal. Anyway, I do recall a spinning car if it hit an oil slick. I think that would be a great addition.

Pete

[SierraKen]

Awesome Pete! Yeah this would be perfect for cell phones, if it was possible. If you ever do use SmallBasic again, feel free to try and import it. So far I just added acceleration and deceleration using the _delay command, it was easier than I thought. lol Since the street is black I will try to add something like "OIL" in green or something. lol I'm also going to add up the amount of cars you pass so at the end it times the score with the amount of cars because someone can drive at like 5 mph all day and never get hit. LOL I might also add an accelerometer to tell people the speed. I'm having a blast with this! I just have to make time for my daily chores. lol

[johnno56]

THIS is a cool game. Very simple layout. Continuous movement of the player makes for a challenging game. Unfortunately, my reflexes are not what they used to be and was "killed off" quite quickly, but still a fun game. Nicely done! (not getting killed off.... I meant the making of the game... lol)

[SierraKen]

Thanks Johno! Version 2 should be out soon. I've added oil slicks and acceleration. :) Might add some more things.

[johnno56]

Looking forward to it...

[SierraKen]

OK it is JUST about done! I got the acceleration/deceleration and speed indicator (You can't go backwards anymore, just slow down to 40 mph). I got 2 buildings at once on the sides of the road, can be 2 on each side or 1 on each side. And I got the oil slick that randomly slides you a direction. Now the last thing I want to add (you can laugh if you want), a Top Ten score list that makes a text file on your computer of the top ten scores so far. Has any of you made one of those yet with QB64? I know how to make a text file and read one, I just have to play with it some to detect the numbers and write the new ones. What I haven't done with QB64 yet is use the APPEND command for the text file and it's been decades since I attempted it, but I will give it a shot. Hold your horses for a little longer folks, I think you all will be surprised on how much the game has changed, I sure am. Oh, in case you are wondering, it's still all green lines, but I like it that way, it sorta gives a green screen 1980's flashback or like TRON or something. :) Just wanted to update ya, will be coming real soon.

[Pete]

Do me a favor. When you go to post it, post it by editing the original post, but don't overwrite the original code. Name this new one something like version 2, and post it in another code box, below the first version. Just include some comments above the new version code box, which explains the additions to your newer version. Sound good?

Pete

[SierraKen]

That's fine Pete, I'll leave the first one but will add to the post to scroll down to version 2. :)