QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on July 23, 2019, 01:45:42 am

Title: Robot Invaders
Post by: SierraKen on July 23, 2019, 01:45:42 am

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.  

Title: Re: Robot Invaders
Post by: Petr on July 23, 2019, 02:55:04 am

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

Title: Re: Robot Invaders
Post by: Ashish on July 23, 2019, 08:39:22 am

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

Title: Re: Robot Invaders
Post by: bplus on July 23, 2019, 10:15:55 am

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.

Title: Re: Robot Invaders
Post by: johnno56 on July 23, 2019, 10:22:36 am

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

J

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 11:58:10 am

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.

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 12:16:53 pm

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.

Title: Re: Robot Invaders
Post by: Ashish on July 23, 2019, 12:20:29 pm

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.

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 04:31:30 pm

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

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 04:35:25 pm

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.  

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 04:51:56 pm

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. :)

Title: Re: Robot Invaders
Post by: bplus on July 23, 2019, 05:41:39 pm

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.

Title: Re: Robot Invaders
Post by: bplus on July 23, 2019, 07:15:56 pm

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.

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 08:08:41 pm

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.

Title: Re: Robot Invaders
Post by: bplus on July 23, 2019, 09:37:11 pm

Quote from: SierraKen on July 23, 2019, 08:08:41 pm

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!

Title: Re: Robot Invaders
Post by: SierraKen on July 23, 2019, 09:55:38 pm

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

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

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

Code: QB64: [Select]

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

Title: Re: Robot Invaders
Post by: bplus on July 23, 2019, 10:31:11 pm

Love it! sure beats ping pong!

Title: Re: Robot Invaders
Post by: SierraKen on July 24, 2019, 12:07:34 am

LOL! Thanks!

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

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

Code: QB64: [Select]

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

Title: Re: Robot Invaders
Post by: SierraKen on July 24, 2019, 01:09:04 am

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

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

Code: QB64: [Select]

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

Title: Re: Robot Invaders
Post by: SierraKen on July 24, 2019, 01:19:35 pm

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

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

Code: QB64: [Select]

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

Title: Re: Robot Invaders
Post by: SierraKen on July 24, 2019, 06:44:18 pm

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

&feature=youtu.be
 (https://www.youtube.com/watch?v=c3t4OrAwcfo&feature=youtu.be)

Title: Re: Robot Invaders
Post by: SierraKen on July 25, 2019, 11:18:27 pm

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

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

Code: QB64: [Select]

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

Title: Re: Robot Invaders
Post by: OldMoses on July 26, 2019, 07:12:13 am

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

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

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

Title: Re: Robot Invaders
Post by: SierraKen on July 26, 2019, 12:49:04 pm

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

Title: Re: Robot Invaders
Post by: Pete on July 27, 2019, 12:43:53 am

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

Pete

Title: Re: Robot Invaders
Post by: pforpond on July 27, 2019, 02:35:11 am

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

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

Title: Re: Robot Invaders
Post by: SierraKen on July 27, 2019, 12:37:00 pm

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

Title: Re: Robot Invaders
Post by: SierraKen on July 27, 2019, 12:37:53 pm

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

Text Only | Text with Attachments