Robot Invaders

[SierraKen]

It did need a larger gap, thanks B+! I widened it much more so now I think just about any hint of it seeming to hit, will hit. Thanks for the comments.

I also changed the looks of the robots a little bit and also the Boss. Plus I removed a couple of _DELAY's so now it runs a little faster and smoother.  Oh also, after the Boss, they shoot a little bit faster and stays on that speed for the rest of the game. I enjoy playing it more now myself, I hope you all do too.... and you can laugh at what the robots look like now. :))

(Note: This version does not make a Top Ten Scores list, the next code on this forum page does.)

Code: QB64: [Select]

1. 'This version has 5 different colored robots with a Boss Robot after that.
2. 'Each robot flies a different pattern.
3. 'Game made on July 22, 2019
4. 'By Ken G.
5. 'Freeware
6. 'I have put some descriptions in the code below to make it easier to learn from.
7. begin:
8. _TITLE "Tech Invaders"
9. CLS
10. SCREEN _NEWIMAGE(800, 600, 32)
11. PRINT: PRINT: PRINT
12. PRINT "                                 T E C H      I N V A D E R S"
13. PRINT: PRINT: PRINT
14. PRINT: PRINT: PRINT
15. PRINT "                                        by Ken G."
16. PRINT: PRINT: PRINT
17. PRINT "                       Use left and right arrow keys to move back and forth."
18. PRINT "                            Use up or down arrow keys to stop moving."
19. PRINT "                                    Use space bar to fire."
20. PRINT "                                      Esc to end anytime."
21. PRINT: PRINT: PRINT
22. INPUT "                                   Press Enter to start."; start$
23. CLS
24. lives = 5
25. points = 0
26. ushoot = 0
27. shooting = 0
28. level = 1
29. level2 = 1
30. start = 0
31. s = 0
32. xt = 400: yt = 550
33.  
34. 'Draw your shooter.
35. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
36. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
37.  
38.  
39. 'This is the start of the main loop.
40. go:
41. 'Choose a random place for the enemy.
42. RANDOMIZE TIMER
43. xx = INT(RND * 200) + 100
44. RANDOMIZE TIMER
45. yy = INT(RND * 100) + 40
46.  
47. 'Each level has its own loop so it can set a different equation and speed of the enemy.
48.  
49. IF level = 1 THEN
50.     cl = 128: c2 = 127: c3 = 255
51.     one:
52.     'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
53.     sec = sec + .01
54.     s = (60 - sec) * 6 + 180
55.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
56.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
57.  
58.     'GOSUB to drawing draws the enemy robot.
59.     GOSUB drawing:
60.     IF sec > 180 THEN
61.         sec = 0
62.         GOTO onedone:
63.     END IF
64.  
65.     'GOSUB's go to keyboard control and enemy shooting.
66.     GOSUB keyboard:
67.     GOSUB shoot:
68.     GOSUB youshoot2:
69.     GOTO one:
70.     onedone:
71. END IF
72.  
73. 'This level uses the spiral equation so it's a bit different than the others.
74. IF level = 2 THEN
75.     c1 = 127: c2 = 216: c3 = 127
76.     FOR d = 160 TO 0 STEP -.125
77.         _LIMIT 1000
78.         s = s + .2
79.         x = COS(s * 3.141592 / 180) * d
80.         y = SIN(s * 3.151492 / 180) * d
81.         GOSUB drawing:
82.         GOSUB keyboard:
83.         GOSUB shoot:
84.         GOSUB youshoot2:
85.     NEXT d
86.     FOR d = 0 TO 160 STEP .125
87.         _LIMIT 1000
88.         s = s - .2
89.         x = COS(s * 3.141592 / 180) * d
90.         y = SIN(s * 3.151492 / 180) * d
91.         GOSUB drawing:
92.         GOSUB keyboard:
93.         GOSUB shoot:
94.         GOSUB youshoot2:
95.     NEXT d
96. END IF
97.  
98. IF level = 3 THEN
99.     c1 = 255: c2 = 0: c3 = 0
100.     three:
101.     sec = sec + .01
102.     s = (60 - sec) * 6 + 180
103.     x = INT(SIN(s / 90 * 3.141592) * 180) + 325
104.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
105.     GOSUB drawing:
106.     IF sec > 60 THEN
107.         sec = 0
108.         GOTO threedone:
109.     END IF
110.     GOSUB keyboard:
111.     GOSUB shoot:
112.     GOSUB youshoot2:
113.     GOTO three:
114.     threedone:
115. END IF
116.  
117. IF level = 4 THEN
118.     c1 = 255: c2 = 255: c3 = 127
119.     four:
120.     sec = sec + .01
121.     s = (60 - sec) * 6 + 180
122.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
123.     y = INT(COS(s / 90 * 3.141592) * 180) + 225
124.     GOSUB drawing:
125.     IF sec > 60 THEN
126.         sec = 0
127.         GOTO fourdone:
128.     END IF
129.     GOSUB keyboard:
130.     GOSUB shoot:
131.     GOSUB youshoot2:
132.     GOTO four:
133.     fourdone:
134. END IF
135. IF level = 5 THEN
136.     c1 = 133: c2 = 28: c3 = 255
137.     five:
138.     sec = sec + .01
139.     s = (60 - sec) * 6 + 180
140.     x = INT(SIN(s / 135 * 3.141592) * 180) + 325
141.     y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
142.     GOSUB drawing:
143.     IF sec > 60 THEN
144.         sec = 0
145.         GOTO fivedone:
146.     END IF
147.     GOSUB keyboard:
148.     GOSUB shoot:
149.     GOSUB youshoot2:
150.     GOTO five:
151.     fivedone:
152. END IF
153.  
154. IF level = 6 THEN
155.     c1 = 255: c2 = 0: c3 = 0
156.     six:
157.     sec = sec + .02
158.     s = (60 - sec) * 6 + 180
159.     x = INT(SIN(s / 45 * 3.141592) * 180) + 325
160.     y = INT(COS(s / 360 * 3.141592) * 180) + 225
161.     GOSUB drawing2:
162.     IF sec > 120 THEN
163.         sec = 0
164.         GOTO sixdone:
165.     END IF
166.     GOSUB keyboard:
167.     GOSUB shoot:
168.     GOSUB youshoot2:
169.     GOTO six:
170.     sixdone:
171. END IF
172.  
173. IF level = 7 THEN level = 1
174.  
175. GOTO go:
176. 'GOTO goes back to the start of the main loop.
177.  
178. 'Draws the enemy tank and erases it for animation.
179. drawing:
180. x2 = x + xx: y2 = y + yy
181. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(c1, c2, c3)
182. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(c1, c2, c3)
183. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(c1, c2, c3)
184. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(c1, c2, c3)
185. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
186. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
187. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
188. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
189. _DELAY .004
190. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
191. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
192. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
193. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(0, 0, 0)
194. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(0, 0, 0)
195.  
196. RETURN
197.  
198. 'Draws the Boss Robot.
199. drawing2:
200. x2 = x + xx: y2 = y + yy
201. CIRCLE (x2, y2), 10, _RGB32(c1, c2, c3)
202. LINE (x2 - 5, y2 - 5)-(x2 - 3, y2 - 2), _RGB32(c1, c2, c3), BF
203. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(c1, c2, c3), BF
204. LINE (x2 - 4, y2 + 7)-(x2 + 4, y2 + 8), _RGB32(c1, c2, c3), BF
205. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(c1, c2, c3)
206. CIRCLE (x2, y2 - 24), 4, _RGB32(c1, c2, c3)
207. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(c1, c2, c3)
208. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(c1, c2, c3)
209. _DELAY .004
210. CIRCLE (x2, y2), 10, _RGB32(0, 0, 0)
211. LINE (x2 - 5, y2 - 5)-(x2 - 3, y2 - 2), _RGB32(0, 0, 0), BF
212. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(0, 0, 0), BF
213. LINE (x2 - 7, y2 + 7)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
214. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(0, 0, 0)
215. CIRCLE (x2, y2 - 24), 4, _RGB32(0, 0, 0)
216. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(0, 0, 0)
217. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(0, 0, 0)
218. RETURN
219.  
220. 'Keyboard control for your movement and shooting.
221. keyboard:
222. _LIMIT 1000
223. a$ = INKEY$
224. IF a$ = CHR$(27) THEN END
225. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
226. IF r = 1 THEN
227.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
228.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
229.     xt = xt + 1
230.     IF xt > 780 THEN xt = 780
231.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
232.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
233. END IF
234. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
235. IF l = 1 THEN
236.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
237.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
238.     xt = xt - 1
239.     IF xt < 0 THEN xt = 0
240.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
241.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
242. END IF
243. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
244.     r = 0: l = 0
245. END IF
246.  
247. IF a$ = " " THEN GOSUB youshoot:
248. RETURN
249.  
250. 'The start of your shot.
251. youshoot:
252. _LIMIT 1000
253. IF ushoot = 0 THEN
254.     sx2 = xt + 10
255.     sy2 = yt - 11
256.     ushoot = 1
257.     SOUND 400, .5
258. END IF
259. RETURN
260.  
261. 'The drawing and movement of your shot and if it reaches the enemy.
262. youshoot2:
263. _LIMIT 1000
264. IF ushoot = 1 THEN
265.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
266.     sy2 = sy2 - 3
267.     IF sy2 < 0 THEN ushoot = 0: RETURN
268.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
269.     IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 THEN
270.         CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
271.         SOUND 200, 1
272.         SOUND 100, 1
273.         FOR explosion = 1 TO 30
274.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
275.             _DELAY .02
276.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
277.         NEXT explosion
278.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
279.         points = points + 100
280.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
281.         lives$ = STR$(lives)
282.         points$ = STR$(points)
283.         level$ = STR$(level2)
284.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
285.         ushoot = 0
286.         GOTO go:
287.     END IF
288. END IF
289. RETURN
290.  
291. 'The enemy's shot and if it reaches you.
292. shoot:
293. _LIMIT 1000
294. IF shooting = 0 THEN
295.     IF level2 = 1 THEN shh = 9970
296.     IF level2 = 2 THEN shh = 9968
297.     IF level2 = 3 THEN shh = 9966
298.     IF level2 = 4 THEN shh = 9964
299.     IF level2 = 5 THEN shh = 9962
300.     IF level2 = 6 THEN shh = 9940
301.     IF level2 > 6 THEN shh = 9930
302.     RANDOMIZE TIMER
303.     sh = INT(RND * 10000) + 1
304.     IF sh < shh THEN RETURN
305.     sx = x2 + 10
306.     sy = y2 + 10
307.     shooting = 1
308.     SOUND 300, .5
309. END IF
310. IF shooting = 1 THEN
311.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
312.     sy = sy + 3
313.     IF sy > 620 THEN shooting = 0: RETURN
314.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
315.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
316.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
317.         SOUND 200, 1
318.         SOUND 100, 1
319.         FOR explosion2 = 1 TO 30
320.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
321.             _DELAY .02
322.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
323.         NEXT explosion2
324.         lives = lives - 1
325.         lives$ = STR$(lives)
326.         points$ = STR$(points)
327.         level$ = STR$(level2)
328.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
329.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
330.         IF lives = 0 THEN
331.             LOCATE 20, 40: PRINT "G A M E   O V E R"
332.             LOCATE 22, 40: PRINT "Score: "; points
333.             LOCATE 23, 40: PRINT "Level: "; level2
334.             LOCATE 24, 40: INPUT "Play Again (Yes/No)", ag$
335.             IF ag$ = "Y" OR ag$ = "y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "YEs" OR ag$ = "yES" OR ag$ = "yeS" THEN GOTO begin:
336.             END
337.         END IF
338.         shooting = 0
339.         RETURN
340.     END IF
341. END IF
342. RETURN
343.  
344.  
345.  

