QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 16, 2020, 03:05:20 am

Title: Coin Race!
Post by: SierraKen on August 16, 2020, 03:05:20 am

Try to beat the computer in gathering coins between the grid of blocks in 60 seconds by driving your future car around against his future car. Use the arrow keys. After 60 seconds it asks if you want to play again. The score and the time are kept track on the title bar. This is a project I've been working on for 2 days and is the first time I've ever made a grid game or app that is anything like this. It's not perfect, there's some bugs here and there. For example, once in a great while you can get stuck on a block but if you hold down an arrow key you can drive through it, but it's not too often.
Press the S key to turn sound off and on during play. It's a pretty simple game. The computer doesn't have A.I., just random directional changes. So if you can get used to the arrow keys, you can win every time. I might make some kind of A.I. in the future, but I kinda rushed for this first version. But please tell me what you think, thanks.

Code: QB64: [Select]

1. 'Coin Race! By SierraKen
2. 'August 16, 2020
3. 'Use the arrow keys to race against the computer to collect coins.
4. 'Press the S key to turn the sound off and on.
5.  
6. start:
7. CLS
8. SCREEN _NEWIMAGE(620, 620, 32)
9. DIM xx(1000), yy(1000)
10. _LIMIT 1000
11. RANDOMIZE TIMER
12. score = 0
13. score$ = ""
14. score2 = 0
15. score2$ = ""
16. soun = 1
17. coin = 0
18. x = 5
19. y = 5
20. cc = 0
21. co = 0
22. ex = 300: ey = 300
23. dir = INT(RND * 4) + 1
24. PAINT (2, 2), _RGB32(0, 0, 255)
25. 'Setup Coins
26. FOR yy = 20 TO 600 STEP 36
27.     FOR xx = 20 TO 600 STEP 36
28.         co = co + 1
29.         xx(co) = xx: yy(co) = yy
30.         FOR sz = .25 TO 3 STEP .25
31.             CIRCLE (xx(co), yy(co)), sz, _RGB32(255, 255, 128)
32.         NEXT sz
33.         coin = coin + 1
34.     NEXT xx
35. NEXT yy
36. coin = coin - 67 'Delete the coin count in the red boxes.
37. t2 = TIMER + 60
38. DO
39.     t3 = TIMER
40.     t1 = INT(t3 - t2)
41.     IF t1 = 0 THEN GOTO done:
42.     a$ = INKEY$
43.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
44.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
45.     IF a$ = CHR$(0) + CHR$(75) THEN d = 3
46.     IF a$ = CHR$(0) + CHR$(77) THEN d = 4
47.     IF a$ = CHR$(27) THEN END
48.     IF a$ = "s" OR a$ = "S" THEN soun = soun + 1
49.     'Erase Future Vehicle
50.     LINE (oldx, oldy)-(oldx + 15, oldy + 15), _RGB32(0, 0, 255), BF
51.     FOR tires = 1 TO 4
52.         IF tires = 2 THEN ty = 15
53.         IF tires = 3 THEN tx = 15
54.         IF tires = 4 THEN ty = 15: tx = 15
55.         FOR sz = .25 TO 3 STEP .25
56.             CIRCLE (oldx + tx, oldy + ty), sz, _RGB32(0, 0, 255)
57.         NEXT sz
58.         ty = 0: tx = 0
59.     NEXT tires
60.  
61.     'Check to see if you hit a red square.
62.     FOR iy = 40 TO 560 STEP 72
63.         FOR ix = 40 TO 560 STEP 72
64.             FOR t = -18 TO 33
65.                 FOR tt = -18 TO 33
66.                     IF x = ix + tt AND y = iy + t THEN
67.                         IF d = 3 THEN x = x + 5
68.                         IF d = 4 THEN x = x - 5
69.                         IF d = 1 THEN y = y + 5
70.                         IF d = 2 THEN y = y - 5
71.                         d = 0
72.                         GOTO nex:
73.                     END IF
74.                 NEXT tt
75.             NEXT t
76.         NEXT ix
77.     NEXT iy
78.  
79.     'Check to see if you got a coin.
80.     FOR yy = 20 TO 600 STEP 36
81.         FOR xx = 20 TO 600 STEP 36
82.             cc = cc + 1
83.             FOR cx = -18 TO 18 STEP 1
84.                 FOR cy = -18 TO 18 STEP 1
85.                     IF x + cx = xx(cc) AND y + cy = yy(cc) THEN
86.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex3:
87.                         FOR sz = .25 TO 3 STEP .25
88.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
89.                         NEXT sz
90.                         score = score + 1
91.                         score$ = STR$(score)
92.                         t1$ = STR$(t1)
93.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
94.                         xx(cc) = -100: yy(cc) = -100
95.                         IF soun / 2 <> INT(soun / 2) THEN FOR snd = 400 TO 500 STEP 25: SOUND snd, .5: NEXT snd
96.                         GOTO nex3:
97.                     END IF
98.                 NEXT cy
99.             NEXT cx
100.         NEXT xx
101.     NEXT yy
102.     nex3:
103.     cc = 0
104.     'Direction of vehicle and movement.
105.     IF d = 1 THEN y = y - 5
106.     IF d = 2 THEN y = y + 5
107.     IF d = 3 THEN x = x - 5
108.     IF d = 4 THEN x = x + 5
109.     oldx = x
110.     oldy = y
111.     nex:
112.     'If you go off the screen.
113.     IF x < -15 THEN x = 615
114.     IF y < -15 THEN y = 615
115.     IF x > 615 THEN x = -15
116.     IF y > 615 THEN y = -15
117.  
118.     'Draw Future Vehicle
119.     LINE (x, y)-(x + 15, y + 15), _RGB32(0, 255, 0), BF
120.     FOR tires = 1 TO 4
121.         IF tires = 2 THEN ty = 15
122.         IF tires = 3 THEN tx = 15
123.         IF tires = 4 THEN ty = 15: tx = 15
124.         FOR sz = .25 TO 3 STEP .25
125.             CIRCLE (x + tx, y + ty), sz, _RGB32(128, 255, 127)
126.         NEXT sz
127.         ty = 0: tx = 0
128.     NEXT tires
129.  
130.     'Blocks (red squares)
131.     FOR iy = 40 TO 560 STEP 72
132.         FOR ix = 40 TO 560 STEP 72
133.             LINE (ix, iy)-(ix + 30, iy + 30), _RGB32(255, 0, 0), BF
134.         NEXT ix
135.     NEXT iy
136.  
137.     'Enemy A.I. -------------------------------------------------------
138.  
139.     'If enemy goes off the screen.
140.     IF ex < -15 THEN ex = 615
141.     IF ey < -15 THEN ey = 615
142.     IF ex > 615 THEN ex = -15
143.     IF ey > 615 THEN ey = -15
144.  
145.     'Erase the older enemy.
146.     LINE (oldex, oldey)-(oldex + 15, oldey + 15), _RGB32(0, 0, 255), BF
147.     FOR tires = 1 TO 4
148.         IF tires = 2 THEN ty = 15
149.         IF tires = 3 THEN tx = 15
150.         IF tires = 4 THEN ty = 15: tx = 15
151.         FOR sz = .25 TO 3 STEP .25
152.             CIRCLE (oldex + tx, oldey + ty), sz, _RGB32(0, 0, 255)
153.         NEXT sz
154.         ty = 0: tx = 0
155.     NEXT tires
156.  
157.     'Check to see if enemy went over a coin.
158.     FOR yy = 20 TO 600 STEP 36
159.         FOR xx = 20 TO 600 STEP 36
160.             cc2 = cc2 + 1
161.             FOR cx = -18 TO 18 STEP 1
162.                 FOR cy = -18 TO 18 STEP 1
163.                     IF oldex + cx = xx(cc2) AND oldey + cy = yy(cc2) THEN
164.                         xx(cc2) = -200: yy(cc2) = -200
165.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex6:
166.                         FOR sz = .25 TO 7 STEP .25
167.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
168.                         NEXT sz
169.                         score2 = score2 + 1
170.                         score2$ = STR$(score2)
171.                         t1$ = STR$(t1)
172.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
173.                         GOTO nex5:
174.                     END IF
175.                     nex6:
176.                 NEXT cy
177.             NEXT cx
178.         NEXT xx
179.     NEXT yy
180.     nex5:
181.     cc2 = 0
182.  
183.     ee = INT(RND * 1000) + 1
184.     IF ee > 920 THEN 'This number is how often the computer changes direction, the smaller the more frequent.
185.         dir = INT(RND * 4) + 1
186.     END IF
187.     oldex = ex: oldey = ey
188.     IF dir = 1 THEN ex = ex + 5
189.     IF dir = 2 THEN ex = ex - 5
190.     IF dir = 3 THEN ey = ey + 5
191.     IF dir = 4 THEN ey = ey - 5
192.  
193.     'Check to see if the enemy hit a square.
194.     FOR iy = 40 TO 560 STEP 72
195.         FOR ix = 40 TO 560 STEP 72
196.             FOR t = -18 TO 33
197.                 FOR tt = -18 TO 33
198.                     IF ex = ix + tt AND ey = iy + t THEN
199.                         IF dir = 1 THEN dir = 3: ex = ex - 5
200.                         IF dir = 2 THEN dir = 4: ex = ex + 5
201.                         IF dir = 3 THEN dir = 1: ey = ey - 5
202.                         IF dir = 4 THEN dir = 2: ey = ey + 5
203.                         GOTO nex4:
204.                     END IF
205.                 NEXT tt
206.             NEXT t
207.         NEXT ix
208.     NEXT iy
209.     nex4:
210.  
211.     'Draw the computer.
212.     LINE (ex, ey)-(ex + 15, ey + 15), _RGB32(255, 133, 0), BF
213.     FOR tires = 1 TO 4
214.         IF tires = 2 THEN ty = 15
215.         IF tires = 3 THEN tx = 15
216.         IF tires = 4 THEN ty = 15: tx = 15
217.         FOR sz = .25 TO 3 STEP .25
218.             CIRCLE (ex + tx, ey + ty), sz, _RGB32(128, 255, 127)
219.         NEXT sz
220.         ty = 0: tx = 0
221.     NEXT tires
222.     t1$ = STR$(t1)
223.     _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
224.     _DISPLAY
225. LOOP
226.  
227. done:
228. _TITLE "T H E    E N D........ You: " + score$ + "    Computer: " + score2$ + "    Again? (Y/N)"
229. again3:
230. ag$ = INKEY$
231. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN GOTO start:
232. IF LEFT$(ag$, 1) = "n" OR LEFT$(ag$, 1) = "N" THEN END
233. GOTO again3:
234.  

