Robot Invaders

[SierraKen]

I've been wanting to make a game like this since a friend of mine made something similar, but different, back in the 90's. When I found out how to make that spiral yesterday, I thought to myself today, why not make an enemy that uses that to fly around in a spiral? So I played with it this evening and got it to go in the spiral, and then fly back out of the spiral. Then it appears somewhere else randomly on the screen. That is your only enemy on this game. I know more enemies would make the game more interesting, but this game is more of a challenging game in the fact that it's a lot harder to shoot him than the Alphabet Invaders was lol. But it's also hard to keep away from him firing as well. So, have fun with the game. There's no ending to it except after 5 lives. And I didn't make a High Scores sheet for this one, maybe if I make more of an advanced one later on. But I'm pretty amazed at myself that I can finally do something like this. Tell me what you think, thanks. There's only the code to get for this one. Oh, and one of the tricky parts was figuring out where to put the INKEY$ since the robot uses loops to fly, so I put GOSUBs to the INKEY$ in both loops, and other GOSUBs, which makes it a bit messy, but it works. :)

(Note: The much better Version 2 is below on this forum page.)

Code: QB64: [Select]

1. 'Game made on July 22, 2019
2. 'By Ken G.
3. 'Freeware
4. begin:
5. _TITLE "Robot Invaders"
6. CLS
7. SCREEN _NEWIMAGE(800, 600, 32)
8. PRINT: PRINT: PRINT
9. PRINT "                                 R O B O T     I N V A D E R S"
10. PRINT: PRINT: PRINT
11. PRINT "                                         by Ken G."
12. PRINT: PRINT: PRINT
13. PRINT "                       Use left and right arrow keys to move back and forth."
14. PRINT "                            Use up or down arrow keys to stop moving."
15. PRINT "                                    Use space bar to fire."
16. PRINT "                                      Esc to end anytime."
17. PRINT: PRINT: PRINT
18. INPUT "                                   Press Enter to start."; start$
19. CLS
20. lives = 5
21. points = 0
22. ushoot = 0
23. shooting = 0
24. s = 0
25. xt = 400: yt = 550
26. LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
27. LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
28. go:
29. RANDOMIZE TIMER
30. xx = INT(RND * 550) + 50
31. RANDOMIZE TIMER
32. yy = INT(RND * 300) + 50
33.  
34. FOR d = 160 TO 0 STEP -.125
35.     _LIMIT 1000
36.     s = s + 1
37.     x = COS(s * 3.141592 / 180) * d
38.     y = SIN(s * 3.151492 / 180) * d
39.     LINE (x + xx, y + yy)-(x + xx - 10, y + yy - 10), _RGB32(127, 216, 127)
40.     LINE (x + xx + 20, y + yy)-(x + xx + 30, y + yy - 10), _RGB32(127, 216, 127)
41.     LINE (x + xx, y + yy)-(x + xx + 20, y + yy + 20), _RGB32(127, 216, 127), BF
42.     LINE (x + xx + 5, y + yy + 5)-(x + xx + 8, y + yy + 8), _RGB32(0, 0, 0), BF
43.     LINE (x + xx + 12, y + yy + 5)-(x + xx + 15, y + yy + 8), _RGB32(0, 0, 0), BF
44.     LINE (x + xx + 5, y + yy + 13)-(x + xx + 15, y + yy + 16), _RGB32(0, 0, 0), BF
45.     _DELAY .004
46.     LINE (x + xx, y + yy)-(x + xx + 20, y + yy + 20), _RGB32(0, 0, 0), BF
47.     LINE (x + xx, y + yy)-(x + xx - 10, y + yy - 10), _RGB32(0, 0, 0)
48.     LINE (x + xx + 20, y + yy)-(x + xx + 30, y + yy - 10), _RGB32(0, 0, 0)
49.     GOSUB keyboard:
50.     GOSUB shoot:
51.     GOSUB youshoot2:
52. NEXT d
53. FOR d = 0 TO 160 STEP .125
54.     _LIMIT 1000
55.     s = s - 1
56.     x = COS(s * 3.141592 / 180) * d
57.     y = SIN(s * 3.151492 / 180) * d
58.     LINE (x + xx, y + yy)-(x + xx - 10, y + yy - 10), _RGB32(127, 216, 127)
59.     LINE (x + xx + 20, y + yy)-(x + xx + 30, y + yy - 10), _RGB32(127, 216, 127)
60.     LINE (x + xx, y + yy)-(x + xx + 20, y + yy + 20), _RGB32(127, 216, 127), BF
61.     LINE (x + xx + 5, y + yy + 5)-(x + xx + 8, y + yy + 8), _RGB32(0, 0, 0), BF
62.     LINE (x + xx + 12, y + yy + 5)-(x + xx + 15, y + yy + 8), _RGB32(0, 0, 0), BF
63.     LINE (x + xx + 5, y + yy + 13)-(x + xx + 15, y + yy + 16), _RGB32(0, 0, 0), BF
64.     _DELAY .004
65.     LINE (x + xx, y + yy)-(x + xx + 20, y + yy + 20), _RGB32(0, 0, 0), BF
66.     LINE (x + xx, y + yy)-(x + xx - 10, y + yy - 10), _RGB32(0, 0, 0)
67.     LINE (x + xx + 20, y + yy)-(x + xx + 30, y + yy - 10), _RGB32(0, 0, 0)
68.     GOSUB keyboard:
69.     GOSUB shoot:
70.     GOSUB youshoot2:
71. NEXT d
72. GOTO go:
73.  
74. keyboard:
75. _LIMIT 1000
76. a$ = INKEY$
77. IF a$ = CHR$(27) THEN END
78. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
79. IF r = 1 THEN
80.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
81.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
82.     xt = xt + 1
83.     IF xt > 780 THEN xt = 780
84.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
85.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
86. END IF
87. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
88. IF l = 1 THEN
89.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
90.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
91.     xt = xt - 1
92.     IF xt < 0 THEN xt = 0
93.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
94.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
95. END IF
96. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
97.     r = 0: l = 0
98. END IF
99.  
100.  
101. IF a$ = " " THEN GOSUB youshoot:
102. RETURN
103.  
104. youshoot:
105. _LIMIT 1000
106. IF ushoot = 0 THEN
107.     sx2 = xt + 10
108.     sy2 = yt - 11
109.     ushoot = 1
110.     SOUND 400, .5
111. END IF
112. RETURN
113.  
114. youshoot2:
115. _LIMIT 1000
116. IF ushoot = 1 THEN
117.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
118.     sy2 = sy2 - 3
119.     IF sy2 < 0 THEN ushoot = 0: RETURN
120.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
121.     IF sx2 > x + xx - 1 AND sx2 < x + xx + 21 AND sy2 > y + yy - 1 AND sy2 < y + yy + 21 THEN
122.         CIRCLE (sx2, sy2), 3, _RGB32(0, 0, 0)
123.         SOUND 200, 1
124.         SOUND 100, 1
125.         FOR explosion = 1 TO 30
126.             CIRCLE (x + xx + 10, y + yy + 10), explosion, _RGB32(255, 0, 0)
127.             _DELAY .02
128.             CIRCLE (x + xx + 10, y + yy + 10), explosion, _RGB32(0, 0, 0)
129.         NEXT explosion
130.         LINE (x + xx - 21, y + yy - 21)-(x + xx + 41, y + yy + 41), _RGB32(0, 0, 0), BF
131.         points = points + 100
132.         lives$ = STR$(lives)
133.         points$ = STR$(points)
134.         _TITLE "Robot Invaders      Lives: " + lives$ + "      Score: " + points$
135.         _DELAY .5
136.         ushoot = 0
137.     END IF
138. END IF
139. RETURN
140.  
141. shoot:
142. _LIMIT 1000
143. IF shooting = 0 THEN
144.     RANDOMIZE TIMER
145.     sh = INT(RND * 10000) + 1
146.     IF sh < 9970 THEN RETURN
147.     sx = x + xx + 10
148.     sy = y + yy + 10
149.     shooting = 1
150.     SOUND 300, .5
151. END IF
152. IF shooting = 1 THEN
153.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
154.     sy = sy + 3
155.     IF sy > 620 THEN shooting = 0: RETURN
156.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
157.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
158.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
159.         SOUND 200, 1
160.         SOUND 100, 1
161.         FOR explosion2 = 1 TO 30
162.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
163.             _DELAY .02
164.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
165.         NEXT explosion2
166.         lives = lives - 1
167.         lives$ = STR$(lives)
168.         points$ = STR$(points)
169.         _TITLE "Robot Invaders      Lives: " + lives$ + "      Score: " + points$
170.         _DELAY 1
171.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
172.         IF lives = 0 THEN
173.             LOCATE 20, 40: PRINT "G A M E   O V E R"
174.             LOCATE 22, 40: PRINT "Score: "; points
175.             LOCATE 24, 40: INPUT "Play Again (Yes/No)", ag$
176.             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:
177.             END
178.         END IF
179.         shooting = 0
180.         RETURN
181.     END IF
182. END IF
183. RETURN
184.  
185.  

[Petr]

Hi SierraKen,

Great idea, nice workmanship. The computer beat me several times in a row. Nice work :-D

So, now i am beat computer, so it is better... :-D

[Ashish]

Hi SierraKen! I like this!
Similar to a program which can be found here - "programs/samples/pete/mooncr/mooncr.bas" inside the QB64 folder.

[bplus]

Another good one, nice job!

PS: The readability of the program using GOSUBs is a vast improvement over the program that used only GOTO's.

[johnno56]

Cool game... I'm 'still' getting killed off... but a cool game never the less...

J

[SierraKen]

Thanks everyone! I'm going to try to make more enemies and ways they fly. It will dramatically increase the length of the code but I believe it will be worth it. :) I will also make it a tiny bit easier by slowing the robots down.

[SierraKen]

Neat Ashish, I want to see it but I am not able to find the URL. What is the entire URL to it, or the URL to the forum post of it? Thanks.

[Ashish]

Nevermind. I include the code for you. (Go where you installed qb64. Then goto programs->samples->pete->mooncr->mooncr.bas)

Code: QB64: [Select]