[bplus]

Love it! sure beats ping pong!

[SierraKen]

LOL! Thanks!

Tonight I added a Top Ten Scores sheet to it, using the Race Car one we made a few days ago. So if you run this, it will automatically make a file called TopTenTech.txt and it will put it in the same directory as the program you run this in. I added a few new names and a couple of the old ones and of course adjusted the scores to this game. Have fun!

(Note: I changed the looks of the Boss Robot to look more like a robot on the code after this on the forum page. )

Code: QB64: [Select]

1. 'This version has 5 different colored robots with a Boss Robot after that.
2. 'Each robot flies a different pattern.
3. 'Game made on July 22, 2019
4. 'By Ken G.
5. 'Freeware
6. 'I have put some descriptions in the code below to make it easier to learn from.
7. begin:
8. DIM name$(50), nm$(50), score(50), sccc(50)
9. _TITLE "Tech Invaders"
10. CLS
11. SCREEN _NEWIMAGE(800, 600, 32)
12. PRINT: PRINT: PRINT
13. PRINT "                                 T E C H      I N V A D E R S"
14. PRINT: PRINT: PRINT
15. PRINT: PRINT: PRINT
16. PRINT "                                        by Ken G."
17. PRINT: PRINT: PRINT
18. PRINT "                       Use left and right arrow keys to move back and forth."
19. PRINT "                            Use up or down arrow keys to stop moving."
20. PRINT "                                    Use space bar to fire."
21. PRINT "                                      Esc to end anytime."
22. PRINT: PRINT: PRINT
23. INPUT "                                   Press Enter to start.", start$
24. CLS
25. lives = 5
26. points = 0
27. ushoot = 0
28. shooting = 0
29. level = 1
30. level2 = 1
31. start = 0
32. s = 0
33. xt = 400: yt = 550
34.  
35. 'Draw your shooter.
36. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
37. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
38.  
39.  
40. 'This is the start of the main loop.
41. go:
42. 'Choose a random place for the enemy.
43. RANDOMIZE TIMER
44. xx = INT(RND * 200) + 100
45. RANDOMIZE TIMER
46. yy = INT(RND * 100) + 40
47.  
48. 'Each level has its own loop so it can set a different equation and speed of the enemy.
49.  
50. IF level = 1 THEN
51.     cl = 128: c2 = 127: c3 = 255
52.     one:
53.     'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
54.     sec = sec + .01
55.     s = (60 - sec) * 6 + 180
56.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
57.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
58.  
59.     'GOSUB to drawing draws the enemy robot.
60.     GOSUB drawing:
61.     IF sec > 180 THEN
62.         sec = 0
63.         GOTO onedone:
64.     END IF
65.  
66.     'GOSUB's go to keyboard control and enemy shooting.
67.     GOSUB keyboard:
68.     GOSUB shoot:
69.     GOSUB youshoot2:
70.     GOTO one:
71.     onedone:
72. END IF
73.  
74. 'This level uses the spiral equation so it's a bit different than the others.
75. IF level = 2 THEN
76.     c1 = 127: c2 = 216: c3 = 127
77.     FOR d = 160 TO 0 STEP -.125
78.         _LIMIT 1000
79.         s = s + .2
80.         x = COS(s * 3.141592 / 180) * d
81.         y = SIN(s * 3.151492 / 180) * d
82.         GOSUB drawing:
83.         GOSUB keyboard:
84.         GOSUB shoot:
85.         GOSUB youshoot2:
86.     NEXT d
87.     FOR d = 0 TO 160 STEP .125
88.         _LIMIT 1000
89.         s = s - .2
90.         x = COS(s * 3.141592 / 180) * d
91.         y = SIN(s * 3.151492 / 180) * d
92.         GOSUB drawing:
93.         GOSUB keyboard:
94.         GOSUB shoot:
95.         GOSUB youshoot2:
96.     NEXT d
97. END IF
98.  
99. IF level = 3 THEN
100.     c1 = 255: c2 = 0: c3 = 0
101.     three:
102.     sec = sec + .01
103.     s = (60 - sec) * 6 + 180
104.     x = INT(SIN(s / 90 * 3.141592) * 180) + 325
105.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
106.     GOSUB drawing:
107.     IF sec > 60 THEN
108.         sec = 0
109.         GOTO threedone:
110.     END IF
111.     GOSUB keyboard:
112.     GOSUB shoot:
113.     GOSUB youshoot2:
114.     GOTO three:
115.     threedone:
116. END IF
117.  
118. IF level = 4 THEN
119.     c1 = 255: c2 = 255: c3 = 127
120.     four:
121.     sec = sec + .01
122.     s = (60 - sec) * 6 + 180
123.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
124.     y = INT(COS(s / 90 * 3.141592) * 180) + 225
125.     GOSUB drawing:
126.     IF sec > 60 THEN
127.         sec = 0
128.         GOTO fourdone:
129.     END IF
130.     GOSUB keyboard:
131.     GOSUB shoot:
132.     GOSUB youshoot2:
133.     GOTO four:
134.     fourdone:
135. END IF
136. IF level = 5 THEN
137.     c1 = 133: c2 = 28: c3 = 255
138.     five:
139.     sec = sec + .01
140.     s = (60 - sec) * 6 + 180
141.     x = INT(SIN(s / 135 * 3.141592) * 180) + 325
142.     y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
143.     GOSUB drawing:
144.     IF sec > 60 THEN
145.         sec = 0
146.         GOTO fivedone:
147.     END IF
148.     GOSUB keyboard:
149.     GOSUB shoot:
150.     GOSUB youshoot2:
151.     GOTO five:
152.     fivedone:
153. END IF
154.  
155. IF level = 6 THEN
156.     c1 = 255: c2 = 0: c3 = 0
157.     six:
158.     sec = sec + .02
159.     s = (60 - sec) * 6 + 180
160.     x = INT(SIN(s / 45 * 3.141592) * 180) + 325
161.     y = INT(COS(s / 360 * 3.141592) * 180) + 225
162.     GOSUB drawing2:
163.     IF sec > 120 THEN
164.         sec = 0
165.         GOTO sixdone:
166.     END IF
167.     GOSUB keyboard:
168.     GOSUB shoot:
169.     GOSUB youshoot2:
170.     GOTO six:
171.     sixdone:
172. END IF
173.  
174. IF level = 7 THEN level = 1
175.  
176. GOTO go:
177. 'GOTO goes back to the start of the main loop.
178.  
179. 'Draws the enemy tank and erases it for animation.
180. drawing:
181. x2 = x + xx: y2 = y + yy
182. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(c1, c2, c3)
183. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(c1, c2, c3)
184. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(c1, c2, c3)
185. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(c1, c2, c3)
186. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
187. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
188. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
189. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
190. _DELAY .004
191. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
192. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
193. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
194. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(0, 0, 0)
195. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(0, 0, 0)
196.  
197. RETURN
198.  
199. 'Draws the Boss Robot.
200. drawing2:
201. x2 = x + xx: y2 = y + yy
202. CIRCLE (x2, y2), 10, _RGB32(c1, c2, c3)
203. LINE (x2 - 5, y2 - 5)-(x2 - 3, y2 - 2), _RGB32(c1, c2, c3), BF
204. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(c1, c2, c3), BF
205. LINE (x2 - 4, y2 + 7)-(x2 + 4, y2 + 8), _RGB32(c1, c2, c3), BF
206. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(c1, c2, c3)
207. CIRCLE (x2, y2 - 24), 4, _RGB32(c1, c2, c3)
208. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(c1, c2, c3)
209. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(c1, c2, c3)
210. _DELAY .004
211. CIRCLE (x2, y2), 10, _RGB32(0, 0, 0)
212. LINE (x2 - 5, y2 - 5)-(x2 - 3, y2 - 2), _RGB32(0, 0, 0), BF
213. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(0, 0, 0), BF
214. LINE (x2 - 7, y2 + 7)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
215. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(0, 0, 0)
216. CIRCLE (x2, y2 - 24), 4, _RGB32(0, 0, 0)
217. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(0, 0, 0)
218. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(0, 0, 0)
219. RETURN
220.  
221. 'Keyboard control for your movement and shooting.
222. keyboard:
223. _LIMIT 1000
224. a$ = INKEY$
225. IF a$ = CHR$(27) THEN END
226. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
227. IF r = 1 THEN
228.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
229.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
230.     xt = xt + 1
231.     IF xt > 780 THEN xt = 780
232.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
233.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
234. END IF
235. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
236. IF l = 1 THEN
237.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
238.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
239.     xt = xt - 1
240.     IF xt < 0 THEN xt = 0
241.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
242.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
243. END IF
244. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
245.     r = 0: l = 0
246. END IF
247.  
248. IF a$ = " " THEN GOSUB youshoot:
249. RETURN
250.  
251. 'The start of your shot.
252. youshoot:
253. _LIMIT 1000
254. IF ushoot = 0 THEN
255.     sx2 = xt + 10
256.     sy2 = yt - 11
257.     ushoot = 1
258.     SOUND 400, .5
259. END IF
260. RETURN
261.  
262. 'The drawing and movement of your shot and if it reaches the enemy.
263. youshoot2:
264. _LIMIT 1000
265. IF ushoot = 1 THEN
266.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
267.     sy2 = sy2 - 3
268.     IF sy2 < 0 THEN ushoot = 0: RETURN
269.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
270.     IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 THEN
271.         CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
272.         SOUND 200, 1
273.         SOUND 100, 1
274.         FOR explosion = 1 TO 30
275.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
276.             _DELAY .02
277.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
278.         NEXT explosion
279.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
280.         points = points + 100
281.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
282.         lives$ = STR$(lives)
283.         points$ = STR$(points)
284.         level$ = STR$(level2)
285.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
286.         ushoot = 0
287.         GOTO go:
288.     END IF
289. END IF
290. RETURN
291.  
292. 'The enemy's shot and if it reaches you.
293. shoot:
294. _LIMIT 1000
295. IF shooting = 0 THEN
296.     IF level2 = 1 THEN shh = 9970
297.     IF level2 = 2 THEN shh = 9968
298.     IF level2 = 3 THEN shh = 9966
299.     IF level2 = 4 THEN shh = 9964
300.     IF level2 = 5 THEN shh = 9962
301.     IF level2 = 6 THEN shh = 9940
302.     IF level2 > 6 THEN shh = 9930
303.     RANDOMIZE TIMER
304.     sh = INT(RND * 10000) + 1
305.     IF sh < shh THEN RETURN
306.     sx = x2 + 10
307.     sy = y2 + 10
308.     shooting = 1
309.     SOUND 300, .5
310. END IF
311. IF shooting = 1 THEN
312.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
313.     sy = sy + 3
314.     IF sy > 620 THEN shooting = 0: RETURN
315.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
316.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
317.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
318.         SOUND 200, 1
319.         SOUND 100, 1
320.         FOR explosion2 = 1 TO 30
321.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
322.             _DELAY .02
323.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
324.         NEXT explosion2
325.         lives = lives - 1
326.         lives$ = STR$(lives)
327.         points$ = STR$(points)
328.         level$ = STR$(level2)
329.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
330.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
331.         IF lives = 0 THEN
332.             LOCATE 20, 40: PRINT "G A M E   O V E R"
333.             LOCATE 22, 40: PRINT "Score: "; points
334.             LOCATE 23, 40: PRINT "Level: "; level2
335.             LOCATE 25, 40: INPUT "Press Enter to go to Top Ten Scores.", tt$
336.  
337.             'Top Ten Scores
338.             scc = points
339.             IF _FILEEXISTS("toptentech.txt") THEN
340.             ELSE
341.                 OPEN "toptentech.txt" FOR OUTPUT AS #1
342.                 RESTORE originaltopten
343.                 DO
344.                     READ toptenname$, toptenscore!
345.                     IF toptenname$ = "EOF" THEN EXIT DO
346.                     PRINT #1, toptenname$
347.                     PRINT #1, toptenscore!
348.                 LOOP
349.                 CLOSE #1
350.             END IF
351.  
352.             OPEN "toptentech.txt" FOR INPUT AS #1
353.             FOR n = 1 TO 10
354.                 INPUT #1, name$(n)
355.                 INPUT #1, score(n)
356.                 IF scc > score(n) AND sct = 0 THEN
357.                     nn = n
358.                     PRINT "You have made the Top Ten!"
359.                     typename:
360.                     INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
361.                     IF LEN(nm$(nn)) > 25 THEN
362.                         PRINT "Name too long, try again."
363.                         GOTO typename:
364.                     END IF
365.                     sccc(nn) = scc
366.                     sct = 1
367.                 END IF
368.                 IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
369.             NEXT n
370.             CLOSE #1
371.             nex5:
372.             CLOSE #1
373.             OPEN "toptentech.txt" FOR OUTPUT AS #1
374.             FOR n = 1 TO nn
375.                 IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
376.                 IF n = nn THEN
377.                     PRINT #1, nm$(n)
378.                     PRINT #1, sccc(n)
379.                 END IF
380.             NEXT n
381.             nex6:
382.             FOR n = nn TO 10
383.                 PRINT #1, name$(n): PRINT #1, score(n)
384.             NEXT n
385.  
386.             CLOSE #1
387.             nex7:
388.             CLS
389.             PRINT: PRINT: PRINT
390.             PRINT "                                 T O P    T E N "
391.             PRINT: PRINT: PRINT
392.             OPEN "toptentech.txt" FOR INPUT AS #1
393.             FOR n = 1 TO 10
394.                 IF EOF(1) THEN GOTO nex8:
395.                 INPUT #1, name$(n)
396.                 INPUT #1, score(n)
397.                 PRINT "             "; n; ". "; name$(n); score(n)
398.             NEXT n
399.             nex8:
400.             CLOSE #1
401.             FOR n = 1 TO 10
402.                 nm$(n) = ""
403.                 score(n) = 0
404.                 name$(n) = ""
405.                 sccc(n) = 0
406.             NEXT n
407.             nn = 0
408.             n = 0
409.             sct = 0
410.             scc = 0
411.             LOCATE 23, 1
412.             INPUT "Would you like to play again? (Yes/No)", ag$
413.             IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" OR ag$ = "YEs" THEN GOTO begin:
414.             END
415.         END IF
416.         shooting = 0
417.         RETURN
418.     END IF
419. END IF
420. RETURN
421.  
422. originaltopten:
423. DATA Space Ace,7000
424. DATA Suzy Swift,6000
425. DATA Speedy Spencer,5000
426. DATA Super Sam,4000
427. DATA Battery Bob,3000
428. DATA Karen Kryptonite,2750
429. DATA Quick Ken,2500
430. DATA Tiger Tessa,2250
431. DATA Arcade Joe,2000
432. DATA How Do U Play,1750
433. DATA EOF,0
434.  