Title: Re: Coin Race!
Post by: dajan on August 16, 2020, 07:00:43 am

Nice game SierraKen, a bit easy to win, though. Challenging AI would make the code much longer. Maybe you could try something simple, like storing unpicked coin counts in rows/columns in array and turning the AI car into the one with the highest value on its way direction.

Title: Re: Coin Race!
Post by: Ashish on August 16, 2020, 10:15:37 am

Good work! Of course, the game AI could be improved and it will be more fun to play it.

Title: Re: Coin Race!
Post by: bplus on August 16, 2020, 11:55:15 am

Amazing what you can turn into a game!

I have the usual problem of being able to turn on a dime, maybe you can come up with something for old codgers with keyboards that have 4 arrows in the space of 3 keys. (I was robbed!)  :)

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 12:54:46 pm

Thanks guys! B+, I'll add keys to turn for you if you want. Would W, A, S, Z work? Or W,A, D, X?

Title: Re: Coin Race!
Post by: bplus on August 16, 2020, 01:29:54 pm

Quote from: SierraKen on August 16, 2020, 12:54:46 pm

Thanks guys! B+, I'll add keys to turn for you if you want. Would W, A, S, Z work? Or W,A, D, X?

Thanks but no thanks, I like WASZ system even less, I am severely right handed. :-)