1. REM - written for QBasic / QuickBasic (freeware) -
2. REM - V.26
3. REM - by Daniel Kupfer
4. REM - for more info look at the end / press f1 in title
5. REM - any problems / questions ? mail: dk1000000@aol.com
6.  
7. SCREEN 7
8. DEFINT A-Z
9. scx = 159: scy = 99
10. xp = scx: yp = 172: vp = 6: vsh = 6
11. xpmin = 0: xpmax = 319: shmax = 15: emax = 7: esmax = 3: fmax = 15
12. stmax = 31: exmax = 7
13. SND = 1: bonplay& = 20000
14. pi! = 3.14158: pi2! = pi! / 2: pi4! = pi! / 4
15. cts1 = 0: cts2 = 4: cts3 = 10
16.  
17. DIM tae(201), tne(201): n = shmax
18. DIM xsh(n), ysh(n): n = stmax
19. DIM xst(n), yst(n), xst!(n), yst!(n), cst(n), vst(n): n = emax
20. DIM xe!(n), ye!(n), ae(n), dae(n), ne(n), ce(n), ste(n)
21. DIM ze(n), zze(n), tpe(n), tce(n): n = exmax
22. DIM xex(n), yex(n), stex(n), zex(n), tex(n): n = esmax
23. DIM xes!(n), yes!(n), dxes!(n), dyes!(n), stes(n), tes(n)
24. DIM aes(n), des(n): n = fmax
25. DIM fx!(n), fy!(n), dfx!(n), dfy!(n), fc(n), ft(n): n = 11
26. DIM ptse(n), dble(n), anie(n), adde(n), zoome(n)
27. DIM table(n), c1e(n), c2e(n), expe(n), c1ee(2, n), c2ee(2, n): n = 7
28. DIM tce0(n), xec(n), yec(n), aec(n): n = 12
29. DIM xc!(n), yc!(n), zc!(n), cc(n), ac(n), nc(n)
30. DIM ENEMY$(20, 3), CRASH$(4), bin(4), CH$(42): n = 7
31. DIM vbos(n), vsbos(n), tsbos(n), fsbos(n), ptsbos(n), hrbos(n)
32. DIM BOSS$(n), STAGE$(n)
33. DIM cp(95), SFINAL$(2, 9), CREDIT$(50)
34. A5$ = STRING$(4, CHR$(170)) + STRING$(4, CHR$(85))
35.      
36. FOR e = 1 TO 11: READ p, d, m, a, z, T, ex
37. ptse(e) = p: dble(e) = d: anie(e) = m: adde(e) = a: zoome(e) = z
38. table(e) = T: expe(e) = ex: NEXT e
39. DATA 10,0,0,0,64,1,1, 20,0,0,0,64,2,1, 25,0,0,0,64,2,1
40. DATA 40,0,0,0,64,5,1, 50,0,0,0,64,4,1, 200,0,0,0,64,6,1
41. DATA 250,0,0,0,64,7,1, 100,1,0,1,64,2,1, 120,0,0,0,64,3,1
42. DATA 120,1,3,1,64,2,1, 160,0,2,0,48,3,1
43.  
44. FOR s = 0 TO 2
45. FOR e = 1 TO 11: READ c1, c2: c1ee(s, e) = c1: c2ee(s, e) = c2: NEXT e: NEXT s
46. DATA 7,13, 6,14, 5,15, 5,11, 3,15, 2,10, 2,10, 4,12, 1,14, 2,14, 9,15
47. DATA 4,13, 2,10, 1,4,  7,15, 4,14, 3,11, 3,11, 5,13, 2,15, 2,14, 9,15
48. DATA 5,14, 3,11, 2,14, 12,14, 14,4, 4,12, 4,12, 6,14, 3,15, 6,14, 4,12
49.  
50. REM  - - - - BOSS SETUP - - - - - -
51.  
52. FOR n = 1 TO 7: READ a$, s$: BOSS$(n) = a$: STAGE$(n) = s$: NEXT n
53. DATA "MYKOR MASTER","VEGA SYSTEM","PHOENIX","ALPHA CENTAURI"
54. DATA "EVIL BATSY","DARK PLANET","QUARRIOR","AQUARUIS"
55. DATA "MC FISHKING","NEPTUN","BEEBOP QUEEN","MOONBASE"
56. DATA "MOTHERSHIP","EARTH"
57. FOR n = 1 TO 7: READ v, ts, f, p, r: vbos(n) = v: tsbos(n) = ts
58. fsbos(n) = f: ptsbos(n) = p: hrbos(n) = r: NEXT n
59. DATA 1,1,4,1000,20, 1,4,6,2500,20, 2,1,8,4000,20, 1,5,10,7500,20
60. DATA 1,3,100,10000,24, 2,2,10,16000,20, 1,0,0,25000,40
61. FOR n = 0 TO 3: READ c: csb(n) = c: NEXT n
62. DATA 4,12,14,10
63.  
64. REM  - - - - ESHOT SETUP - - - -
65. FOR n = 1 TO 5: READ v, d: ves(n) = v: ses(n) = d: NEXT n
66. DATA 5,2, 4,2, 2,4, 3,2, 3,2
67.  
68. n = 1
69. DO: READ a, T: tae(n) = a: tne(n) = T: n = n + 1
70. LOOP UNTIL a = -1 AND T = -1
71. nte = n - 1
72. PATTERN1:
73. DATA 0,100, -900,1, 0,32, -900,1, 0,50, -900,1, 0,8, -900,1
74. DATA 0,70, 900,1, 0,10, 900,1, 0,50, -900,1, 30,60 ,0,90
75. DATA 30,30, 0,50, 900,1, 0,14, 900,1, 0,20, 900,1, 0,16
76. DATA 900,1, 0,20, 900,1, 0,14, 900,1, 0,20, 900,1, 0,16
77. DATA 900,1, 0,20, 900,1, 0,14, 900,1, 0,40, 900,2, 0,0
78. PATTERN2:
79. DATA -30,30, 30,75, 0,34, -30,95, 0,34, 30,95, 0,34, -30,95
80. DATA  0,34, 30,95, 0,34, -30,95, 0,34, 30,50, 0,25, 30,30
81. DATA  0,60, 60,30, 0,110, -60,31, 0,90, 60,31, 0,60, -60,32
82. DATA  0,30, 60,32, 30,28, 0,20, 0,0, 0,0, 0,0, 0,0
83. PATTERN3:
84. DATA -90,20, 90,30, -90,30, 90,20, -90,20, 90,40, 90,10, -90,20
85. DATA  90,20, -90,30, 90,20, -90,20, 90,20, -90,21, 0,20, 0,0
86. DATA  90,20, -90,30, 90,30, -90,20, 90,20, -90,40, -90,10, 90,20
87. DATA -90,20, 90,30, -90,20, 90,20, -90,20, 90,21, 0,20, 0,0
88. PATTERN4:
89. DATA  30,60, -30,-30, 30,60, 0,40, 30,20, 0,30, 30,90, -30,90
90. DATA -30,90, 30,45, 0,20, -30,15, 0,10, 30,15, -30,15, 30,15
91. DATA  0,80, 30,5, 0,40, 30,5, 0,40, 30,5, 0,40, 30,5
92. DATA  0,40, 30,180, 0,120, 0,0, 0,0, 0,0, 0,0, 0,0
93. PATTERN5:
94. DATA  0,130, 30,60, 0,105, 90,20, 0,60, -90,20, 0,20, 90,20
95. DATA  0,60, 90,10, 0,80, 90,20, 0,80, -90,20, 0,80, 90,20
96. DATA  0,60, 30,270, 0,50, 0,0, 0,0, 0,0, 0,0, 0,0
97. PATTERN6:
98. DATA  -30,85, 0,50, 30,0, -30,80, 0,60, 30,80, 0,60, -30,80
99. DATA  0,60, 30,80, 0,60, -30,80, 0,60, 30,50, 0,25, 30,30
100. DATA  0,60, 60,30, 0,110, -60,31, 0,90, 60,31, 0,60, -60,32
101. DATA  0,30, 60,32, 30,28, 0,20, 0,0, 0,0, 0,0, 0,0
102. PATTERN7:
103. DATA -30,60, 0,80, 0,0, 0,0, 30,60, 0,80, 0,0, 0,0
104. DATA -1,-1
105.  
106. FOR n = 1 TO 7: READ T, x, y, a, v, c: tce0(n) = T: xec(n) = x: yec(n) = y
107. aec(n) = a: vec(n) = v: crec(n) = c: NEXT n
108. DATA 0,0,20,0,4,7, 40,159,119,900,4,7
109. DATA 72,159,119,900,4,7, 104,149,109,900,4,7
110. DATA 136,320,20,1800,4,7
111. DATA 160,159,50,900,4,7, 192,159,50,900,4,7
112.  
113. FOR n = 0 TO 9: READ x, y: pcx(n) = x: pcy(n) = y: NEXT n
114. DATA 0,-2, -10,-2, 10,-2, -10,3, 10,3
115. DATA 0,-5, -14,-4, 14,-4, -14,3, 14,3
116.  
117. RANDOMIZE TIMER
118. GOSUB LOAD.SPRITES
119. GOSUB LOAD.SOUNDS
120. GOSUB LOAD.CHARSET
121.  
122. FOR n = 0 TO shmax: ysh(n) = -1: NEXT n
123. FOR n = 0 TO stmax: GOSUB CREATE.STAR: NEXT n
124. FOR n = 0 TO emax: ste(n) = -1: ce(n) = 2: NEXT n
125. FOR n = 0 TO esmax: stes(n) = -1: NEXT n
126.  
127.  
128. REM - - - - - - - - TITLE SCREEN - - - - - - - -
129. x = -40: zmax = 40
130. FOR n = 0 TO 7: READ nc, cc
131. xc!(n) = x: yc!(n) = 26: zc!(n) = 200: nc(n) = nc: cc(n) = cc
132. x = x + 7: NEXT n
133. FOR n = 8 TO 9: READ nc, cc
134. xc!(n) = x + 55: yc!(n) = yc!(1) + 30: zc!(n) = zmax: nc(n) = nc: cc(n) = cc
135. x = x + 7: NEXT n
136. DATA 29,15, 31,15, 31,15, 30,15, 19,15, 34,15, 17,15, 32,15, 9,15, 9,15
137.  
138. REM  - - - LEVEL SETUP - - -
139. FOR n = 1 TO 9: READ T, r, s, h
140. ltpe(n) = T: lrad(n) = r: lsum(n) = s: lhit(n) = h: NEXT n
141. DATA 1,14,1,1, 1,14,2,1, 2,12,2,1, 3,12,2,1
142. DATA 4,12,2,1, 5,14,2,1, 8,16,1,3, 10,14,1,3
143. DATA 6,12,4,1
144.  
145. RESTORE CREDITS
146. FOR n = 1 TO 34: READ a$: CREDIT$(n) = a$: NEXT n
147.  
148. x = 100: y = 100: c1 = 6: c2 = 14: a = 0: z = 4
149. e = 6: f = 0: GOSUB DRAW.ESPRITE
150. REM END
151.  
152. GOSUB WAITKEY0: GOSUB TITLE
153.  
154. STAGE = 1: LEVEL = 1: stbos = -1: tbos = 1
155. GOSUB LOAD.LEVEL
156. REM                        ---> player setup
157. ssec(1) = 1: ssec(2) = 0: ssec(3) = 0: GOSUB SETUP.SHIP
158. stp = 0:                    REM status player
159. score& = 0
160. GOSUB DRAW.PLAYER1
161. n = INT(2 * RND)
162. IF n = 0 AND SND = 1 THEN PLAY SLAUNCH$
163. IF n = 1 AND SND = 1 THEN PLAY SNEWPL1$
164. GOSUB WAITFIRE: REM GOTO GAME.FINISH
165. GOSUB ENTER.STAGE
166.  
167. MAIN:
168. k0 = k: k = INP(96): k$ = INKEY$
169. IF k = 1 THEN END
170. IF k = 31 THEN SND = 1 - SND: GOSUB WAITKEY0
171. IF k = 25 THEN GOSUB PAUSE.MODE
172. IF k = 29 AND k0 <> 29 THEN GOSUB FIRE.SHOT
173. GOSUB KEYS
174. GOSUB MOVE.PLAYER
175. GOSUB MOVE.SHOT
176. GOSUB MOVE.ENEMY
177. GOSUB MOVE.BOSS
178. GOSUB MOVE.ESHOT
179. GOSUB REFR.SCREEN
180. WAIT &H3DA, 8: WAIT &H3DA, 8, 8
181. GOSUB DRAW.ESHOT
182. GOSUB DRAW.ENEMY
183. GOSUB DRAW.BOSS
184. GOSUB TEST.HIT.SHOT
185. GOSUB TEST.HIT.PLAYER
186. GOSUB DRAW.SHOT
187. GOSUB DRAW.EVENT
188. GOSUB DRAW.PLAYER
189. GOSUB DRAW.EXP
190. GOSUB DRAW.STAR
191. LOCATE 1, 30: PRINT score&
192. GOSUB CREATE.ESHOT
193. crec1 = crec1 - 1: IF crec1 = 0 THEN crec1 = crec0: GOSUB CREATE.ENEMY
194. cnt1 = (cnt1 + 1) AND 255
195. GOSUB BINARY.CNT
196. GOSUB TEST.LEVELEND
197. REM GOSUB DOCKING
198. GOTO MAIN
199.  
200.  
201. MOVE.BOSS:
202. IF stbos < 0 THEN RETURN
203. xbos! = xbos! + dxbos!: ybos! = ybos! + dybos!
204. IF hbos = 1 AND ybos! > 10 AND tbos < 7 THEN ybos! = ybos! - 3
205. IF xbos! < 10 THEN dxbos! = 1
206. IF xbos! > 309 THEN dxbos! = -1
207. IF ybos! < 10 THEN dybos! = 1
208. IF ybos! > 99 THEN dybos! = -1
209. GOSUB SHOT.BOSS
210. IF INT(100 * RND) < 1 THEN GOSUB ACTIV.BOSS
211. RETURN
212.  
213. SHOT.BOSS:
214. IF tbos = 7 THEN GOTO SHOT.SUPERBOSS
215. r = fsbos(tbos) * STAGE
216. IF INT(1000 * RND) > r THEN RETURN
217. x = xbos!: y = ybos!: T = tsbos(tbos): s = ses(T)
218. IF T = 3 THEN s = 2 + INT(5 * RND)
219. GOSUB FIRE.ESHOT
220. RETURN
221.  
222. SHOT.SUPERBOSS:
223. GOSUB CREATE.SUPERENEMY
224. RETURN
225.  
226. CREATE.SUPERENEMY:
227. IF INT(8 * RND) > 0 THEN RETURN
228. n = (eptr + 1) AND emax: IF ste(n) <> -1 THEN RETURN
229. T = tpe + 1: mt = table(T)
230. ye!(n) = ybos!: ae(n) = 900 + 180 * RND - 90
231. xe!(n) = xbos!
232. ze(n) = 64: zze(n) = zoome(T)
233. ste(n) = 0: tpe(n) = T
234. tce(n) = tce0(mt) + INT(2 * RND) * 4
235. GOSUB LOADPTR.ENEMY
236. RETURN
237.  
238. ACTIV.BOSS:
239. a! = INT(8 * RND) * pi4!
240. dxbos! = COS(a!) * vbos(tbos): dybos! = SIN(a!) * vbos(tbos)
241. IF tbos = 7 THEN dybos! = 0
242. RETURN
243.  
244. DRAW.BOSS:
245. IF stbos = -1 THEN RETURN
246. IF stbos < 0 THEN GOTO DRAW.BOSS1
247. x = xbos!: y = ybos!
248. ON tbos GOSUB DBOSS1, DBOSS2, DBOSS3, DBOSS4, DBOSS5, DBOSS6, DBOSS7
249. IF bin(1) = 0 THEN hbos = 0
250. RETURN
251. DRAW.BOSS1:
252. stbos = stbos + 1: GOSUB DRAW.BDOTS
253. IF stbos < -100 AND SND = 1 THEN SOUND 37 + 120 * RND, .4
254. IF stbos = -90 THEN GOTO DRAW.BOSS2
255. IF stbos > -96 AND stbos < -48 AND PLAY(0) = 0 AND SND = 1 THEN PLAY SBOSPTS$
256. RETURN
257. DRAW.BOSS2:
258. FOR e = 0 TO emax: ste(e) = -1: NEXT e: cresum = 0
259. pts& = ptsbos(tbos): GOSUB LOAD.SCORE
260. evcnt = 50: evpts = pts&: evtpe = 1
261. RETURN
262.                    
263. DRAW.BDOTS:
264. FOR m = 0 TO fmax
265. x = fx!(m): y = fy!(m)
266. LINE (x, y)-(x + 1, y + 1), fc(m), BF
267. fx!(m) = fx!(m) + dfx!(m): fy!(m) = fy!(m) + dfy!(m)
268. NEXT m
269. RETURN
270.  
271. DRAW.EVENT:
272. IF evcnt <= 0 THEN RETURN
273. evcnt = evcnt - 1: yc! = 70: ac = 0: sc = 4: T$ = evtxt$
274. IF evtpe = 1 THEN xc! = 160: i = evpts: cc = 15 * RND: GOSUB DRAW.INTF
275. IF evtpe = 2 THEN xc! = 159 - LEN(T$) * 4: cc = 15: GOSUB DRAW.TXTZ
276. RETURN
277.  
278. BINARY.CNT:
279. bin(1) = 1 - bin(1): b2 = bin(2): b3 = bin(3)
280. IF bin(1) = 0 THEN bin(2) = 1 - bin(2)
281. IF bin(2) < b2 THEN bin(3) = 1 - bin(3)
282. IF bin(3) < b3 THEN bin(4) = 1 - bin(4)
283. RETURN
284.  
285. TEST.LEVELEND:
286. IF emovcnt > 0 OR expcnt > 0 OR stbos <> -1 THEN etimer = 0: RETURN
287. etimer = etimer + 1: IF etimer < 25 THEN RETURN
288. etimer = 0
289. IF (LEVEL AND 7) = 5 THEN GOSUB DOCKING:                REM level 3 + 7
290. GOSUB ADVANCE.LEVEL
291. GOTO MAIN
292.  
293. PAUSE:
294. DO: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: c = c - 1: LOOP UNTIL c = 0
295. RETURN
296.  
297. WAITFIRE:
298. GOSUB WAITKEY0
299. t0! = TIMER
300. DO
301. k = INP(96): k$ = INKEY$
302. t1! = TIMER - t0!
303. LOOP UNTIL k = 29 OR t1! > 4
304. GOSUB WAITKEY0
305. RETURN
306.  
307. KEYS:
308. REM IF k0 = 75 OR k0 = 77 THEN RETURN
309. IF k = 75 THEN dxp = -vp: k1 = 203
310. IF k = 77 THEN dxp = vp: k1 = 205
311. IF k = k1 THEN dxp = 0
312. RETURN
313.  
314. MOVE.PLAYER:
315. IF stp < 0 THEN GOTO CREATE.PLAYER
316. xp = xp + dxp
317. IF xp > xpmax THEN xp = xpmax
318. IF xp < xpmin THEN xp = xpmin
319. RETURN
320.  
321. CREATE.PLAYER:
322. IF stp < -1 THEN RETURN
323. stp = 0: f = 0
324. FOR q = 1 TO 3
325. IF ssec(q) > -1 THEN f = 1
326. IF ssec(q) = 0 THEN ssec(q) = 1: f = 1: EXIT FOR
327. NEXT q
328. IF f = 0 THEN stp = 1
329. IF f = 1 AND SND = 1 THEN PLAY SNEWPL2$
330. GOSUB SETUP.SHIP
331. RETURN
332.  
333. SETUP.SHIP:
334. sss0 = 0: sss1 = 0: s = 0
335. IF ssec(1) = 1 THEN s = s OR 1
336. IF ssec(2) = 1 THEN s = s OR 2
337. IF ssec(3) = 1 THEN s = s OR 2
338. IF s = 3 THEN sss0 = 1
339. IF s = 2 THEN sss1 = 1
340. RETURN
341.  
342. FIRE.SHOT:
343. IF stp > 0 THEN RETURN
344. IF sss0 = 1 THEN sss1 = 1 - sss1
345. IF sss1 = 0 AND ssec(1) = 1 THEN GOSUB FIRE.SHOT1: s = 1
346. IF sss1 = 1 AND ssec(2) = 1 THEN GOSUB FIRE.SHOT2: s = 2
347. IF sss1 = 1 AND ssec(3) = 1 THEN GOSUB FIRE.SHOT3: s = 2
348. RETURN
349. FIRE.SHOT1:
350. IF ysh(cts1) > 0 THEN RETURN
351. xsh(cts1) = xp: ysh(cts1) = yp - 4
352. cts1 = cts1 + 1: IF cts1 = 4 THEN cts1 = 0
353. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER1$
354. RETURN
355. FIRE.SHOT2:
356. IF ysh(cts2) > 0 OR ysh(cts2 + 1) > 0 THEN RETURN
357. xsh(cts2) = xp - 9: ysh(cts2) = yp + 3
358. xsh(cts2 + 1) = xp + 9: ysh(cts2 + 1) = yp + 3
359. cts2 = cts2 + 2: IF cts2 = 10 THEN cts2 = 4
360. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER2$
361. RETURN
362. FIRE.SHOT3:
363. IF ysh(cts3) > 0 OR ysh(cts3 + 1) > 0 THEN RETURN
364. xsh(cts3) = xp - 14: ysh(cts3) = yp + 10
365. xsh(cts3 + 1) = xp + 14: ysh(cts3 + 1) = yp + 10
366. cts3 = cts3 + 2: IF cts3 = 16 THEN cts3 = 10
367. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SLASER2$
368. RETURN
369.  
370. REFR.SCREEN:
371. WAIT &H3DA, 8, 8: WAIT &H3DA, 8
372. scr = 1 - scr: SCREEN 7, 0, 1 - scr, scr: CLS
373. RETURN
374. REFR.DOCKSCREEN:
375. WAIT &H3DA, 8, 8: WAIT &H3DA, 8
376. scr = 1 - scr: SCREEN 7, 0, 1 - scr, scr
377. VIEW (1, 25)-(318, 198), 0, 0: VIEW
378. RETURN
379.  
380. MOVE.SHOT:
381. FOR n = 0 TO shmax: ys = ysh(n)
382. IF ys < 0 THEN GOTO MOVE.SHOT1
383.    ys = ys - vsh: ysh(n) = ys
384. MOVE.SHOT1:
385. NEXT n
386.  
387. MOVE.ENEMY:
388. emovcnt = 0
389. FOR n = 0 TO emax
390. IF ste(n) < 0 THEN GOTO MOVE.ENEMY1
391. ne(n) = ne(n) - 1: IF ne(n) <= 0 THEN GOSUB LOADPTR.ENEMY
392.  a! = ae(n) * (pi! / 1800): emovcnt = emovcnt + 1
393.  dx! = COS(a!) * vec: dy! = -SIN(a!) * vec
394.  xe!(n) = xe!(n) + dx! / 2: ye!(n) = ye!(n) + dy! / 2
395.  ae(n) = (ae(n) + dae(n)) MOD 3600
396.  IF ze(n) < zze(n) THEN ze(n) = ze(n) + 1
397.  IF ABS(xe!(n) - scx) > 180 OR ABS(ye!(n) - scy) > 120 THEN GOSUB RESET.ENEMY
398. MOVE.ENEMY1:
399. NEXT n
400. RETURN
401.  
402. MOVE.ESHOT:
403. FOR n = 0 TO esmax
404. IF stes(n) < 0 THEN GOTO MOVE.ESHOT1
405.  xes!(n) = xes!(n) + dxes!(n): yes!(n) = yes!(n) + dyes!(n)
406.  aes(n) = aes(n) + 1
407.  IF ABS(xes!(n) - scx) > 160 OR ABS(yes!(n) - scy) > 100 THEN stes(n) = -1
408. MOVE.ESHOT1:
409. NEXT n
410. RETURN
411.  
412. DRAW.ESHOT:
413. FOR n = 0 TO esmax
414. IF stes(n) < 0 THEN GOTO DRAW.ESHOT1
415.  x = xes!(n): y = yes!(n): a = aes(n): d = des(n)
416.  T = tes(n)
417.  ON T GOSUB DESHOT1, DESHOT2, DESHOT3, DESHOT4, DESHOT5
418. DRAW.ESHOT1:
419. NEXT n
420. RETURN
421.  
422. DESHOT1:
423. c = 1
424. LINE (x - 1, y - 2)-(x + 1, y + 2), c, B
425. LINE (x, y - 3)-(x, y + 3), c
426. LINE (x, y - 2)-(x, y + 2), 15
427. RETURN
428. DESHOT2:
429. CIRCLE (x, y), d, 4: PAINT (x, y), 10, 4
430. RETURN
431. DESHOT3:
432. f! = 1 + SIN(a / 4) * .4: f2! = d * .7
433. CIRCLE (x, y), d + .5, 7, , , f!
434. CIRCLE (x, y), d, 15, , , f!
435. LINE (x - d * .1 / f! - 1, y - d * .3 * f!)-(x - 1, y), 7, B
436. RETURN
437. DESHOT4:
438. a = (a * 30) MOD 360: z = 4: c = 15: e = 1: GOSUB DRAW.SSPRITE
439. RETURN
440. DESHOT5:
441. a = (a * 9) MOD 360: z = 4: c = 15: e = 2: GOSUB DRAW.SSPRITE
442. RETURN
443.  
444. CREATE.ESHOT:
445. IF STAGE <= 1 THEN RETURN
446. r = (20 / STAGE) * RND: IF r > 0 THEN RETURN
447. e = INT((emax + 1) * RND)
448. IF ye!(e) > 80 OR ste(e) < 0 THEN RETURN
449. x = xe!(e): y = ye!(e)
450. T = 1 - (tpe = 10): s = ses(T): GOSUB FIRE.ESHOT
451. RETURN
452. FIRE.ESHOT:
453. escnt = (escnt + 1) AND esmax: n = escnt
454. IF stes(n) > -1 THEN RETURN
455.  xes!(n) = x: yes!(n) = y: v = ves(T)
456.  a! = pi2! - (pi! / 8) * RND + pi4!: dx! = COS(a!) * v: dy! = SIN(a!) * v
457.  IF SGN(xp - x) <> SGN(dx!) THEN dx! = -dx!
458.  dxes!(n) = dx!: dyes!(n) = dy!
459.  stes(n) = 0: tes(n) = T: aes(n) = 0: des(n) = s
460. IF PLAY(0) > 0 OR SND = 0 THEN RETURN
461. ON T GOSUB SESHOT1, SESHOT2, SESHOT3, SESHOT3, SESHOT3
462. RETURN
463.  
464. SESHOT1:
465. PLAY SSHOOT2$: RETURN
466. SESHOT2:
467. PLAY SSHOOT2$: RETURN
468. SESHOT3:
469. PLAY SSHOOT3$: RETURN
470.  
471. RESET.STAR:
472. xst(n) = 320 * RND: yst(n) = 0 * RND: cst(n) = INT(15 * RND) + 1
473. RETURN
474. CREATE.STAR:
475. xst(n) = 320 * RND: yst(n) = 200 * RND: cst(n) = INT(8 * RND)
476. RETURN
477.  
478. RESET.ENEMY:
479. IF tbos = 7 THEN GOSUB RESET.SUPERENEMY
480. mt = table(tpe)
481. xe!(n) = xec(mt): ye!(n) = yec(mt): ze(n) = 9
482. RETURN
483. RESET.SUPERENEMY:
484. IF (n AND 1) = 1 THEN ste(n) = -1
485. RETURN
486.  
487. CREATE.ENEMY:
488. n = eptr: eptr = (eptr + 2) AND emax
489. IF ste(n) <> -1 THEN RETURN
490. crecnt = crecnt + 1: IF crecnt > cresum THEN RETURN
491. T = tpe: mt = table(T)
492. xe!(n) = xec(mt): ye!(n) = yec(mt): ae(n) = aec(mt)
493. ze(n) = 9: zze(n) = zoome(T)
494. ste(n) = 0: tpe(n) = T: tce(n) = tce0(mt)
495. GOSUB LOADPTR.ENEMY
496. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SNEW1$
497. RETURN
498.  
499. LOADPTR.ENEMY:
500. c = tce(n): dae(n) = tae(c): ne(n) = tne(c)
501. c = c + 1: IF tae(c) = 0 AND tne(c) = 0 THEN c = tce0(mt)
502. tce(n) = c
503. RETURN
504.  
505. DRAW.STAR:
506. dy = (cnt1 AND 1)
507. FOR n = 0 TO stmax
508. x = xst(n): y = yst(n): c = cst(n): y = y + dy
509. IF POINT(x, y) = 0 THEN PSET (x, y), c
510. yst(n) = y: IF y > 200 THEN GOSUB RESET.STAR
511. NEXT n
512. stcnt = (stcnt + 1) AND stmax: n = stcnt
513. IF INT(2 * RND) = 0 THEN n = stmax * RND: GOSUB CREATE.STAR
514. RETURN
515.  
516. DRAW.PLAYER:
517. IF stp > 0 THEN GOTO DRAW.GAMEOVER
518. IF stp < 0 THEN GOTO DRAW.SHIPEXPLODE
519. IF ssec(1) = 1 THEN x = xp: y = yp + 0: c = 4: GOSUB DRAW.SHIP1
520. IF ssec(2) = 1 THEN x = xp: y = yp + 6: c = 9: GOSUB DRAW.SHIP2
521. IF ssec(3) = 1 THEN x = xp: y = yp + 15: c = 5: GOSUB DRAW.SHIP3
522. RETURN
523.  
524. DRAW.ESTAR:
525. FOR n = 0 TO stmax
526. x = xst(n): y = yst(n): c = cst(n)
527. x = x + 1: IF x > 320 THEN x = 0: yst(n) = 10 + 180 * RND
528. PSET (x, y), c: xst(n) = x
529. NEXT n
530. c = 12 + INT(4 * RND): IF c = 13 OR c < 12 THEN c = 0
531. n = stmax * RND: cst(n) = c
532. RETURN
533.  
534.  
535. DRAW.SHIPEXPLODE:
536. stp = stp + 1: IF stp > -10 THEN RETURN
537. x0 = xp: y0 = yp + 6
538. IF SND = 1 THEN SOUND 37 + f1! * RND, .5
539. f1! = f1! * .85
540. FOR n = 1 TO 5
541. x = fx!(n): y = fy!(n): a = ft(n): c = fc(n): z = dfx!(n)
542. e$ = CRASH$(1): GOSUB DRAW.SPRITE
543. NEXT n
544. IF bin(2) = 1 THEN GOSUB CREATE.SHIPEXPLODE
545. RETURN
546.  
547. CREATE.SHIPEXPLODE:
548. FOR n = 1 TO 5
549. fx!(n) = x0 + 24 * RND - 12: fy!(n) = y0 + 14 * RND - 7
550. ft(n) = 360 * RND: c = 12 + INT(4 * RND): IF c = 13 THEN c = 15
551. fc(n) = c: dfx!(n) = INT(3 * RND) + 2
552. NEXT n
553. RETURN
554.  
555. DRAW.SHIP1:
556. LINE (x, y - 3)-(x - 6, y + 3), c
557. LINE (x, y - 3)-(x + 6, y + 3), c
558. LINE (x - 6, y + 4)-(x + 6, y + 4), c
559. PAINT (x, y), c, c
560. REM c = SGN(cnt1 AND 8) * 14
561. LINE (x, y + 0)-(x, y + 2), 14
562. LINE (x - 5, y + 5)-(x - 5, y + 5), c
563. LINE (x + 5, y + 5)-(x + 5, y + 5), c
564. RETURN
565. DRAW.SHIP2:
566. LINE (x - 4, y - 1)-(x + 4, y + 4), c, BF
567. LINE (x - 10, y - 2)-(x - 9, y + 3), c, B
568. LINE (x + 9, y - 2)-(x + 10, y + 3), c, B
569. LINE (x - 9, y + 4)-(x + 9, y + 4), c
570. LINE (x - 1, y + 0)-(x - 1, y + 2), 14
571. LINE (x + 1, y + 0)-(x + 1, y + 2), 14
572. RETURN
573. DRAW.SHIP3:
574. LINE (x - 8, y)-(x - 4, y - 4), c
575. LINE (x - 4, y - 4)-(x + 4, y - 4), c
576. LINE (x + 4, y - 4)-(x + 8, y), c
577. LINE (x - 8, y)-(x - 4, y + 4), c
578. LINE (x - 4, y + 4)-(x + 4, y + 4), c
579. LINE (x + 4, y + 4)-(x + 8, y), c
580. PAINT (x, y), c, c
581. LINE (x - 13, y)-(x + 13, y), c
582. LINE (x - 14, y - 4)-(x - 13, y + 3), c, B
583. LINE (x + 13, y - 4)-(x + 14, y + 3), c, B
584. PSET (x - 13, y + 3), 0: PSET (x + 13, y + 3), 0
585. LINE (x - 2, y - 1)-(x - 2, y + 1), 14
586. LINE (x, y - 1)-(x, y + 1), 14
587. LINE (x + 2, y - 1)-(x + 2, y + 1), 14
588. RETURN
589.  
590. DRAW.SHOT:
591. FOR n = 0 TO shmax: xs = xsh(n): ys = ysh(n)
592. IF ys < 0 THEN GOTO DRAW.SHOT1
593.    LINE (xs, ys)-(xs, ys + 3), 14
594. DRAW.SHOT1:
595. NEXT n
596. RETURN
597.  
598. DRAW.EXP:
599. expcnt = 0
600. FOR n = 0 TO exmax
601. IF stex(n) = 0 THEN GOTO DRAW.EXP1
602.    T = tex(n): c = 12 + (cnt1 AND 1) * 4: a = ae(n) / 10
603.    x = xex(n): y = yex(n): z = zex(n) / 16
604.    e$ = CRASH$(T): GOSUB DRAW.SPRITE
605.    ae(n) = (ae(n) + 0) MOD 3600: stex(n) = stex(n) - 1
606.    expcnt = expcnt + 1
607. DRAW.EXP1:
608. NEXT n
609. RETURN
610.  
611. DRAW.ENEMY:
612. FOR n = 0 TO emax
613. s = ste(n): IF s < 0 THEN GOTO DRAW.ENEMY1
614.  a = ae(n) / 10: z = ze(n) / 16
615.  x = xe!(n): y = ye!(n)
616.  e = tpe(n): f = bin(anie(e)) * 2
617.  c1 = c1e(e): c2 = c2e(e): GOSUB DRAW.ESPRITE
618. DRAW.ENEMY1:
619. NEXT n
620. RETURN
621.  
622. DRAW.GAMEOVER:
623. stp = stp + 1
624. IF k = 29 AND stp > 50 THEN GOTO GAME.OVER
625. IF stp > 400 THEN GOTO GAME.OVER
626. ac = 0: sc = 4: cc = 15
627. yc! = 90
628. xc! = 120: T$ = "GAME": GOSUB DRAW.TXTF
629. xc! = 168: T$ = "OVER": GOSUB DRAW.TXTF
630. RETURN
631.  
632. GAME.OVER:
633. IF SND = 1 THEN PLAY SEND$
634. GOSUB WAITKEY0
635. sc = 8: ac = 0
636. DO
637. k = INP(96): k$ = INKEY$
638. GOSUB DRAW.ESTAR
639. cc = 16 * RND
640. T$ = "WELL DONE": xc! = 80: yc! = 60: GOSUB DRAW.TXTZ
641. LOCATE 14, 11
642. PRINT "SCORE: "; score&; "PTS"
643. GOSUB REFR.SCREEN
644. LOOP UNTIL k = 29
645. RUN
646.  
647. DRAW.SPRITE:
648. x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y))
649. a$ = LTRIM$(STR$(a)): c$ = LTRIM$(STR$(c))
650. z$ = LTRIM$(STR$(z))
651. s$ = "S" + z$ + "TA" + a$ + "C" + c$ + "bm" + x$ + "," + y$ + e$
652. IF z > 1 THEN s$ = s$ + "P" + c$ + "," + c$
653. DRAW s$
654. RETURN
655. DRAW.SSPRITE:
656. x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y))
657. a$ = LTRIM$(STR$(a)): c$ = LTRIM$(STR$(c)): z$ = LTRIM$(STR$(z))
658. s$ = "S" + z$ + "TA" + a$ + "C" + c$ + "bm" + x$ + "," + y$ + SHOT$(e)
659. DRAW s$
660. RETURN
661. DRAW.ESPRITE:
662. x$ = LTRIM$(STR$(x)): y$ = LTRIM$(STR$(y))
663. a$ = LTRIM$(STR$(a)): c1$ = LTRIM$(STR$(c1)): c2$ = LTRIM$(STR$(c2))
664. z$ = LTRIM$(STR$(z))
665. e1$ = ENEMY$(e, f): e2$ = ENEMY$(e, f + 1)
666. s$ = "S" + z$ + "TA" + a$ + "C" + c1$ + "bm" + x$ + "," + y$ + e1$
667. IF z > 1 THEN s$ = s$ + "P" + c1$ + "," + c1$
668. s$ = s$ + "C" + c2$ + e2$
669. IF z > 1 THEN s$ = s$ + "P" + c2$ + "," + c2$
670. DRAW s$
671. RETURN
672.  
673. DRAW.PLAYER1:
674. SCREEN 7, 0, 0, 0: CLS
675. cc = 15: yc! = 90
676. xc! = 120: T$ = "PLAYER": GOSUB DRAW.TXT
677. xc! = 182: i = 1: GOSUB DRAW.INTF
678. RETURN
679.  
680. TEST.HIT.SHOT:
681. FOR n = 0 TO shmax: xs = xsh(n): ys = ysh(n)
682. IF ys < 0 THEN GOTO TEST.HIT.SHOT1
683.    c = POINT(xs, ys) + POINT(xs, ys + 1) + POINT(xs, ys + 2)
684.    IF c > 0 THEN GOSUB HIT.SHOT
685. TEST.HIT.SHOT1:
686. NEXT n
687. RETURN
688.  
689. TEST.HIT.PLAYER:
690. IF stp <> 0 THEN RETURN
691. c = POINT(xp, yp - 3) + POINT(xp, yp + 2) + POINT(xp - 3, yp) + POINT(xp + 3, yp)
692. IF c <= 0 THEN RETURN
693. c1 = POINT(319, 199) * 4
694. c2 = POINT(0, 0) + POINT(319, 0) + POINT(0, 199) + POINT(319, 199)
695. IF c1 = c2 AND c1 > 0 THEN RETURN
696. GOSUB HIT.PLAYER
697. RETURN
698.  
699. HIT.SHOT:
700. x! = xs: y! = ys: r1! = hitrad
701. FOR e = 0 TO emax
702. IF ste(e) <> 0 THEN GOTO HIT.SHOT1
703.  dx! = xe!(e) - x!: dy! = ye!(e) - y!
704.  r! = SQR(dx! * dx! + dy! * dy!)
705.  IF r! < r1! THEN ysh(n) = -1: GOSUB HIT.ENEMY: EXIT FOR
706. HIT.SHOT1:
707. NEXT e
708. IF stbos < 0 THEN RETURN
709. dx! = xbos! - x!: dy! = ybos! - y!
710. rr! = SQR(dx! * dx! + dy! * dy!)
711. IF rr! < hrbos(tbos) THEN ysh(n) = -1: GOSUB HIT.BOSS
712. RETURN
713.  
714. HIT.BOSS:
715. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SHITBOS1$
716. IF stbos < 0 THEN RETURN
717. IF stbos = 0 THEN GOTO EXP.BOSS
718. stbos = stbos - 1: hbos = 1
719. xex(0) = x!: yex(0) = y!: stex(0) = 12
720. zex(0) = 32: tex(0) = 2
721. GOSUB ACTIV.BOSS
722. RETURN
723.  
724. EXP.BOSS:
725. stbos = -160: dx = 48: d = 2
726. IF tbos = 7 THEN dx = 120: d = 4
727. FOR m = 0 TO exmax
728. xex(m) = xbos! + dx * RND - dx * .5: yex(m) = ybos! + 32 * RND - 16
729. stex(m) = 30 + 30 * RND
730. zex(m) = (3 + INT(d * RND)) * 16: tex(m) = 1
731. NEXT m
732. FOR m = 0 TO fmax
733. fx!(m) = xbos!: fy!(m) = ybos!: a! = pi! * 2 * RND
734. dfx!(m) = COS(a!) * 4: dfy!(m) = SIN(a!) * 4
735. fc(m) = 15
736. NEXT m
737. RETURN
738.  
739. PLAY.ENEMY.CRASH:
740. IF T = 1 THEN PLAY SETYPE1$
741. IF T = 2 THEN PLAY SETYPE2$
742. IF T = 3 THEN PLAY SETYPE3$
743. IF T = 4 THEN PLAY SETYPE4$
744. IF T = 5 THEN PLAY SETYPE1$
745. IF T = 6 THEN PLAY SETYPE1$
746. IF T = 7 THEN PLAY SETYPE1$
747. IF T = 8 THEN PLAY SETYPE8$
748. IF T = 9 THEN PLAY SETYPE9$
749. IF T = 10 THEN PLAY SETYPE10$
750. IF T = 11 THEN PLAY SETYPE11$
751. RETURN
752.  
753. HIT.ENEMY:
754. IF PLAY(0) = 0 AND SND = 1 THEN T = tpe(e): GOSUB PLAY.ENEMY.CRASH
755. ste(e) = -1: GOSUB CREATE.EXP
756. hitcnt = hitcnt + 1: pts& = ptse(tpe(e)) * STAGE: GOSUB LOAD.SCORE
757. T = tpe(e)
758. IF dble(T) = 0 THEN RETURN         ' unteilbar/teilbar
759. SPLIT.ENEMY:
760. f = e + 1
761. ste(e) = 0: ae(e) = 900: ze(e) = zoome(T + 1): zze(e) = ze(e)
762. ste(f) = 0: ae(f) = 900: ze(f) = zoome(T + 1): zze(f) = ze(f)
763. tpe(e) = T + 1: tpe(f) = T + 1
764. mt1 = table(T + 1): mt2 = table(T + 1)
765. tce(e) = tce0(mt1): tce(f) = tce0(mt2): tce(e) = 72: tce(f) = 88
766. dae(e) = tae(tce(e)): ne(e) = tne(tce(e))
767. dae(f) = tae(tce(f)): ne(f) = tne(tce(f))
768. xe!(f) = xe!(e): ye!(f) = ye!(e)
769. IF PLAY(0) = 0 AND SND = 1 THEN PLAY SSPLIT$
770. RETURN
771.  
772. HIT.PLAYER:
773. REM LOCATE 2, 1: PRINT "HIT ON PLAYER!"
774. stp = -35: f1! = 600
775. FOR q = 1 TO 3
776. IF ssec(q) = 1 THEN ssec(q) = -1: EXIT FOR
777. NEXT q
778. GOSUB SETUP.SHIP
779. x0 = xp: y0 = yp + 6: GOSUB CREATE.SHIPEXPLODE
780. RETURN
781.  
782. CREATE.EXP:
783. exptr = (exptr + 1) AND exmax
784. IF stex(exptr) > 0 THEN RETURN
785. xex(e) = xe!(e): yex(e) = ye!(e): stex(e) = 30
786. zex(e) = ze(e): tex(e) = 1
787. RETURN
788.  
789. LOAD.SCORE:
790. B& = bonplay&
791. s& = score&: score& = score& + pts&
792. IF (score& MOD B&) > (s& MOD B&) THEN RETURN
793. SCREEN 7, 0, scr, scr
794. FOR q = 1 TO 3: IF ssec(q) = -1 THEN ssec(q) = 0: EXIT FOR
795. NEXT q
796. x = 160: y = 20: c = 4
797. ON q GOSUB DRAW.SHIP1, DRAW.SHIP2, DRAW.SHIP3
798. sc = 4: ac = 0: cc = 15
799. T$ = "BONUS PLAYER": xc! = 178: yc! = 17: GOSUB DRAW.TXTZ
800. IF ssec(1) = 0 THEN ssec(1) = 1: ssec(2) = 0: ssec(3) = 0: GOSUB SETUP.SHIP
801. IF SND = 1 THEN PLAY SBONPLAY$
802. c = 50: GOSUB PAUSE: SCREEN 7, 0, 1 - scr, scr
803. RETURN
804.  
805. REM  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
806.  
807. DOCKING:
808. REM REM PLAY SDOCK1$: DO: LOOP UNTIL PLAY(0) = 0
809. ss1 = 0: ss2 = 0
810. IF ssec(1) = 1 THEN ss1 = ss1 OR 1
811. IF ssec(2) = 1 THEN ss1 = ss1 OR 2
812. IF ssec(3) = 1 THEN GOTO DOCK.END
813. IF ssec(3) = 0 THEN ss2 = 4: dp = 5
814. IF ssec(2) = 0 THEN ss2 = 2: dp = 0
815. IF ss2 = 0 THEN GOTO DOCK.END
816. xb = scx: yb = 172
817. xp! = xb - 30 + 60 * RND: yp! = 100: vxp! = 0: vyp! = 0
818. dyp! = 0: IF ss1 = 3 THEN dyp! = 6
819. fcnt = 0: FOR n = 0 TO fmax: ft(n) = -1: NEXT n
820. grav! = .01 + ss1 * .006
821. dfuel = 1000: dtime! = 10
822. FOR n = 0 TO 1: SCREEN 7, 0, n, n: CLS
823. LOCATE 4, 9: PRINT "Time": LOCATE 4, 27: PRINT "Fuel"
824. GOSUB DRAW.VALUES: LOCATE 9, 12: PRINT "Docking Sequence"
825. NEXT n
826. GOSUB WAITFIRE: timer0! = TIMER + dtime!
827.  
828. DOCK.MAIN:
829. k0 = k: k = INP(96): k$ = INKEY$
830. IF k = 1 THEN END
831. IF k = 29 THEN GOSUB THRUST
832. IF k = 75 THEN vxp! = vxp! - .03
833. IF k = 77 THEN vxp! = vxp! + .03
834. vyp! = vyp! + grav!
835. GOSUB MOVE.SECTION
836. GOSUB MOVE.FIRE
837. GOSUB REFR.DOCKSCREEN
838. WAIT &H3DA, 8: WAIT &H3DA, 8, 8
839. GOSUB DRAW.SECTION
840. GOTO TEST.HIT.BASE
841. DOCK.MAIN1:
842. dtime! = timer0! - TIMER
843. GOSUB DRAW.DSTAR
844. GOSUB DRAW.VALUES: GOSUB DRAW.FIRE
845. GOSUB DRAW.BASE: GOSUB DRAW.SECTION
846. cnt1 = (cnt1 + 1) AND 255
847. GOTO TEST.DOCK.OUT
848. GOTO DOCK.MAIN
849.  
850. THRUST:
851. IF dfuel = 0 THEN RETURN
852. vyp! = vyp! - .07: dfuel = dfuel - 8: IF dfuel < 0 THEN dfuel = 0
853. IF SND = 1 THEN SOUND 37 + 80 * RND, .3
854. GOSUB CREATE.FIRE
855. RETURN
856.  
857. DRAW.DSTAR:
858. FOR n = 0 TO stmax
859. x = xst(n): y = yst(n): c = cst(n)
860. IF POINT(x, y) = 0 THEN PSET (x, y), c
861. NEXT n
862. IF cnt1 = 0 THEN RETURN
863. n = stmax * RND: xst(n) = 300 * RND + 10: yst(n) = 180 * RND + 10
864. RETURN
865.  
866. TEST.DOCK.OUT:
867. IF xp! < 0 OR xp! > 319 OR yp! < 32 OR yp! > 199 THEN GOTO DOCK.OUT
868. IF dtime! < .1 THEN GOTO DOCK.OUT
869. GOTO DOCK.MAIN
870.  
871. DRAW.VALUES:
872. LOCATE 6, 8: PRINT INT(dtime! * 10) / 10
873. LOCATE 6, 26: PRINT INT(dfuel / 10)
874. RETURN
875.  
876. DOCK.END:
877. RETURN
878.  
879. MOVE.FIRE:
880. FOR n = 0 TO fmax: IF ft(n) < 0 THEN GOTO MOVE.FIRE1
881. fx!(n) = fx!(n) + dfx!(n): fy!(n) = fy!(n) + dfy!(n): ft(n) = ft(n) - 1
882. IF POINT(fx!(n), fy!(n)) = 9 THEN dfy!(n) = -dfy!(n) / 2
883. MOVE.FIRE1:
884. NEXT n
885. RETURN
886. CREATE.FIRE:
887. IF ft(fcnt) >= 0 THEN RETURN
888. a! = pi2! + 1 * RND - .5: dv! = ABS(pi2! - a!) * 2: v! = 2 - dv!
889. fx!(fcnt) = xp!: fy!(fcnt) = yp! + 4
890. dfx!(fcnt) = COS(a!) * v! + vxp!: dfy!(fcnt) = SIN(a!) * v! + vyp!
891. ft(fcnt) = 8: fc(fcnt) = 14 - INT(2 * RND) * 8
892. fcnt = (fcnt + 1) AND fmax
893. RETURN
894. DRAW.FIRE:
895. FOR n = 0 TO fmax: IF ft(n) < 0 THEN GOTO DRAW.FIRE1
896. x = fx!(n): y = fy!(n): PSET (x, y), fc(n)
897. DRAW.FIRE1:
898. NEXT n
899.  
900. MOVE.SECTION:
901. xp! = xp! + vxp!: yp! = yp! + vyp!
902. RETURN
903.  
904. DRAW.SECTION:
905. IF (ss1 AND 1) = 1 THEN x = xp!: y = yp! - dyp!: c = 4: GOSUB DRAW.SHIP1
906. IF (ss1 AND 2) = 2 THEN x = xp!: y = yp!: c = 9: GOSUB DRAW.SHIP2
907. RETURN
908. DRAW.BASE:
909. IF ss2 = 2 THEN x = xb: y = yb: c = 9: GOSUB DRAW.SHIP2
910. IF ss2 = 4 THEN x = xb: y = yb: c = 5: GOSUB DRAW.SHIP3
911. RETURN
912.  
913. TEST.HIT.BASE:
914. n = dp
915. x = xb + pcx(n): y = yb + pcy(n)
916. IF POINT(x, y) > 0 THEN GOTO TEST.DOCK.OK
917. c = 14: IF (cnt1 AND 16) = 0 THEN c = 0
918. PSET (x, y), c
919. FOR n = dp + 1 TO dp + 4
920. x = xb + pcx(n): y = yb + pcy(n)
921. IF POINT(x, y) > 0 THEN GOTO DOCK.CRASH
922. REM PSET (x, y), 14
923. NEXT n
924. GOTO DOCK.MAIN1
925.  
926. TEST.DOCK.OK:
927. IF ABS(xp! - xb) > 3 THEN GOTO DOCK.CRASH
928. IF vyp! > .8 THEN GOTO DOCK.CRASH
929. GOTO DOCK.OK
930.  
931. DOCK.OK:
932. xp! = xb: yp! = yb + pcy(db) - 4
933. IF (ss1 AND 2) = 2 THEN yp! = yp! - 3
934. GOSUB REFR.DOCKSCREEN: SCREEN 7, 0, scr, scr: CLS
935. GOSUB DRAW.VALUES
936. GOSUB DRAW.BASE: GOSUB DRAW.SECTION
937. LOCATE 9, 15: PRINT "Right On !"
938. IF ss2 = 2 THEN ssec(2) = 1: GOSUB SETUP.SHIP
939. IF ss2 = 4 THEN ssec(3) = 1: GOSUB SETUP.SHIP
940. IF SND = 1 THEN PLAY SDOCK2$
941. DO: LOOP WHILE PLAY(0) > 0: c = 20: GOSUB PAUSE
942. T = INT(dtime! * 10) / 10: f = dfuel / 10: s = 200 * T + 10 * f
943. LOCATE 13, 6: PRINT "Bonus = 200 x"; T
944. LOCATE 15, 6: PRINT "      +  10 x"; f; " ="; s; "x"; STAGE
945. pts& = s * STAGE: GOSUB LOAD.SCORE
946. IF SND = 1 THEN PLAY SRGTON$
947. GOSUB WAITFIRE
948. RETURN
949.  
950. DOCK.OUT:
951. SCREEN 7, 0, scr, scr
952. LOCATE 9, 10: PRINT "Section Out of Range"
953. GOSUB WAITFIRE
954. RETURN
955.  
956. DOCK.CRASH:
957. s = 0: z1 = 4: f1! = 40
958. FOR n = 1 TO 200
959. a1 = 3600 * RND: c1 = (s AND 1) * 3 + 12
960. c2 = 15 - (s AND 1) * 3
961. IF s = 0 THEN z2 = 3 + 4 * RND: a2 = 3600 * RND: c2 = 15
962. GOSUB REFR.DOCKSCREEN: GOSUB DRAW.VALUES
963. LOCATE 9, 13: PRINT "Sorry, no Bonus"
964. x = xp!: y = yp!: a = a1 / 10: c = c1: z = z1
965. e$ = CRASH$(1): GOSUB DRAW.SPRITE
966. x = xb: y = yb: a = a2 / 10: c = c2: z = z2
967. e$ = CRASH$(1): GOSUB DRAW.SPRITE
968. s = (s + 1) AND 7
969. GOSUB DOCK.CRASH.SND
970. NEXT n
971. GOSUB WAITFIRE
972. RETURN
973.  
974. DOCK.CRASH.SND:
975. f2! = f1! * RND: f1! = f1! * .98
976. IF n < 150 AND SND = 1 THEN SOUND 37 + f2! * f2!, .3
977. RETURN
978.  
979. REM - - - - - - - - - - - - - - - - - - - - - - - -
980.  
981.  
982. ADVANCE.LEVEL:
983. LEVEL = LEVEL + 1
984. IF STAGE = 6 AND LEVEL = 10 THEN GOTO SUPER.LEVEL
985. IF LEVEL = 9 THEN GOTO BOSS.LEVEL
986. IF LEVEL = 10 THEN GOTO WARP.LEVEL
987. IF LEVEL = 11 THEN GOTO GAME.FINISH
988. GOSUB LOAD.LEVEL
989. RETURN
990.  
991. SUPER.LEVEL:
992. STAGE = 7: GOSUB ENTER.STAGE
993. tbos = tbos + 1: GOSUB BOSS.LEVEL
994. stbos = 50
995. LEVEL = 9: GOSUB LOAD.LEVEL
996. LEVEL = 10: cresum = 24: hitsum = 24
997. c1e(6) = 4: c2e(6) = 12
998. c1e(7) = 12: c2e(7) = 14
999. RETURN
1000.  
1001. BOSS.LEVEL:
1002. evcnt = 70: evtpe = 2: evtxt$ = BOSS$(STAGE)
1003. stbos = 8 + tbos * 4: abos = 0
1004. xbos! = scx: ybos! = 50: dxbos! = 0: dybos! = 0
1005. cresum = 0: crecnt = 0: hitcnt = 0: hitsum = 0
1006. RETURN
1007.  
1008. LOAD.LEVEL:
1009. n = LEVEL
1010. hitrad = lrad(n): tpe = ltpe(n): mt = table(tpe)
1011. vec = vec(mt)
1012. cresum = lsum(n) + (STAGE - 1) * 2
1013. crecnt = 0: hitcnt = 0: hitsum = cresum * lhit(n)
1014. crec0 = crec(mt): crec1 = crec0
1015. s = (STAGE - 1) MOD 3:             REM LOAD COLOR TABLE
1016. FOR e = 1 TO 11: c1e(e) = c1ee(s, e): c2e(e) = c2ee(s, e): NEXT e
1017. RETURN
1018.  
1019. WARP.LEVEL:
1020. dyp! = .5: dys! = .5: ypp = yp: yp! = yp
1021. f1! = 0
1022. GOSUB SAVE.PALETTE
1023. FOR o = 1 TO 260
1024. IF INP(96) = 1 THEN END
1025. GOSUB DRAW.WARPSTAR
1026. GOSUB DRAW.PLAYER
1027. yp = yp!: yp! = yp! - dyp!: dyp! = dyp! * 1.01: dys! = dys! + .1
1028. WAIT &H3DA, 8, 8: WAIT &H3DA, 8
1029. SCREEN 7, 0, 1 - scr, scr: scr = 1 - scr: CLS
1030. IF o > 30 AND o < 150 THEN LOCATE 10, 14: PRINT " WARP OUT ! "
1031. IF o < 180 THEN f1! = f1! + 3
1032. IF o = 180 THEN f1! = 5000
1033. IF o > 60 THEN c1 = 1: c2 = 31: c3 = 2: GOSUB INC.PALETTE
1034. IF o > 180 THEN c1 = 0: c2 = 0: c3 = 4: GOSUB INC.PALETTE: f1! = f1! * .92
1035. IF SND = 1 THEN SOUND 37 + f1! * RND, .3
1036. NEXT o
1037. SCREEN 7, 0, scr, scr: CLS
1038. c1 = 0: c2 = 0: c3 = 4
1039. FOR o = 1 TO 16: WAIT &H3DA, 8: WAIT &H3DA, 8, 8: GOSUB DEC.PALETTE: NEXT o
1040. GOSUB LOAD.PALETTE
1041. yp = ypp
1042. REM IF SND = 1 THEN PLAY SFAROUT2$: PLAY SFAROUT2$
1043. REM c = 70: GOSUB PAUSE
1044. REM DO: LOOP UNTIL PLAY(0) < 4
1045. LEVEL = 2: STAGE = STAGE + 1
1046. GOSUB LOAD.LEVEL
1047. tbos = tbos + 1: IF tbos > 6 THEN tbos = 1
1048. c = 20: GOSUB PAUSE
1049. GOSUB ENTER.STAGE
1050. RETURN
1051.  
1052. ENTER.STAGE:
1053. evcnt = 70: evtpe = 2: evtxt$ = "STAGE " + LTRIM$(STR$(STAGE))
1054. GOSUB LOAD.3DSTAR
1055. SCREEN 7, 0, 2, 0: CLS
1056. xs! = 159: ys! = 160: rs! = 20
1057. ON STAGE GOSUB DSTG1, DSTG2, DSTG3, DSTG4, DSTG5, DSTG6, DSTG7
1058. REM IF SND = 1 THEN PLAY SSTAGE1$
1059.  
1060. ENTER.STAGE1:
1061. xs! = 159: ys! = 99: rs! = 8: rsmax! = 40: cnt = 0
1062. u$ = "STAGE " + LTRIM$(STR$(STAGE)): tptr = 0: mode = 0
1063. sss = -(STAGE > 2 AND STAGE < 7): fs! = 1.02: cnt1 = 10: cnt2 = 0
1064. DO
1065. k = INP(96): k$ = INKEY$
1066. rs! = rs! * fs!: vs! = 1.08
1067. IF rs! >= rsmax! AND mode = 0 THEN rs! = rsmax!: vs! = 1.02
1068. GOSUB ENTER.STAGE2
1069. IF cnt < 160 AND mode = 0 THEN GOSUB ENTER.STAGE3
1070. IF (cnt AND 7) = 7 THEN GOSUB ENTER.STAGE5
1071. cnt = cnt + 1: IF cnt > 300 THEN GOSUB ENTER.STAGE4
1072. GOSUB REFR.SCREEN
1073. IF mode = 1 AND sss = 1 AND SND = 1 THEN SOUND 37 + cnt1 * RND, 1: cnt1 = (cnt1 * 1.2) MOD 32000
1074. IF cnt2 = 4 AND SND = 1 THEN PLAY SSTAGE2$
1075. IF k = 29 AND rs! >= rsmax! THEN GOSUB ENTER.STAGE4
1076. LOOP WHILE rs! < 200
1077. RETURN
1078.  
1079. ENTER.STAGE2:
1080. IF sss = 0 THEN PCOPY 2, 1 - scr: RETURN
1081. GOSUB DRAW.3DSTAR
1082. ON STAGE - 2 GOSUB DSTG3, DSTG4, DSTG5, DSTG6
1083. RETURN
1084. ENTER.STAGE3:
1085. T$ = LEFT$(u$, tptr)
1086. xc! = 136: yc! = 24: ac = 0: sc = 4: cc = 15
1087. GOSUB DRAW.TXTZ
1088. T$ = STAGE$(STAGE)
1089. xc! = 159 - LEN(T$) * 4: yc! = 44: ac = 0: sc = 4: cc = 15
1090. s = (cnt AND 8)
1091. IF tptr <= 8 OR s > 0 AND cnt2 < 24 THEN RETURN
1092. GOSUB DRAW.TXTZ: cnt2 = cnt2 + 1
1093. RETURN
1094. ENTER.STAGE4:                   REM launch
1095. mode = 1: fs! = 1.04: RETURN
1096. ENTER.STAGE5:
1097. tptr = tptr + 1: IF tptr < 8 THEN SOUND 622, 1
1098. RETURN
1099.  
1100.  
1101. SAVE.PALETTE:
1102. OUT &H3C7, 0
1103. FOR c = 0 TO 95: cp(c) = INP(&H3C9): NEXT c
1104. RETURN
1105. LOAD.PALETTE:
1106. OUT &H3C8, 0
1107. FOR c = 0 TO 95: OUT &H3C9, cp(c): NEXT c
1108. RETURN
1109. INC.PALETTE:
1110. FOR c = c1 TO c2: OUT &H3C7, c
1111. a = INP(&H3C9): a = a + c3: IF a > 63 THEN a = 63
1112. B = INP(&H3C9): B = B + c3: IF B > 63 THEN B = 63
1113. d = INP(&H3C9): d = d + c3: IF d > 63 THEN d = 63
1114. OUT &H3C8, c: OUT &H3C9, a: OUT &H3C9, B: OUT &H3C9, d
1115. NEXT c
1116. RETURN
1117. DEC.PALETTE:
1118. FOR c = c1 TO c2: OUT &H3C7, c
1119. a = INP(&H3C9): a = a - c3: IF a < 0 THEN a = 0
1120. B = INP(&H3C9): B = B - c3: IF B < 0 THEN B = 0
1121. d = INP(&H3C9): d = d - c3: IF d < 0 THEN d = 0
1122. OUT &H3C8, c: OUT &H3C9, a: OUT &H3C9, B: OUT &H3C9, d
1123. NEXT c
1124. RETURN
1125.  
1126. DRAW.WARPSTAR:
1127. dys = dys!
1128. FOR n = 0 TO stmax
1129. x = xst(n): y = yst(n)
1130. LINE (x, y)-(x, y + dys), cst(n)
1131. y = y + dys: yst(n) = y: IF y > 200 THEN yst(n) = -20: xst(n) = 320 * RND
1132. NEXT n
1133. RETURN
1134.  
1135.  
1136. REM - - - - - - - - - - - - - - - - - - - - -
1137. REM - - - - - - CREDITS - - - - - - -
1138.  
1139. GAME.FINISH:
1140. GOSUB WAITKEY0
1141. sc = 8: ac = 0: s = 1: GOSUB LOAD.SONG: GOSUB LOAD.3DSTAR
1142. tcnt = 24: tptr = 0: cnt1 = -100: dy = 24: vs! = 1.06: cnt2 = 120
1143. DO
1144. k = INP(96): k$ = INKEY$
1145. GOSUB DRAW.3DSTAR
1146. d = 2: cc = 13
1147. IF cnt1 < 0 THEN cnt1 = cnt1 + 1: cc = 16 * RND: d = 0
1148. IF tptr > 28 THEN d = 0: cnt2 = cnt2 - 1
1149. IF cnt2 = 0 THEN s = 2: GOSUB LOAD.SONG
1150. tcnt = tcnt - d
1151. IF tcnt = 0 THEN tcnt = dy: tptr = tptr + 1
1152. yc! = tcnt - dy
1153. FOR n = 1 TO 11
1154. T$ = CREDIT$(n + tptr)
1155. xc! = 20: GOSUB DRAW.TXTZ
1156. yc! = yc! + dy
1157. NEXT n
1158. WAIT &H3DA, 8: WAIT &H3DA, 8, 8
1159. GOSUB REFR.SCREEN: GOSUB PLAY.SONG
1160. LOOP UNTIL (k = 29 AND cnt1 >= 0)
1161. GOTO GAME.OVER
1162.  
1163. LOAD.SONG:
1164. nsong = s: stsong = 1: tsong = 1: RETURN
1165.  
1166. PLAY.SONG:
1167. IF stsong < 1 THEN RETURN
1168. IF PLAY(0) > 0 THEN RETURN
1169. PLAY SFINAL$(nsong, tsong)
1170. tsong = tsong + 1: IF tsong > 7 THEN stsong = 0
1171. RETURN
1172.  
1173. LOAD.3DSTAR:
1174. FOR n = 0 TO stmax
1175. x = 26 * RND - 13: y = 20 * RND - 10
1176. xst!(n) = x * x * SGN(x): yst!(n) = y * y * SGN(y)
1177. NEXT n
1178. RETURN
1179. DRAW.3DSTAR:
1180. FOR n = 0 TO stmax
1181. x! = xst!(n): y! = yst!(n): c = cst(n)
1182. r! = SQR(x! * x! + y! * y!)
1183. x! = x! * vs!: y! = y! * vs!
1184. IF r! > 160 THEN r! = 2 + 6 * RND: a! = pi! * 2 * RND: x! = COS(a!) * r!: y! = SIN(a!) * r!
1185. PSET (scx + x!, scy - y!), 15
1186. xst!(n) = x!: yst!(n) = y!
1187. NEXT n
1188. RETURN
1189.  
1190.  
1191.  
1192.  
1193. REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1194. TITLE:
1195. a = 0: CH = 0: mode1 = 1: mode2 = 6: cnt = 35
1196. TITLE.MAIN:
1197. k = INP(96): k$ = INKEY$: IF k = 1 THEN END
1198. IF k = 29 THEN RETURN
1199. IF k = 31 THEN SND = 1 - SND: GOSUB WAITKEY0
1200. IF k = 59 THEN GOSUB TITLE.HELP
1201. GOSUB CARE.TITLE
1202. GOSUB CARE.MENU
1203. GOTO TITLE.MAIN
1204.  
1205. CARE.TITLE:
1206. GOSUB MOVE.TITLE: IF mode1 > 4 THEN RETURN
1207. cc = 15: GOSUB DRAW.TITLE: GOSUB DRAW.YEAR
1208. WAIT &H3DA, 8, 8: WAIT &H3DA, 8
1209. GOSUB REFR.TITLE
1210. RETURN
1211.  
1212. DRAW.TITLE:
1213. FOR n = 0 TO 7
1214. nc = nc(n): ac = 0
1215. xc! = xc!(n): yc! = yc!(n): zc! = zc!(n)
1216. GOSUB DRAW.CHAR3D
1217. NEXT n
1218. RETURN
1219. DRAW.YEAR:
1220. IF CH < 8 THEN RETURN
1221. FOR n = 8 TO 9
1222. nc = nc(n): ac = 0
1223. xc! = xc!(n): yc! = yc!(n): zc! = zc!(n)
1224. GOSUB DRAW.CHAR3D
1225. NEXT n
1226. RETURN
1227.  
1228. MOVE.TITLE:
1229. ON mode1 GOTO MTIT1, MTIT2, MTIT3, MTIT4
1230. RETURN
1231. MTIT1:
1232. zc!(CH) = zc!(CH) - 12: IF zc!(CH) <= zmax AND SND = 1 THEN PLAY SCRASH8$
1233. IF zc!(CH) <= zmax THEN CH = CH + 1
1234. IF CH > 7 THEN mode1 = mode1 + 1: cnt = 2000
1235. RETURN
1236. MTIT2:
1237. xc!(8) = xc!(8) - 2: yc!(8) = yc!(8) - 1
1238. xc!(9) = xc!(9) - 2: yc!(9) = yc!(9) - 1
1239. SOUND cnt, .4: cnt = cnt - 44
1240. IF yc!(8) <= yc!(7) + 8 THEN mode1 = mode1 + 1: cnt = 35
1241. RETURN
1242. MTIT3:
1243. cnt = cnt - 1: IF cnt = 34 AND SND = 1 THEN PLAY SCRASH9$
1244. IF cnt = 0 THEN cnt = 35: mode1 = mode1 + 1
1245. RETURN
1246. MTIT4:
1247. SCREEN 7, 0, scr, scr
1248. scx = scx - 1: cc = 14: GOSUB DRAW.TITLE
1249. scx = scx + 2: cc = 14: GOSUB DRAW.TITLE: scx = scx - 1
1250. scy = scy - 1: cc = 14: GOSUB DRAW.TITLE
1251. scy = scy + 2: cc = 14: GOSUB DRAW.TITLE: scy = scy - 1
1252. cc = 4: GOSUB DRAW.TITLE
1253. mode1 = mode1 + 1: mode2 = 1
1254. sss = scx
1255. FOR scx = sss - 2 TO sss + 2: cc = 15: GOSUB DRAW.YEAR: NEXT scx
1256. x = 214: y = 15
1257. CIRCLE (x, y), 5, 15: PAINT (x, y), 15, 15
1258. CIRCLE (x - 3, y - 1), 5, 1: PAINT (x - 3, y - 1), 1, 1
1259. RETURN
1260.  
1261. REFR.TITLE:
1262. SCREEN 7, 0, scr, 1 - scr: scr = 1 - scr
1263. LINE (0, 0)-(319, 120), 0, BF
1264. RETURN
1265.  
1266. CARE.MENU:
1267. IF mode2 < 6 THEN GOTO DRAW.MENU
1268. RETURN
1269. DRAW.MENU:
1270. WAIT &H3DA, 8, 8: WAIT &H3DA, 8
1271. ON mode2 GOTO DMEN1, DMEN2, DMEN3, DMEN4, DMEN5
1272. RETURN
1273. DMEN1:
1274. cnt = cnt - 1: IF cnt = 0 THEN cnt = 35: mode2 = mode2 + 1
1275. RETURN
1276. DMEN2:
1277. SCREEN 7, 0, scr, scr
1278. x = 40: y = 66: a = 90: c1 = 8: c2 = 15: f = 0: z = 4
1279. FOR e = 1 TO 5: GOSUB DRAW.ESPRITE: REM PSET (x, y), 10
1280. y = y + 18: NEXT e
1281. mode2 = mode2 + 1: x = 58
1282. RETURN
1283. DMEN3:
1284. IF (x AND 7) > 0 THEN GOTO DMEN31
1285. y = 70: c1 = 15
1286. FOR e = 1 TO 5
1287. REM LINE (x, y)-(x + 1, y + 1), 7, BF
1288. REM PSET (x, y + 1), 15: PSET (x + 1, y), 8
1289. LINE (x, y)-(x + 1, y), 8
1290. LINE (x, y + 1)-(x + 1, y + 1), 15
1291. y = y + 18: NEXT e
1292. DMEN31:
1293. x = x + 1: IF x >= 208 THEN mode2 = mode2 + 1
1294. RETURN
1295. DMEN4:
1296. ac = 0: sc = 4: cc = 15: yc! = 64
1297. FOR e = 1 TO 5
1298. i = ptse(e): xc! = 220: GOSUB DRAW.INTF
1299. T$ = "PTS": xc! = 234: GOSUB DRAW.TXTF: yc! = yc! + 18
1300. NEXT e
1301. ac = 0: sc = 4: cc = 7
1302. xc! = 54: yc! = 162: T$ = "PRESS F1 FOR BRIEFING": GOSUB DRAW.TXTZ
1303. mode2 = mode2 + 1
1304. RETURN
1305. DMEN5:
1306. ac = 0: sc = 4: cc = 16 * RND
1307. xc! = 100: yc! = 180: T$ = "PRESS FIRE": GOSUB DRAW.TXTZ
1308. RETURN
1309.  
1310.  
1311. REM - - - - - - - - - - - - - - - - -
1312.  
1313. DRAW.CHAR3D:
1314. zf! = 100 / zc!: sc = zf! * 4
1315. xd = INT(scx + xc! * zf!): yd = INT(scy - yc! * zf!)
1316. x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd))
1317. ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc))
1318. zs$ = LTRIM$(STR$(sc))
1319. s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc)
1320. DRAW s$
1321. RETURN
1322.  
1323. DRAW.CHAR:
1324. xd = xc!: yd = yc!
1325. x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd))
1326. ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc))
1327. zs$ = LTRIM$(STR$(sc))
1328. s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc)
1329. DRAW s$
1330. RETURN
1331.  
1332. DRAW.FCHAR:
1333. xd = xc!: yd = yc!
1334. x$ = LTRIM$(STR$(xd)): y$ = LTRIM$(STR$(yd))
1335. ta$ = LTRIM$(STR$(ac)): c$ = LTRIM$(STR$(cc))
1336. zs$ = LTRIM$(STR$(sc))
1337. s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc)
1338. DRAW s$: x$ = LTRIM$(STR$(xd - 1))
1339. s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc)
1340. DRAW s$: x$ = LTRIM$(STR$(xd + 1))
1341. s$ = "TA" + ta$ + "S" + zs$ + "C" + c$ + "bm" + x$ + "," + y$ + CH$(nc)
1342. DRAW s$
1343. RETURN
1344.  
1345. DRAW.INTF:
1346. sc = 4: x! = xc!: ac = 0: sc = 4
1347. FOR m = 0 TO 5
1348. nc = i MOD 10
1349. GOSUB DRAW.FCHAR
1350. xc! = xc! - 10: i = INT(i / 10): IF i = 0 THEN EXIT FOR
1351. NEXT m: xc! = x!
1352. RETURN
1353.  
1354. DRAW.TXTF:
1355. sc = 4: l = LEN(T$)
1356. FOR m = 1 TO l
1357. nc = ASC(MID$(T$, m, 1)) - 48
1358. GOSUB DRAW.FCHAR
1359. xc! = xc! + 9
1360. NEXT m
1361. RETURN
1362.  
1363. DRAW.TXT:
1364. sc = 4: l = LEN(T$)
1365. FOR m = 1 TO l
1366. nc = ASC(MID$(T$, m, 1)) - 48
1367. GOSUB DRAW.CHAR
1368. xc! = xc! + 9
1369. NEXT m
1370. RETURN
1371.  
1372. DRAW.TXTZ:
1373. l = LEN(T$)
1374. FOR m = 1 TO l: nc = ASC(MID$(T$, m, 1)) - 48
1375. IF nc >= 0 THEN GOSUB DRAW.CHAR
1376. xc! = xc! + sc * 2
1377. NEXT m
1378. RETURN
1379.  
1380. WAITKEY0:
1381. DO: k = INP(96): k$ = INKEY$: LOOP WHILE k < 128
1382. RETURN
1383.  
1384. PAUSE.MODE:
1385. GOSUB WAITKEY0: SCREEN 7, 0, scr, scr
1386. LOCATE 11, 16: COLOR 14: PRINT "- PAUSE -"
1387. DO: k$ = INKEY$: k = INP(96): LOOP UNTIL k = 25
1388. GOSUB WAITKEY0
1389. RETURN
1390.  
1391. REM - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
1392.  
1393. DBOSS1:
1394. c1 = 13: c2 = 12: IF hbos = 1 THEN c1 = 15: c2 = 15
1395. LINE (x - 10, y - 25)-(x, y - 32), 1
1396. LINE (x, y - 32)-(x + 10, y - 25), 1
1397. LINE (x - 10, y - 25)-(x + 10, y - 25), 1
1398. PAINT (x, y - 30), c1, 1
1399. LINE (x - 16, y)-(x, y + 16), 5
1400. LINE (x, y + 16)-(x + 16, y), 5
1401. LINE (x - 16, y)-(x + 16, y), 5
1402. PAINT (x, y + 8), c1, 5
1403. LINE (x, y + 15)-(x + 15, y), 5
1404. LINE (x - 15, y)-(x, y + 15), 5
1405. CIRCLE (x, y), 30, 5, -pi! * 2, -pi!, .85
1406. PAINT (x, y - 10), c2, 5
1407. CIRCLE (x - 11, y - 17), 4, 14: PAINT (x - 11, y - 17), 15, 14
1408. CIRCLE (x + 10, y - 12), 8, 14: PAINT (x + 10, y - 12), 15, 14
1409. CIRCLE (x - 15, y), 8, 14, -pi! * 2, -pi!, .85: PAINT (x - 15, y - 4), 15, 14
1410. CIRCLE (x + 30, y), 8, 14, -pi! * .55, -pi!, .85: PAINT (x + 26, y - 3), 15, 14
1411. s = SIN(cnt1 / 1) * 20 + 30
1412. IF PLAY(0) = 0 AND s > 37 THEN SOUND s, .2
1413. RETURN
1414.  
1415. DBOSS2:
1416. c1 = 6: c2 = 14: IF hbos = 1 THEN c1 = 15
1417. s = SGN(dybos!)
1418. IF s > 0 THEN abos = abos + 2
1419. IF s = 0 THEN abos = abos + 15
1420. IF s < 0 THEN abos = abos + 30
1421. dy1 = SIN(abos / 100) * 5: dy2 = SIN(abos / 100) * 10
1422. LINE (x, y - 9)-(x + 20, y - 6 + dy1), c1
1423. LINE (x + 20, y - 6 + dy1)-(x + 32, y - 1 + dy2), c1
1424. LINE (x + 32, y - 1 + dy2)-(x + 32, y + 3 + dy2), c1
1425. LINE (x + 32, y + 3 + dy2)-(x, y + 7), c1
1426. LINE (x, y + 7)-(x - 32, y + 3 + dy2), c1
1427. LINE (x - 32, y + 3 + dy2)-(x - 32, y - 1 + dy2), c1
1428. LINE (x - 32, y - 1 + dy2)-(x - 20, y - 6 + dy1), c1
1429. LINE (x - 20, y - 6 + dy1)-(x, y - 9), c1
1430. PAINT (x, y), c1, c1
1431. yy! = y + 4: dy! = dy2 / 7
1432. FOR xx = 2 TO 32 STEP 4
1433. x1 = x + xx: x2 = x - xx
1434. LINE (x1, yy!)-(x1 + 1, yy! + 5), c1, B
1435. LINE (x2 - 1, yy!)-(x2, yy! + 5), c1, B
1436. yy! = yy! + dy!
1437. NEXT xx
1438. LINE (x, y - 9)-(x - 6, y - 3), c2
1439. LINE (x - 6, y - 3)-(x, y + 12), c2
1440. LINE (x, y + 12)-(x + 6, y - 3), c2
1441. LINE (x + 6, y - 3)-(x, y - 9), c2
1442. PAINT (x, y), c2, c2
1443. CIRCLE (x, y - 13), 4, c1, , , 1: PAINT (x, y - 13), c2, c1
1444. LINE (x, y + 11)-(x - 11, y + 23), c1
1445. LINE (x - 11, y + 23)-(x, y + 19), c1
1446. LINE (x, y + 19)-(x + 11, y + 23), c1
1447. LINE (x + 11, y + 23)-(x, y + 11), c1
1448. PAINT (x, y + 16), c2, c1
1449. LINE (x - 1, y - 11)-(x + 1, y - 11), c1
1450. PSET (x - 4, y - 17), c1
1451. PSET (x + 4, y - 17), c1
1452. LINE (x - 2, y - 14)-(x + 2, y - 14), c1
1453. LINE (x - 2, y - 11)-(x - 2, y - 10), 0
1454. LINE (x + 2, y - 11)-(x + 2, y - 10), 0
1455. RETURN
1456.  
1457. DBOSS3:
1458. c1 = 6: c2 = 14: IF hbos = 1 THEN c1 = 15: c2 = 15
1459. c3 = 4: abos = abos + 1: d = abos AND 63
1460. IF d < 4 THEN c3 = 15 - d / 2
1461. LINE (x, y - 6)-(x + 7, y - 7), c1
1462. LINE (x + 7, y - 7)-(x + 12, y - 10), c1
1463. LINE (x + 12, y - 10)-(x + 20, y - 7), c1
1464. LINE (x + 20, y - 7)-(x + 24, y + 1), c1
1465. LINE (x + 24, y + 1)-(x + 25, y + 9), c1
1466. LINE (x + 25, y + 9)-(x + 20, y + 16), c1
1467. LINE (x + 19, y + 16)-(x + 15, y + 7), c1
1468. LINE (x + 15, y + 7)-(x + 6, y + 2), c1
1469. LINE (x + 6, y + 2)-(x, y + 6), c1
1470. LINE (x, y - 6)-(x - 7, y - 7), c1
1471. LINE (x - 7, y - 7)-(x - 12, y - 10), c1
1472. LINE (x - 12, y - 10)-(x - 20, y - 7), c1
1473. LINE (x - 20, y - 7)-(x - 24, y + 1), c1
1474. LINE (x - 24, y + 1)-(x - 25, y + 9), c1
1475. LINE (x - 25, y + 9)-(x - 20, y + 16), c1
1476. LINE (x - 19, y + 16)-(x - 15, y + 7), c1
1477. LINE (x - 15, y + 7)-(x - 6, y + 2), c1
1478. LINE (x - 6, y + 2)-(x, y + 6), c1
1479.  
1480. LINE (x + 18, y + 11)-(x + 24, y + 9), c1
1481. PAINT (x + 20, y + 13), c2, c1
1482. LINE (x - 18, y + 11)-(x - 24, y + 9), c1
1483. PAINT (x - 20, y + 13), c2, c1
1484. PAINT (x, y), 2, c1
1485. LINE (x + 3, y)-(x + 5, y - 2), c3
1486. LINE (x - 3, y)-(x - 5, y - 2), c3
1487. LINE (x + 6, y + 2)-(x, y + 6), 4
1488. LINE (x - 6, y + 2)-(x, y + 6), 4
1489. RETURN
1490.  
1491. DBOSS4:
1492. c1 = 9: c2 = 11: c3 = 15: IF hbos = 1 THEN c1 = 15
1493. CIRCLE (x, y), 30, c1, 0, pi!, .85
1494. CIRCLE (x, y), 30, c1, pi!, pi! * 2, .1
1495. PAINT (x, y - 10), 0, c1
1496. abos = (abos + 1) AND 255
1497. FOR xx = x - 24 TO x + 24 STEP 5
1498. a1! = abos + xx + 1: r1! = SIN(a1! / 4.33)
1499. a2! = abos + xx + 2: r2! = SIN(a2! / 3.97)
1500. a3! = abos + xx + 3: r3! = SIN(a3! / 3.67)
1501. yy = y - 4 - r2!: f1 = 40 - ABS(xx - x): f2 = f1 / 5
1502. x1 = xx + f2 * r1!: x2 = xx + f2 * r2!: x3 = xx + f2 * r3!
1503. LINE (xx, yy)-(x1, yy + 16), c2
1504. LINE (x1, yy + 16)-(x2, yy + 30), c2
1505. LINE (x2, yy + 30)-(x3, yy + 30 + f2 * 2), c2
1506. NEXT xx
1507. CIRCLE (x, y), 30, c3, 0, pi!, .1
1508. RETURN
1509.  
1510. DBOSS5:
1511. c1 = 9: dy = 0: abos = abos + 1
1512. IF (abos AND 63) > 40 THEN dy = 1
1513. IF hbos = 1 THEN c1 = 15: dy = -2
1514. CIRCLE (x, y), 20, c1, , , .6
1515. PAINT (x, y), c1, c1
1516. LINE (x - 6, y - 12)-(x + 11, y - 24), c1
1517. LINE (x + 11, y - 24)-(x + 8, y - 14), c1
1518. LINE (x + 8, y - 14)-(x + 16, y - 8), c1
1519. PAINT (x + 3, y - 16), c1, c1
1520. LINE (x - 7, y + 12)-(x + 2, y + 20), c1
1521. LINE (x + 2, y + 20)-(x + 7, y + 12), c1
1522. PAINT (x, y + 16), c1, c1
1523. LINE (x + 18, y)-(x + 40, y - 12), c1
1524. LINE (x + 18, y)-(x + 40, y + 12), c1
1525. LINE (x + 40, y - 12)-(x + 36, y), c1
1526. LINE (x + 36, y)-(x + 40, y + 12), c1
1527. PAINT (x + 24, y), c1, c1
1528. CIRCLE (x - 7, y - 4), 5, 15, , , .9: PAINT (x - 7, y - 4), 15, 15
1529. CIRCLE (x - 7, y - 4 + dy), 2, 0, , , .9: PAINT (x - 7, y - 4 + dy), 0, 0
1530. RETURN
1531.  
1532. DBOSS6:
1533. a = ((abos MOD 7) - 3) * 12: abos = abos + 1
1534. c1 = 6: c2 = 14: c3 = 11: IF hbos = 1 THEN c1 = 15
1535. a! = a * pi! / 180: r = 20: s = 1
1536. FOR q = -2 TO 1
1537. s = SGN(q + .5): a! = -a!
1538. x1 = COS(a!) * r * s: y1 = SIN(a!) * r
1539. CIRCLE (x + x1, y - y1), 8, c3: PAINT (x + x1, y - y1), c3, c3
1540. x2 = COS(a! - .36) * r * s: y2 = SIN(a! - .36) * r
1541. LINE (x, y)-(x + x2, y - y2), c3
1542. x3 = COS(a! + .36) * r * s: y3 = SIN(a! + .36) * r
1543. LINE (x, y)-(x + x3, y - y3), c3
1544. PAINT (x + x1 * .4, y - y1 * .4), c3, c3
1545. NEXT q
1546. CIRCLE (x, y), 11, c1, , , 1.2: PAINT (x, y), c1, c1
1547. CIRCLE (x, y - 12), 8, c1, -pi! * 1.9, -pi! * 1.1, .8
1548. PAINT (x, y - 14), c1, c1
1549. CIRCLE (x - 5, y - 14), 4, 7, , , .8
1550. PAINT (x - 5, y - 14), A5$, 7
1551. CIRCLE (x + 5, y - 14), 4, 7, , , .8
1552. PAINT (x + 5, y - 14), A5$, 7
1553. LINE (x - 8, y - 3)-(x + 8, y - 1), c2, BF
1554. LINE (x - 7, y + 4)-(x + 7, y + 6), c2, BF
1555. c = cnt1 AND 127
1556. IF PLAY(0) = 0 AND SND = 1 AND c < 32 THEN SOUND 1600 + 200 * RND, .6
1557. RETURN
1558.  
1559. DBOSS7:
1560. c1 = 4: c2 = 12: abos = abos + 1: s = SGN(abos AND 16) * 10
1561. c3 = 4: IF hbos = 1 THEN c3 = 15
1562. IF stbos < 12 THEN c3 = 1
1563. c4 = csb(stbos / 16)
1564. CIRCLE (x - 32, y - 14), 4, 2, , , 1
1565. CIRCLE (x, y - 12), 20, 15
1566. CIRCLE (x + 32, y - 14), 4, 2, , , 1
1567. CIRCLE (x, y - 13), 7, 15, -pi! * 2, -pi!
1568. PAINT (x, y - 14), c4, 15
1569. PAINT (x - 32, y - 15), s, 2
1570. PAINT (x + 32, y - 15), 10 - s, 2
1571. LINE (x - 50, y - 10)-(x + 50, y - 10), c1
1572. LINE (x - 25, y + 10)-(x + 25, y + 10), c1
1573. LINE (x - 50, y - 10)-(x - 80, y), c1
1574. LINE (x - 80, y)-(x - 80, y + 4), c1
1575. LINE (x - 80, y + 4)-(x - 25, y + 10), c1
1576. LINE (x + 50, y - 10)-(x + 80, y), c1
1577. LINE (x + 80, y)-(x + 80, y + 4), c1
1578. LINE (x + 80, y + 4)-(x + 25, y + 10), c1
1579. PAINT (x, y), c1, c1
1580. PAINT (x - 40, y), c1, c1: PAINT (x + 40, y), c1, c1
1581. LINE (x - 40, y - 13)-(x - 43, y - 11), c1
1582. LINE (x - 40, y - 13)-(x + 40, y - 13), c1
1583. LINE (x + 40, y - 13)-(x + 43, y - 11), c1
1584. PAINT (x, y - 12), c2, c1
1585. LINE (x - 80, y - 1)-(x + 80, y + 3), 14, BF
1586. xx = x - 88 + (abos MOD 24)
1587. FOR q = 1 TO 7
1588. LINE (xx, y - 1)-(xx + 11, y + 3), 0, BF
1589. xx = xx + 24
1590. NEXT q
1591. LINE (x - 80, y + 4)-(x - 25, y + 10), c3
1592. LINE (x - 25, y + 10)-(x + 25, y + 10), c3
1593. LINE (x + 80, y + 4)-(x + 25, y + 10), c3
1594. RETURN
1595.  
1596. REM  - - - - - - - - - - - - - - - - - - - - - - - - - - -
1597.  
1598. DSTG1:
1599. a1! = pi! - .7
1600. FOR n = 1 TO 21
1601. r1 = 400 + 20 * RND
1602. x1 = COS(a1!) * r1 + 300: y1 = 450 - SIN(a1!) * r1
1603. FOR m = 1 TO 20
1604.  a2! = pi! * 2 * RND
1605.  r = 36 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r
1606.  PSET (x2, y2), 1
1607.  r = 28 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r
1608.  PSET (x2, y2), 9
1609.  r = 16 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r
1610.  PSET (x2, y2), 11
1611.  r = 12 * RND: x2 = x1 + COS(a2!) * r: y2 = y1 + SIN(a2!) * r
1612.  PSET (x2, y2), 15
1613. NEXT m
1614. a1! = a1! - .05
1615. NEXT n
1616. RETURN
1617.  
1618. DSTG2:
1619. c1 = 11: c2 = 9: c3 = 1
1620. FOR n = 1 TO 32
1621. x = 320 * RND: y = 200 * RND
1622. c = 12 + INT(4 * RND): IF c = 13 THEN c = 4
1623. PSET (x, y), c
1624. NEXT n
1625. x = 169: y = 109
1626. CIRCLE (x, y), 36, 9, , , 1
1627. CIRCLE (x, y), 37, 1, , , .94
1628. CIRCLE (x - 19, y - 16), 18, c1, pi2! * 3, pi2! * 4
1629. CIRCLE (x + 19, y - 16), 18, c1, pi2! * 2, pi2! * 3
1630. CIRCLE (x - 19, y + 16), 18, c1, pi2! * 0, pi2! * 1
1631. CIRCLE (x + 19, y + 16), 18, c1, pi2! * 1, pi2! * 2
1632. LINE (x, y - 17)-(x, y - 50), c1
1633. LINE (x, y + 17)-(x, y + 42), c1
1634. LINE (x - 20, y)-(x - 48, y), c1
1635. LINE (x + 20, y)-(x + 44, y), c1
1636. LINE (x, y - 40)-(x, y - 50), c2
1637. LINE (x, y + 40)-(x, y + 45), c2
1638. LINE (x - 34, y)-(x - 48, y), c2
1639. LINE (x + 34, y)-(x + 44, y), c2
1640. LINE (x, y - 50)-(x, y - 54), c3
1641. LINE (x, y + 45)-(x, y + 50), c3
1642. LINE (x - 48, y)-(x - 52, y), c3
1643. LINE (x + 44, y)-(x + 48, y), c3
1644. PAINT (x, y), 15, c1
1645. RETURN
1646.  
1647. DSTG3:
1648. x = xs!: y = ys!: r1 = rs!: rsmax! = 30
1649. c1 = 4: c2 = 14: c3 = 4: a2! = 0
1650.  
1651. a2! = a2! + .03
1652. r2 = 0: n = 0: a! = 0
1653. FOR a! = 0 TO pi! * 2 STEP .2
1654.  x0 = x1: y0 = y1
1655.  f = (r1 / 6) * RND: a1! = a! + .1 * RND
1656.  r = r1 + r2 * f: r2 = 1 - r2
1657.  x1 = SIN(a1! + a2!) * r + x: y1 = COS(a1! + a2!) * r + y
1658.  IF n = 0 THEN x2 = x1: y2 = y1
1659.  IF n > 0 THEN LINE (x0, y0)-(x1, y1), c1
1660.  n = n + 1
1661. NEXT a!
1662. LINE (x1, y1)-(x2, y2), c1
1663. PAINT (x, y), c2, c1
1664. CIRCLE (x, y), r1 - 2, c3, , , 1
1665. PAINT (x, y), 0, c3
1666. RETURN
1667.  
1668.  
1669. DSTG4:
1670. x = xs!: y = ys!: r1 = rs!: rsmax! = 60
1671. c1 = 1: c2 = 9: c3 = 11: c4 = 11
1672.  
1673. CIRCLE (x, y), r1, c1
1674. CIRCLE (x, y), r1, c2, pi2! * 3, pi2!
1675.  
1676. CIRCLE (x, y), r1 * .84, c1, pi2!, pi2! * 3, 3
1677. PAINT (x - r1 * .5, y), c1, c1
1678. CIRCLE (x, y), r1 * .84, c2, pi2!, pi2! * 3, 3
1679. PAINT (x + r1 * .5, y), c2, c2
1680.  
1681. x1 = x - r1 * .36: y1 = y - r1 * .16
1682. CIRCLE (x1, y1), r1 * .16, c2, , , .7: PAINT (x1, y1), c2, c2
1683. x1 = x - r1 * .8: y1 = y - r1 * .05
1684. CIRCLE (x1, y1), r1 * .16, c2, , , 1.8: PAINT (x1, y1), c2, c2
1685. x1 = x - r1 * .6: y1 = y + r1 * .05
1686. CIRCLE (x1, y1), r1 * .2, c2, , , 1: PAINT (x1, y1), c2, c2
1687. x1 = x - r1 * .3: y1 = y + r1 * .1
1688. CIRCLE (x1, y1), r1 * .3, c2: PAINT (x1, y1), c2, c2
1689. x1 = x - r1 * .3: y1 = y + r1 * .1
1690. CIRCLE (x1, y1), r1 * .3, c3, -pi2! * 3.1, -pi2! * .95
1691. PAINT (x1 + r1 * .1, y1), c3, c3
1692.  
1693. x1 = x + r1 * .24: y1 = y - r1 * .5
1694. CIRCLE (x1, y1), r1 * .16, c3, , , .8: PAINT (x1, y1), c3, c3
1695. x1 = x + r1 * .33: y1 = y - r1 * .3
1696. CIRCLE (x1, y1), r1 * .2, c3, , , .9: PAINT (x1, y1), c3, c3
1697. x1 = x + r1 * .46: y1 = y - r1 * .46
1698. CIRCLE (x1, y1), r1 * .14, c3, , , .9: PAINT (x1, y1), c3, c3
1699.  
1700. x1 = x + r1 * .02: y1 = y + r1 * .75
1701. CIRCLE (x1, y1), r1 * .12, c3, , , .4: PAINT (x1, y1), c3, c3
1702. x1 = x + r1 * .07: y1 = y + r1 * .67
1703. CIRCLE (x1, y1), r1 * .15, c3, , , .4: PAINT (x1, y1), c3, c3
1704. x1 = x + r1 * .2: y1 = y + r1 * .6
1705. CIRCLE (x1, y1), r1 * .15, c3, , , .66: PAINT (x1, y1), c3, c3
1706.  
1707. x1 = x + r1 * .9: y1 = y + r1 * .02
1708. CIRCLE (x1, y1), r1 * .14, c3, , , 3: PAINT (x1, y1), c3, c3
1709. x1 = x + r1 * .7: y1 = y + r1 * .13
1710. CIRCLE (x1, y1), r1 * .17, c3, , , 1.2: PAINT (x1, y1), c3, c3
1711.  
1712. x1 = x - r1 * .01: y1 = y - r1 * .8
1713. CIRCLE (x1, y1), r1 * .12, c3, -pi2! * 2.5, -pi2! * 1.3, .2: PAINT (x1 + r1 * .06, y1), c3, c3
1714. x1 = x - r1 * .08: y1 = y - r1 * .8
1715. CIRCLE (x1, y1), r1 * .12, c2, -pi2! * 1, -pi2! * 2.8, .2
1716. PAINT (x1 - r1 * .04, y1), c2, c2
1717.  
1718. CIRCLE (x, y), r1, c4, pi2! * .28, pi2! * .7
1719. RETURN
1720.  
1721.  
1722. DSTG5:
1723. x = xs!: y = ys!: r1 = rs!: rsmax! = 50
1724. c1 = 6: c2 = 4: c3 = 12: c4 = 4
1725. a1! = pi2! * 2: a2! = pi2! * 4: f! = .2
1726. CIRCLE (x, y), r1, c2
1727. PAINT (x, y), c1, c2
1728. CIRCLE (x, y - r1 * .8), r1 * .2, c2, a1!, a2!, f!
1729. CIRCLE (x, y - r1 * .7), r1 * .5, c2, a1!, a2!, f!
1730. CIRCLE (x, y - r1 * .56), r1 * .74, c2, a1!, a2!, f!
1731. CIRCLE (x, y - r1 * .4), r1 * .89, c2, a1!, a2!, f!
1732. CIRCLE (x, y - r1 * .32), r1 * .93, c2, a1!, a2!, f!
1733. CIRCLE (x, y - r1 * .16), r1 * .98, c2, a1!, a2!, f!
1734. CIRCLE (x, y + r1 * .06), r1 * 1, c2, a1!, a2!, f!
1735. CIRCLE (x, y + r1 * .29), r1 * .94, c2, a1!, a2!, f!
1736. CIRCLE (x, y + r1 * .42), r1 * .87, c2, a1!, a2!, f!
1737. CIRCLE (x, y + r1 * .6), r1 * .69, c2, a1!, a2!, f!
1738. PAINT (x, y - r1 * .16), c2, c2
1739. PAINT (x, y + r1 * .38), c2, c2
1740. PAINT (x, y + r1 * .78), c2, c2
1741. CIRCLE (x, y), r1, c3, pi2! * .2, pi2! * 1.4
1742. a1! = pi2! * 1.5: a2! = pi2! * .5
1743. CIRCLE (x, y + r1 * .04), r1 * 1.6, c4, pi2! * 1.42, pi2! * .58, f!
1744. CIRCLE (x, y + r1 * .04), r1 * 1.76, c1, pi2! * 1.36, pi2! * .64, f!
1745. CIRCLE (x, y + r1 * .04), r1 * 1.8, c4, pi2! * 1.36, pi2! * .64, f!
1746. RETURN
1747.  
1748.  
1749. DSTG6:
1750. x = xs!: y = ys!: r1 = rs!: rsmax! = 60
1751. c1 = 8: c2 = 7: c3 = 15: c4 = 8
1752. a1! = -pi2! * 1.1: a2! = -pi2! * 3 * .9
1753.  
1754. CIRCLE (x, y), r1, c1
1755. CIRCLE (x, y), r1, c2, pi2!, pi2! * 3
1756.  
1757. CIRCLE (x, y), r1 * .84, c2, pi2! * 3, pi2!, 1.6
1758. PAINT (x - r1 * .5, y), c2, c2
1759. CIRCLE (x, y), r1 * .84, c1, pi2! * 3, pi2!, 1.6
1760. PAINT (x + r1 * .8, y), c1, c1
1761.  
1762. x1 = x - r1 * .25: y1 = y - r1 * .2
1763. CIRCLE (x1, y1), r1 * .24, c1: PAINT (x1, y1), c1, c1
1764. CIRCLE (x1, y1), r1 * .24, c3, a1!, a2!: PAINT (x1 - r1 * .05, y1), c3, c3
1765. CIRCLE (x1 - r1 * .02, y1), r1 * .18, c2: PAINT (x1, y1), c2, c2
1766. x1 = x - r1 * .8: y1 = y - r1 * .04
1767. CIRCLE (x1, y1), r1 * .13, c1, , , 1.6: PAINT (x1, y1), c1, c1
1768. CIRCLE (x1, y1), r1 * .13, c3, a1!, a2!, 1.6: PAINT (x1 - r1 * .05, y1), c3, c3
1769. CIRCLE (x1 - r1 * .01, y1), r1 * .08, c2, , , 1.6: PAINT (x1, y1), c2, c2
1770. x1 = x - r1 * .5: y1 = y + r1 * .3
1771. CIRCLE (x1, y1), r1 * .1, c1, , , 1: PAINT (x1, y1), c1, c1
1772. CIRCLE (x1, y1), r1 * .1, c3, -a1!, -a2!, 1
1773.  
1774. x1 = x + r1 * .14: y1 = y - r1 * .55
1775. CIRCLE (x1, y1), r1 * .13, c1, , , .66: PAINT (x1, y1), c1, c1
1776. x1 = x + r1 * .3: y1 = y + r1 * .1
1777. CIRCLE (x1, y1), r1 * .2, c1, , , .9: PAINT (x1, y1), c1, c1
1778. x1 = x + r1 * .02: y1 = y + r1 * .75
1779. CIRCLE (x1, y1), r1 * .12, c1, , , .4: PAINT (x1, y1), c1, c1
1780. x1 = x - r1 * .07: y1 = y + r1 * .5
1781. CIRCLE (x1, y1), r1 * .15, c1, , , .8: PAINT (x1, y1), c1, c1
1782. x1 = x - r1 * .01: y1 = y - r1 * .8
1783. CIRCLE (x1, y1), r1 * .12, c1, , , .2: PAINT (x1 + r1 * .06, y1), c1, c1
1784. CIRCLE (x1, y1), r1 * .12, c3, -a1!, -a2!, .2
1785.  
1786. x1 = x + r1 * .9: y1 = y + r1 * .05
1787. CIRCLE (x1, y1), r1 * .1, c4, , , 3: PAINT (x1, y1), c4, c4
1788. CIRCLE (x1, y1), r1 * .1, c2, -a1!, -a2!, 3
1789. CIRCLE (x1 + r1 * .02, y1), r1 * .1, c2, -a1!, -a2!, 3
1790. x1 = x + r1 * .7: y1 = y + r1 * .2
1791. CIRCLE (x1, y1), r1 * .15, c4, , , 1.5: PAINT (x1, y1), c4, c4
1792. CIRCLE (x1, y1), r1 * .15, c2, -a1!, -a2!, 1.5
1793. CIRCLE (x1 + r1 * .02, y1), r1 * .15, c2, -a1!, -a2!, 1.5
1794. x1 = x + r1 * .62: y1 = y - r1 * .35
1795. CIRCLE (x1, y1), r1 * .05, c4, , , 1.2: PAINT (x1, y1), c4, c4
1796. CIRCLE (x1, y1), r1 * .05, c2, -a1!, -a2!, 1.2
1797. CIRCLE (x1 + r1 * .02, y1), r1 * .05, c2, -a1!, -a2!, 1.2
1798. RETURN
1799.  
1800. DSTG7:
1801. c1 = 1: c2 = 9: c3 = 11: c4 = 15: c5 = 2: c6 = 10
1802. FOR n = 1 TO 32
1803. x = 320 * RND: y = 200 * RND: c = 7 + INT(2 * RND) * 8
1804. PSET (x, y), c
1805. NEXT n
1806. x = -20: y = 330: r1 = 300
1807. CIRCLE (x, y), r1, c1: PAINT (0, 199), c1, c1
1808. CIRCLE (x, y), r1 * .985, c2: PAINT (0, 199), c2, c2
1809. CIRCLE (x, y), r1 * .97, c3: PAINT (0, 199), c3, c3
1810. CIRCLE (x, y), r1 * .955, c4: PAINT (0, 199), c4, c4
1811. CIRCLE (x, y), r1 * .94, c3: PAINT (0, 199), c3, c3
1812. CIRCLE (x, y), r1 * .925, c2: PAINT (0, 199), c2, c2
1813. CIRCLE (x, y), r1 * .91, c1: PAINT (0, 199), c1, c1
1814. y1 = 0
1815. RESTORE EARTH
1816. DO
1817. x0 = x1: y0 = y1: READ x1, y1
1818. IF y0 > 0 AND y1 > 0 THEN LINE (x0, y0)-(x1, y1), c5
1819. LOOP UNTIL x1 = -1 AND y1 = -1
1820. PAINT (0, 199), c6, c5
1821. PAINT (130, 199), c6, c5
1822. RETURN
1823.  
1824. EARTH:
1825. DATA 0,119, 24,121, 40,124, 70,134, 69,138, 62,140, 79,148, 73,148, 84,155
1826. DATA 82,154, 86,157, 88,162, 80,161, 70,158, 73,164, 88,172, 70,182
1827. DATA 52,180, 48,183, 52,187, 51,193, 46,193, 62,199, 0,0
1828. DATA 108,199, 114,186, 124,177, 123,172, 131,172, 138,185, 144,186, 147,192
1829. DATA 154,194, 161,195, 165,199
1830. DATA -1,-1
1831.  
1832. REM  - - - - - - - - - - - - - - - - - - - - - - - - - - -
1833.  
1834. LOAD.SPRITES:
1835. ENEMY$(1, 0) = "br5h8d4g4f4d4e8bl5"
1836. ENEMY$(1, 1) = "br4h5d3g2f2d3e5bl4"
1837. ENEMY$(1, 2) = "br6h5l2d10r2e5bl2"
1838. ENEMY$(1, 3) = "bl1h7d5g2f2d5e7bl3"
1839. ENEMY$(2, 0) = "br4e2h8g6f4g4f6e8h2bl4"
1840. ENEMY$(2, 1) = "bl4e4f4g4h4br4"
1841. ENEMY$(3, 0) = "e7l14f3d8g3r14h7bl1"
1842. ENEMY$(3, 1) = "br6bu5l10bd10r10"
1843. ENEMY$(4, 0) = "bu3br5d6g6l6e6u6h6r6f6bd3bl3"
1844. ENEMY$(4, 1) = "bl5d3g5r4e5u6h5l4f5d3br2"
1845. ENEMY$(5, 0) = "br3f3g3h3g5h3e5h5e3f5e3f3g3bl2"
1846. ENEMY$(5, 1) = "br2e3d6h3br1"
1847. ENEMY$(6, 0) = "g9l5e3u3e3h3u3h3r5f9bl4"
1848. ENEMY$(6, 1) = "bl7e2r8f2g2l8h2br7"
1849. ENEMY$(7, 0) = "h5l5f5g5r5e5bl3"
1850. ENEMY$(7, 1) = "bl4u2r16f1r4f1g1l4g1l16u2l3br8"
1851. ENEMY$(8, 0) = "bu4br7d8g4l6h5u8e4r6 f5"
1852. ENEMY$(8, 1) = "bl1bd1g5l8e5r8bl7bd3"
1853. ENEMY$(9, 0) = "bd5br6g2l4h5u7e4r2 l1"
1854. ENEMY$(9, 1) = "bd10bl4e3r5g4l4u1br3bu2"
1855. ENEMY$(10, 0) = "br7g9l3h3u3e3h3u3e3r3f9bl7"
1856. ENEMY$(10, 1) = "br7g3l6h3e3r6f3bl8"
1857. ENEMY$(10, 2) = "br6g4l10h2u4e2r10f4bl6"
1858. ENEMY$(10, 3) = "br7g3l6h3e3r6f3bl7"
1859. ENEMY$(11, 0) = "br7g9l3h3u3e3h3u3e3r3f9bl7"
1860. ENEMY$(11, 1) = "br7g3l6h3e3r6f3bl8"
1861. ENEMY$(11, 2) = "br6g4l10h2u4e2r10f4bl6"
1862. ENEMY$(11, 3) = "br7g3l6h3e3r6f3bl7"
1863.  
1864. CRASH$(1) = "br4bu4h8d8g8r8f8u8e8l8bd4"
1865. CRASH$(2) = "br4f4l4d4h4g4u4l4e4h4r4u4f4e4d4r4g4bl4"
1866. CRASH$(3) = "br4d8h4l8e4u8f4r8g4bl4"
1867.  
1868. SHOT$(1) = "bl2bu2r2d4r2"
1869. SHOT$(2) = "bl2bu2r4d4l4u4"
1870. RETURN
1871.  
1872. LOAD.CHARSET:
1873. CH$(0) = "br1r3f2d4g1l3h2u4e1"
1874. CH$(1) = "br3ng1d7nl2r2"
1875. CH$(2) = "bd2u1e1r3f1d1g2l1g2d1r5"
1876. CH$(3) = "r5g3r2f1d2g1l3h1"
1877. CH$(4) = "br4bd7u7g4d1r5"
1878. CH$(5) = "br5l5d2r4f1d3g1l3h1"
1879. CH$(6) = "br5l2g3d2f2r3e1u1h2l3g1"
1880. CH$(7) = "r5d1g3d3"
1881. CH$(8) = "br2r2f1d1g1l3g1d2f1r4e1u1h2l2h2e1r1"
1882. CH$(9) = "bd7br1r2e3u2h2l3g1d1f2r3e1"
1883. CH$(17) = "bd7u3nr5u2e2r1f2d5"
1884. CH$(18) = "nd7r3f1d1g1bl3r4f1d2g1l4"
1885. CH$(19) = "br4l2g2d4f1r3e1"
1886. CH$(20) = "bd7u7r4f1d4g2l3"
1887. CH$(21) = "nr4d3nr3d3f1r4"
1888. CH$(22) = "br5l4g1d2nr3d4"
1889. CH$(23) = "br4l2g2d4f1r3e1u3l2"
1890. CH$(24) = "d7bu4r5bu3d7"
1891. CH$(25) = "br2r2bl1d7bl1r2"
1892. CH$(26) = "br1r4d5g2l2u1"
1893. CH$(27) = "d7bu4r1ne3nf4"
1894. CH$(28) = "d7r5"
1895. CH$(29) = "bd7u6e1f2e2f1d6"
1896. CH$(30) = "bd7u7f5nd2u5"
1897. CH$(31) = "br2r2f1d4g2l2h1u4e2"
1898. CH$(32) = "bd7u7r4f1d2g1l4"
1899. CH$(33) = "br1r2f2d4nh2nf1g1l2h2u4e1"
1900. CH$(34) = "bd7u7r4f1d1g1l4br1f4"
1901. CH$(35) = "br5l3g2f1r3f1d2g1l5"
1902. CH$(36) = "r6bl3d7"
1903. CH$(37) = "d5f2r3e1u6"
1904. CH$(38) = "d6f1e4u3"
1905. CH$(39) = "d6f1e2nu2f2e1u6"
1906. CH$(40) = "r1f2d3f2r1bl6r1e2bu3e2r1"
1907. CH$(41) = "d2f3nd2e3u2"
1908. CH$(42) = "r6d1g6r6"
1909. RETURN
1910.  
1911. LOAD.SOUNDS:
1912. REM 2,7,10,13,15,19,22,25,27,31,34,39,43,46,58
1913. SLASER1$ = "MBT255l64n58n57n56n55n54"
1914. SLASER2$ = "MBT255l48n58n56n54n52n58n56n54n52"
1915. SSHOOT1$ = "MBT255l64n63n61n58n55n58"
1916. SSHOOT2$ = "MBT255l64n61n58n55"
1917. SSHOOT3$ = "MBT255l48n7n10n7"
1918. SETYPE1$ = "MBT255l32n39n34n31n27n25n22n19n15n13n10n7n2"
1919. SETYPE2$ = "MBT255l40n60n59n58n57n19n13n10n7n2n7n5n1n3n1n2n1"
1920. SETYPE3$ = "MBT255l32n36n24n1n17n2n19n0n11n1n15n3n17n2n9n1n6n2n4n1n3n1"
1921. SETYPE4$ = "MBT255l64n50n48n45n41n36n50n47n43n37n33n26n19n12n1n9n1n7n1n5n1n3n1"
1922. SETYPE6$ = "MBT255l40n39n31n25n19n13n7n2n7n10n7n13n15n19n15n22n25n27n25n31n34n39n34n43n46"
1923. SETYPE8$ = "MBT255l32n2n7n10n13n15n19n22n25n27n31n34n39n43n46n58"
1924. SETYPE9$ = "MBT255l40n58n46n43n39n34n31n27n25n22n19n15n13"
1925. SETYPE10$ = "MBT255l32n56n55n53n50n45n43n41n40n41n43n45n50n53n55n56"
1926. SETYPE11$ = "MBT255l64n70n69n68n67n66n65n64n63n62n61n60"
1927. SCRASH8$ = "MBT255l64n58n25n19n13n10n7n2n7n5n1n3n1n2n1"
1928. SCRASH9$ = "MBT255l32n30n1n23n2n19n3n14n2n15n1n11n1n7n1n4n1n5n1n3n1n2n1n0n1n3n1n2n1"
1929. SNEW1$ = "MBT255l24n58n57n58n53n57n58"
1930. SNEWPL1$ = "MBT255l3n25n32"
1931. SNEWPL2$ = "MBT255l8n25n32"
1932. SDOCK2$ = "MBT255l32n15n17n15n17n20n25n29n32n37"
1933. SRGTON$ = "MBT80l24n27n0l24n27n29n34n31n34n31l12n29l24n29n32l6n36l24n38n34n31n38n34n31n38n34l12n39l24n38l8n39"
1934. SLAUNCH$ = "MBT96l64n27l8n22l16n22l4n27n34l16n0n22MLl4n27n34MSl24n39n0n0l32n39n0l48n39n0l64n39n0n39n0l32n39n0n39n0l48n39n0n39n0l24n51MN"
1935. SFAROUT1$ = "MBT80l8n22l12n22l8n26l12n26l8n29l12n29l8n34l12n34l8n22l12n22l8n26l12n26l8n29l12n29l8n34l12n34"
1936. SFAROUT2$ = "MBT80l64n17l8n22l12n22l64n17l8n26l12n26l64n17l8n29l12n29l64n17l8n34l12n34"
1937. SEND$ = "MBT96l6n22l16n27l2n25l16n27l8n25n27n29l16n25n27l48n25n27l12n29l32n27n29n27n29l4n34"
1938. SBONPLAY$ = "MBT64l64n15n22n19n22n19n22n27l32n34"
1939. SHITBOS1$ = "MBT255l64n63n62n61n60n50n40n30n20n13n10n8n7n5n4n3n2n1n1n1"
1940. SBOSPTS$ = "MBT255l64n46n45n44n43n42n41n40n39n38n37n36n35n34"
1941. SSTAGE1$ = "MBMST64l32n40n0n40n40n0n40n40n40n40n0n40n40n0n40n0n40n0n40n40n40n0n40n0MN"
1942. SSTAGE2$ = "MBT255l32n19n22n25n27n31n34n39n43n46"
1943.  
1944. SFINAL$(1, 1) = "MBMNT64l4n25l24n18n18l4n25l24n18n18l24n25n0n30n0l4n25"
1945. SFINAL$(1, 2) = "MBMNT64l24n18n18l24n25n0n30n0l3n32"
1946. SFINAL$(1, 3) = "MBMNT64l24n23n23l24n28n0n30n0l8n32l24n34l4n35"
1947. SFINAL$(1, 4) = "MBMNT64l6n37l6n34l8n30n28n32n35"
1948. SFINAL$(1, 5) = "MBMLT64l8n39l6n37l6n34l8n30n28n32n35n39l6n42"
1949. SFINAL$(1, 6) = "MBMLT64l64n37n42n49n37n42n49n37n42n49n37n42n49n37n42n49n37n42n49l16n42"
1950. SFINAL$(1, 7) = "MBMLT64"
1951. SFINAL$(2, 1) = "MBMNT64l6n13n15n18n20n25l24n23n22l12n20l6n23l24n22n20l12n18n22n18l6n20"
1952. SFINAL$(2, 2) = "MBMLT64l64n25n30n37MNl16n0l24n13n13n18n0n18n18n20n0n20n20n25n0n25n25n23n22n20n0"
1953. SFINAL$(2, 3) = "MBMNT64l24n23n0n23n23n22n20n18n0l12n22l24n23n0n18n0n22n0l4n20"
1954. SFINAL$(2, 4) = "MBMNT64l16n8n8n8n0n8n0n8n0n8n8n8n0n8n0"
1955. SFINAL$(2, 5) = "MBMNT48l64n20l4n32MLl12n32n30n29n27n25l4n30l24n32n34l4n32"
1956. SFINAL$(2, 6) = "MBMNT48l12n8l4n32MLl12n32n30n29n27T64n25l4n35l24n37n39"
1957. SFINAL$(2, 7) = "MBMLT64l64n25n37n25n37n25n37n25n37n25n37n25n37n25n37n25n37l8n37"
1958. RETURN
1959.  
1960. CREDITS:
1961. DATA " ", " ", " "
1962. DATA "   YOU SAVED", "   THE GALAXY", " ", " ", " ", " "
1963. DATA " CONGRATULATIONS", " ", "  THE MISSION", "IS ACCOMPLISHED"
1964. DATA " ", "THE ALIENS HAVE", "     LEFT", " AND THE EARTH"
1965. DATA "  IS NOW FREE", " ", "YOU HAVE BROUGHT", " BACK PEACE TO"
1966. DATA "   OUR GALAXY", " ", "WE WILL THANK", " YOU FOREVER"
1967. DATA " ", "    THE FORCE", "WILL BE WITH YOU", "     ALWAYS"
1968. DATA " ", " ", " ", " ", "     THE END"
1969.  
1970.  
1971. TITLE.HELP:
1972. RESTORE THELP.TEXT
1973. SCREEN 7, 0, 2, 2: tcnt = 0: tpos = 0: sss = 0
1974. CLS : COLOR 15, 1
1975.  
1976. THELP.MAIN:
1977. k = INP(96): k$ = INKEY$: da = 0
1978. IF k = 1 THEN COLOR 15, 0: SCREEN 7, 0, scr, scr: GOTO WAITKEY0
1979. WAIT &H3DA, 8: WAIT &H3DA, 8, 8
1980. IF tcnt < 22 THEN GOSUB THELP.SOFT
1981. IF k = 80 OR k = 77 OR tcnt < 22 THEN GOSUB THELP.SCROLL
1982. IF k = 72 THEN RESTORE THELP.TEXT: CLS : tcnt = 0: tpos = 0: sss = 0
1983. GOTO THELP.MAIN
1984.  
1985. THELP.SOFT:
1986. a = 16024 + (tpos) * 80
1987. OUT &H3D4, 12: OUT &H3D5, INT(a / 256)
1988. OUT &H3D4, 13: OUT &H3D5, a AND 255
1989. RETURN
1990.  
1991. THELP.SCROLL:
1992. tpos = (tpos + 1) AND 3
1993. IF tpos <> 2 OR sss > 0 THEN RETURN
1994. LOCATE 24, 1: READ T$: PRINT T$: tcnt = tcnt + 1
1995. IF T$ = "XXX" THEN sss = 1
1996. IF SND = 1 THEN SOUND 600, .2
1997. RETURN
1998.  
1999. THELP.TEXT:
2000. DATA "- INCOMING MESSAGE -"
2001. DATA ""
2002. DATA "                        16.Dec. 2011"
2003. DATA ""
2004. DATA "THE UNITED EARTH ADMINISTRATION"
2005. DATA "- - - - - - - - - - - - - - - -"
2006. DATA ""
2007. DATA ""
2008. DATA "ALIENS HAVE INVADED TO OUR GALAXY."
2009. DATA "THEY BUILD BASES TO NEARBY STARS "
2010. DATA "IN RANGE OF SEVERAL LIGHT YEARS."
2011. DATA "BEFORE WE COULD START ANY COUNTER"
2012. DATA "MEASURES TO PROTECT OURSELF,"
2013. DATA "THEY NOTICED OUR TELEMITRY SIGNALS,"
2014. DATA "SENT BETWEEN THE EARTH AND OUR"
2015. DATA "SATELLITES "
2016. DATA ""
2017. DATA "THEY REACHED OUR SOLAY SYSTEM AND"
2018. DATA "INSTANTLY OCCUPIED ONE PLANET"
2019. DATA "AFTER ANOTHER, STARTING WITH PLUTO"
2020. DATA "OVER TO NEPTUN, SATURN, JUPITER AND"
2021. DATA "FINALLY THE EARTH MOON, WHERE THEY  >>"
2022. DATA "LOCATED THEIR GIANT NEXUS MOTHERSHIP"
2023. DATA ""
2024. DATA "WITH DESTROYING OUR SPACE STATION"
2025. DATA "AND SEVERAL ORBIT SHUTTLES, COSTING"
2026. DATA "OVER 10.000 HUMAN LIFES, THEYïVE"
2027. DATA "DEMONSTRATED THEIR EXTREMELY AGRESSIVE
2028. DATA "INTENTIONS"
2029. DATA ""
2030. DATA "ITS ASSUMED FOR CLEAR THAT THE"
2031. DATA "MOTHERSHIP PREPARES FOR THE FINAL"
2032. DATA "ATTACK ON THE EARTH"
2033. DATA "AND IF THIS HAPPENS MANKIND CAN KISS"
2034. DATA "THE DAYïS GOODBYE, THATS FOR SURE"
2035. DATA ""
2036. DATA "GOD, WE NEED SOMEONE WHO BLOWS THESE"
2037. DATA "BASTARDS TO PIECES !"
2038. DATA "WE NEED TO DESTROY ALL THEIR HOMEBASES"
2039. DATA "TO BREAK UP THEIR SUPPLY LINE,"
2040. DATA "STARTING AT THE VEGA CONSTELLATION"
2041. DATA "37 LIGHTYEARS AWAY"
2042. DATA ""
2043. DATA ">> So, fine, but what has all this"
2044. DATA "to do with me ? << YOU ASK
2045. DATA ""
2046. DATA "CAUSE ALL OUR ASTRONAUTS HAVE SUDDENLY"
2047. DATA "GONE ON VACATION 3 DAYS AGO,"
2048. DATA "WE ENGAGED YOU. YOUïRE OUR LAST HOPE !"
2049. DATA ""
2050. DATA "ALTHOUGH YOURE NO ASTRONAUT, NOT EVEN
2051. DATA "A PILOT, THAT DOESNïT REALLY MATTER."
2052. DATA ""
2053. DATA "WEïVE SIMPLIFIED THE SHIPïS CONTROLS SO"
2054. DATA "THAT EVEN AN AVERAGE CLEVER SPACE-COW"
2055. DATA "CAN FLY IT"
2056. DATA "LOOK, ITS REALLY EASY:"
2057. DATA "","",""
2058. DATA "- - - - - - - - - - - - - - - - - - -"
2059. DATA "Lunar Module Control Keys"
2060. DATA "","",""
2061. DATA "Arrow Left / Num 4    = Move Left "
2062. DATA "Arrow Left / Num 6    = Move Right"
2063. DATA "Left Strg             = Fire / Thrust"
2064. DATA "S                     = Sound On/Off"
2065. DATA "P                     = Pause"
2066. DATA "
2067. DATA "Hint:"
2068. DATA "Use the Num-Keys for better control"
2069. DATA "","",""
2070. DATA "Bonus Ship given every 20000 Pts"
2071. DATA "Successful Docking increases Firepower"
2072. DATA "Hitpoints increase every Stage"
2073. DATA ""
2074. DATA "- - - - - - - - - - - - - - - - - - -"
2075. DATA "","","",""
2076. DATA "YOU ARE SUPPLIED WITH 3 SEPERATE LUNAR"
2077. DATA "MODULES, OUTFITTET WITH A STAR-DRIVE"
2078. DATA "AND HIGH-VOLTAGE PLASMA LAUNCHERS"
2079. DATA ""
2080. DATA "THE MODULES CAN BE FLOWN SEPERATLY OR"
2081. DATA "CONNECTED, WHICH GIVES AN EXTRA
2082. DATA "FIRE-POWER."
2083. DATA "HOWEVER, TO SAVE MODULES, THEY ARE"
2084. DATA "DISCONNECTED AUTOMATICALLY WHEN POSSIBLE"
2085. DATA "OR WHEN ONE OF THEM GETS DESTROYED."
2086. DATA ""
2087. DATA "IF THIS HAPPENS, YOU SHOULD BE EJECTED"
2088. DATA "AND WHEN YOUïVE BEEN EJECTED, YOU
2089. DATA "SHOULD ENTER THE NEXT INTACT SECTION"
2090. DATA "AUTOMATICALLY."
2091. DATA ""
2092. DATA "- Why SHOULD ?
2093. DATA ""
2094. DATA "THE SYSTEMïS NOT PERFECT YET, CAUSE"
2095. DATA "THE SHIPïS COMPUTER CRASHES FROM"
2096. DATA "TIME TO TIME. BUT DONïT PANIC,"
2097. DATA "OUR ENGINEERS WILL FIX THAT BY SENDING"
2098. DATA "YOU UPDATE VERSIONS OF THE SHIPïS"
2099. DATA "COMPUTERïS OPERATING SYSTEM"
2100. DATA "(Windows 2011 v4.1.0.2.1-beta-beta)"
2101. DATA ""
2102. DATA ""
2103. DATA "THE EARTH BASE WILL TRY TO SUPPLY YOU"
2104. DATA "CONSTANTLY WITH NEW MODULES"
2105. DATA ""
2106. DATA "BUT PLEASE HANDLE WITH CARE,"
2107. DATA "WE CANïT BAKE THEM LIKE BREADS"
2108. DATA ""
2109. DATA "GOOD LUCK!"
2110. DATA "","","","",""
2111. DATA "END OF MESSAGE."
2112. DATA "","","","","","","","","","","",""
2113. DATA "GAME INFO"
2114. DATA ""
2115. DATA "This programm was intended as a tutorial"
2116. DATA "for beginners who want to learn"
2117. DATA "programming in Qbasic, demonstrating"
2118. DATA "some of its capabillities for making"
2119. DATA "sound and graphics."
2120. DATA "It uses PLAY and SOUND for music and"
2121. DATA "most of the Graphic functions,"
2122. DATA "exspecially the DRAW Command for Sprites"
2123. DATA "(which lets you rotate and scale)."
2124. DATA "Even if some of the letters look like"
2125. DATA "vectors, but they are all DRAW-Sprites"
2126. DATA ""
2127. DATA "The inspiration and ideas i lend
2128. DATA "(took, stole) from following games:"
2129. DATA "Mooncresta arcade game (1983)"
2130. DATA "Galaga 88 arcade"
2131. DATA "Space Pilot I-II (C64)"
2132. DATA "(They belong to my all-time favorite
2133. DATA "shoot-em-ups)"
2134. DATA ""
2135. DATA "In the beginning i just wanted to make"
2136. DATA "a simple shooter (what it still is) but"
2137. DATA "then those old shooting games came to"
2138. DATA "mind, exspecially Mooncresta (obviously"
2139. DATA "you can see where i got the title),"
2140. DATA "which i played as a kid totally"
2141. DATA "fascinated me."
2142. DATA "Those games had great graphics and
2143. DATA "sound (for this time) and where FUN"
2144. DATA "to play."
2145. DATA "So i also wanted to put in something of"
2146. DATA "these games, and as the programm grew"
2147. DATA "bigger and bigger, i decided to make a"
2148. DATA "complete game of it, and hereïs whats"
2149. DATA "the result.
2150. DATA "(hope you like this piece of ïcrapï)"
2151. DATA "",""
2152. DATA "Mooncr.99 made by Daniel Kupfer
2153. DATA "in Nov.1999"
2154. DATA "Mail me if U like"
2155. DATA "EMail dk1000000@aol.com"
2156. DATA "   or dku1000000@cs.com"
2157. DATA "","","",""
2158. DATA "Machine Requirements:"
2159. DATA "",""
2160. DATA "Qbasic:   Pentium 200"
2161. DATA "Compiled: 486-66 / Pentium 66"
2162. DATA ""
2163. DATA "As its Qbasic you need decent computer"
2164. DATA "power to run at full speed (35 frames)"
2165. DATA "It works just fine on my P-II 233"
2166. DATA "Iïve never tried to compile this"
2167. DATA "with Quick Basic"
2168. DATA "ïcause i donït own Quick Basic, but if"
2169. DATA "it works, i guess its gonna be 5 times"
2170. DATA "faster or so (however it never runs"
2171. DATA "more than 35 frames)"
2172. DATA "",""
2173. DATA "Enjoy !"
2174. DATA "If you liked it, ask for upcoming"
2175. DATA "mooncr.2000"
2176. DATA ""
2177. DATA "SEE YA!"
2178. DATA "","",""
2179. DATA "PRESS ESC"
2180. DATA "XXX"
2181.  