[SierraKen]

Lastly (I hope), I decided to change the looks of the Boss Robot to make him look more like a robot. Here is the code again, sorry for so many of them.

(Note: Woops, I have a slight color variable problem on one line on this, will post the fix after this posting.)

Code: QB64: [Select]

1. 'This version has 5 different colored robots with a Boss Robot after that.
2. 'Each robot flies a different pattern.
3. 'Game made on July 22, 2019
4. 'By Ken G.
5. 'Freeware
6. 'I have put some descriptions in the code below to make it easier to learn from.
7. begin:
8. DIM name$(50), nm$(50), score(50), sccc(50)
9. _TITLE "Tech Invaders"
10. CLS
11. SCREEN _NEWIMAGE(800, 600, 32)
12. PRINT: PRINT: PRINT
13. PRINT "                                 T E C H      I N V A D E R S"
14. PRINT: PRINT: PRINT
15. PRINT: PRINT: PRINT
16. PRINT "                                        by Ken G."
17. PRINT: PRINT: PRINT
18. PRINT "                       Use left and right arrow keys to move back and forth."
19. PRINT "                            Use up or down arrow keys to stop moving."
20. PRINT "                                    Use space bar to fire."
21. PRINT "                                      Esc to end anytime."
22. PRINT: PRINT: PRINT
23. INPUT "                                   Press Enter to start.", start$
24. CLS
25. lives = 5
26. points = 0
27. ushoot = 0
28. shooting = 0
29. level = 1
30. level2 = 1
31. start = 0
32. s = 0
33. xt = 400: yt = 550
34.  
35. 'Draw your shooter.
36. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
37. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
38.  
39.  
40. 'This is the start of the main loop.
41. go:
42. 'Choose a random place for the enemy.
43. RANDOMIZE TIMER
44. xx = INT(RND * 200) + 100
45. RANDOMIZE TIMER
46. yy = INT(RND * 100) + 40
47.  
48. 'Each level has its own loop so it can set a different equation and speed of the enemy.
49.  
50. IF level = 1 THEN
51.     cl = 128: c2 = 127: c3 = 255
52.     one:
53.     'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
54.     sec = sec + .01
55.     s = (60 - sec) * 6 + 180
56.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
57.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
58.  
59.     'GOSUB to drawing draws the enemy robot.
60.     GOSUB drawing:
61.     IF sec > 180 THEN
62.         sec = 0
63.         GOTO onedone:
64.     END IF
65.  
66.     'GOSUB's go to keyboard control and enemy shooting.
67.     GOSUB keyboard:
68.     GOSUB shoot:
69.     GOSUB youshoot2:
70.     GOTO one:
71.     onedone:
72. END IF
73.  
74. 'This level uses the spiral equation so it's a bit different than the others.
75. IF level = 2 THEN
76.     c1 = 127: c2 = 216: c3 = 127
77.     FOR d = 160 TO 0 STEP -.125
78.         _LIMIT 1000
79.         s = s + .2
80.         x = COS(s * 3.141592 / 180) * d
81.         y = SIN(s * 3.151492 / 180) * d
82.         GOSUB drawing:
83.         GOSUB keyboard:
84.         GOSUB shoot:
85.         GOSUB youshoot2:
86.     NEXT d
87.     FOR d = 0 TO 160 STEP .125
88.         _LIMIT 1000
89.         s = s - .2
90.         x = COS(s * 3.141592 / 180) * d
91.         y = SIN(s * 3.151492 / 180) * d
92.         GOSUB drawing:
93.         GOSUB keyboard:
94.         GOSUB shoot:
95.         GOSUB youshoot2:
96.     NEXT d
97. END IF
98.  
99. IF level = 3 THEN
100.     c1 = 255: c2 = 0: c3 = 0
101.     three:
102.     sec = sec + .01
103.     s = (60 - sec) * 6 + 180
104.     x = INT(SIN(s / 90 * 3.141592) * 180) + 325
105.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
106.     GOSUB drawing:
107.     IF sec > 60 THEN
108.         sec = 0
109.         GOTO threedone:
110.     END IF
111.     GOSUB keyboard:
112.     GOSUB shoot:
113.     GOSUB youshoot2:
114.     GOTO three:
115.     threedone:
116. END IF
117.  
118. IF level = 4 THEN
119.     c1 = 255: c2 = 255: c3 = 127
120.     four:
121.     sec = sec + .01
122.     s = (60 - sec) * 6 + 180
123.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
124.     y = INT(COS(s / 90 * 3.141592) * 180) + 225
125.     GOSUB drawing:
126.     IF sec > 60 THEN
127.         sec = 0
128.         GOTO fourdone:
129.     END IF
130.     GOSUB keyboard:
131.     GOSUB shoot:
132.     GOSUB youshoot2:
133.     GOTO four:
134.     fourdone:
135. END IF
136. IF level = 5 THEN
137.     c1 = 133: c2 = 28: c3 = 255
138.     five:
139.     sec = sec + .01
140.     s = (60 - sec) * 6 + 180
141.     x = INT(SIN(s / 135 * 3.141592) * 180) + 325
142.     y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
143.     GOSUB drawing:
144.     IF sec > 60 THEN
145.         sec = 0
146.         GOTO fivedone:
147.     END IF
148.     GOSUB keyboard:
149.     GOSUB shoot:
150.     GOSUB youshoot2:
151.     GOTO five:
152.     fivedone:
153. END IF
154.  
155. IF level = 6 THEN
156.     c1 = 255: c2 = 0: c3 = 0
157.     six:
158.     sec = sec + .02
159.     s = (60 - sec) * 6 + 180
160.     x = INT(SIN(s / 45 * 3.141592) * 180) + 325
161.     y = INT(COS(s / 360 * 3.141592) * 180) + 225
162.     GOSUB drawing2:
163.     IF sec > 120 THEN
164.         sec = 0
165.         GOTO sixdone:
166.     END IF
167.     GOSUB keyboard:
168.     GOSUB shoot:
169.     GOSUB youshoot2:
170.     GOTO six:
171.     sixdone:
172. END IF
173.  
174. IF level = 7 THEN level = 1
175.  
176. GOTO go:
177. 'GOTO goes back to the start of the main loop.
178.  
179. 'Draws the enemy tank and erases it for animation.
180. drawing:
181. x2 = x + xx: y2 = y + yy
182. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(c1, c2, c3)
183. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(c1, c2, c3)
184. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(c1, c2, c3)
185. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(c1, c2, c3)
186. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
187. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
188. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
189. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
190. _DELAY .004
191. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
192. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
193. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
194. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(0, 0, 0)
195. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(0, 0, 0)
196.  
197. RETURN
198.  
199. 'Draws the Boss Robot.
200. drawing2:
201. x2 = x + xx: y2 = y + yy
202. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(c1, c2, c3), BF
203. LINE (x2 - 4, y2 - 5)-(x2 - 2, y2 - 2), _RGB32(0, 0, 0), BF
204. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(0, 0, 0), BF
205. LINE (x2 - 4, y2 + 7)-(x2 + 4, y2 + 8), _RGB32(0, 0, 0), BF
206. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(c1, c2, c3)
207. CIRCLE (x2, y2 - 24), 4, _RGB32(c1, c2, c3)
208. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(c1, c2, c3)
209. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(c1, c2, c3)
210. _DELAY .004
211. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(0, 0, 0), BF
212. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(0, 0, 0)
213. CIRCLE (x2, y2 - 24), 4, _RGB32(0, 0, 0)
214. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(0, 0, 0)
215. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(0, 0, 0)
216. RETURN
217.  
218. 'Keyboard control for your movement and shooting.
219. keyboard:
220. _LIMIT 1000
221. a$ = INKEY$
222. IF a$ = CHR$(27) THEN END
223. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
224. IF r = 1 THEN
225.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
226.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
227.     xt = xt + 1
228.     IF xt > 780 THEN xt = 780
229.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
230.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
231. END IF
232. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
233. IF l = 1 THEN
234.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
235.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
236.     xt = xt - 1
237.     IF xt < 0 THEN xt = 0
238.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
239.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
240. END IF
241. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
242.     r = 0: l = 0
243. END IF
244.  
245. IF a$ = " " THEN GOSUB youshoot:
246. RETURN
247.  
248. 'The start of your shot.
249. youshoot:
250. _LIMIT 1000
251. IF ushoot = 0 THEN
252.     sx2 = xt + 10
253.     sy2 = yt - 11
254.     ushoot = 1
255.     SOUND 400, .5
256. END IF
257. RETURN
258.  
259. 'The drawing and movement of your shot and if it reaches the enemy.
260. youshoot2:
261. _LIMIT 1000
262. IF ushoot = 1 THEN
263.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
264.     sy2 = sy2 - 3
265.     IF sy2 < 0 THEN ushoot = 0: RETURN
266.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
267.     IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 THEN
268.         CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
269.         SOUND 200, 1
270.         SOUND 100, 1
271.         FOR explosion = 1 TO 30
272.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
273.             _DELAY .02
274.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
275.         NEXT explosion
276.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
277.         points = points + 100
278.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
279.         lives$ = STR$(lives)
280.         points$ = STR$(points)
281.         level$ = STR$(level2)
282.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
283.         ushoot = 0
284.         GOTO go:
285.     END IF
286. END IF
287. RETURN
288.  
289. 'The enemy's shot and if it reaches you.
290. shoot:
291. _LIMIT 1000
292. IF shooting = 0 THEN
293.     IF level2 = 1 THEN shh = 9970
294.     IF level2 = 2 THEN shh = 9968
295.     IF level2 = 3 THEN shh = 9966
296.     IF level2 = 4 THEN shh = 9964
297.     IF level2 = 5 THEN shh = 9962
298.     IF level2 = 6 THEN shh = 9940
299.     IF level2 > 6 THEN shh = 9930
300.     RANDOMIZE TIMER
301.     sh = INT(RND * 10000) + 1
302.     IF sh < shh THEN RETURN
303.     sx = x2 + 10
304.     sy = y2 + 10
305.     shooting = 1
306.     SOUND 300, .5
307. END IF
308. IF shooting = 1 THEN
309.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
310.     sy = sy + 3
311.     IF sy > 620 THEN shooting = 0: RETURN
312.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
313.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
314.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
315.         SOUND 200, 1
316.         SOUND 100, 1
317.         FOR explosion2 = 1 TO 30
318.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
319.             _DELAY .02
320.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
321.         NEXT explosion2
322.         lives = lives - 1
323.         lives$ = STR$(lives)
324.         points$ = STR$(points)
325.         level$ = STR$(level2)
326.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
327.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
328.         IF lives = 0 THEN
329.             LOCATE 20, 40: PRINT "G A M E   O V E R"
330.             LOCATE 22, 40: PRINT "Score: "; points
331.             LOCATE 23, 40: PRINT "Level: "; level2
332.             LOCATE 25, 40: INPUT "Press Enter to go to Top Ten Scores.", tt$
333.  
334.             'Top Ten Scores
335.             scc = points
336.             IF _FILEEXISTS("toptentech.txt") THEN
337.             ELSE
338.                 OPEN "toptentech.txt" FOR OUTPUT AS #1
339.                 RESTORE originaltopten
340.                 DO
341.                     READ toptenname$, toptenscore!
342.                     IF toptenname$ = "EOF" THEN EXIT DO
343.                     PRINT #1, toptenname$
344.                     PRINT #1, toptenscore!
345.                 LOOP
346.                 CLOSE #1
347.             END IF
348.  
349.             OPEN "toptentech.txt" FOR INPUT AS #1
350.             FOR n = 1 TO 10
351.                 INPUT #1, name$(n)
352.                 INPUT #1, score(n)
353.                 IF scc > score(n) AND sct = 0 THEN
354.                     nn = n
355.                     PRINT "You have made the Top Ten!"
356.                     typename:
357.                     INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
358.                     IF LEN(nm$(nn)) > 25 THEN
359.                         PRINT "Name too long, try again."
360.                         GOTO typename:
361.                     END IF
362.                     sccc(nn) = scc
363.                     sct = 1
364.                 END IF
365.                 IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
366.             NEXT n
367.             CLOSE #1
368.             nex5:
369.             CLOSE #1
370.             OPEN "toptentech.txt" FOR OUTPUT AS #1
371.             FOR n = 1 TO nn
372.                 IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
373.                 IF n = nn THEN
374.                     PRINT #1, nm$(n)
375.                     PRINT #1, sccc(n)
376.                 END IF
377.             NEXT n
378.             nex6:
379.             FOR n = nn TO 10
380.                 PRINT #1, name$(n): PRINT #1, score(n)
381.             NEXT n
382.  
383.             CLOSE #1
384.             nex7:
385.             CLS
386.             PRINT: PRINT: PRINT
387.             PRINT "                                 T O P    T E N "
388.             PRINT: PRINT: PRINT
389.             OPEN "toptentech.txt" FOR INPUT AS #1
390.             FOR n = 1 TO 10
391.                 IF EOF(1) THEN GOTO nex8:
392.                 INPUT #1, name$(n)
393.                 INPUT #1, score(n)
394.                 PRINT "             "; n; ". "; name$(n); score(n)
395.             NEXT n
396.             nex8:
397.             CLOSE #1
398.             FOR n = 1 TO 10
399.                 nm$(n) = ""
400.                 score(n) = 0
401.                 name$(n) = ""
402.                 sccc(n) = 0
403.             NEXT n
404.             nn = 0
405.             n = 0
406.             sct = 0
407.             scc = 0
408.             LOCATE 23, 1
409.             INPUT "Would you like to play again? (Yes/No)", ag$
410.             IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" OR ag$ = "YEs" THEN GOTO begin:
411.             END
412.         END IF
413.         shooting = 0
414.         RETURN
415.     END IF
416. END IF
417. RETURN
418.  
419. originaltopten:
420. DATA Space Ace,7000
421. DATA Suzy Swift,6000
422. DATA Speedy Spencer,5000
423. DATA Super Sam,4000
424. DATA Battery Bob,3000
425. DATA Karen Kryptonite,2750
426. DATA Quick Ken,2500
427. DATA Tiger Tessa,2250
428. DATA Arcade Joe,2000
429. DATA How Do U Play,1750
430. DATA EOF,0
431.  