I was thinking press an arrow once = move one step, not shoot off in that direction but something with mouse would be better! (I know you don't want to do things like that, don't worry about it.)

Or press arrows to set direction and use spacebar to take steps, can you even do that?

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 03:41:44 pm

I'm not sure how the space bar would help. Your car moves automatically without pressing anything, you just press the arrow once and it changes direction and keeps going. I might try mouse control as a selection. Like if you press M you can steer with the mouse. I think I'll try that. :)

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 03:58:03 pm

I just tried using a mouse 2 different ways. One just to change direction, which didn't work well at all, the car kept going all kinds of weird ways lol. So then I tried direct control of the car wherever the pointer was and that was not good either, was a mess because it didn't erase the last car's position hardly at all and you could go inside the red blocks. lol Oh well I tried. If there's anything else, go right ahead. Or of course you can add to it yourself if you want. But I'm still thinking about that A.I. a little bit, or maybe adding more competitors if it won't slow down too much.

Title: Re: Coin Race!
Post by: bplus on August 16, 2020, 04:35:11 pm

Thanks for trying Ken, I am trying to help you think of different approaches is all.

I don't know how you guys can turn so quickly down one street or another I keep crashing into red blocks or borders, mostly borders.

AI for car? how to get it to cover whole block with little repetition? Go down one lane, turn and go up next... until whole square is covered then repeat :)

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 05:48:31 pm

I think I got it down pact now. Instead of 1 enemy car (computer) I made 2. Sometimes I win, sometimes I lose. :D No A.I. needed except it took a lot of tries to get the right number for using Random on how often they change direction. The more often they change direction, the harder it is. Bplus, would it be easier if I added the number pad? 8 = up, 2 = down, 4 = left, 6 = right ?

Code: QB64: [Select]