PS: I was not talking about the code on forum. But inside the sample package which comes along with qb64.

[SierraKen]

Neat Ashish, but I will look at that in a few minutes, been too busy today with Version 2.

[SierraKen]

Here is Version 2 everyone! There's 5 different colored robots and they all fly at different patterns. After that there's the Boss Robot that looks different and also flies differently. I also made them shoot a tiny bit faster than the level before it. If you get past the Boss Robot, it goes back to the beginning, but the levels still increase in the _TITLE as well as the points. I hope you all like it. It's getting harder to program in so much heat from the weather. I used 6 of the 12 math equations that I posted yesterday to make them follow those patterns. In this one I also put many descriptions of the code to make it easier to learn from.

Note: I just renamed this game to Tech Invaders because of another game for sale on Amazon called Robot Invaders. I don't want any conflict with them, even though mine is free and completely different.

(Note Again: A better version of this game is on page 2 of this forum with a little enhancement.)

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. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(c1, c2, c3), BF
184. LINE (x2 + 5, y2 + 5)-(x2 + 8, y2 + 8), _RGB32(0, 0, 0), BF
185. LINE (x2 + 12, y2 + 5)-(x2 + 15, y2 + 8), _RGB32(0, 0, 0), BF
186. LINE (x2 + 5, y2 + 13)-(x2 + 15, y2 + 16), _RGB32(0, 0, 0), BF
187. _DELAY .004
188. LINE (x2, y2)-(x2 + 20, y2 + 20), _RGB32(0, 0, 0), BF
189. LINE (x2, y2)-(x2 - 10, y2 - 10), _RGB32(0, 0, 0)
190. LINE (x2 + 20, y2)-(x2 + 30, y2 - 10), _RGB32(0, 0, 0)
191. RETURN
192.  
193. 'Draws the Boss Robot.
194. drawing2:
195. x2 = x + xx: y2 = y + yy
196. CIRCLE (x2, y2), 20, _RGB32(c1, c2, c3)
197. LINE (x2 - 10, y2 - 10)-(x2 - 5, y2 - 5), _RGB32(c1, c2, c3), BF
198. LINE (x2 + 10, y2 - 10)-(x2 + 14, y2 - 5), _RGB32(c1, c2, c3), BF
199. LINE (x2 - 10, y2 + 10)-(x2 + 14, y2 + 15), _RGB32(c1, c2, c3), BF
200. _DELAY .004
201. CIRCLE (x2, y2), 20, _RGB32(0, 0, 0)
202. LINE (x2 - 10, y2 - 10)-(x2 - 5, y2 - 5), _RGB32(0, 0, 0), BF
203. LINE (x2 + 10, y2 - 10)-(x2 + 15, y2 - 5), _RGB32(0, 0, 0), BF
204. LINE (x2 - 10, y2 + 10)-(x2 + 15, y2 + 15), _RGB32(0, 0, 0), BF
205.  
206. RETURN
207.  
208. 'Keyboard control for your movement and shooting.
209. keyboard:
210. _LIMIT 1000
211. a$ = INKEY$
212. IF a$ = CHR$(27) THEN END
213. IF a$ = CHR$(0) + CHR$(77) THEN r = 1: l = 0
214. IF r = 1 THEN
215.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
216.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
217.     xt = xt + 1
218.     IF xt > 780 THEN xt = 780
219.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
220.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
221. END IF
222. IF a$ = CHR$(0) + CHR$(75) THEN l = 1: r = 0
223. IF l = 1 THEN
224.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(0, 0, 0), BF
225.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(0, 0, 0)
226.     xt = xt - 1
227.     IF xt < 0 THEN xt = 0
228.     LINE (xt, yt)-(xt + 20, yt + 20), _RGB32(128, 139, 255), BF
229.     LINE (xt + 10, yt)-(xt + 10, yt - 10), _RGB32(128, 139, 255)
230. END IF
231. IF a$ = CHR$(0) + CHR$(72) OR a$ = CHR$(0) + CHR$(80) THEN
232.     r = 0: l = 0
233. END IF
234.  
235. IF a$ = " " THEN GOSUB youshoot:
236. RETURN
237.  
238. 'The start of your shot.
239. youshoot:
240. _LIMIT 1000
241. IF ushoot = 0 THEN
242.     sx2 = xt + 10
243.     sy2 = yt - 11
244.     ushoot = 1
245.     SOUND 400, .5
246. END IF
247. RETURN
248.  
249. 'The drawing and movement of your shot and if it reaches the enemy.
250. youshoot2:
251. _LIMIT 1000
252. IF ushoot = 1 THEN
253.     CIRCLE (sx2, sy2), 5, _RGB32(0, 0, 0)
254.     sy2 = sy2 - 3
255.     IF sy2 < 0 THEN ushoot = 0: RETURN
256.     CIRCLE (sx2, sy2), 5, _RGB32(255, 0, 0)
257.     IF sx2 > x2 - 1 AND sx2 < x2 + 21 AND sy2 > y2 - 1 AND sy2 < y2 + 21 THEN
258.         CIRCLE (sx2, sy2), 3, _RGB32(0, 0, 0)
259.         SOUND 200, 1
260.         SOUND 100, 1
261.         FOR explosion = 1 TO 30
262.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(255, 0, 0)
263.             _DELAY .02
264.             CIRCLE (x2 + 10, y2 + 10), explosion, _RGB32(0, 0, 0)
265.         NEXT explosion
266.         LINE (x2 - 21, y2 - 21)-(x2 + 41, y2 + 41), _RGB32(0, 0, 0), BF
267.         points = points + 100
268.         IF level = 6 THEN points = points + 400
269.         IF points / 500 = INT(points / 500) THEN level = level + 1: level2 = level2 + 1
270.         lives$ = STR$(lives)
271.         points$ = STR$(points)
272.         level$ = STR$(level2)
273.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
274.         _DELAY .25
275.         ushoot = 0
276.         GOTO go:
277.     END IF
278. END IF
279. RETURN
280.  
281. 'The enemy's shot and if it reaches you.
282. shoot:
283. _LIMIT 1000
284. IF shooting = 0 THEN
285.     IF level = 1 THEN shh = 9980
286.     IF level = 2 THEN shh = 9978
287.     IF level = 3 THEN shh = 9976
288.     IF level = 4 THEN shh = 9974
289.     IF level = 5 THEN shh = 9972
290.     IF level = 6 THEN shh = 9940
291.     RANDOMIZE TIMER
292.     sh = INT(RND * 10000) + 1
293.     IF sh < shh THEN RETURN
294.     sx = x2 + 10
295.     sy = y2 + 10
296.     shooting = 1
297.     SOUND 300, .5
298. END IF
299. IF shooting = 1 THEN
300.     CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
301.     sy = sy + 3
302.     IF sy > 620 THEN shooting = 0: RETURN
303.     CIRCLE (sx, sy), 5, _RGB32(255, 0, 0)
304.     IF sx > xt - 1 AND sx < xt + 21 AND sy > yt - 1 AND sy < yt + 21 THEN
305.         CIRCLE (sx, sy), 5, _RGB32(0, 0, 0)
306.         SOUND 200, 1
307.         SOUND 100, 1
308.         FOR explosion2 = 1 TO 30
309.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(255, 0, 0)
310.             _DELAY .02
311.             CIRCLE (xt + 10, yt + 10), explosion2, _RGB32(0, 0, 0)
312.         NEXT explosion2
313.         lives = lives - 1
314.         lives$ = STR$(lives)
315.         points$ = STR$(points)
316.         level$ = STR$(level2)
317.         _TITLE "Tech Invaders      Lives: " + lives$ + "     Level: " + level$ + "      Score: " + points$
318.         _DELAY 1
319.         LINE (xt - 22, yt - 42)-(xt + 42, yt + 42), _RGB32(0, 0, 0), BF
320.         IF lives = 0 THEN
321.             LOCATE 20, 40: PRINT "G A M E   O V E R"
322.             LOCATE 22, 40: PRINT "Score: "; points
323.             LOCATE 23, 40: PRINT "Level: "; level2
324.             LOCATE 24, 40: INPUT "Play Again (Yes/No)", ag$
325.             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:
326.             END
327.         END IF
328.         shooting = 0
329.         RETURN
330.     END IF
331. END IF
332. RETURN
333.  