[SierraKen]

Here is the one line color variable problem fix. After you take care of the Boss and it goes back to the first one, it was making the next robot pink instead of blue. lol I accidentally typed cl instead of c1. Here is the fix, I also added _SCREENMOVE _MIDDLE at the top.

(Note: A faster version with some more sound effects is below on the same forum page as this post.)

Code: QB64: [Select]

1. 'This version has 5 different colored robots with a Boss Robot after that.
2. 'Each robot flies a different pattern.
3. 'Game made on July 22, 2019
4. 'By Ken G.
5. 'Freeware
6. 'I have put some descriptions in the code below to make it easier to learn from.
7. _SCREENMOVE _MIDDLE
8. begin:
9. DIM name$(50), nm$(50), score(50), sccc(50)
10. _TITLE "Tech Invaders"
11. CLS
12. SCREEN _NEWIMAGE(800, 600, 32)
13. PRINT: PRINT: PRINT
14. PRINT "                                 T E C H      I N V A D E R S"
15. PRINT: PRINT: PRINT
16. PRINT: PRINT: PRINT
17. PRINT "                                        by Ken G."
18. PRINT: PRINT: PRINT
19. PRINT "                       Use left and right arrow keys to move back and forth."
20. PRINT "                            Use up or down arrow keys to stop moving."
21. PRINT "                                    Use space bar to fire."
22. PRINT "                                      Esc to end anytime."
23. PRINT: PRINT: PRINT
24. INPUT "                                   Press Enter to start.", start$
25. CLS
26. lives = 5
27. points = 0
28. ushoot = 0
29. shooting = 0
30. level = 1
31. level2 = 1
32. start = 0
33. s = 0
34. xt = 400: yt = 550
35.  
36. 'Draw your shooter.
37. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
38. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
39.  
40.  
41. 'This is the start of the main loop.
42. go:
43. 'Choose a random place for the enemy.
44. RANDOMIZE TIMER
45. xx = INT(RND * 200) + 100
46. RANDOMIZE TIMER
47. yy = INT(RND * 100) + 40
48.  
49. 'Each level has its own loop so it can set a different equation and speed of the enemy.
50.  
51. IF level = 1 THEN
52.     c1 = 128: c2 = 127: c3 = 255
53.     one:
54.     'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
55.     sec = sec + .01
56.     s = (60 - sec) * 6 + 180
57.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
58.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
59.  
60.     'GOSUB to drawing draws the enemy robot.
61.     GOSUB drawing:
62.     IF sec > 180 THEN
63.         sec = 0
64.         GOTO onedone:
65.     END IF
66.  
67.     'GOSUB's go to keyboard control and enemy shooting.
68.     GOSUB keyboard:
69.     GOSUB shoot:
70.     GOSUB youshoot2:
71.     GOTO one:
72.     onedone:
73. END IF
74.  
75. 'This level uses the spiral equation so it's a bit different than the others.
76. IF level = 2 THEN
77.     c1 = 127: c2 = 216: c3 = 127
78.     FOR d = 160 TO 0 STEP -.125
79.         _LIMIT 1000
80.         s = s + .2
81.         x = COS(s * 3.141592 / 180) * d
82.         y = SIN(s * 3.151492 / 180) * d
83.         GOSUB drawing:
84.         GOSUB keyboard:
85.         GOSUB shoot:
86.         GOSUB youshoot2:
87.     NEXT d
88.     FOR d = 0 TO 160 STEP .125
89.         _LIMIT 1000
90.         s = s - .2
91.         x = COS(s * 3.141592 / 180) * d
92.         y = SIN(s * 3.151492 / 180) * d
93.         GOSUB drawing:
94.         GOSUB keyboard:
95.         GOSUB shoot:
96.         GOSUB youshoot2:
97.     NEXT d
98. END IF
99.  
100. IF level = 3 THEN
101.     c1 = 255: c2 = 0: c3 = 0
102.     three:
103.     sec = sec + .01
104.     s = (60 - sec) * 6 + 180
105.     x = INT(SIN(s / 90 * 3.141592) * 180) + 325
106.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
107.     GOSUB drawing:
108.     IF sec > 60 THEN
109.         sec = 0
110.         GOTO threedone:
111.     END IF
112.     GOSUB keyboard:
113.     GOSUB shoot:
114.     GOSUB youshoot2:
115.     GOTO three:
116.     threedone:
117. END IF
118.  
119. IF level = 4 THEN
120.     c1 = 255: c2 = 255: c3 = 127
121.     four:
122.     sec = sec + .01
123.     s = (60 - sec) * 6 + 180
124.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
125.     y = INT(COS(s / 90 * 3.141592) * 180) + 225
126.     GOSUB drawing:
127.     IF sec > 60 THEN
128.         sec = 0
129.         GOTO fourdone:
130.     END IF
131.     GOSUB keyboard:
132.     GOSUB shoot:
133.     GOSUB youshoot2:
134.     GOTO four:
135.     fourdone:
136. END IF
137. IF level = 5 THEN
138.     c1 = 133: c2 = 28: c3 = 255
139.     five:
140.     sec = sec + .01
141.     s = (60 - sec) * 6 + 180
142.     x = INT(SIN(s / 135 * 3.141592) * 180) + 325
143.     y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
144.     GOSUB drawing:
145.     IF sec > 60 THEN
146.         sec = 0
147.         GOTO fivedone:
148.     END IF
149.     GOSUB keyboard:
150.     GOSUB shoot:
151.     GOSUB youshoot2:
152.     GOTO five:
153.     fivedone:
154. END IF
155.  
156. IF level = 6 THEN
157.     c1 = 255: c2 = 0: c3 = 0
158.     six:
159.     sec = sec + .02
160.     s = (60 - sec) * 6 + 180
161.     x = INT(SIN(s / 45 * 3.141592) * 180) + 325
162.     y = INT(COS(s / 360 * 3.141592) * 180) + 225
163.     GOSUB drawing2:
164.     IF sec > 120 THEN
165.         sec = 0
166.         GOTO sixdone:
167.     END IF
168.     GOSUB keyboard:
169.     GOSUB shoot:
170.     GOSUB youshoot2:
171.     GOTO six:
172.     sixdone:
173. END IF
174.  
175. IF level = 7 THEN level = 1
176.  
177. GOTO go:
178. 'GOTO goes back to the start of the main loop.
179.  
180. 'Draws the enemy tank and erases it for animation.
181. drawing:
182. x2 = x + xx: y2 = y + yy
183. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(c1, c2, c3)
184. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(c1, c2, c3)
185. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(c1, c2, c3)
186. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(c1, c2, c3)
187. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
188. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
189. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
190. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
191. _DELAY .004
192. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
193. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
194. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
195. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(0, 0, 0)
196. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(0, 0, 0)
197.  
198. RETURN
199.  
200. 'Draws the Boss Robot.
201. drawing2:
202. x2 = x + xx: y2 = y + yy
203. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(c1, c2, c3), BF
204. LINE (x2 - 4, y2 - 5)-(x2 - 2, y2 - 2), _RGB32(0, 0, 0), BF
205. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(0, 0, 0), BF
206. LINE (x2 - 4, y2 + 7)-(x2 + 4, y2 + 8), _RGB32(0, 0, 0), BF
207. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(c1, c2, c3)
208. CIRCLE (x2, y2 - 24), 4, _RGB32(c1, c2, c3)
209. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(c1, c2, c3)
210. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(c1, c2, c3)
211. _DELAY .004
212. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(0, 0, 0), BF
213. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(0, 0, 0)
214. CIRCLE (x2, y2 - 24), 4, _RGB32(0, 0, 0)
215. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(0, 0, 0)
216. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(0, 0, 0)
217. RETURN
218.  
219. 'Keyboard control for your movement and shooting.
220. keyboard:
221. _LIMIT 1000
222. a$ = INKEY$
223. IF a$ = CHR$(27) THEN END
224. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
225. IF r = 1 THEN
226.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
227.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
228.     xt = xt + 1
229.     IF xt > 780 THEN xt = 780
230.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
231.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
232. END IF
233. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
234. IF l = 1 THEN
235.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
236.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
237.     xt = xt - 1
238.     IF xt < 0 THEN xt = 0
239.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
240.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
241. END IF
242. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
243.     r = 0: l = 0
244. END IF
245.  
246. IF a$ = " " THEN GOSUB youshoot:
247. RETURN
248.  
249. 'The start of your shot.
250. youshoot:
251. _LIMIT 1000
252. IF ushoot = 0 THEN
253.     sx2 = xt + 10
254.     sy2 = yt - 11
255.     ushoot = 1
256.     SOUND 400, .5
257. END IF
258. RETURN
259.  
260. 'The drawing and movement of your shot and if it reaches the enemy.
261. youshoot2:
262. _LIMIT 1000
263. IF ushoot = 1 THEN
264.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
265.     sy2 = sy2 - 3
266.     IF sy2 < 0 THEN ushoot = 0: RETURN
267.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
268.     IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 THEN
269.         CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
270.         SOUND 200, 1
271.         SOUND 100, 1
272.         FOR explosion = 1 TO 30
273.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
274.             _DELAY .02
275.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
276.         NEXT explosion
277.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
278.         points = points + 100
279.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
280.         lives$ = STR$(lives)
281.         points$ = STR$(points)
282.         level$ = STR$(level2)
283.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
284.         ushoot = 0
285.         GOTO go:
286.     END IF
287. END IF
288. RETURN
289.  
290. 'The enemy's shot and if it reaches you.
291. shoot:
292. _LIMIT 1000
293. IF shooting = 0 THEN
294.     IF level2 = 1 THEN shh = 9970
295.     IF level2 = 2 THEN shh = 9968
296.     IF level2 = 3 THEN shh = 9966
297.     IF level2 = 4 THEN shh = 9964
298.     IF level2 = 5 THEN shh = 9962
299.     IF level2 = 6 THEN shh = 9940
300.     IF level2 > 6 THEN shh = 9930
301.     RANDOMIZE TIMER
302.     sh = INT(RND * 10000) + 1
303.     IF sh < shh THEN RETURN
304.     sx = x2 + 10
305.     sy = y2 + 10
306.     shooting = 1
307.     SOUND 300, .5
308. END IF
309. IF shooting = 1 THEN
310.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
311.     sy = sy + 3
312.     IF sy > 620 THEN shooting = 0: RETURN
313.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
314.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
315.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
316.         SOUND 200, 1
317.         SOUND 100, 1
318.         FOR explosion2 = 1 TO 30
319.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
320.             _DELAY .02
321.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
322.         NEXT explosion2
323.         lives = lives - 1
324.         lives$ = STR$(lives)
325.         points$ = STR$(points)
326.         level$ = STR$(level2)
327.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
328.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
329.         IF lives = 0 THEN
330.             LOCATE 20, 40: PRINT "G A M E   O V E R"
331.             LOCATE 22, 40: PRINT "Score: "; points
332.             LOCATE 23, 40: PRINT "Level: "; level2
333.             LOCATE 25, 40: INPUT "Press Enter to go to Top Ten Scores.", tt$
334.  
335.             'Top Ten Scores
336.             scc = points
337.             IF _FILEEXISTS("toptentech.txt") THEN
338.             ELSE
339.                 OPEN "toptentech.txt" FOR OUTPUT AS #1
340.                 RESTORE originaltopten
341.                 DO
342.                     READ toptenname$, toptenscore!
343.                     IF toptenname$ = "EOF" THEN EXIT DO
344.                     PRINT #1, toptenname$
345.                     PRINT #1, toptenscore!
346.                 LOOP
347.                 CLOSE #1
348.             END IF
349.  
350.             OPEN "toptentech.txt" FOR INPUT AS #1
351.             FOR n = 1 TO 10
352.                 INPUT #1, name$(n)
353.                 INPUT #1, score(n)
354.                 IF scc > score(n) AND sct = 0 THEN
355.                     nn = n
356.                     PRINT "You have made the Top Ten!"
357.                     typename:
358.                     INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
359.                     IF LEN(nm$(nn)) > 25 THEN
360.                         PRINT "Name too long, try again."
361.                         GOTO typename:
362.                     END IF
363.                     sccc(nn) = scc
364.                     sct = 1
365.                 END IF
366.                 IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
367.             NEXT n
368.             CLOSE #1
369.             nex5:
370.             CLOSE #1
371.             OPEN "toptentech.txt" FOR OUTPUT AS #1
372.             FOR n = 1 TO nn
373.                 IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
374.                 IF n = nn THEN
375.                     PRINT #1, nm$(n)
376.                     PRINT #1, sccc(n)
377.                 END IF
378.             NEXT n
379.             nex6:
380.             FOR n = nn TO 10
381.                 PRINT #1, name$(n): PRINT #1, score(n)
382.             NEXT n
383.  
384.             CLOSE #1
385.             nex7:
386.             CLS
387.             PRINT: PRINT: PRINT
388.             PRINT "                                 T O P    T E N "
389.             PRINT: PRINT: PRINT
390.             OPEN "toptentech.txt" FOR INPUT AS #1
391.             FOR n = 1 TO 10
392.                 IF EOF(1) THEN GOTO nex8:
393.                 INPUT #1, name$(n)
394.                 INPUT #1, score(n)
395.                 PRINT "             "; n; ". "; name$(n); score(n)
396.             NEXT n
397.             nex8:
398.             CLOSE #1
399.             FOR n = 1 TO 10
400.                 nm$(n) = ""
401.                 score(n) = 0
402.                 name$(n) = ""
403.                 sccc(n) = 0
404.             NEXT n
405.             nn = 0
406.             n = 0
407.             sct = 0
408.             scc = 0
409.             LOCATE 23, 1
410.             INPUT "Would you like to play again? (Yes/No)", ag$
411.             IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" OR ag$ = "YEs" THEN GOTO begin:
412.             END
413.         END IF
414.         shooting = 0
415.         RETURN
416.     END IF
417. END IF
418. RETURN
419.  
420. originaltopten:
421. DATA Space Ace,7000
422. DATA Suzy Swift,6000
423. DATA Speedy Spencer,5000
424. DATA Super Sam,4000
425. DATA Battery Bob,3000
426. DATA Karen Kryptonite,2750
427. DATA Quick Ken,2500
428. DATA Tiger Tessa,2250
429. DATA Arcade Joe,2000
430. DATA How Do U Play,1750
431. DATA EOF,0
432.  