1. 'Coin Race! By SierraKen
2. 'August 16, 2020
3. 'Use the arrow keys to race against the computer to collect coins.
4. 'Press the S key to turn the sound off and on.
5.  
6. start:
7. CLS
8. SCREEN _NEWIMAGE(620, 620, 32)
9. DIM xx(1000), yy(1000)
10. _LIMIT 1000
11. RANDOMIZE TIMER
12. score = 0
13. score$ = ""
14. score2 = 0
15. score2$ = ""
16. soun = 1
17. coin = 0
18. x = 5
19. y = 5
20. cc = 0
21. co = 0
22. ry = 0: rx = 0
23. ex = 270: ey = 300
24. ex2 = 330: ey2 = 300
25. dir = INT(RND * 4) + 1
26. dir2 = INT(RND * 4) + 1
27. d = INT(RND * 4) + 1
28. PAINT (2, 2), _RGB32(0, 0, 255)
29. 'Setup Coins
30. FOR yy = 20 TO 600 STEP 36
31.     FOR xx = 20 TO 600 STEP 36
32.         co = co + 1
33.         xx(co) = xx: yy(co) = yy
34.         FOR sz = .25 TO 3 STEP .25
35.             CIRCLE (xx(co), yy(co)), sz, _RGB32(255, 255, 128)
36.         NEXT sz
37.         coin = coin + 1
38.     NEXT xx
39. NEXT yy
40.  
41. coin = coin - 67 'Delete the coin count in the red boxes.
42. t2 = TIMER + 60
43. DO
44.     t3 = TIMER
45.     t1 = INT(t3 - t2)
46.     IF t1 = 0 THEN GOTO done:
47.     a$ = INKEY$
48.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
49.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
50.     IF a$ = CHR$(0) + CHR$(75) THEN d = 3
51.     IF a$ = CHR$(0) + CHR$(77) THEN d = 4
52.     IF a$ = CHR$(27) THEN END
53.     IF a$ = "s" OR a$ = "S" THEN soun = soun + 1
54.     'Erase Future Vehicle
55.     LINE (oldx, oldy)-(oldx + 15, oldy + 15), _RGB32(0, 0, 255), BF
56.     FOR tires = 1 TO 4
57.         IF tires = 2 THEN ty = 15
58.         IF tires = 3 THEN tx = 15
59.         IF tires = 4 THEN ty = 15: tx = 15
60.         FOR sz = .25 TO 3 STEP .25
61.             CIRCLE (oldx + tx, oldy + ty), sz, _RGB32(0, 0, 255)
62.         NEXT sz
63.         ty = 0: tx = 0
64.     NEXT tires
65.  
66.     'Check to see if you hit a red square.
67.     FOR iy = 40 TO 560 STEP 72
68.         FOR ix = 40 TO 560 STEP 72
69.             FOR t = -18 TO 33
70.                 FOR tt = -18 TO 33
71.                     IF x = ix + tt AND y = iy + t THEN
72.                         IF d = 3 THEN x = x + 5
73.                         IF d = 4 THEN x = x - 5
74.                         IF d = 1 THEN y = y + 5
75.                         IF d = 2 THEN y = y - 5
76.                         d = 0
77.                         GOTO nex:
78.                     END IF
79.                 NEXT tt
80.             NEXT t
81.         NEXT ix
82.     NEXT iy
83.  
84.     'Check to see if you got a coin.
85.     FOR yy = 20 TO 600 STEP 36
86.         FOR xx = 20 TO 600 STEP 36
87.             cc = cc + 1
88.             FOR cx = -18 TO 18 STEP 1
89.                 FOR cy = -18 TO 18 STEP 1
90.                     IF x + cx = xx(cc) AND y + cy = yy(cc) THEN
91.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex3:
92.                         FOR sz = .25 TO 3 STEP .25
93.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
94.                         NEXT sz
95.                         score = score + 1
96.                         score$ = STR$(score)
97.                         t1$ = STR$(t1)
98.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
99.                         xx(cc) = -100: yy(cc) = -100
100.                         IF soun / 2 <> INT(soun / 2) THEN FOR snd = 400 TO 500 STEP 25: SOUND snd, .5: NEXT snd
101.                         GOTO nex3:
102.                     END IF
103.                 NEXT cy
104.             NEXT cx
105.         NEXT xx
106.     NEXT yy
107.     nex3:
108.     cc = 0
109.     'Direction of vehicle and movement.
110.     IF d = 1 THEN y = y - 5
111.     IF d = 2 THEN y = y + 5
112.     IF d = 3 THEN x = x - 5
113.     IF d = 4 THEN x = x + 5
114.     oldx = x
115.     oldy = y
116.     nex:
117.     'If you go off the screen.
118.     IF x < -15 THEN x = 615
119.     IF y < -15 THEN y = 615
120.     IF x > 615 THEN x = -15
121.     IF y > 615 THEN y = -15
122.  
123.     'Draw Future Vehicle
124.     LINE (x, y)-(x + 15, y + 15), _RGB32(0, 255, 0), BF
125.     FOR tires = 1 TO 4
126.         IF tires = 2 THEN ty = 15
127.         IF tires = 3 THEN tx = 15
128.         IF tires = 4 THEN ty = 15: tx = 15
129.         FOR sz = .25 TO 3 STEP .25
130.             CIRCLE (x + tx, y + ty), sz, _RGB32(128, 255, 127)
131.         NEXT sz
132.         ty = 0: tx = 0
133.     NEXT tires
134.  
135.     'Blocks (red squares)
136.     FOR iy = 40 TO 560 STEP 72
137.         FOR ix = 40 TO 560 STEP 72
138.             LINE (ix, iy)-(ix + 30, iy + 30), _RGB32(255, 0, 0), BF
139.         NEXT ix
140.     NEXT iy
141.  
142.     'Computer -------------------------------------------------------
143.  
144.     'If computer goes off the screen.
145.     IF ex < -15 THEN ex = 615
146.     IF ey < -15 THEN ey = 615
147.     IF ex > 615 THEN ex = -15
148.     IF ey > 615 THEN ey = -15
149.     IF ex2 < -15 THEN ex2 = 615
150.     IF ey2 < -15 THEN ey2 = 615
151.     IF ex2 > 615 THEN ex2 = -15
152.     IF ey2 > 615 THEN ey2 = -15
153.  
154.  
155.     'Erase the older computer.
156.     LINE (oldex, oldey)-(oldex + 15, oldey + 15), _RGB32(0, 0, 255), BF
157.     FOR tires = 1 TO 4
158.         IF tires = 2 THEN ty = 15
159.         IF tires = 3 THEN tx = 15
160.         IF tires = 4 THEN ty = 15: tx = 15
161.         FOR sz = .25 TO 3 STEP .25
162.             CIRCLE (oldex + tx, oldey + ty), sz, _RGB32(0, 0, 255)
163.         NEXT sz
164.         ty = 0: tx = 0
165.     NEXT tires
166.  
167.     LINE (oldex2, oldey2)-(oldex2 + 15, oldey2 + 15), _RGB32(0, 0, 255), BF
168.     FOR tires = 1 TO 4
169.         IF tires = 2 THEN ty = 15
170.         IF tires = 3 THEN tx = 15
171.         IF tires = 4 THEN ty = 15: tx = 15
172.         FOR sz = .25 TO 3 STEP .25
173.             CIRCLE (oldex2 + tx, oldey2 + ty), sz, _RGB32(0, 0, 255)
174.         NEXT sz
175.         ty = 0: tx = 0
176.     NEXT tires
177.  
178.  
179.     'Check to see if computer went over a coin.
180.     FOR yy = 20 TO 600 STEP 36
181.         FOR xx = 20 TO 600 STEP 36
182.             cc2 = cc2 + 1
183.             FOR cx = -18 TO 18 STEP 1
184.                 FOR cy = -18 TO 18 STEP 1
185.                     IF oldex + cx = xx(cc2) AND oldey + cy = yy(cc2) THEN
186.                         xx(cc2) = -200: yy(cc2) = -200
187.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex6:
188.                         FOR sz = .25 TO 7 STEP .25
189.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
190.                         NEXT sz
191.                         score2 = score2 + 1
192.                         score2$ = STR$(score2)
193.                         t1$ = STR$(t1)
194.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
195.                     END IF
196.                     nex6:
197.                     IF oldex2 + cx = xx(cc2) AND oldey2 + cy = yy(cc2) THEN
198.                         xx(cc2) = -200: yy(cc2) = -200
199.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex6:
200.                         FOR sz = .25 TO 7 STEP .25
201.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
202.                         NEXT sz
203.                         score2 = score2 + 1
204.                         score2$ = STR$(score2)
205.                         t1$ = STR$(t1)
206.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
207.                         GOTO nex5:
208.                     END IF
209.                 NEXT cy
210.             NEXT cx
211.         NEXT xx
212.     NEXT yy
213.     nex5:
214.     cc2 = 0
215.  
216.     ee = INT(RND * 1000) + 1
217.     IF ee > 970 THEN 'This number is how often the computer changes direction, the smaller the more frequent.
218.         dir = INT(RND * 4) + 1
219.     END IF
220.     oldex = ex: oldey = ey
221.     IF dir = 1 THEN ex = ex + 5
222.     IF dir = 2 THEN ex = ex - 5
223.     IF dir = 3 THEN ey = ey + 5
224.     IF dir = 4 THEN ey = ey - 5
225.  
226.     ee2 = INT(RND * 1000) + 1
227.     IF ee2 > 970 THEN 'This number is how often the computer changes direction, the smaller the more frequent.
228.         dir2 = INT(RND * 4) + 1
229.     END IF
230.     oldex2 = ex2: oldey2 = ey2
231.     IF dir2 = 1 THEN ex2 = ex2 + 5
232.     IF dir2 = 2 THEN ex2 = ex2 - 5
233.     IF dir2 = 3 THEN ey2 = ey2 + 5
234.     IF dir2 = 4 THEN ey2 = ey2 - 5
235.  
236.  
237.     'Check to see if the computer hit a square.
238.     FOR iy = 40 TO 560 STEP 72
239.         FOR ix = 40 TO 560 STEP 72
240.             FOR t = -18 TO 33
241.                 FOR tt = -18 TO 33
242.                     IF ex = ix + tt AND ey = iy + t THEN
243.                         IF dir = 1 THEN dir = 3: ex = ex - 5
244.                         IF dir = 2 THEN dir = 4: ex = ex + 5
245.                         IF dir = 3 THEN dir = 1: ey = ey - 5
246.                         IF dir = 4 THEN dir = 2: ey = ey + 5
247.                     END IF
248.                     IF ex2 = ix + tt AND ey2 = iy + t THEN
249.                         IF dir = 1 THEN dir = 3: ex2 = ex2 - 5
250.                         IF dir = 2 THEN dir = 4: ex2 = ex2 + 5
251.                         IF dir = 3 THEN dir = 1: ey2 = ey2 - 5
252.                         IF dir = 4 THEN dir = 2: ey2 = ey2 + 5
253.                         GOTO nex4:
254.                     END IF
255.                 NEXT tt
256.             NEXT t
257.         NEXT ix
258.     NEXT iy
259.     nex4:
260.  
261.     'Draw the computer.
262.     LINE (ex, ey)-(ex + 15, ey + 15), _RGB32(255, 133, 0), BF
263.     FOR tires = 1 TO 4
264.         IF tires = 2 THEN ty = 15
265.         IF tires = 3 THEN tx = 15
266.         IF tires = 4 THEN ty = 15: tx = 15
267.         FOR sz = .25 TO 3 STEP .25
268.             CIRCLE (ex + tx, ey + ty), sz, _RGB32(128, 255, 127)
269.         NEXT sz
270.         ty = 0: tx = 0
271.     NEXT tires
272.  
273.     LINE (ex2, ey2)-(ex2 + 15, ey2 + 15), _RGB32(255, 133, 0), BF
274.     FOR tires = 1 TO 4
275.         IF tires = 2 THEN ty = 15
276.         IF tires = 3 THEN tx = 15
277.         IF tires = 4 THEN ty = 15: tx = 15
278.         FOR sz = .25 TO 3 STEP .25
279.             CIRCLE (ex2 + tx, ey2 + ty), sz, _RGB32(128, 255, 127)
280.         NEXT sz
281.         ty = 0: tx = 0
282.     NEXT tires
283.  
284.     t1$ = STR$(t1)
285.     _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$
286.     _DISPLAY
287. LOOP
288.  
289. done:
290. _TITLE "T H E    E N D........ You: " + score$ + "    Computer: " + score2$ + "    Again? (Y/N)"
291. again3:
292. ag$ = INKEY$
293. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
294. IF ag$ = "n" OR ag$ = "N" THEN END
295. GOTO again3:
296.  

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 05:56:41 pm