[SierraKen]

LOL Ashish, looks very professional for computers back then. Of course I've never been a professional programmer so I'm taking one step at a time with my hobby. :) I'm glad you and the others like what I've made. :)

[bplus]

Hi Ken,

I think the speeds on this are a little better, I can hit the enemy while moving.

I am wondering if the shooter x, y and the enemy x, y are always integer, such that when compare x's of each for hit you are comparing integer to integer and not integer to single, ie if shot x is 3 and enemy is 3.05 it would be a miss.

I can't read your code is the shooter moving every 5 spaces still or every 1?

Are you doing collisions by exact x = x of shooter and enemy or a radius around x, seems like some shots I make should be hitting...

Also when enemy clobbers my shooter with shot or ship, it disappears from screen.

[bplus]

Ah I found the changes of shooter: +/- 1, OK but you are in default single for undeclared variables but these are changing only by integer amounts... should be OK?

 I see the enemy position is converted to integers (good!) except in level 2? That must of been when I noticed shots weren't working so well.

[SierraKen]

That's interesting B+ because once in awhile I will not be able to hit the enemy as well. Singles or Integers shouldn't matter because I give a < and > gap to be able to hit the enemy. Here is the code I use, although maybe it needs some adjusting. sx2 and sy2 are the coords for your shot and x2 and y2 are the coords to the enemy.

