QB64.org Forum

Samples Gallery & Reference => Games => Topic started by: Qwerkey on May 09, 2020, 04:51:01 am

Title: Tech Invaders 2 by SierraKen
Post by: Qwerkey on May 09, 2020, 04:51:01 am

Tech Invaders 2

Author: @SierraKen
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=1537.msg107553#msg107553 (https://www.qb64.org/forum/index.php?topic=1537.msg107553#msg107553)
Version: July 27, 2019
Tags: [Shooter], [Graphics], [Audio]

Description:
This game is a challenge where you try to shoot the enemies. It's also hard to keep away from them firing as well. After working on it for many hours non-stop, I made probably my best game I ever made: so have fun with the game.

Controls:
* Arrow keys: Movement
* Space Bar: Fire

Source Code:

Code: QB64: [Select]

1.     'Tech Invaders 2
2.     'Game made on July 27, 2019
3.     'By Ken G.
4.     'Freeware
5.     '---------------------------------------------------------------------------------------------------------------------------------------
6.     'Directions:
7.     'Move your shooter with the left and right arrow keys and press the space bar to fire at the enemies above.
8.     'The up and down arrow keys make your shooter stop moving.
9.     'Esc key ends at anytime.
10.     'After a couple of rounds, there is the Boss to destroy, which has a health bar that shrinks when you hit him.
11.     '---------------------------------------------------------------------------------------------------------------------------------------
12.     'I have put some descriptions in the code below to make it easier to learn from.
13.     '
14.     _SCREENMOVE _MIDDLE
15.     begin:
16.     DIM NAME$(50), nm$(50), score(50), sccc(50)
17.     _TITLE "Tech Invaders 2"
18.     CLS
19.     SCREEN _NEWIMAGE(800, 600, 32)
20.     PRINT: PRINT: PRINT
21.     FOR tt = 79 TO 34 STEP -1
22.         LOCATE 3, tt + 1: PRINT " "
23.         LOCATE 3, tt: PRINT "T"
24.         _DELAY .03
25.     NEXT tt
26.     FOR ee = 79 TO 36 STEP -1
27.         LOCATE 3, ee + 1: PRINT " "
28.         LOCATE 3, ee: PRINT "E"
29.         _DELAY .03
30.     NEXT ee
31.     FOR cc = 79 TO 38 STEP -1
32.         LOCATE 3, cc + 1: PRINT " "
33.         LOCATE 3, cc: PRINT "C"
34.         _DELAY .03
35.     NEXT cc
36.     FOR hh = 79 TO 40 STEP -1
37.         LOCATE 3, hh + 1: PRINT " "
38.         LOCATE 3, hh: PRINT "H"
39.         _DELAY .03
40.     NEXT hh
41.     FOR II = 79 TO 47 STEP -1
42.         LOCATE 3, II + 1: PRINT " "
43.         LOCATE 3, II: PRINT "I"
44.         _DELAY .03
45.     NEXT II
46.     FOR NN = 79 TO 49 STEP -1
47.         LOCATE 3, NN + 1: PRINT " "
48.         LOCATE 3, NN: PRINT "N"
49.         _DELAY .03
50.     NEXT NN
51.     FOR VV = 79 TO 51 STEP -1
52.         LOCATE 3, VV + 1: PRINT " "
53.         LOCATE 3, VV: PRINT "V"
54.         _DELAY .03
55.     NEXT VV
56.     FOR AA = 79 TO 53 STEP -1
57.         LOCATE 3, AA + 1: PRINT " "
58.         LOCATE 3, AA: PRINT "A"
59.         _DELAY .03
60.     NEXT AA
61.     FOR DD = 79 TO 55 STEP -1
62.         LOCATE 3, DD + 1: PRINT " "
63.         LOCATE 3, DD: PRINT "D"
64.         _DELAY .03
65.     NEXT DD
66.     FOR EE2 = 79 TO 57 STEP -1
67.         LOCATE 3, EE2 + 1: PRINT " "
68.         LOCATE 3, EE2: PRINT "E"
69.         _DELAY .03
70.     NEXT EE2
71.     FOR RR = 79 TO 59 STEP -1
72.         LOCATE 3, RR + 1: PRINT " "
73.         LOCATE 3, RR: PRINT "R"
74.         _DELAY .03
75.     NEXT RR
76.     FOR ss = 79 TO 61 STEP -1
77.         LOCATE 3, ss + 1: PRINT " "
78.         LOCATE 3, ss: PRINT "S"
79.         _DELAY .03
80.     NEXT ss
81.     DD = 0
82.     PRINT: PRINT: PRINT
83.     PRINT "                                         T W O"
84.     PRINT: PRINT: PRINT
85.     PRINT "                                        by Ken G."
86.     PRINT: PRINT: PRINT
87.     PRINT "                       Use left and right arrow keys to move back and forth."
88.     PRINT "                            Use up or down arrow keys to stop moving."
89.     PRINT "                                    Use space bar to fire."
90.     PRINT "                                      Esc to end anytime."
91.     PRINT: PRINT: PRINT
92.     INPUT "                                   Press Enter to start.", start$
93.     CLS
94.     e1 = 0
95.     E2 = 0
96.     e3 = 0
97.     lives = 5
98.     points = 0
99.     ushoot = 0
100.     shooting = 0
101.     level = 1
102.     level2 = 1
103.     start = 0
104.     s = 0
105.     xt = 400
106.     yt = 560
107.     B = 0
108.     boss = 0
109.      
110.     'Draw your shooter.
111.     FOR sz = .25 TO 10 STEP .25
112.         CIRCLE (xt + 10, yt), sz, _RGB32(139, 249, 255)
113.     NEXT sz
114.     LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(139, 249, 255), BF
115.      
116.     OPENINGSOUND
117.      
118.     'This is the start of the main loop.
119.     go:
120.     'Choose a random place for the enemy.
121.      
122.     IF e1 = 0 AND E2 = 0 AND e3 = 0 THEN
123.         RANDOMIZE TIMER
124.         xx = INT(RND * 200) + 100
125.         RANDOMIZE TIMER
126.         yy = INT(RND * 100) + 40
127.         RANDOMIZE TIMER
128.         xx2 = INT(RND * 200) + 200
129.         RANDOMIZE TIMER
130.         yy2 = INT(RND * 100) + 40
131.         RANDOMIZE TIMER
132.         xx3 = INT(RND * 200) + 250
133.         RANDOMIZE TIMER
134.         yy3 = INT(RND * 100) + 40
135.     END IF
136.      
137.     'Each level has its own loop so it can set a different equation and speed of the enemy.
138.      
139.     IF level = 1 THEN
140.         c1 = 128: c2 = 127: c3 = 255
141.         one:
142.         'sec is not time, it's related to the coordinate of the enemy and speed it goes related to the loop speed.
143.         sec = sec + .02
144.         s = (60 - sec) * 6 + 180
145.         x = INT(SIN(s / 180 * 3.141592) * 180) + 325
146.         y = INT(COS(s / 180 * 3.141592) * 180) + 225
147.         x3 = INT(SIN(s / 180 * 3.141592) * 180) + 325
148.         y3 = INT(COS(s / 180 * 3.141592) * 180) + 225
149.         x4 = INT(SIN(s / 180 * 3.141592) * 180) + 325
150.         y4 = INT(COS(s / 180 * 3.141592) * 180) + 225
151.      
152.         'GOSUB to drawing draws the enemy robot.
153.         IF e1 <> 1 THEN GOSUB drawing:
154.         IF E2 <> 1 THEN GOSUB drawing3:
155.         IF e3 <> 1 THEN GOSUB drawing4:
156.         _DELAY .006
157.         GOSUB ERASE:
158.         IF sec > 180 THEN
159.             sec = 0
160.             GOTO onedone:
161.         END IF
162.      
163.         'GOSUB's go to keyboard control and enemy shooting.
164.         GOSUB keyboard:
165.         GOSUB shoot:
166.         GOSUB youshoot2:
167.         GOTO one:
168.         onedone:
169.     END IF
170.      
171.     'This level uses the spiral equation so it's a bit different than the others.
172.     IF level = 2 THEN
173.         c1 = 127: c2 = 216: c3 = 127
174.         xx = 400: yy = 300
175.         xx2 = 100: yy2 = 300
176.         xx3 = 600: yy3 = 300
177.         FOR D = 160 TO 0 STEP -.125
178.             _LIMIT 1000
179.             s = s + .2
180.             x = COS(s * 3.141592 / 180) * D
181.             y = SIN(s * 3.151492 / 180) * D
182.             x3 = COS(s * 3.141592 / 180) * D
183.             y3 = SIN(s * 3.151492 / 180) * D
184.             x4 = COS(s * 3.141592 / 180) * D
185.             y4 = SIN(s * 3.151492 / 180) * D
186.             IF e1 <> 1 THEN GOSUB drawing:
187.             IF E2 <> 1 THEN GOSUB drawing3:
188.             IF e3 <> 1 THEN GOSUB drawing4:
189.             _DELAY .006
190.             GOSUB ERASE:
191.             GOSUB keyboard:
192.             GOSUB shoot:
193.             GOSUB youshoot2:
194.         NEXT D
195.         FOR D = 0 TO 160 STEP .125
196.             _LIMIT 1000
197.             s = s - .2
198.             x = COS(s * 3.141592 / 180) * D
199.             y = SIN(s * 3.151492 / 180) * D
200.             x3 = COS(s * 3.141592 / 180) * D
201.             y3 = SIN(s * 3.151492 / 180) * D
202.             x4 = COS(s * 3.141592 / 180) * D
203.             y4 = SIN(s * 3.151492 / 180) * D
204.             IF e1 <> 1 THEN GOSUB drawing:
205.             IF E2 <> 1 THEN GOSUB drawing3:
206.             IF e3 <> 1 THEN GOSUB drawing4:
207.             _DELAY .006
208.             GOSUB ERASE:
209.             GOSUB keyboard:
210.             GOSUB shoot:
211.             GOSUB youshoot2:
212.         NEXT D
213.     END IF
214.      
215.     IF level = 3 THEN
216.         c1 = 255: c2 = 0: c3 = 0
217.         three:
218.         sec = sec + .02
219.         s = (60 - sec) * 6 + 180
220.         x = INT(SIN(s / 90 * 3.141592) * 180) + 325
221.         y = INT(COS(s / 180 * 3.141592) * 180) + 225
222.         x3 = INT(SIN(s / 90 * 3.141592) * 180) + 325
223.         y3 = INT(COS(s / 180 * 3.141592) * 180) + 225
224.         x4 = INT(SIN(s / 90 * 3.141592) * 180) + 325
225.         y4 = INT(COS(s / 180 * 3.141592) * 180) + 225
226.         IF e1 <> 1 THEN GOSUB drawing:
227.         IF E2 <> 1 THEN GOSUB drawing3:
228.         IF e3 <> 1 THEN GOSUB drawing4:
229.         _DELAY .006
230.         GOSUB ERASE:
231.         IF sec > 60 THEN
232.             sec = 0
233.             GOTO threedone:
234.         END IF
235.         GOSUB keyboard:
236.         GOSUB shoot:
237.         GOSUB youshoot2:
238.         GOTO three:
239.         threedone:
240.     END IF
241.      
242.     IF level = 4 THEN
243.         c1 = 255: c2 = 255: c3 = 127
244.         four:
245.         sec = sec + .02
246.         s = (60 - sec) * 6 + 180
247.         x = INT(SIN(s / 180 * 3.141592) * 180) + 325
248.         y = INT(COS(s / 90 * 3.141592) * 180) + 225
249.         x3 = INT(SIN(s / 180 * 3.141592) * 180) + 325
250.         y3 = INT(COS(s / 90 * 3.141592) * 180) + 225
251.         x4 = INT(SIN(s / 180 * 3.141592) * 180) + 325
252.         y4 = INT(COS(s / 90 * 3.141592) * 180) + 225
253.         IF e1 <> 1 THEN GOSUB drawing:
254.         IF E2 <> 1 THEN GOSUB drawing3:
255.         IF e3 <> 1 THEN GOSUB drawing4:
256.         _DELAY .006
257.         GOSUB ERASE:
258.         IF sec > 60 THEN
259.             sec = 0
260.             GOTO fourdone:
261.         END IF
262.         GOSUB keyboard:
263.         GOSUB shoot:
264.         GOSUB youshoot2:
265.         GOTO four:
266.         fourdone:
267.     END IF
268.     IF level = 5 THEN
269.         c1 = 133: c2 = 28: c3 = 255
270.         five:
271.         sec = sec + .02
272.         s = (60 - sec) * 6 + 180
273.         x = INT(SIN(s / 135 * 3.141592) * 180) + 325
274.         y = INT(COS(s / 33.75 * 3.141592) * 180) + 225
275.         x3 = INT(SIN(s / 135 * 3.141592) * 180) + 325
276.         y3 = INT(COS(s / 33.75 * 3.141592) * 180) + 225
277.         x4 = INT(SIN(s / 135 * 3.141592) * 180) + 325
278.         y4 = INT(COS(s / 33.75 * 3.141592) * 180) + 225
279.         IF e1 <> 1 THEN GOSUB drawing:
280.         IF E2 <> 1 THEN GOSUB drawing3:
281.         IF e3 <> 1 THEN GOSUB drawing4:
282.         _DELAY .006
283.         GOSUB ERASE:
284.         IF sec > 60 THEN
285.             sec = 0
286.             GOTO fivedone:
287.         END IF
288.         GOSUB keyboard:
289.         GOSUB shoot:
290.         GOSUB youshoot2:
291.         GOTO five:
292.         fivedone:
293.     END IF
294.      
295.     IF level = 6 THEN
296.         e1 = 0: E2 = 1: e3 = 1
297.         boss = 1
298.         c1 = 255: c2 = 0: c3 = 0
299.         six:
300.         sec = sec + .02
301.         s = (60 - sec) * 6 + 180
302.         x = INT(SIN(s / 45 * 3.141592) * 180) + 325
303.         y = INT(COS(s / 360 * 3.141592) * 180) + 225
304.         GOSUB drawing2:
305.         IF sec > 120 THEN
306.             sec = 0
307.             GOTO sixdone:
308.         END IF
309.         GOSUB keyboard:
310.         GOSUB shoot:
311.         GOSUB youshoot2:
312.         GOTO six:
313.         sixdone:
314.     END IF
315.     IF level = 7 THEN level = 1
316.     GOTO go:
317.     'GOTO goes back to the start of the main loop.
318.      
319.     'Draws the enemy tank and erases it for animation.
320.     drawing:
321.     x2 = x + xx: y2 = y + yy
322.      
323.     FOR t = 15 TO 20 STEP .25
324.         CIRCLE (x2, y2), t, _RGB32(0, 255, 255)
325.     NEXT t
326.     FOR t = .25 TO 15 STEP .25
327.         CIRCLE (x2, y2), t, _RGB32(c1, c2, c3)
328.     NEXT t
329.     FOR t = .25 TO 3 STEP .25
330.         CIRCLE (x2 - 10, y2 - 5), t, _RGB32(0, 255, 255)
331.         CIRCLE (x2 + 10, y2 - 5), t, _RGB32(0, 255, 255)
332.         CIRCLE (x2, y2 + 10), t, _RGB32(0, 255, 255)
333.     NEXT t
334.     RETURN
335.      
336.     drawing3:
337.     x5 = x3 + xx2: y5 = y3 + yy2
338.      
339.     FOR t = 15 TO 20 STEP .25
340.         CIRCLE (x5, y5), t, _RGB32(0, 255, 255)
341.     NEXT t
342.     FOR t = .25 TO 15 STEP .25
343.         CIRCLE (x5, y5), t, _RGB32(c1, c2, c3)
344.     NEXT t
345.     FOR t = .25 TO 3 STEP .25
346.         CIRCLE (x5 - 10, y5 - 5), t, _RGB32(0, 255, 255)
347.         CIRCLE (x5 + 10, y5 - 5), t, _RGB32(0, 255, 255)
348.         CIRCLE (x5, y5 + 10), t, _RGB32(0, 255, 255)
349.     NEXT t
350.     RETURN
351.      
352.     drawing4:
353.     x6 = x4 + xx3: y6 = y4 + yy3
354.      
355.     FOR t = 15 TO 20 STEP .25
356.         CIRCLE (x6, y6), t, _RGB32(0, 255, 255)
357.     NEXT t
358.     FOR t = .25 TO 15 STEP .25
359.         CIRCLE (x6, y6), t, _RGB32(c1, c2, c3)
360.     NEXT t
361.     FOR t = .25 TO 3 STEP .25
362.         CIRCLE (x6 - 10, y6 - 5), t, _RGB32(0, 255, 255)
363.         CIRCLE (x6 + 10, y6 - 5), t, _RGB32(0, 255, 255)
364.         CIRCLE (x6, y6 + 10), t, _RGB32(0, 255, 255)
365.     NEXT t
366.     RETURN
367.      
368.     ERASE:
369.     IF e1 = 0 THEN
370.         FOR t = .25 TO 20 STEP .25
371.             CIRCLE (x2, y2), t, _RGB32(0, 0, 0)
372.         NEXT t
373.     END IF
374.     IF E2 = 0 THEN
375.         FOR t = .25 TO 20 STEP .25
376.             CIRCLE (x5, y5), t, _RGB32(0, 0, 0)
377.         NEXT t
378.     END IF
379.     IF e3 = 0 THEN
380.         FOR t = .25 TO 20 STEP .25
381.             CIRCLE (x6, y6), t, _RGB32(0, 0, 0)
382.         NEXT t
383.     END IF
384.     RETURN
385.      
386.     'Draws the Boss Robot.
387.     drawing2:
388.     x2 = x + xx: y2 = y + yy
389.     LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(0, 255, 0), BF
390.     LINE (x2 - 2, y2 + 10)-(x2 + 2, y2 + 15), _RGB32(0, 255, 0), BF
391.     LINE (x2 - 10, y2 + 15)-(x2 + 10, y2 + 25), _RGB32(0, 255, 0), BF
392.     FOR sz = .25 TO 3 STEP .25
393.         CIRCLE (x2 - 5, y2 - 5), sz, _RGB32(0, 0, 0)
394.         CIRCLE (x2 + 5, y2 - 5), sz, _RGB32(0, 0, 0)
395.     NEXT sz
396.     LINE (x2 - 5, y2 + 4)-(x2 + 5, y2 + 8), _RGB32(0, 0, 0), BF
397.     _DELAY .004
398.     LINE (x2 - 10, y2 - 10)-(x2 + 10, y2 + 10), _RGB32(0, 0, 0), BF
399.     LINE (x2 - 2, y2 + 10)-(x2 + 2, y2 + 15), _RGB32(0, 0, 0), BF
400.     LINE (x2 - 10, y2 + 15)-(x2 + 10, y2 + 25), _RGB32(0, 0, 0), BF
401.     RETURN
402.      
403.     'Keyboard control for your movement and shooting.
404.     keyboard:
405.     _LIMIT 1000
406.     a$ = INKEY$
407.     IF a$ = CHR$(27) THEN END
408.     IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
409.     IF r = 1 THEN
410.         FOR sz = .25 TO 10 STEP .25
411.             CIRCLE (xt + 10, yt), sz, _RGB32(0, 0, 0)
412.         NEXT sz
413.         LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(0, 0, 0), BF
414.         xt = xt + 1
415.         IF xt > 780 THEN xt = 780
416.         FOR sz = .25 TO 10 STEP .25
417.             CIRCLE (xt + 10, yt), sz, _RGB32(139, 249, 255)
418.         NEXT sz
419.         LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(139, 249, 255), BF
420.     END IF
421.     IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
422.     IF l = 1 THEN
423.         FOR sz = .25 TO 10 STEP .25
424.             CIRCLE (xt + 10, yt), sz, _RGB32(0, 0, 0)
425.         NEXT sz
426.         LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(0, 0, 0), BF
427.         xt = xt - 1
428.         IF xt < 0 THEN xt = 0
429.         FOR sz = .25 TO 10 STEP .25
430.             CIRCLE (xt + 10, yt), sz, _RGB32(139, 249, 255)
431.         NEXT sz
432.         LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(139, 249, 255), BF
433.     END IF
434.     IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
435.         r = 0: l = 0
436.     END IF
437.      
438.     IF a$ = " " THEN GOSUB youshoot:
439.     RETURN
440.      
441.     'The start of your shot.
442.     youshoot:
443.     _LIMIT 1000
444.      
445.     'sx2 and sy2 are your shot coordinates.
446.     IF ushoot = 0 THEN
447.         sx2 = xt + 10
448.         sy2 = yt - 20
449.         ushoot = 1
450.         SOUND 400, .5
451.     END IF
452.     RETURN
453.      
454.     'The drawing and movement of your shot and if it reaches the enemy.
455.     youshoot2:
456.     _LIMIT 1000
457.     IF ushoot = 1 THEN
458.         FOR sz = .25 TO 5 STEP .25
459.             CIRCLE (sx2, sy2), sz, _RGB32(0, 0, 0)
460.         NEXT sz
461.         sy2 = sy2 - 3
462.         IF sy2 < 0 THEN ushoot = 0: RETURN
463.         FOR szz = .25 TO 5 STEP .25
464.             CIRCLE (sx2, sy2), szz, _RGB32(255, 0, 0)
465.         NEXT szz
466.         IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 AND e1 = 0 AND boss = 0 THEN
467.             ENEMYEXPLOSION sx2, sy2, x2, y2, sx, sy
468.             FOR sz = .25 TO 5 STEP .25
469.                 CIRCLE (sx2, sy2), sz, _RGB32(0, 0, 0)
470.             NEXT sz
471.             GOSUB redrawshooter:
472.             points = points + 100
473.             e1 = 1
474.             IF e1 = 1 AND E2 = 1 AND e3 = 1 THEN
475.                 level = level + 1
476.                 level2 = level2 + 1
477.                 e1 = 0: E2 = 0: e3 = 0
478.             END IF
479.             lives$ = STR$(lives)
480.             points$ = STR$(points)
481.             level$ = STR$(level2)
482.             _TITLE "Tech Invaders 2      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
483.             ushoot = 0
484.             GOTO go:
485.         END IF
486.         IF sx2 > x5 - 21 AND sx2 < x5 + 41 AND sy2 > y5 - 11 AND sy2 < y5 + 21 AND E2 = 0 AND boss = 0 THEN
487.             ENEMYEXPLOSION2 sx2, sy2, x5, y5, sx3, sy3
488.             FOR sz = .25 TO 5 STEP .25
489.                 CIRCLE (sx2, sy2), sz, _RGB32(0, 0, 0)
490.             NEXT sz
491.             GOSUB redrawshooter:
492.             points = points + 100
493.             E2 = 1
494.             IF e1 = 1 AND E2 = 1 AND e3 = 1 THEN
495.                 level = level + 1
496.                 level2 = level2 + 1
497.                 e1 = 0: E2 = 0: e3 = 0
498.             END IF
499.             lives$ = STR$(lives)
500.             points$ = STR$(points)
501.             level$ = STR$(level2)
502.             _TITLE "Tech Invaders 2      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
503.             ushoot = 0
504.             GOTO go:
505.         END IF
506.         IF sx2 > x6 - 21 AND sx2 < x6 + 41 AND sy2 > y6 - 11 AND sy2 < y6 + 21 AND e3 = 0 AND boss = 0 THEN
507.             ENEMYEXPLOSION3 sx2, sy2, x6, y6, sx4, sy4
508.             FOR sz = .25 TO 5 STEP .25
509.                 CIRCLE (sx2, sy2), sz, _RGB32(0, 0, 0)
510.             NEXT sz
511.             GOSUB redrawshooter:
512.             points = points + 100
513.             e3 = 1
514.             IF e1 = 1 AND E2 = 1 AND e3 = 1 THEN
515.                 level = level + 1
516.                 level2 = level2 + 1
517.                 e1 = 0: E2 = 0: e3 = 0
518.             END IF
519.             lives$ = STR$(lives)
520.             points$ = STR$(points)
521.             level$ = STR$(level2)
522.             _TITLE "Tech Invaders 2     Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
523.             ushoot = 0
524.             GOTO go:
525.         END IF
526.      
527.         'To see if you hit the Boss.
528.         IF sx2 > x2 - 21 AND sx2 < x2 + 41 AND sy2 > y2 - 11 AND sy2 < y2 + 21 AND e1 = 0 AND boss = 1 THEN
529.             B = B + 1
530.             BB = 10 - B
531.             LOCATE 3, 3: PRINT "BOSS ROBOT:"
532.             IF bx = 0 THEN GOTO bxx:
533.             LINE (150, 30)-(bx + 150, 50), _RGB32(0, 0, 0), BF
534.             bxx:
535.             bx = BB * 10
536.             IF bx < 0 THEN GOTO bxx2:
537.             LINE (150, 30)-(bx + 150, 50), _RGB32(227, 0, 0), BF
538.             bxx2:
539.             SOUND 100, 1
540.             points = points + 100
541.             lives$ = STR$(lives)
542.             points$ = STR$(points)
543.             level$ = STR$(level2)
544.             _TITLE "Tech Invaders 2     Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
545.             FOR sz = .25 TO 5 STEP .25
546.                 CIRCLE (sx2, sy2), sz, _RGB32(0, 0, 0)
547.             NEXT sz
548.             IF B > 10 THEN ENEMYEXPLOSION sx2, sy2, x2, y2, sx, sy
549.             IF B < 11 THEN ushoot = 0: RETURN
550.             LINE (0, 0)-(800, 200), _RGB32(0, 0, 0), BF
551.             GOSUB redrawshooter:
552.             bx = 0
553.             BB = 0
554.             B = 0
555.             boss = 0
556.             points = points + 1000
557.             level = level + 1
558.             level2 = level2 + 1
559.             e1 = 0: E2 = 0: e3 = 0
560.             lives$ = STR$(lives)
561.             points$ = STR$(points)
562.             level$ = STR$(level2)
563.             _TITLE "Tech Invaders 2     Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
564.             ushoot = 0
565.             GOTO go:
566.         END IF
567.     END IF
568.     RETURN
569.      
570.     redrawshooter:
571.     FOR sz = .25 TO 10 STEP .25
572.         CIRCLE (xt + 10, yt), sz, _RGB32(139, 249, 255)
573.     NEXT sz
574.     LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(139, 249, 255), BF
575.     RETURN
576.      
577.     'The enemy's shot and if it reaches you.
578.     shoot:
579.     _LIMIT 1000
580.     IF shooting = 0 AND e1 = 0 THEN
581.         GOSUB checktoshoot:
582.         RANDOMIZE TIMER
583.         sh = INT(RND * 10000) + 1
584.         IF sh < shh THEN GOTO nexone:
585.         'sx and sy are the first enemy shot coordinates.
586.         sx = x2 + 10
587.         sy = y2 + 10
588.         shooting = 1
589.         SOUND 300, .5
590.     END IF
591.     nexone:
592.     IF shooting2 = 0 AND E2 = 0 THEN
593.         GOSUB checktoshoot:
594.         RANDOMIZE TIMER
595.         sh2 = INT(RND * 10000) + 1
596.         IF sh2 < shh THEN GOTO nexone2:
597.      
598.         'sx3 and sy3 are the second enemy shot coordinates.
599.         sx3 = x5 + 10
600.         sy3 = y5 + 10
601.         shooting2 = 1
602.         SOUND 300, .5
603.     END IF
604.     nexone2:
605.     IF shooting3 = 0 AND e3 = 0 THEN
606.         GOSUB checktoshoot:
607.         RANDOMIZE TIMER
608.         sh3 = INT(RND * 10000) + 1
609.         IF sh3 < shh THEN GOTO nexone3:
610.      
611.         'sx4 and sy4 are the third enemy shot coordinates.
612.         sx4 = x6 + 10
613.         sy4 = y6 + 10
614.         shooting3 = 1
615.         SOUND 300, .5
616.     END IF
617.      
618.     nexone3:
619.     'To see if first enemy hit you.
620.     IF shooting = 1 AND e1 = 0 THEN
621.         FOR sz2 = .25 TO 5 STEP .25
622.             CIRCLE (sx, sy), sz2, _RGB32(0, 0, 0)
623.         NEXT sz2
624.         sy = sy + 3
625.         IF sy > 620 THEN shooting = 0: GOTO nex4:
626.         FOR szz2 = .25 TO 5 STEP .25
627.             CIRCLE (sx, sy), szz2, _RGB32(255, 0, 0)
628.         NEXT szz2
629.         IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
630.             FOR sz3 = .25 TO 5 STEP .25
631.                 CIRCLE (sx, sy), sz3, _RGB32(0, 0, 0)
632.             NEXT sz3
633.             shooting = 0
634.             GOSUB explosion:
635.         END IF
636.     END IF
637.     nex4:
638.      
639.     'To see if second enemy hit you.
640.     IF shooting2 = 1 AND E2 = 0 THEN
641.         FOR sz2 = .25 TO 5 STEP .25
642.             CIRCLE (sx3, sy3), sz2, _RGB32(0, 0, 0)
643.         NEXT sz2
644.         sy3 = sy3 + 3
645.         IF sy3 > 620 THEN shooting2 = 0: GOTO nexx:
646.         FOR szz2 = .25 TO 5 STEP .25
647.             CIRCLE (sx3, sy3), szz2, _RGB32(255, 0, 0)
648.         NEXT szz2
649.         IF sx3 > xt - 1 AND sx3 < xt + 21 AND sy3 > yt - 1 AND sy3 < yt + 21 THEN
650.             FOR sz3 = .25 TO 5 STEP .25
651.                 CIRCLE (sx3, sy3), sz3, _RGB32(0, 0, 0)
652.             NEXT sz3
653.             shooting2 = 0
654.             GOSUB explosion:
655.         END IF
656.     END IF
657.      
658.     nexx:
659.     'To see if third enemy hit you.
660.     IF shooting3 = 1 AND e3 = 0 THEN
661.         FOR sz2 = .25 TO 5 STEP .25
662.             CIRCLE (sx4, sy4), sz2, _RGB32(0, 0, 0)
663.         NEXT sz2
664.         sy4 = sy4 + 3
665.         IF sy4 > 620 THEN shooting3 = 0: RETURN
666.         FOR szz2 = .25 TO 5 STEP .25
667.             CIRCLE (sx4, sy4), szz2, _RGB32(255, 0, 0)
668.         NEXT szz2
669.         IF sx4 > xt - 1 AND sx4 < xt + 21 AND sy4 > yt - 1 AND sy4 < yt + 21 THEN
670.             FOR sz3 = .25 TO 5 STEP .25
671.                 CIRCLE (sx4, sy4), sz3, _RGB32(0, 0, 0)
672.             NEXT sz3
673.             shooting3 = 0
674.             GOSUB explosion:
675.         END IF
676.     END IF
677.     RETURN
678.      
679.     explosion:
680.     FOR sz = .25 TO 10 STEP .25
681.         CIRCLE (xt + 10, yt), sz, _RGB32(0, 0, 0)
682.     NEXT sz
683.     LINE (xt + 8, yt - 7)-(xt + 12, yt - 15), _RGB(0, 0, 0), BF
684.     SOUND 400, .5
685.     SOUND 300, .5
686.     SOUND 200, .5
687.     SOUND 100, .5
688.     RANDOMIZE TIMER
689.     dxx = (RND * 6) + -3
690.     RANDOMIZE TIMER
691.     dyy = (RND * 6) + -3
692.     RANDOMIZE TIMER
693.     dxx2 = (RND * 6) + -3
694.     RANDOMIZE TIMER
695.     dyy2 = (RND * 6) + -3
696.     RANDOMIZE TIMER
697.     dxx3 = (RND * 6) + -3
698.     RANDOMIZE TIMER
699.     dyy3 = (RND * 6) + -3
700.     RANDOMIZE TIMER
701.     dxx4 = (RND * 6) + -3
702.     RANDOMIZE TIMER
703.     dyy4 = (RND * 6) + -3
704.     RANDOMIZE TIMER
705.     dxx5 = (RND * 6) + -3
706.     RANDOMIZE TIMER
707.     dyy5 = (RND * 6) + -3
708.     RANDOMIZE TIMER
709.     dxx6 = (RND * 6) + -3
710.     RANDOMIZE TIMER
711.     dyy6 = (RND * 6) + -3
712.     yourexplosion:
713.     DD = DD + 1
714.     dxx = dxx + dxx / 4
715.     dxx2 = dxx2 + dxx2 / 4
716.     dxx3 = dxx3 + dxx3 / 4
717.     dxx4 = dxx4 + dxx4 / 4
718.     dxx5 = dxx5 + dxx5 / 4
719.     dxx6 = dxx6 + dxx6 / 4
720.     dyy = dyy + dyy / 4
721.     dyy2 = dyy2 + dyy2 / 4
722.     dyy3 = dyy3 + dyy3 / 4
723.     dyy4 = dyy4 + dyy4 / 4
724.     dyy5 = dyy5 + dyy5 / 4
725.     dyy6 = dyy6 + dyy6 / 4
726.     LINE (xt + dxx, yt + dyy)-(xt + dxx + 2, yt + dyy + 2), _RGB32(255, 0, 0), BF
727.     LINE (xt + dxx2, yt + dyy2)-(xt + dxx2 + 2, yt + dyy2 + 2), _RGB32(0, 255, 0), BF
728.     LINE (xt + dxx3, yt + dyy3)-(xt + dxx3 + 2, yt + dyy3 + 2), _RGB32(255, 0, 0), BF
729.     LINE (xt + dxx4, yt + dyy4)-(xt + dxx4 + 2, yt + dyy4 + 2), _RGB32(0, 255, 0), BF
730.     LINE (xt + dxx5, yt + dyy5)-(xt + dxx5 + 2, yt + dyy5 + 2), _RGB32(255, 0, 0), BF
731.     LINE (xt + dxx6, yt + dyy6)-(xt + dxx6 + 2, yt + dyy6 + 2), _RGB32(0, 255, 0), BF
732.     _DELAY .02
733.     LINE (xt + dxx, yt + dyy)-(xt + dxx + 2, yt + dyy + 2), _RGB32(0, 0, 0), BF
734.     LINE (xt + dxx2, yt + dyy2)-(xt + dxx2 + 2, yt + dyy2 + 2), _RGB32(0, 0, 0), BF
735.     LINE (xt + dxx3, yt + dyy3)-(xt + dxx3 + 2, yt + dyy3 + 2), _RGB32(0, 0, 0), BF
736.     LINE (xt + dxx4, yt + dyy4)-(xt + dxx4 + 2, yt + dyy4 + 2), _RGB32(0, 0, 0), BF
737.     LINE (xt + dxx5, yt + dyy5)-(xt + dxx5 + 2, yt + dyy5 + 2), _RGB32(0, 0, 0), BF
738.     LINE (xt + dxx6, yt + dyy6)-(xt + dxx6 + 2, yt + dyy6 + 2), _RGB32(0, 0, 0), BF
739.     IF DD > 20 THEN GOTO back2:
740.     GOTO yourexplosion:
741.     back2:
742.     DD = 0
743.     lives = lives - 1
744.     lives$ = STR$(lives)
745.     points$ = STR$(points)
746.     level$ = STR$(level2)
747.     _TITLE "Tech Invaders 2     Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
748.     LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
749.     GOSUB redrawshooter:
750.     IF lives = 0 THEN
751.         LOCATE 20, 40: PRINT "G A M E   O V E R"
752.         LOCATE 22, 40: PRINT "Score: "; points
753.         LOCATE 23, 40: PRINT "Level: "; level2
754.         LOCATE 25, 40: INPUT "Press Enter to go to Top Ten Scores.", tt$
755.      
756.         'Top Ten Scores
757.         scc = points
758.         IF _FILEEXISTS("toptentech.txt") THEN
759.         ELSE
760.             OPEN "toptentech.txt" FOR OUTPUT AS #1
761.             RESTORE originaltopten
762.             DO
763.                 READ toptenname$, toptenscore!
764.                 IF toptenname$ = "EOF" THEN EXIT DO
765.                 PRINT #1, toptenname$
766.                 PRINT #1, toptenscore!
767.             LOOP
768.             CLOSE #1
769.         END IF
770.      
771.         OPEN "toptentech.txt" FOR INPUT AS #1
772.         FOR n = 1 TO 10
773.             INPUT #1, NAME$(n)
774.             INPUT #1, score(n)
775.             IF scc > score(n) AND sct = 0 THEN
776.                 NN = n
777.                 PRINT "You have made the Top Ten!"
778.                 typename:
779.                 INPUT "Type your name here (25 letters and spaces maximum.):", nm$(NN)
780.                 IF LEN(nm$(NN)) > 25 THEN
781.                     PRINT "Name too long, try again."
782.                     GOTO typename:
783.                 END IF
784.                 sccc(NN) = scc
785.                 sct = 1
786.             END IF
787.             IF n = 10 AND sct = 0 THEN CLOSE #1: GOTO nex7:
788.         NEXT n
789.         CLOSE #1
790.         nex5:
791.         CLOSE #1
792.         OPEN "toptentech.txt" FOR OUTPUT AS #1
793.         FOR n = 1 TO NN
794.             IF n <> NN THEN PRINT #1, NAME$(n): PRINT #1, score(n)
795.             IF n = NN THEN
796.                 PRINT #1, nm$(n)
797.                 PRINT #1, sccc(n)
798.             END IF
799.         NEXT n
800.         nex6:
801.         FOR n = NN TO 10
802.             PRINT #1, NAME$(n): PRINT #1, score(n)
803.         NEXT n
804.         CLOSE #1
805.         nex7:
806.         CLS
807.         PRINT: PRINT: PRINT
808.         PRINT "                                         T O P    T E N "
809.         PRINT: PRINT: PRINT
810.         OPEN "toptentech.txt" FOR INPUT AS #1
811.         FOR n = 1 TO 10
812.             IF EOF(1) THEN GOTO nex8:
813.             INPUT #1, NAME$(n)
814.             INPUT #1, score(n)
815.             PRINT "             "; n; ". "; NAME$(n); score(n)
816.         NEXT n
817.         nex8:
818.         CLOSE #1
819.         FOR n = 1 TO 10
820.             nm$(n) = ""
821.             score(n) = 0
822.             NAME$(n) = ""
823.             sccc(n) = 0
824.         NEXT n
825.         NN = 0
826.         n = 0
827.         sct = 0
828.         scc = 0
829.         LOCATE 23, 1
830.         INPUT "Would you like to play again? (Yes/No)", ag$
831.         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:
832.         END
833.     END IF
834.     OPENINGSOUND
835.     RETURN
836.      
837.     checktoshoot:
838.     IF level2 = 1 THEN shh = 9950
839.     IF level2 = 2 THEN shh = 9945
840.     IF level2 = 3 THEN shh = 9940
841.     IF level2 = 4 THEN shh = 9935
842.     IF level2 = 5 THEN shh = 9930
843.     IF level2 = 6 THEN shh = 9925
844.     IF level2 > 6 THEN shh = 9920
845.     RETURN
846.      
847.     originaltopten:
848.     DATA Space Ace,7000
849.     DATA Suzy Swift,6000
850.     DATA Speedy Spencer,5000
851.     DATA Super Sam,4000
852.     DATA Battery Bob,3000
853.     DATA Karen Kryptonite,2750
854.     DATA Quick Ken,2500
855.     DATA Tiger Tessa,2250
856.     DATA Arcade Joe,2000
857.     DATA How DO U PLAY,1750
858.     DATA EOF,0
859.      
860.     SUB OPENINGSOUND
861.         snd = 300
862.         snd2 = 800
863.         FOR t = 1 TO 50
864.             IF snd > 800 THEN snd = 300
865.             IF snd2 < 300 THEN snd2 = 800
866.             snd = snd + 10
867.             SOUND snd, .25
868.         NEXT t
869.     END SUB
870.      
871.     SUB ENEMYEXPLOSION (sx2, sy2, x2, y2, sx, sy)
872.         FOR sz4 = .25 TO 5 STEP .25
873.             CIRCLE (sx2, sy2), sz4, _RGB32(0, 0, 0)
874.         NEXT sz4
875.         SOUND 400, .5
876.         SOUND 300, .5
877.         SOUND 200, .5
878.         SOUND 100, .5
879.         RANDOMIZE TIMER
880.         dxx = (RND * 6) + -3
881.         RANDOMIZE TIMER
882.         dyy = (RND * 6) + -3
883.         RANDOMIZE TIMER
884.         dxx2 = (RND * 6) + -3
885.         RANDOMIZE TIMER
886.         dyy2 = (RND * 6) + -3
887.         RANDOMIZE TIMER
888.         dxx3 = (RND * 6) + -3
889.         RANDOMIZE TIMER
890.         dyy3 = (RND * 6) + -3
891.         RANDOMIZE TIMER
892.         dxx4 = (RND * 6) + -3
893.         RANDOMIZE TIMER
894.         dyy4 = (RND * 6) + -3
895.         RANDOMIZE TIMER
896.         dxx5 = (RND * 6) + -3
897.         RANDOMIZE TIMER
898.         dyy5 = (RND * 6) + -3
899.         RANDOMIZE TIMER
900.         dxx6 = (RND * 6) + -3
901.         RANDOMIZE TIMER
902.         dyy6 = (RND * 6) + -3
903.         explosion1:
904.         dd = dd + 1
905.         dxx = dxx + dxx / 4
906.         dxx2 = dxx2 + dxx2 / 4
907.         dxx3 = dxx3 + dxx3 / 4
908.         dxx4 = dxx4 + dxx4 / 4
909.         dxx5 = dxx5 + dxx5 / 4
910.         dxx6 = dxx6 + dxx6 / 4
911.         dyy = dyy + dyy / 4
912.         dyy2 = dyy2 + dyy2 / 4
913.         dyy3 = dyy3 + dyy3 / 4
914.         dyy4 = dyy4 + dyy4 / 4
915.         dyy5 = dyy5 + dyy5 / 4
916.         dyy6 = dyy6 + dyy6 / 4
917.         LINE (x2 + dxx, y2 + dyy)-(x2 + dxx + 2, y2 + dyy + 2), _RGB32(255, 0, 0), BF
918.         LINE (x2 + dxx2, y2 + dyy2)-(x2 + dxx2 + 2, y2 + dyy2 + 2), _RGB32(0, 255, 0), BF
919.         LINE (x2 + dxx3, y2 + dyy3)-(x2 + dxx3 + 2, y2 + dyy3 + 2), _RGB32(255, 0, 0), BF
920.         LINE (x2 + dxx4, y2 + dyy4)-(x2 + dxx4 + 2, y2 + dyy4 + 2), _RGB32(0, 255, 0), BF
921.         LINE (x2 + dxx5, y2 + dyy5)-(x2 + dxx5 + 2, y2 + dyy5 + 2), _RGB32(255, 0, 0), BF
922.         LINE (x2 + dxx6, y2 + dyy6)-(x2 + dxx6 + 2, y2 + dyy6 + 2), _RGB32(0, 255, 0), BF
923.         _DELAY .02
924.         LINE (x2 + dxx, y2 + dyy)-(x2 + dxx + 2, y2 + dyy + 2), _RGB32(0, 0, 0), BF
925.         LINE (x2 + dxx2, y2 + dyy2)-(x2 + dxx2 + 2, y2 + dyy2 + 2), _RGB32(0, 0, 0), BF
926.         LINE (x2 + dxx3, y2 + dyy3)-(x2 + dxx3 + 2, y2 + dyy3 + 2), _RGB32(0, 0, 0), BF
927.         LINE (x2 + dxx4, y2 + dyy4)-(x2 + dxx4 + 2, y2 + dyy4 + 2), _RGB32(0, 0, 0), BF
928.         LINE (x2 + dxx5, y2 + dyy5)-(x2 + dxx5 + 2, y2 + dyy5 + 2), _RGB32(0, 0, 0), BF
929.         LINE (x2 + dxx6, y2 + dyy6)-(x2 + dxx6 + 2, y2 + dyy6 + 2), _RGB32(0, 0, 0), BF
930.         IF dd > 20 THEN GOTO goingback
931.         GOTO explosion1:
932.         goingback:
933.         dd = 0
934.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
935.         FOR sz4 = .25 TO 5 STEP .25
936.             CIRCLE (sx2, sy2), sz4, _RGB32(0, 0, 0)
937.         NEXT sz4
938.         FOR sz4 = .25 TO 5 STEP .25
939.             CIRCLE (sx, sy), sz4, _RGB32(0, 0, 0)
940.         NEXT sz4
941.     END SUB
942.      
943.     SUB ENEMYEXPLOSION2 (sx2, sy2, x5, y5, sx3, sy3)
944.         FOR sz5 = .25 TO 5 STEP .25
945.             CIRCLE (sx2, sy2), sz5, _RGB32(0, 0, 0)
946.         NEXT sz5
947.         SOUND 400, .5
948.         SOUND 300, .5
949.         SOUND 200, .5
950.         SOUND 100, .5
951.         RANDOMIZE TIMER
952.         dxx = (RND * 6) + -3
953.         RANDOMIZE TIMER
954.         dyy = (RND * 6) + -3
955.         RANDOMIZE TIMER
956.         dxx2 = (RND * 6) + -3
957.         RANDOMIZE TIMER
958.         dyy2 = (RND * 6) + -3
959.         RANDOMIZE TIMER
960.         dxx3 = (RND * 6) + -3
961.         RANDOMIZE TIMER
962.         dyy3 = (RND * 6) + -3
963.         RANDOMIZE TIMER
964.         dxx4 = (RND * 6) + -3
965.         RANDOMIZE TIMER
966.         dyy4 = (RND * 6) + -3
967.         RANDOMIZE TIMER
968.         dxx5 = (RND * 6) + -3
969.         RANDOMIZE TIMER
970.         dyy5 = (RND * 6) + -3
971.         RANDOMIZE TIMER
972.         dxx6 = (RND * 6) + -3
973.         RANDOMIZE TIMER
974.         dyy6 = (RND * 6) + -3
975.         explosion2:
976.         dd = dd + 1
977.         dxx = dxx + dxx / 4
978.         dxx2 = dxx2 + dxx2 / 4
979.         dxx3 = dxx3 + dxx3 / 4
980.         dxx4 = dxx4 + dxx4 / 4
981.         dxx5 = dxx5 + dxx5 / 4
982.         dxx6 = dxx6 + dxx6 / 4
983.         dyy = dyy + dyy / 4
984.         dyy2 = dyy2 + dyy2 / 4
985.         dyy3 = dyy3 + dyy3 / 4
986.         dyy4 = dyy4 + dyy4 / 4
987.         dyy5 = dyy5 + dyy5 / 4
988.         dyy6 = dyy6 + dyy6 / 4
989.         LINE (x5 + dxx, y5 + dyy)-(x5 + dxx + 2, y5 + dyy + 2), _RGB32(255, 0, 0), BF
990.         LINE (x5 + dxx2, y5 + dyy2)-(x5 + dxx2 + 2, y5 + dyy2 + 2), _RGB32(0, 255, 0), BF
991.         LINE (x5 + dxx3, y5 + dyy3)-(x5 + dxx3 + 2, y5 + dyy3 + 2), _RGB32(255, 0, 0), BF
992.         LINE (x5 + dxx4, y5 + dyy4)-(x5 + dxx4 + 2, y5 + dyy4 + 2), _RGB32(0, 255, 0), BF
993.         LINE (x5 + dxx5, y5 + dyy5)-(x5 + dxx5 + 2, y5 + dyy5 + 2), _RGB32(255, 0, 0), BF
994.         LINE (x5 + dxx6, y5 + dyy6)-(x5 + dxx6 + 2, y5 + dyy6 + 2), _RGB32(0, 255, 0), BF
995.         _DELAY .02
996.         LINE (x5 + dxx, y5 + dyy)-(x5 + dxx + 2, y5 + dyy + 2), _RGB32(0, 0, 0), BF
997.         LINE (x5 + dxx2, y5 + dyy2)-(x5 + dxx2 + 2, y5 + dyy2 + 2), _RGB32(0, 0, 0), BF
998.         LINE (x5 + dxx3, y5 + dyy3)-(x5 + dxx3 + 2, y5 + dyy3 + 2), _RGB32(0, 0, 0), BF
999.         LINE (x5 + dxx4, y5 + dyy4)-(x5 + dxx4 + 2, y5 + dyy4 + 2), _RGB32(0, 0, 0), BF
1000.         LINE (x5 + dxx5, y5 + dyy5)-(x5 + dxx5 + 2, y5 + dyy5 + 2), _RGB32(0, 0, 0), BF
1001.         LINE (x5 + dxx6, y5 + dyy6)-(x5 + dxx6 + 2, y5 + dyy6 + 2), _RGB32(0, 0, 0), BF
1002.         IF dd > 20 THEN GOTO goingback2:
1003.         GOTO explosion2:
1004.         goingback2:
1005.         dd = 0
1006.         LINE (x5 - 21, y5 - 21)-(x5 + 41, y5 + 41), _RGB32(0, 0, 0), BF
1007.         FOR sz5 = .25 TO 5 STEP .25
1008.             CIRCLE (sx2, sy2), sz5, _RGB32(0, 0, 0)
1009.         NEXT sz5
1010.         FOR sz5 = .25 TO 5 STEP .25
1011.             CIRCLE (sx3, sy3), sz5, _RGB32(0, 0, 0)
1012.         NEXT sz5
1013.     END SUB
1014.      
1015.     SUB ENEMYEXPLOSION3 (sx2, sy2, x6, y6, sx4, sy4)
1016.         FOR sz6 = .25 TO 5 STEP .25
1017.             CIRCLE (sx2, sy2), sz6, _RGB32(0, 0, 0)
1018.         NEXT sz6
1019.         SOUND 400, .5
1020.         SOUND 300, .5
1021.         SOUND 200, .5
1022.         SOUND 100, .5
1023.         RANDOMIZE TIMER
1024.         dxx = (RND * 6) + -3
1025.         RANDOMIZE TIMER
1026.         dyy = (RND * 6) + -3
1027.         RANDOMIZE TIMER
1028.         dxx2 = (RND * 6) + -3
1029.         RANDOMIZE TIMER
1030.         dyy2 = (RND * 6) + -3
1031.         RANDOMIZE TIMER
1032.         dxx3 = (RND * 6) + -3
1033.         RANDOMIZE TIMER
1034.         dyy3 = (RND * 6) + -3
1035.         RANDOMIZE TIMER
1036.         dxx4 = (RND * 6) + -3
1037.         RANDOMIZE TIMER
1038.         dyy4 = (RND * 6) + -3
1039.         RANDOMIZE TIMER
1040.         dxx5 = (RND * 6) + -3
1041.         RANDOMIZE TIMER
1042.         dyy5 = (RND * 6) + -3
1043.         RANDOMIZE TIMER
1044.         dxx6 = (RND * 6) + -3
1045.         RANDOMIZE TIMER
1046.         dyy6 = (RND * 6) + -3
1047.         explosion3:
1048.         dd = dd + 1
1049.         dxx = dxx + dxx / 4
1050.         dxx2 = dxx2 + dxx2 / 4
1051.         dxx3 = dxx3 + dxx3 / 4
1052.         dxx4 = dxx4 + dxx4 / 4
1053.         dxx5 = dxx5 + dxx5 / 4
1054.         dxx6 = dxx6 + dxx6 / 4
1055.         dyy = dyy + dyy / 4
1056.         dyy2 = dyy2 + dyy2 / 4
1057.         dyy3 = dyy3 + dyy3 / 4
1058.         dyy4 = dyy4 + dyy4 / 4
1059.         dyy5 = dyy5 + dyy5 / 4
1060.         dyy6 = dyy6 + dyy6 / 4
1061.         LINE (x6 + dxx, y6 + dyy)-(x6 + dxx + 2, y6 + dyy + 2), _RGB32(255, 0, 0), BF
1062.         LINE (x6 + dxx2, y6 + dyy2)-(x6 + dxx2 + 2, y6 + dyy2 + 2), _RGB32(0, 255, 0), BF
1063.         LINE (x6 + dxx3, y6 + dyy3)-(x6 + dxx3 + 2, y6 + dyy3 + 2), _RGB32(255, 0, 0), BF
1064.         LINE (x6 + dxx4, y6 + dyy4)-(x6 + dxx4 + 2, y6 + dyy4 + 2), _RGB32(0, 255, 0), BF
1065.         LINE (x6 + dxx5, y6 + dyy5)-(x6 + dxx5 + 2, y6 + dyy5 + 2), _RGB32(255, 0, 0), BF
1066.         LINE (x6 + dxx6, y6 + dyy6)-(x6 + dxx6 + 2, y6 + dyy6 + 2), _RGB32(0, 255, 0), BF
1067.         _DELAY .02
1068.         LINE (x6 + dxx, y6 + dyy)-(x6 + dxx + 2, y6 + dyy + 2), _RGB32(0, 0, 0), BF
1069.         LINE (x6 + dxx2, y6 + dyy2)-(x6 + dxx2 + 2, y6 + dyy2 + 2), _RGB32(0, 0, 0), BF
1070.         LINE (x6 + dxx3, y6 + dyy3)-(x6 + dxx3 + 2, y6 + dyy3 + 2), _RGB32(0, 0, 0), BF
1071.         LINE (x6 + dxx4, y6 + dyy4)-(x6 + dxx4 + 2, y6 + dyy4 + 2), _RGB32(0, 0, 0), BF
1072.         LINE (x6 + dxx5, y6 + dyy5)-(x6 + dxx5 + 2, y6 + dyy5 + 2), _RGB32(0, 0, 0), BF
1073.         LINE (x6 + dxx6, y6 + dyy6)-(x6 + dxx6 + 2, y6 + dyy6 + 2), _RGB32(0, 0, 0), BF
1074.         IF dd > 20 THEN GOTO goingback3:
1075.         GOTO explosion3:
1076.         goingback3:
1077.         dd = 0
1078.         LINE (x6 - 21, y6 - 21)-(x6 + 41, y6 + 41), _RGB32(0, 0, 0), BF
1079.         FOR sz5 = .25 TO 5 STEP .25
1080.             CIRCLE (sx2, sy2), sz5, _RGB32(0, 0, 0)
1081.         NEXT sz5
1082.         FOR sz5 = .25 TO 5 STEP .25
1083.             CIRCLE (sx4, sy4), sz5, _RGB32(0, 0, 0)
1084.         NEXT sz5
1085.     END SUB
1086.      

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

Text Only | Text with Attachments