Bplus, you also might want to slow it down. I've seen before on my stuff that your computer might run faster than mine for some reason. You can slow down the _LIMIT or you can reduce the numbers that x, y, ex, ey, ex2, and ey2 move every loop. They are set on 5 right now I believe. The car is easier to control slowed down I've seen.  _LIMIT is set at 1000 on line 10.

Note: I made an update that changes speed as you like it on a post below.



 

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 07:04:50 pm

This update lets you change speed. It starts out in the middle ( 5 ) and by pressing + or - it speeds up or slows down the game. The slowest it goes is 1 and the fastest is 10. It's almost impossible to play at 10. lol Bplus, see if this helps you play it at around 3 or 4 I bet. I first tried _LIMIT but for some reason that does nothing (I even moved _LIMIT to the loop). So instead I sped up the cars and slowed them down. I think Limit won't speed up the program anymore because of so many FOR/NEXT loops I use. But this is fine instead.

Code: QB64: [Select]

1. 'Coin Race! By SierraKen
2. 'August 16, 2020
3. 'Use the arrow keys to race against the computer to collect coins.
4. 'Press the S key to turn the sound off and on.
5. 'Control speed of game with + and - keys.
6.  
7. start:
8. CLS
9. SCREEN _NEWIMAGE(620, 620, 32)
10. DIM xx(1000), yy(1000)
11. _LIMIT 1000
12. RANDOMIZE TIMER
13. score = 0
14. score$ = ""
15. score2 = 0
16. score2$ = ""
17. soun = 1
18. coin = 0
19. speed = 5
20. x = 5
21. y = 5
22. cc = 0
23. co = 0
24. ry = 0: rx = 0
25. ex = 270: ey = 300
26. ex2 = 330: ey2 = 300
27. dir = INT(RND * 4) + 1
28. dir2 = INT(RND * 4) + 1
29. d = INT(RND * 4) + 1
30. PAINT (2, 2), _RGB32(0, 0, 255)
31. 'Setup Coins
32. FOR yy = 20 TO 600 STEP 36
33.     FOR xx = 20 TO 600 STEP 36
34.         co = co + 1
35.         xx(co) = xx: yy(co) = yy
36.         FOR sz = .25 TO 3 STEP .25
37.             CIRCLE (xx(co), yy(co)), sz, _RGB32(255, 255, 128)
38.         NEXT sz
39.         coin = coin + 1
40.     NEXT xx
41. NEXT yy
42.  
43. coin = coin - 67 'Delete the coin count in the red boxes.
44. t2 = TIMER + 60
45. DO
46.     t3 = TIMER
47.     t1 = INT(t3 - t2)
48.     IF t1 = 0 THEN GOTO done:
49.     a$ = INKEY$
50.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
51.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
52.     IF a$ = CHR$(0) + CHR$(75) THEN d = 3
53.     IF a$ = CHR$(0) + CHR$(77) THEN d = 4
54.     IF a$ = CHR$(27) THEN END
55.     IF a$ = "s" OR a$ = "S" THEN soun = soun + 1
56.     IF a$ = "-" THEN speed = speed - 1
57.     IF a$ = "+" THEN speed = speed + 1
58.     IF speed > 10 THEN speed = 10
59.     IF speed < 1 THEN speed = 1
60.     'Erase Future Vehicle
61.     LINE (oldx, oldy)-(oldx + 15, oldy + 15), _RGB32(0, 0, 255), BF
62.     FOR tires = 1 TO 4
63.         IF tires = 2 THEN ty = 15
64.         IF tires = 3 THEN tx = 15
65.         IF tires = 4 THEN ty = 15: tx = 15
66.         FOR sz = .25 TO 3 STEP .25
67.             CIRCLE (oldx + tx, oldy + ty), sz, _RGB32(0, 0, 255)
68.         NEXT sz
69.         ty = 0: tx = 0
70.     NEXT tires
71.  
72.     'Check to see if you hit a red square.
73.     FOR iy = 40 TO 560 STEP 72
74.         FOR ix = 40 TO 560 STEP 72
75.             FOR t = -18 TO 33
76.                 FOR tt = -18 TO 33
77.                     IF x = ix + tt AND y = iy + t THEN
78.                         IF d = 3 THEN x = x + speed
79.                         IF d = 4 THEN x = x - speed
80.                         IF d = 1 THEN y = y + speed
81.                         IF d = 2 THEN y = y - speed
82.                         d = 0
83.                         GOTO nex:
84.                     END IF
85.                 NEXT tt
86.             NEXT t
87.         NEXT ix
88.     NEXT iy
89.  
90.     'Check to see if you got a coin.
91.     FOR yy = 20 TO 600 STEP 36
92.         FOR xx = 20 TO 600 STEP 36
93.             cc = cc + 1
94.             FOR cx = -18 TO 18 STEP 1
95.                 FOR cy = -18 TO 18 STEP 1
96.                     IF x + cx = xx(cc) AND y + cy = yy(cc) THEN
97.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex3:
98.                         FOR sz = .25 TO 3 STEP .25
99.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
100.                         NEXT sz
101.                         score = score + 1
102.                         score$ = STR$(score)
103.                         t1$ = STR$(t1)
104.                         speed$ = STR$(speed)
105.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$ + "    Speed Of Game (Keys + / -): " + speed$
106.                         xx(cc) = -100: yy(cc) = -100
107.                         IF soun / 2 <> INT(soun / 2) THEN FOR snd = 400 TO 500 STEP 25: SOUND snd, .5: NEXT snd
108.                         GOTO nex3:
109.                     END IF
110.                 NEXT cy
111.             NEXT cx
112.         NEXT xx
113.     NEXT yy
114.     nex3:
115.     cc = 0
116.     'Direction of vehicle and movement.
117.     IF d = 1 THEN y = y - speed
118.     IF d = 2 THEN y = y + speed
119.     IF d = 3 THEN x = x - speed
120.     IF d = 4 THEN x = x + speed
121.     oldx = x
122.     oldy = y
123.     nex:
124.     'If you go off the screen.
125.     IF x < -15 THEN x = 615
126.     IF y < -15 THEN y = 615
127.     IF x > 615 THEN x = -15
128.     IF y > 615 THEN y = -15
129.  
130.     'Draw Future Vehicle
131.     LINE (x, y)-(x + 15, y + 15), _RGB32(0, 255, 0), BF
132.     FOR tires = 1 TO 4
133.         IF tires = 2 THEN ty = 15
134.         IF tires = 3 THEN tx = 15
135.         IF tires = 4 THEN ty = 15: tx = 15
136.         FOR sz = .25 TO 3 STEP .25
137.             CIRCLE (x + tx, y + ty), sz, _RGB32(128, 255, 127)
138.         NEXT sz
139.         ty = 0: tx = 0
140.     NEXT tires
141.  
142.     'Blocks (red squares)
143.     FOR iy = 40 TO 560 STEP 72
144.         FOR ix = 40 TO 560 STEP 72
145.             LINE (ix, iy)-(ix + 30, iy + 30), _RGB32(255, 0, 0), BF
146.         NEXT ix
147.     NEXT iy
148.  
149.     'Computer -------------------------------------------------------
150.  
151.     'If computer goes off the screen.
152.     IF ex < -15 THEN ex = 615
153.     IF ey < -15 THEN ey = 615
154.     IF ex > 615 THEN ex = -15
155.     IF ey > 615 THEN ey = -15
156.     IF ex2 < -15 THEN ex2 = 615
157.     IF ey2 < -15 THEN ey2 = 615
158.     IF ex2 > 615 THEN ex2 = -15
159.     IF ey2 > 615 THEN ey2 = -15
160.  
161.     'Erase the older computer.
162.     LINE (oldex, oldey)-(oldex + 15, oldey + 15), _RGB32(0, 0, 255), BF
163.     FOR tires = 1 TO 4
164.         IF tires = 2 THEN ty = 15
165.         IF tires = 3 THEN tx = 15
166.         IF tires = 4 THEN ty = 15: tx = 15
167.         FOR sz = .25 TO 3 STEP .25
168.             CIRCLE (oldex + tx, oldey + ty), sz, _RGB32(0, 0, 255)
169.         NEXT sz
170.         ty = 0: tx = 0
171.     NEXT tires
172.  
173.     LINE (oldex2, oldey2)-(oldex2 + 15, oldey2 + 15), _RGB32(0, 0, 255), BF
174.     FOR tires = 1 TO 4
175.         IF tires = 2 THEN ty = 15
176.         IF tires = 3 THEN tx = 15
177.         IF tires = 4 THEN ty = 15: tx = 15
178.         FOR sz = .25 TO 3 STEP .25
179.             CIRCLE (oldex2 + tx, oldey2 + ty), sz, _RGB32(0, 0, 255)
180.         NEXT sz
181.         ty = 0: tx = 0
182.     NEXT tires
183.  
184.     'Check to see if computer went over a coin.
185.     FOR yy = 20 TO 600 STEP 36
186.         FOR xx = 20 TO 600 STEP 36
187.             cc2 = cc2 + 1
188.             FOR cx = -18 TO 18 STEP 1
189.                 FOR cy = -18 TO 18 STEP 1
190.                     IF oldex + cx = xx(cc2) AND oldey + cy = yy(cc2) THEN
191.                         xx(cc2) = -200: yy(cc2) = -200
192.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex6:
193.                         FOR sz = .25 TO 7 STEP .25
194.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
195.                         NEXT sz
196.                         score2 = score2 + 1
197.                         score2$ = STR$(score2)
198.                         t1$ = STR$(t1)
199.                         speed$ = STR$(speed)
200.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$ + "    Speed Of Game (Keys + / -): " + speed$
201.                     END IF
202.                     nex6:
203.                     IF oldex2 + cx = xx(cc2) AND oldey2 + cy = yy(cc2) THEN
204.                         xx(cc2) = -200: yy(cc2) = -200
205.                         IF POINT(xx(cc), yy(cc)) = _RGB32(255, 0, 0) THEN GOTO nex6:
206.                         FOR sz = .25 TO 7 STEP .25
207.                             CIRCLE (xx(cc), yy(cc)), sz, _RGB32(0, 0, 255)
208.                         NEXT sz
209.                         score2 = score2 + 1
210.                         score2$ = STR$(score2)
211.                         t1$ = STR$(t1)
212.                         speed$ = STR$(speed)
213.                         _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$ + "    Speed Of Game (Keys + / -): " + speed$
214.                         GOTO nex5:
215.                     END IF
216.                 NEXT cy
217.             NEXT cx
218.         NEXT xx
219.     NEXT yy
220.     nex5:
221.     cc2 = 0
222.  
223.     ee = INT(RND * 1000) + 1
224.     IF ee > 970 THEN 'This number is how often the computer changes direction, the smaller the more frequent.
225.         dir = INT(RND * 4) + 1
226.     END IF
227.     oldex = ex: oldey = ey
228.     IF dir = 1 THEN ex = ex + speed
229.     IF dir = 2 THEN ex = ex - speed
230.     IF dir = 3 THEN ey = ey + speed
231.     IF dir = 4 THEN ey = ey - speed
232.  
233.     ee2 = INT(RND * 1000) + 1
234.     IF ee2 > 970 THEN 'This number is how often the computer changes direction, the smaller the more frequent.
235.         dir2 = INT(RND * 4) + 1
236.     END IF
237.     oldex2 = ex2: oldey2 = ey2
238.     IF dir2 = 1 THEN ex2 = ex2 + speed
239.     IF dir2 = 2 THEN ex2 = ex2 - speed
240.     IF dir2 = 3 THEN ey2 = ey2 + speed
241.     IF dir2 = 4 THEN ey2 = ey2 - speed
242.  
243.  
244.     'Check to see if the computer hit a square.
245.     FOR iy = 40 TO 560 STEP 72
246.         FOR ix = 40 TO 560 STEP 72
247.             FOR t = -18 TO 33
248.                 FOR tt = -18 TO 33
249.                     IF ex = ix + tt AND ey = iy + t THEN
250.                         IF dir = 1 THEN dir = 3: ex = ex - 5
251.                         IF dir = 2 THEN dir = 4: ex = ex + 5
252.                         IF dir = 3 THEN dir = 1: ey = ey - 5
253.                         IF dir = 4 THEN dir = 2: ey = ey + 5
254.                     END IF
255.                     IF ex2 = ix + tt AND ey2 = iy + t THEN
256.                         IF dir = 1 THEN dir = 3: ex2 = ex2 - 5
257.                         IF dir = 2 THEN dir = 4: ex2 = ex2 + 5
258.                         IF dir = 3 THEN dir = 1: ey2 = ey2 - 5
259.                         IF dir = 4 THEN dir = 2: ey2 = ey2 + 5
260.                         GOTO nex4:
261.                     END IF
262.                 NEXT tt
263.             NEXT t
264.         NEXT ix
265.     NEXT iy
266.     nex4:
267.  
268.     'Draw the computer.
269.     LINE (ex, ey)-(ex + 15, ey + 15), _RGB32(255, 133, 0), BF
270.     FOR tires = 1 TO 4
271.         IF tires = 2 THEN ty = 15
272.         IF tires = 3 THEN tx = 15
273.         IF tires = 4 THEN ty = 15: tx = 15
274.         FOR sz = .25 TO 3 STEP .25
275.             CIRCLE (ex + tx, ey + ty), sz, _RGB32(128, 255, 127)
276.         NEXT sz
277.         ty = 0: tx = 0
278.     NEXT tires
279.  
280.     LINE (ex2, ey2)-(ex2 + 15, ey2 + 15), _RGB32(255, 133, 0), BF
281.     FOR tires = 1 TO 4
282.         IF tires = 2 THEN ty = 15
283.         IF tires = 3 THEN tx = 15
284.         IF tires = 4 THEN ty = 15: tx = 15
285.         FOR sz = .25 TO 3 STEP .25
286.             CIRCLE (ex2 + tx, ey2 + ty), sz, _RGB32(128, 255, 127)
287.         NEXT sz
288.         ty = 0: tx = 0
289.     NEXT tires
290.  
291.     t1$ = STR$(t1)
292.     speed$ = STR$(speed)
293.     _TITLE "Coin Race! Time: " + t1$ + "    You: " + score$ + "    Computer: " + score2$ + "    Speed Of Game (Keys + / -): " + speed$
294.     _DISPLAY
295. LOOP
296.  
297. done:
298. _TITLE "T H E    E N D........ You: " + score$ + "    Computer: " + score2$ + "    Again? (Y/N)"
299. again3:
300. ag$ = INKEY$
301. IF ag$ = "y" OR ag$ = "Y" THEN GOTO start:
302. IF ag$ = "n" OR ag$ = "N" THEN END
303. GOTO again3:
304.  

Title: Re: Coin Race!
Post by: bplus on August 16, 2020, 09:53:47 pm

Quote

lol Bplus, see if this helps you play it at around 3 or 4 I bet.

Actually for a break, I messed around with the one, 2 posts up, and got the hang of things by not expecting to turn 1 block off from where I'm at, to time it for 5 or 6 blocks down the line, not always a turn but much fewer crashes.

Title: Re: Coin Race!
Post by: SierraKen on August 16, 2020, 11:04:22 pm

Yeah that happens when it goes too fast. Try my newest code and slow it down a little bit. It should help. If it does help, you can modify the speed variable to whatever number works for you, that way you won't have to press + or - every time.  The speed variable is set on line 19.

Text Only | Text with Attachments