Code: QB64: [Select]

1. IF sx2 > x2 - 1 AND sx2 < x2 + 21 AND sy2 > y2 - 1 AND sy2 < y2 + 21 THEN
2.  

Thanks for your comments, I will look more into this real soon. Most likely it just needs a couple more coordinates for the gap because the human eye sometimes is slower than the speed of animation, where you think it hit but the computer thinks it didn't.

[bplus]

That's interesting B+ because once in awhile I will not be able to hit the enemy as well. Singles or Integers shouldn't matter because I give a < and > gap to be able to hit the enemy. Here is the code I use, although maybe it needs some adjusting. sx2 and sy2 are the coords for your shot and x2 and y2 are the coords to the enemy.

Code: QB64: [Select]

1. IF sx2 > x2 - 1 AND sx2 < x2 + 21 AND sy2 > y2 - 1 AND sy2 < y2 + 21 THEN
2.  

Thanks for your comments, I will look more into this real soon. Most likely it just needs a couple more coordinates for the gap because the human eye sometimes is slower than the speed of animation, where you think it hit but the computer thinks it didn't.

Ah so there is a range, thanks for pointing it out. I guess I had expectations from Alien Invaders but this is a different approach, we have to anticipate where the shot is going to go and where the invader ship will be, good, thanks again!