[SierraKen]

I made a video of myself playing this game, showing the code first, and put it on YouTube. If anyone is interested. It's a bit blurry but someone says that YouTube fixes the blurriness eventually, but we'll see. 

&feature=youtu.be

[SierraKen]

Well, I decided to do some more experimenting lol, and you know when that happens I find something really cool usually lol.
For the first time I tried some SUB's and tried them in my Robot Invaders game. I first found out that if you use a FOR/NEXT loop in a SUB, you can play that SOUND effect while the main program is still running! That is, until that loop is over with, which is WAY cool. But I also found out that you can't make a forever loop for Sound in a SUB or it will stop your main program for some reason. So after messing with it a bit I just made a quick sound for when you start with a new guy in the game. I also made the enemy explosions a LOT faster with no _DELAY's anymore. Which makes the game even more fun because it moves much faster. So, here is the game again, I hope you all aren't tired of it yet. :) Thank you to the people in my Math Graphics thread for pushing me to learn more about SUB's, I feel like I just jumped ahead big time. :) Subs were like another language to me in the 90's, I feel so relieved now that I finally know a lot more now. Of course I will still keep learning more about them.

This will be the last one for this Version of the game. I'm working on Version 2 and I already got filled in bullets :))). I didn't need that circle fill-in code in the Toolbox of this forum, just loops of different sized circles every .25 size. :) I'll start a new thread for the next version because I want to add a lot of different things.

Code: QB64: [Select]

1. 'This version has 5 different colored robots with a Boss Robot after that.
2. 'Each robot flies a different pattern.
3. 'Game made on July 22, 2019
4. 'By Ken G.
5. 'Freeware
6. 'I have put some descriptions in the code below to make it easier to learn from.
7. _SCREENMOVE _MIDDLE
8. begin:
9. DIM name$(50), nm$(50), score(50), sccc(50)
10. _TITLE "Tech Invaders"
11. CLS
12. SCREEN _NEWIMAGE(800, 600, 32)
13. PRINT: PRINT: PRINT
14. PRINT "                                 T E C H      I N V A D E R S"
15. PRINT: PRINT: PRINT
16. PRINT: PRINT: PRINT
17. PRINT "                                        by Ken G."
18. PRINT: PRINT: PRINT
19. PRINT "                       Use left and right arrow keys to move back and forth."
20. PRINT "                            Use up or down arrow keys to stop moving."
21. PRINT "                                    Use space bar to fire."
22. PRINT "                                      Esc to end anytime."
23. PRINT: PRINT: PRINT
24. INPUT "                                   Press Enter to start.", start$
25. CLS
26. lives = 5
27. points = 0
28. ushoot = 0
29. shooting = 0
30. level = 1
31. level2 = 1
32. start = 0
33. s = 0
34. xt = 400: yt = 550
35.  
36. 'Draw your shooter.
37. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
38. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
39.  
40. OPENINGSOUND
41.  
42. 'This is the start of the main loop.
43. go:
44. 'Choose a random place for the enemy.
45. RANDOMIZE TIMER
46. xx = INT(RND * 200) + 100
47. RANDOMIZE TIMER
48. yy = INT(RND * 100) + 40
49.  
50. 'Each level has its own loop so it can set a different equation and speed of the enemy.
51.  
52. IF level = 1 THEN
53.     c1 = 128: c2 = 127: c3 = 255
54.     one:
55.     'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
56.     sec = sec + .01
57.     s = (60 - sec) * 6 + 180
58.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
59.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
60.  
61.     'GOSUB to drawing draws the enemy robot.
62.     GOSUB drawing:
63.     IF sec > 180 THEN
64.         sec = 0
65.         GOTO onedone:
66.     END IF
67.  
68.     'GOSUB's go to keyboard control and enemy shooting.
69.     GOSUB keyboard:
70.     GOSUB shoot:
71.     GOSUB youshoot2:
72.     GOTO one:
73.     onedone:
74. END IF
75.  
76. 'This level uses the spiral equation so it's a bit different than the others.
77. IF level = 2 THEN
78.     c1 = 127: c2 = 216: c3 = 127
79.     FOR d = 160 TO 0 STEP -.125
80.         _LIMIT 1000
81.         s = s + .2
82.         x = COS(s * 3.141592 / 180) * d
83.         y = SIN(s * 3.151492 / 180) * d
84.         GOSUB drawing:
85.         GOSUB keyboard:
86.         GOSUB shoot:
87.         GOSUB youshoot2:
88.     NEXT d
89.     FOR d = 0 TO 160 STEP .125
90.         _LIMIT 1000
91.         s = s - .2
92.         x = COS(s * 3.141592 / 180) * d
93.         y = SIN(s * 3.151492 / 180) * d
94.         GOSUB drawing:
95.         GOSUB keyboard:
96.         GOSUB shoot:
97.         GOSUB youshoot2:
98.     NEXT d
99. END IF
100.  
101. IF level = 3 THEN
102.     c1 = 255: c2 = 0: c3 = 0
103.     three:
104.     sec = sec + .01
105.     s = (60 - sec) * 6 + 180
106.     x = INT(SIN(s / 90 * 3.141592) * 180) + 325
107.     y = INT(COS(s / 180 * 3.141592) * 180) + 225
108.     GOSUB drawing:
109.     IF sec > 60 THEN
110.         sec = 0
111.         GOTO threedone:
112.     END IF
113.     GOSUB keyboard:
114.     GOSUB shoot:
115.     GOSUB youshoot2:
116.     GOTO three:
117.     threedone:
118. END IF
119.  
120. IF level = 4 THEN
121.     c1 = 255: c2 = 255: c3 = 127
122.     four:
123.     sec = sec + .01
124.     s = (60 - sec) * 6 + 180
125.     x = INT(SIN(s / 180 * 3.141592) * 180) + 325
126.     y = INT(COS(s / 90 * 3.141592) * 180) + 225
127.     GOSUB drawing:
128.     IF sec > 60 THEN
129.         sec = 0
130.         GOTO fourdone:
131.     END IF
132.     GOSUB keyboard:
133.     GOSUB shoot:
134.     GOSUB youshoot2:
135.     GOTO four:
136.     fourdone:
137. END IF
138. IF level = 5 THEN
139.     c1 = 133: c2 = 28: c3 = 255
140.     five:
141.     sec = sec + .01
142.     s = (60 - sec) * 6 + 180
143.     x = INT(SIN(s / 135 * 3.141592) * 180) + 325
144.     y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
145.     GOSUB drawing:
146.     IF sec > 60 THEN
147.         sec = 0
148.         GOTO fivedone:
149.     END IF
150.     GOSUB keyboard:
151.     GOSUB shoot:
152.     GOSUB youshoot2:
153.     GOTO five:
154.     fivedone:
155. END IF
156.  
157. IF level = 6 THEN
158.     c1 = 255: c2 = 0: c3 = 0
159.     six:
160.     sec = sec + .02
161.     s = (60 - sec) * 6 + 180
162.     x = INT(SIN(s / 45 * 3.141592) * 180) + 325
163.     y = INT(COS(s / 360 * 3.141592) * 180) + 225
164.     GOSUB drawing2:
165.     IF sec > 120 THEN
166.         sec = 0
167.         GOTO sixdone:
168.     END IF
169.     GOSUB keyboard:
170.     GOSUB shoot:
171.     GOSUB youshoot2:
172.     GOTO six:
173.     sixdone:
174. END IF
175.  
176. IF level = 7 THEN level = 1
177.  
178. GOTO go:
179. 'GOTO goes back to the start of the main loop.
180.  
181. 'Draws the enemy tank and erases it for animation.
182. drawing:
183. x2 = x + xx: y2 = y + yy
184. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(c1, c2, c3)
185. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(c1, c2, c3)
186. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(c1, c2, c3)
187. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(c1, c2, c3)
188. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
189. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
190. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
191. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
192. _DELAY .004
193. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
194. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
195. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
196. CIRCLE (x2 - 15, y2 - 15), 5, _RGB32(0, 0, 0)
197. CIRCLE (x2 + 35, y2 - 15), 5, _RGB32(0, 0, 0)
198.  
199. RETURN
200.  
201. 'Draws the Boss Robot.
202. drawing2:
203. x2 = x + xx: y2 = y + yy
204. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(c1, c2, c3), BF
205. LINE (x2 - 4, y2 - 5)-(x2 - 2, y2 - 2), _RGB32(0, 0, 0), BF
206. LINE (x2 + 6, y2 - 5)-(x2 + 8, y2 - 2), _RGB32(0, 0, 0), BF
207. LINE (x2 - 4, y2 + 7)-(x2 + 4, y2 + 8), _RGB32(0, 0, 0), BF
208. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(c1, c2, c3)
209. CIRCLE (x2, y2 - 24), 4, _RGB32(c1, c2, c3)
210. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(c1, c2, c3)
211. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(c1, c2, c3)
212. _DELAY .004
213. LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(0, 0, 0), BF
214. LINE (x2, y2 - 10)-(x2, y2 - 20), _RGB32(0, 0, 0)
215. CIRCLE (x2, y2 - 24), 4, _RGB32(0, 0, 0)
216. LINE (x2, y2 - 20)-(x2 - 10, y2 - 30), _RGB32(0, 0, 0)
217. LINE (x2, y2 - 20)-(x2 + 10, y2 - 30), _RGB32(0, 0, 0)
218. RETURN
219.  
220. 'Keyboard control for your movement and shooting.
221. keyboard:
222. _LIMIT 1000
223. a$ = INKEY$
224. IF a$ = CHR$(27) THEN END
225. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
226. IF r = 1 THEN
227.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
228.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
229.     xt = xt + 1
230.     IF xt > 780 THEN xt = 780
231.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
232.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
233. END IF
234. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
235. IF l = 1 THEN
236.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
237.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
238.     xt = xt - 1
239.     IF xt < 0 THEN xt = 0
240.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
241.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
242. END IF
243. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
244.     r = 0: l = 0
245. END IF
246.  
247. IF a$ = " " THEN GOSUB youshoot:
248. RETURN
249.  
250. 'The start of your shot.
251. youshoot:
252. _LIMIT 1000
253. IF ushoot = 0 THEN
254.     sx2 = xt + 10
255.     sy2 = yt - 11
256.     ushoot = 1
257.     SOUND 400, .5
258. END IF
259. RETURN
260.  
261. 'The drawing and movement of your shot and if it reaches the enemy.
262. youshoot2:
263. _LIMIT 1000
264. IF ushoot = 1 THEN
265.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
266.     sy2 = sy2 - 3
267.     IF sy2 < 0 THEN ushoot = 0: RETURN
268.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
269.     IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 THEN
270.         ENEMYEXPLOSION sx2, sy2, x2, y2
271.         points = points + 100
272.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
273.         lives$ = STR$(lives)
274.         points$ = STR$(points)
275.         level$ = STR$(level2)
276.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
277.         ushoot = 0
278.         GOTO go:
279.     END IF
280. END IF
281. RETURN
282.  
283. 'The enemy's shot and if it reaches you.
284. shoot:
285. _LIMIT 1000
286. IF shooting = 0 THEN
287.     IF level2 = 1 THEN shh = 9970
288.     IF level2 = 2 THEN shh = 9968
289.     IF level2 = 3 THEN shh = 9966
290.     IF level2 = 4 THEN shh = 9964
291.     IF level2 = 5 THEN shh = 9962
292.     IF level2 = 6 THEN shh = 9940
293.     IF level2 > 6 THEN shh = 9930
294.     RANDOMIZE TIMER
295.     sh = INT(RND * 10000) + 1
296.     IF sh < shh THEN RETURN
297.     sx = x2 + 10
298.     sy = y2 + 10
299.     shooting = 1
300.     SOUND 300, .5
301. END IF
302. IF shooting = 1 THEN
303.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
304.     sy = sy + 3
305.     IF sy > 620 THEN shooting = 0: RETURN
306.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
307.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
308.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
309.         SOUND 200, 1
310.         SOUND 100, 1
311.         FOR explosion2 = 1 TO 30
312.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
313.             _DELAY .02
314.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
315.         NEXT explosion2
316.         lives = lives - 1
317.         lives$ = STR$(lives)
318.         points$ = STR$(points)
319.         level$ = STR$(level2)
320.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
321.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
322.         IF lives = 0 THEN
323.             LOCATE 20, 40: PRINT "G A M E   O V E R"
324.             LOCATE 22, 40: PRINT "Score: "; points
325.             LOCATE 23, 40: PRINT "Level: "; level2
326.             LOCATE 25, 40: INPUT "Press Enter to go to Top Ten Scores.", tt$
327.  
328.             'Top Ten Scores
329.             scc = points
330.             IF _FILEEXISTS("toptentech.txt") THEN
331.             ELSE
332.                 OPEN "toptentech.txt" FOR OUTPUT AS #1
333.                 RESTORE originaltopten
334.                 DO
335.                     READ toptenname$, toptenscore!
336.                     IF toptenname$ = "EOF" THEN EXIT DO
337.                     PRINT #1, toptenname$
338.                     PRINT #1, toptenscore!
339.                 LOOP
340.                 CLOSE #1
341.             END IF
342.  
343.             OPEN "toptentech.txt" FOR INPUT AS #1
344.             FOR n = 1 TO 10
345.                 INPUT #1, name$(n)
346.                 INPUT #1, score(n)
347.                 IF scc > score(n) AND sct = 0 THEN
348.                     nn = n
349.                     PRINT "You have made the Top Ten!"
350.                     typename:
351.                     INPUT "Type your name here (25 letters and spaces maximum.):", nm$(nn)
352.                     IF LEN(nm$(nn)) > 25 THEN
353.                         PRINT "Name too long, try again."
354.                         GOTO typename:
355.                     END IF
356.                     sccc(nn) = scc
357.                     sct = 1
358.                 END IF
359.                 IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
360.             NEXT n
361.             CLOSE #1
362.             nex5:
363.             CLOSE #1
364.             OPEN "toptentech.txt" FOR OUTPUT AS #1
365.             FOR n = 1 TO nn
366.                 IF n <> nn THEN PRINT #1, name$(n): PRINT #1, score(n)
367.                 IF n = nn THEN
368.                     PRINT #1, nm$(n)
369.                     PRINT #1, sccc(n)
370.                 END IF
371.             NEXT n
372.             nex6:
373.             FOR n = nn TO 10
374.                 PRINT #1, name$(n): PRINT #1, score(n)
375.             NEXT n
376.  
377.             CLOSE #1
378.             nex7:
379.             CLS
380.             PRINT: PRINT: PRINT
381.             PRINT "                                 T O P    T E N "
382.             PRINT: PRINT: PRINT
383.             OPEN "toptentech.txt" FOR INPUT AS #1
384.             FOR n = 1 TO 10
385.                 IF EOF(1) THEN GOTO nex8:
386.                 INPUT #1, name$(n)
387.                 INPUT #1, score(n)
388.                 PRINT "             "; n; ". "; name$(n); score(n)
389.             NEXT n
390.             nex8:
391.             CLOSE #1
392.             FOR n = 1 TO 10
393.                 nm$(n) = ""
394.                 score(n) = 0
395.                 name$(n) = ""
396.                 sccc(n) = 0
397.             NEXT n
398.             nn = 0
399.             n = 0
400.             sct = 0
401.             scc = 0
402.             LOCATE 23, 1
403.             INPUT "Would you like to play again? (Yes/No)", ag$
404.             IF ag$ = "y" OR ag$ = "Y" OR ag$ = "YES" OR ag$ = "yes" OR ag$ = "Yes" OR ag$ = "yES" OR ag$ = "yeS" OR ag$ = "YEs" THEN GOTO begin:
405.             END
406.         END IF
407.         shooting = 0
408.         OPENINGSOUND
409.         RETURN
410.     END IF
411. END IF
412. RETURN
413.  
414. originaltopten:
415. DATA Space Ace,7000
416. DATA Suzy Swift,6000
417. DATA Speedy Spencer,5000
418. DATA Super Sam,4000
419. DATA Battery Bob,3000
420. DATA Karen Kryptonite,2750
421. DATA Quick Ken,2500
422. DATA Tiger Tessa,2250
423. DATA Arcade Joe,2000
424. DATA How Do U Play,1750
425. DATA EOF,0
426.  
427. SUB OPENINGSOUND
428.     snd = 300
429.     snd2 = 800
430.     FOR t = 1 TO 50
431.         IF snd > 800 THEN snd = 300
432.         IF snd2 < 300 THEN snd2 = 800
433.         snd = snd + 10
434.         SOUND snd, .25
435.     NEXT t
436. END SUB
437.  
438. SUB ENEMYEXPLOSION (sx2, sy2, x2, y2)
439.     SOUND 200, 1
440.     SOUND 100, 1
441.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
442.     FOR explosion = 1 TO 30
443.         CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
444.         _LIMIT 200
445.         CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
446.     NEXT explosion
447.     LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
448. END SUB
449.  
450.  

[OldMoses]

That was really cool. Trying to predict where the alien was going to move was a challenge.

On the code end of things, I think you'll find that SUBing out will work well where ever you use a GOTO or GOSUB.

SUBs and FUNCTIONs, when well designed, will become standard library routines that you can cut and paste into other code. That way it's not necessary to "reinvent the wheel". There are times that I just load a "template" of routines, then when I'm done, I just delete the ones I didn't use.

[SierraKen]

That's really cool, thanks OldMoses, I'll remember that.

[Pete]

Well, I made it to level 7 in the first game. I liked the initial alien design the best.

Pete

[pforpond]

I made it to the red ones that fly side to side... this is a fun game, quite addictive and I love the fast paced nature it seems to be taking and pattern learning involved. One thing I did notice is that sometimes the enemy seems to jolt from one place to another... I think it only happened twice, I don't know if it's intended or not :)

Would be great to see multiple enemies on screen at once :) Loving you game so far!

[SierraKen]

Thanks Pforpond. Yes, they are intended to disappear and appear somewhere else. It makes the game a bit harder and more random. :)

[SierraKen]

Cool Pete, thanks. Try out my Tech Invaders 2. It's a lot better than this one. :)