Flight Simulator

[SierraKen]

I know I have another forum topic called: 3D Land Grid which eventually turned into flying. But I made this new topic to catch people's eyes better and knowing that it is in fact now a flight simulator. If you wish to see how that developed into flying, go here:
https://www.qb64.org/forum/index.php?topic=2609.0

This new topic will start off having a newer look at the compass, speed, and altitude bearings. I also added water and a lot of hills. Some things aren't perfect like the Sun going underground if you keep turning while in-view. I can't figure that part out yet. And sometimes the hills will go a bit higher than the land if you turn sharp and look at an edge of the screen. Plus the white grid goes off the land if you turn sharp as well, which I also could never figure out, but I think it looks cool so I kept it. There's no buildings or runways because making a set-map would be a bit beyond what I can do. So the hills and water are randomly generated. Anyways, I hope you enjoy this. I made it as an honor to 1980's flight simulators. :)

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 24, 2020.
3. 'V. 0.6 - Added Better Compass and Relocated Speed and Altitude. Added Hills and Water.
4.  
5. DIM waterx(500), watery(500), shape(500), watersz(500)
6. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
7. SCREEN _NEWIMAGE(800, 600, 32)
8. xs = 10
9. c = 0
10. e = 100
11. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
12. DO
13.     _LIMIT 2000
14.     a$ = INKEY$
15.  
16.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
17.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
18.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
19.     IF a$ = "-" THEN
20.         speed2 = speed2 - 10
21.     END IF
22.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
23.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
24.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
25.     IF a$ = CHR$(27) THEN END
26.     IF d = 1 THEN speed = speed + 2: b = 0
27.     IF d = 3 AND speed > 0 THEN
28.         v = v - 1
29.         vv = vv - 2
30.         tilt = tilt - 2
31.     END IF
32.     IF d = 4 AND speed > 0 THEN
33.         v = v + 1
34.         vv = vv + 2
35.         tilt = tilt + 2
36.     END IF
37.     IF d = 3 AND speed <= 0 THEN
38.         v = v - 1
39.         vv = vv - 2
40.         tilt = tilt - 2
41.         speed = speed + 4
42.     END IF
43.     IF d = 4 AND speed <= 0 THEN
44.         v = v + 1
45.         vv = vv + 2
46.         tilt = tilt + 2
47.         speed = speed + 4
48.     END IF
49.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
50.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
51.  
52.     IF tilt > 200 THEN tilt = 200
53.     IF tilt < -200 THEN tilt = -200
54.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
55.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
56.     IF e > 100 THEN e = 100
57.     IF e < 0 THEN e = 0
58.     elevation = e - 100
59.     elevation = -elevation
60.     elevation = elevation * 100
61.     GOSUB grid:
62.     IF speed2 < 0 THEN speed2 = 0
63.     IF speed2 > 500 THEN speed2 = 500
64.     delay = 2 / speed2
65.     IF delay < .002 THEN delay = .002
66.     IF delay > .02 THEN delay = .02
67.     _DELAY delay
68. LOOP
69.  
70. grid:
71. CLS
72. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
73. PAINT (400, 2), _RGB32(0, 0, 150)
74. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
75. PAINT (400, 599), _RGB32(0, 155, 0)
76.  
77. 'Calculate Compass
78. tilt2 = tilt
79. IF tilt2 < 0 THEN tilt2 = -tilt2
80.  
81. IF tilt < 0 THEN c = c - tilt2 / 314
82. IF tilt > 0 THEN c = c + tilt2 / 314
83. IF c > 359 THEN c = 0
84. IF c < 0 THEN c = 359
85. cc = INT(c)
86. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
87. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
88. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
89. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
90. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
91. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
92. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
93. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
94. _PRINTSTRING (390, 550), comp$
95. cc$ = STR$(cc)
96. _PRINTSTRING (395, 570), cc$
97.  
98. 'Sun
99. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
100. tilt3 = tilt / 50
101. IF cc = 315 THEN sunx = 800
102. IF cc = 225 THEN sunx = 0
103. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
104. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
105. oldtilt3 = tilt3
106. FOR sz = .25 TO 10 STEP .25
107.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
108. NEXT sz
109. nosun:
110.  
111. 'Water
112. RANDOMIZE TIMER
113. water = INT(RND * 200) + 1
114. IF water > 197 THEN
115.     w = w + 1
116.     IF w > 100 THEN w = 1
117.     RANDOMIZE TIMER
118.     waterx(w) = INT(RND * 799) + 1
119.     watery(w) = 310
120.     RANDOMIZE TIMER
121.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
122.     RANDOMIZE TIMER
123.     shape(w) = (RND - .35)
124. END IF
125. IF w = 0 THEN GOTO skipwater2:
126. FOR ww = 1 TO w
127.     watery(ww) = watery(ww) + speed2 / 125
128.     tilt4 = tilt / 5
129.     IF tilt4 < 0 THEN tilt4 = -tilt4
130.     watery(ww) = watery(ww) + tilt4 / 10
131.     IF watery(ww) > 650 THEN GOTO skipwater:
132.     ttilt = tilt / 10
133.     IF ttilt > 6 THEN ttilt = 6
134.     IF ttilt < -6 THEN ttilt = -6
135.     waterx(ww) = waterx(ww) + ttilt
136.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
137.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
138.     FOR sz = .25 TO watersz(ww) STEP .25
139.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
140.     NEXT sz
141.     skipwater:
142. NEXT ww
143. skipwater2:
144.  
145. 'Hills
146. IF d = 0 THEN GOTO skiphill2:
147. RANDOMIZE TIMER
148. hills = INT(RND * 200) + 1
149. IF hills > 150 THEN
150.     h = h + 1
151.     IF h > 300 THEN h = 1
152.     RANDOMIZE TIMER
153.     hillx(h) = INT(RND * 799) + 1
154.     hilly(h) = 310
155.     RANDOMIZE TIMER
156.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
157.     RANDOMIZE TIMER
158.     hshape(h) = (RND - .35)
159.     hcolor(h) = INT(RND * 100) + 100
160. END IF
161. IF h = 0 THEN GOTO skiphill2:
162. l = l + 1
163. FOR hh = 1 TO h
164.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
165.     tilt5 = tilt / 5
166.     IF tilt5 < 0 THEN tilt5 = -tilt5
167.     hilly(hh) = hilly(hh) + tilt5 / 10
168.     IF hilly(hh) > 650 THEN GOTO skiphill:
169.     tttilt = tilt / 10
170.     IF tttilt > 6 THEN tttilt = 6
171.     IF tttilt < -6 THEN tttilt = -6
172.     hillx(hh) = hillx(hh) + tttilt
173.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
174.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
175.     FOR sz = .25 TO hillsz(hh) STEP .25
176.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh) + 44, hcolor(hh), 0), , , hshape(hh)
177.     NEXT sz
178.     skiphill:
179. NEXT hh
180. skiphill2:
181.  
182. 'Left vertical lines.
183. FOR x = 395 - e TO -300 STEP -xs - xx - e
184.     xx = xx + 55
185.     IF v > 7 + e THEN v = -7
186.     IF v < -7 THEN v = 7 + e
187.     IF vv > 300 THEN vv = 300
188.     IF vv < -300 THEN vv = -300
189.     FOR findy = 0 TO 600
190.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
191.     NEXT findy
192.     nex:
193.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
194.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
195.     skip:
196. NEXT x
197.  
198. 'Right vertical lines.
199. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
200.     xx2 = xx2 + 55
201.     IF v > 7 + e THEN v = -7
202.     IF v < -7 THEN v = 7 + e
203.     IF vv > 300 THEN vv = 300
204.     IF vv < -300 THEN vv = -300
205.     FOR findy = 0 TO 600
206.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
207.     NEXT findy
208.     nex2:
209.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
210.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
211.     skip2:
212. NEXT x
213.  
214. 'Horizontal lines.
215. FOR hy = 0 TO 600 STEP xs + xx3 + e
216.     xx3 = xx3 + 5
217.     IF speed > 7 + e THEN speed = -7
218.     IF speed < -7 THEN speed = 7 + e
219.     FOR findx = 0 TO 800
220.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
221.             xx4 = findx
222.         END IF
223.     NEXT findx
224.     FOR findx2 = 0 TO 800
225.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
226.             xx5 = findx2
227.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
228.             GOTO nex3:
229.         END IF
230.     NEXT findx2
231.     nex3:
232. NEXT hy
233. _PRINTSTRING (250, 550), "Altitude"
234. elevation$ = STR$(elevation)
235. _PRINTSTRING (255, 570), elevation$
236.  
237. _PRINTSTRING (530, 550), "Airspeed"
238. speed2 = INT(speed2)
239. speed2$ = STR$(speed2)
240. _PRINTSTRING (535, 570), speed2$
241.  
242. _DISPLAY
243. xx = 0: xx2 = 0: xx3 = 0
244. l = l + 1
245. RETURN
246.  

[OldMoses]

I put a couple _PRINTMODE _KEEPBACKGROUND just after lines 93 & 232 (before your _PRINTSTRINGs) to keep the data on top of things. The little black boxes and disappearing numbers tweak my OCD.... ;)

[40wattstudio]

What, only 245 lines of code?! Wow, that's amazing! Banking left and right reminds me a little of playing F-15 Strike Eagle for the NES (and other similar games).

I'm curious how you figured out how to do all the math for all this, that's the part I'd get stuck on.

Good job SierraKen!

[SierraKen]

Thanks OldMoses! I had no idea that those commands existed! Here is the updated code with the those commands. :)

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 24, 2020.
3. 'V. 0.6 - Added Better Compass and Relocated Speed and Altitude. Added Hills and Water.
4.  
5. DIM waterx(500), watery(500), shape(500), watersz(500)
6. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
7. SCREEN _NEWIMAGE(800, 600, 32)
8. xs = 10
9. c = 0
10. e = 100
11. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
12. DO
13.     _LIMIT 2000
14.     a$ = INKEY$
15.  
16.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
17.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
18.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
19.     IF a$ = "-" THEN
20.         speed2 = speed2 - 10
21.     END IF
22.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
23.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
24.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
25.     IF a$ = CHR$(27) THEN END
26.     IF d = 1 THEN speed = speed + 2: b = 0
27.     IF d = 3 AND speed > 0 THEN
28.         v = v - 1
29.         vv = vv - 2
30.         tilt = tilt - 2
31.     END IF
32.     IF d = 4 AND speed > 0 THEN
33.         v = v + 1
34.         vv = vv + 2
35.         tilt = tilt + 2
36.     END IF
37.     IF d = 3 AND speed <= 0 THEN
38.         v = v - 1
39.         vv = vv - 2
40.         tilt = tilt - 2
41.         speed = speed + 4
42.     END IF
43.     IF d = 4 AND speed <= 0 THEN
44.         v = v + 1
45.         vv = vv + 2
46.         tilt = tilt + 2
47.         speed = speed + 4
48.     END IF
49.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
50.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
51.  
52.     IF tilt > 200 THEN tilt = 200
53.     IF tilt < -200 THEN tilt = -200
54.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
55.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
56.     IF e > 100 THEN e = 100
57.     IF e < 0 THEN e = 0
58.     elevation = e - 100
59.     elevation = -elevation
60.     elevation = elevation * 100
61.     GOSUB grid:
62.     IF speed2 < 0 THEN speed2 = 0
63.     IF speed2 > 500 THEN speed2 = 500
64.     delay = 2 / speed2
65.     IF delay < .002 THEN delay = .002
66.     IF delay > .02 THEN delay = .02
67.     _DELAY delay
68. LOOP
69.  
70. grid:
71. CLS
72. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
73. PAINT (400, 2), _RGB32(0, 0, 150)
74. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
75. PAINT (400, 599), _RGB32(0, 155, 0)
76.  
77. 'Calculate Compass
78. tilt2 = tilt
79. IF tilt2 < 0 THEN tilt2 = -tilt2
80.  
81. IF tilt < 0 THEN c = c - tilt2 / 314
82. IF tilt > 0 THEN c = c + tilt2 / 314
83. IF c > 359 THEN c = 0
84. IF c < 0 THEN c = 359
85. cc = INT(c)
86. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
87. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
88. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
89. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
90. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
91. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
92. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
93. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
94. _PRINTMODE _KEEPBACKGROUND
95. _PRINTSTRING (390, 550), comp$
96. cc$ = STR$(cc)
97. _PRINTSTRING (395, 570), cc$
98.  
99. 'Sun
100. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
101. tilt3 = tilt / 50
102. IF cc = 315 THEN sunx = 800
103. IF cc = 225 THEN sunx = 0
104. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
105. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
106. oldtilt3 = tilt3
107. FOR sz = .25 TO 10 STEP .25
108.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
109. NEXT sz
110. nosun:
111.  
112. 'Water
113. RANDOMIZE TIMER
114. water = INT(RND * 200) + 1
115. IF water > 197 THEN
116.     w = w + 1
117.     IF w > 100 THEN w = 1
118.     RANDOMIZE TIMER
119.     waterx(w) = INT(RND * 799) + 1
120.     watery(w) = 310
121.     RANDOMIZE TIMER
122.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
123.     RANDOMIZE TIMER
124.     shape(w) = (RND - .35)
125. END IF
126. IF w = 0 THEN GOTO skipwater2:
127. FOR ww = 1 TO w
128.     watery(ww) = watery(ww) + speed2 / 125
129.     tilt4 = tilt / 5
130.     IF tilt4 < 0 THEN tilt4 = -tilt4
131.     watery(ww) = watery(ww) + tilt4 / 10
132.     IF watery(ww) > 650 THEN GOTO skipwater:
133.     ttilt = tilt / 10
134.     IF ttilt > 6 THEN ttilt = 6
135.     IF ttilt < -6 THEN ttilt = -6
136.     waterx(ww) = waterx(ww) + ttilt
137.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
138.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
139.     FOR sz = .25 TO watersz(ww) STEP .25
140.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
141.     NEXT sz
142.     skipwater:
143. NEXT ww
144. skipwater2:
145.  
146. 'Hills
147. IF d = 0 THEN GOTO skiphill2:
148. RANDOMIZE TIMER
149. hills = INT(RND * 200) + 1
150. IF hills > 150 THEN
151.     h = h + 1
152.     IF h > 300 THEN h = 1
153.     RANDOMIZE TIMER
154.     hillx(h) = INT(RND * 799) + 1
155.     hilly(h) = 310
156.     RANDOMIZE TIMER
157.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
158.     RANDOMIZE TIMER
159.     hshape(h) = (RND - .35)
160.     hcolor(h) = INT(RND * 100) + 100
161. END IF
162. IF h = 0 THEN GOTO skiphill2:
163. l = l + 1
164. FOR hh = 1 TO h
165.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
166.     tilt5 = tilt / 5
167.     IF tilt5 < 0 THEN tilt5 = -tilt5
168.     hilly(hh) = hilly(hh) + tilt5 / 10
169.     IF hilly(hh) > 650 THEN GOTO skiphill:
170.     tttilt = tilt / 10
171.     IF tttilt > 6 THEN tttilt = 6
172.     IF tttilt < -6 THEN tttilt = -6
173.     hillx(hh) = hillx(hh) + tttilt
174.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
175.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
176.     FOR sz = .25 TO hillsz(hh) STEP .25
177.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh) + 44, hcolor(hh), 0), , , hshape(hh)
178.     NEXT sz
179.     skiphill:
180. NEXT hh
181. skiphill2:
182.  
183. 'Left vertical lines.
184. FOR x = 395 - e TO -300 STEP -xs - xx - e
185.     xx = xx + 55
186.     IF v > 7 + e THEN v = -7
187.     IF v < -7 THEN v = 7 + e
188.     IF vv > 300 THEN vv = 300
189.     IF vv < -300 THEN vv = -300
190.     FOR findy = 0 TO 600
191.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
192.     NEXT findy
193.     nex:
194.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
195.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
196.     skip:
197. NEXT x
198.  
199. 'Right vertical lines.
200. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
201.     xx2 = xx2 + 55
202.     IF v > 7 + e THEN v = -7
203.     IF v < -7 THEN v = 7 + e
204.     IF vv > 300 THEN vv = 300
205.     IF vv < -300 THEN vv = -300
206.     FOR findy = 0 TO 600
207.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
208.     NEXT findy
209.     nex2:
210.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
211.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
212.     skip2:
213. NEXT x
214.  
215. 'Horizontal lines.
216. FOR hy = 0 TO 600 STEP xs + xx3 + e
217.     xx3 = xx3 + 5
218.     IF speed > 7 + e THEN speed = -7
219.     IF speed < -7 THEN speed = 7 + e
220.     FOR findx = 0 TO 800
221.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
222.             xx4 = findx
223.         END IF
224.     NEXT findx
225.     FOR findx2 = 0 TO 800
226.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
227.             xx5 = findx2
228.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
229.             GOTO nex3:
230.         END IF
231.     NEXT findx2
232.     nex3:
233. NEXT hy
234. _PRINTMODE _KEEPBACKGROUND
235. _PRINTSTRING (250, 550), "Altitude"
236. elevation$ = STR$(elevation)
237. _PRINTSTRING (255, 570), elevation$
238.  
239. _PRINTSTRING (530, 550), "Airspeed"
240. speed2 = INT(speed2)
241. speed2$ = STR$(speed2)
242. _PRINTSTRING (535, 570), speed2$
243.  
244. _DISPLAY
245. xx = 0: xx2 = 0: xx3 = 0
246. l = l + 1
247. RETURN
248.  

[SierraKen]

Thanks 40wattstudio. There isn't too much math involved with the grid as you might think. I used POINT commands to stop the LINE commands from going into the sky, which detects colors. And the grid is just a bunch of LINE commands. :) Feel free to learn with any code here on the forum, that's one reason why we post it. :) I do have to say though that some of my code is a bit messy in the fact that I did a lot of trial and error. lol

[johnno56]

Cool... A flight Sim. Haven't used one of those since Micro$oft's Flight Sim 4....

No pressure, but I have a usb joystick, gathering dust on my shelf... lol

[SierraKen]

LOL Johno.

Here's a small update again, this time with added clouds.

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 25, 2020.
3. 'V. 0.7 - Added Clouds.
4.  
5. DIM waterx(500), watery(500), shape(500), watersz(500)
6. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
7. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
8. SCREEN _NEWIMAGE(800, 600, 32)
9. xs = 10
10. c = 0
11. e = 100
12. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
13. DO
14.     _LIMIT 2000
15.     a$ = INKEY$
16.  
17.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
18.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
19.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
20.     IF a$ = "-" THEN
21.         speed2 = speed2 - 10
22.     END IF
23.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
24.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
25.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
26.     IF a$ = CHR$(27) THEN END
27.     IF d = 1 THEN speed = speed + 2: b = 0
28.     IF d = 3 AND speed > 0 THEN
29.         v = v - 1
30.         vv = vv - 2
31.         tilt = tilt - 2
32.     END IF
33.     IF d = 4 AND speed > 0 THEN
34.         v = v + 1
35.         vv = vv + 2
36.         tilt = tilt + 2
37.     END IF
38.     IF d = 3 AND speed <= 0 THEN
39.         v = v - 1
40.         vv = vv - 2
41.         tilt = tilt - 2
42.         speed = speed + 4
43.     END IF
44.     IF d = 4 AND speed <= 0 THEN
45.         v = v + 1
46.         vv = vv + 2
47.         tilt = tilt + 2
48.         speed = speed + 4
49.     END IF
50.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
51.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
52.  
53.     IF tilt > 200 THEN tilt = 200
54.     IF tilt < -200 THEN tilt = -200
55.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
56.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
57.     IF e > 100 THEN e = 100
58.     IF e < 0 THEN e = 0
59.     elevation = e - 100
60.     elevation = -elevation
61.     elevation = elevation * 100
62.     GOSUB grid:
63.     IF speed2 < 0 THEN speed2 = 0
64.     IF speed2 > 500 THEN speed2 = 500
65.     delay = 2 / speed2
66.     IF delay < .002 THEN delay = .002
67.     IF delay > .02 THEN delay = .02
68.     _DELAY delay
69. LOOP
70.  
71. grid:
72. CLS
73. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
74. PAINT (400, 2), _RGB32(0, 0, 150)
75. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
76. PAINT (400, 599), _RGB32(0, 155, 0)
77.  
78. 'Calculate Compass
79. tilt2 = tilt
80. IF tilt2 < 0 THEN tilt2 = -tilt2
81.  
82. IF tilt < 0 THEN c = c - tilt2 / 314
83. IF tilt > 0 THEN c = c + tilt2 / 314
84. IF c > 359 THEN c = 0
85. IF c < 0 THEN c = 359
86. cc = INT(c)
87. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
88. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
89. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
90. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
91. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
92. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
93. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
94. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
95. _PRINTMODE _KEEPBACKGROUND
96. _PRINTSTRING (390, 550), comp$
97. cc$ = STR$(cc)
98. _PRINTSTRING (395, 570), cc$
99.  
100. 'Sun
101. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
102. tilt3 = tilt / 50
103. IF cc = 315 THEN sunx = 800
104. IF cc = 225 THEN sunx = 0
105. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
106. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
107. oldtilt3 = tilt3
108. FOR sz = .25 TO 10 STEP .25
109.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
110. NEXT sz
111. nosun:
112.  
113. 'Clouds
114. RANDOMIZE TIMER
115. clouds = INT(RND * 200) + 1
116. IF clouds > 190 THEN
117.     cl = cl + 1
118.     IF cl > 100 THEN cl = 1
119.     RANDOMIZE TIMER
120.     cloudx(cl) = INT(RND * 799) + 1
121.     cloudy(cl) = 200
122.     RANDOMIZE TIMER
123.     cloudsz(cl) = INT(RND * 5) + 1 + e / 2
124.     RANDOMIZE TIMER
125.     shapecl(cl) = (RND - .35)
126. END IF
127. IF cl = 0 THEN GOTO skipclouds2:
128. FOR cl2 = 1 TO cl
129.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
130.     tilt6 = tilt / 5
131.     IF tilt6 < 0 THEN tilt6 = -tilt6
132.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
133.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
134.     ttttilt = tilt / 10
135.     IF ttttilt > 6 THEN ttttilt = 6
136.     IF ttttilt < -6 THEN ttttilt = -6
137.     cloudx(cl2) = cloudx(cl2) + ttttilt
138.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
139.     FOR sz = .25 TO cloudsz(cl2) STEP .25
140.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(255, 255, 255), , , shapecl(cl2)
141.     NEXT sz
142.     skipclouds:
143. NEXT cl2
144. skipclouds2:
145.  
146.  
147.  
148. 'Water
149. RANDOMIZE TIMER
150. water = INT(RND * 200) + 1
151. IF water > 197 THEN
152.     w = w + 1
153.     IF w > 100 THEN w = 1
154.     RANDOMIZE TIMER
155.     waterx(w) = INT(RND * 799) + 1
156.     watery(w) = 310
157.     RANDOMIZE TIMER
158.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
159.     RANDOMIZE TIMER
160.     shape(w) = (RND - .35)
161. END IF
162. IF w = 0 THEN GOTO skipwater2:
163. FOR ww = 1 TO w
164.     watery(ww) = watery(ww) + speed2 / 125
165.     tilt4 = tilt / 5
166.     IF tilt4 < 0 THEN tilt4 = -tilt4
167.     watery(ww) = watery(ww) + tilt4 / 10
168.     IF watery(ww) > 650 THEN GOTO skipwater:
169.     ttilt = tilt / 10
170.     IF ttilt > 6 THEN ttilt = 6
171.     IF ttilt < -6 THEN ttilt = -6
172.     waterx(ww) = waterx(ww) + ttilt
173.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
174.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
175.     FOR sz = .25 TO watersz(ww) STEP .25
176.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
177.     NEXT sz
178.     skipwater:
179. NEXT ww
180. skipwater2:
181.  
182. 'Hills
183. IF d = 0 THEN GOTO skiphill2:
184. RANDOMIZE TIMER
185. hills = INT(RND * 200) + 1
186. IF hills > 150 THEN
187.     h = h + 1
188.     IF h > 300 THEN h = 1
189.     RANDOMIZE TIMER
190.     hillx(h) = INT(RND * 799) + 1
191.     hilly(h) = 310
192.     RANDOMIZE TIMER
193.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
194.     RANDOMIZE TIMER
195.     hshape(h) = (RND - .35)
196.     hcolor(h) = INT(RND * 100) + 100
197. END IF
198. IF h = 0 THEN GOTO skiphill2:
199. l = l + 1
200. FOR hh = 1 TO h
201.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
202.     tilt5 = tilt / 5
203.     IF tilt5 < 0 THEN tilt5 = -tilt5
204.     hilly(hh) = hilly(hh) + tilt5 / 10
205.     IF hilly(hh) > 650 THEN GOTO skiphill:
206.     tttilt = tilt / 10
207.     IF tttilt > 6 THEN tttilt = 6
208.     IF tttilt < -6 THEN tttilt = -6
209.     hillx(hh) = hillx(hh) + tttilt
210.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
211.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
212.     FOR sz = .25 TO hillsz(hh) STEP .25
213.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh) + 44, hcolor(hh), 0), , , hshape(hh)
214.     NEXT sz
215.     skiphill:
216. NEXT hh
217. skiphill2:
218.  
219. 'Left vertical lines.
220. FOR x = 395 - e TO -300 STEP -xs - xx - e
221.     xx = xx + 55
222.     IF v > 7 + e THEN v = -7
223.     IF v < -7 THEN v = 7 + e
224.     IF vv > 300 THEN vv = 300
225.     IF vv < -300 THEN vv = -300
226.     FOR findy = 0 TO 600
227.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
228.     NEXT findy
229.     nex:
230.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
231.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
232.     skip:
233. NEXT x
234.  
235. 'Right vertical lines.
236. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
237.     xx2 = xx2 + 55
238.     IF v > 7 + e THEN v = -7
239.     IF v < -7 THEN v = 7 + e
240.     IF vv > 300 THEN vv = 300
241.     IF vv < -300 THEN vv = -300
242.     FOR findy = 0 TO 600
243.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
244.     NEXT findy
245.     nex2:
246.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
247.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
248.     skip2:
249. NEXT x
250.  
251. 'Horizontal lines.
252. FOR hy = 0 TO 600 STEP xs + xx3 + e
253.     xx3 = xx3 + 5
254.     IF speed > 7 + e THEN speed = -7
255.     IF speed < -7 THEN speed = 7 + e
256.     FOR findx = 0 TO 800
257.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
258.             xx4 = findx
259.         END IF
260.     NEXT findx
261.     FOR findx2 = 0 TO 800
262.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
263.             xx5 = findx2
264.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
265.             GOTO nex3:
266.         END IF
267.     NEXT findx2
268.     nex3:
269. NEXT hy
270. _PRINTMODE _KEEPBACKGROUND
271. _PRINTSTRING (250, 550), "Altitude"
272. elevation$ = STR$(elevation)
273. _PRINTSTRING (255, 570), elevation$
274.  
275. _PRINTSTRING (530, 550), "Airspeed"
276. speed2 = INT(speed2)
277. speed2$ = STR$(speed2)
278. _PRINTSTRING (535, 570), speed2$
279.  
280. _DISPLAY
281. xx = 0: xx2 = 0: xx3 = 0
282. l = l + 1
283. RETURN
284.  

[johnno56]

This might sound a little stupid....  Parallax starfields in space shooters would be coloured based on speed. The slower the darker, the faster the brighter. Can a similar principle be applied to the colour of the clouds. The 'closer' the cloud the brighter. Might help out with "depth perception". No idea as to how to do that... Just a thought.

[SierraKen]

Great idea Johno, thanks! I made the clouds have 7 different shades of gray going to white as they get closer to you. I just used IF/THEN statements on the cloudy(cl2) vertical variable on them. The higher they are, the closer to you, and the less gray they get.

P.S. Anyone seen B+ lately? Hope he didn't take off like I did a few months ago. I apologize for doing that without saying a word. I should have said something at least.

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 26, 2020.
3. 'V. 0.8 - Added cloud color shades.
4.  
5. DIM waterx(500), watery(500), shape(500), watersz(500)
6. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
7. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
8. SCREEN _NEWIMAGE(800, 600, 32)
9. xs = 10
10. c = 0
11. e = 100
12. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
13. DO
14.     _LIMIT 2000
15.     a$ = INKEY$
16.  
17.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
18.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
19.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
20.     IF a$ = "-" THEN
21.         speed2 = speed2 - 10
22.     END IF
23.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
24.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
25.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
26.     IF a$ = CHR$(27) THEN END
27.     IF d = 1 THEN speed = speed + 2: b = 0
28.     IF d = 3 AND speed > 0 THEN
29.         v = v - 1
30.         vv = vv - 2
31.         tilt = tilt - 2
32.     END IF
33.     IF d = 4 AND speed > 0 THEN
34.         v = v + 1
35.         vv = vv + 2
36.         tilt = tilt + 2
37.     END IF
38.     IF d = 3 AND speed <= 0 THEN
39.         v = v - 1
40.         vv = vv - 2
41.         tilt = tilt - 2
42.         speed = speed + 4
43.     END IF
44.     IF d = 4 AND speed <= 0 THEN
45.         v = v + 1
46.         vv = vv + 2
47.         tilt = tilt + 2
48.         speed = speed + 4
49.     END IF
50.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
51.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
52.  
53.     IF tilt > 200 THEN tilt = 200
54.     IF tilt < -200 THEN tilt = -200
55.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
56.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
57.     IF e > 100 THEN e = 100
58.     IF e < 0 THEN e = 0
59.     elevation = e - 100
60.     elevation = -elevation
61.     elevation = elevation * 100
62.     GOSUB grid:
63.     IF speed2 < 0 THEN speed2 = 0
64.     IF speed2 > 500 THEN speed2 = 500
65.     delay = 2 / speed2
66.     IF delay < .002 THEN delay = .002
67.     IF delay > .02 THEN delay = .02
68.     _DELAY delay
69. LOOP
70.  
71. grid:
72. CLS
73. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
74. PAINT (400, 2), _RGB32(0, 0, 150)
75. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
76. PAINT (400, 599), _RGB32(0, 155, 0)
77.  
78. 'Calculate Compass
79. tilt2 = tilt
80. IF tilt2 < 0 THEN tilt2 = -tilt2
81.  
82. IF tilt < 0 THEN c = c - tilt2 / 314
83. IF tilt > 0 THEN c = c + tilt2 / 314
84. IF c > 359 THEN c = 0
85. IF c < 0 THEN c = 359
86. cc = INT(c)
87. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
88. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
89. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
90. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
91. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
92. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
93. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
94. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
95. _PRINTMODE _KEEPBACKGROUND
96. _PRINTSTRING (390, 550), comp$
97. cc$ = STR$(cc)
98. _PRINTSTRING (395, 570), cc$
99.  
100. 'Sun
101. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
102. tilt3 = tilt / 50
103. IF cc = 315 THEN sunx = 800
104. IF cc = 225 THEN sunx = 0
105. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
106. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
107. oldtilt3 = tilt3
108. FOR sz = .25 TO 10 STEP .25
109.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
110. NEXT sz
111. nosun:
112.  
113. 'Clouds
114. RANDOMIZE TIMER
115. clouds = INT(RND * 200) + 1
116. IF clouds > 190 THEN
117.     cl = cl + 1
118.     IF cl > 100 THEN cl = 1
119.     RANDOMIZE TIMER
120.     cloudx(cl) = INT(RND * 799) + 1
121.     cloudy(cl) = 200
122.     RANDOMIZE TIMER
123.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
124.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
125.     RANDOMIZE TIMER
126.     shapecl(cl) = (RND - .35)
127. END IF
128. IF cl = 0 THEN GOTO skipclouds2:
129. FOR cl2 = 1 TO cl
130.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
131.     tilt6 = tilt / 5
132.     IF tilt6 < 0 THEN tilt6 = -tilt6
133.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
134.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
135.     ttttilt = tilt / 10
136.     IF ttttilt > 6 THEN ttttilt = 6
137.     IF ttttilt < -6 THEN ttttilt = -6
138.     cloudx(cl2) = cloudx(cl2) + ttttilt
139.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
140.     IF cloudy(cl2) >= 175 THEN ccl = 100
141.     IF cloudy(cl2) < 175 AND cloudy(cl2) >= 150 THEN ccl = 125
142.     IF cloudy(cl2) < 150 AND cloudy(cl2) >= 125 THEN ccl = 150
143.     IF cloudy(cl2) < 125 AND cloudy(cl2) >= 100 THEN ccl = 175
144.     IF cloudy(cl2) < 100 AND cloudy(cl2) >= 75 THEN ccl = 200
145.     IF cloudy(cl2) < 75 AND cloudy(cl2) >= 50 THEN ccl = 225
146.     IF cloudy(cl2) < 50 THEN ccl = 255
147.     FOR sz = .25 TO cloudsz(cl2) STEP .25
148.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)
149.     NEXT sz
150.     skipclouds:
151. NEXT cl2
152. skipclouds2:
153.  
154.  
155.  
156. 'Water
157. RANDOMIZE TIMER
158. water = INT(RND * 200) + 1
159. IF water > 197 THEN
160.     w = w + 1
161.     IF w > 100 THEN w = 1
162.     RANDOMIZE TIMER
163.     waterx(w) = INT(RND * 799) + 1
164.     watery(w) = 310
165.     RANDOMIZE TIMER
166.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
167.     RANDOMIZE TIMER
168.     shape(w) = (RND - .35)
169. END IF
170. IF w = 0 THEN GOTO skipwater2:
171. FOR ww = 1 TO w
172.     watery(ww) = watery(ww) + speed2 / 125
173.     tilt4 = tilt / 5
174.     IF tilt4 < 0 THEN tilt4 = -tilt4
175.     watery(ww) = watery(ww) + tilt4 / 10
176.     IF watery(ww) > 650 THEN GOTO skipwater:
177.     ttilt = tilt / 10
178.     IF ttilt > 6 THEN ttilt = 6
179.     IF ttilt < -6 THEN ttilt = -6
180.     waterx(ww) = waterx(ww) + ttilt
181.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
182.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
183.     FOR sz = .25 TO watersz(ww) STEP .25
184.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
185.     NEXT sz
186.     skipwater:
187. NEXT ww
188. skipwater2:
189.  
190. 'Hills
191. IF d = 0 THEN GOTO skiphill2:
192. RANDOMIZE TIMER
193. hills = INT(RND * 200) + 1
194. IF hills > 150 THEN
195.     h = h + 1
196.     IF h > 300 THEN h = 1
197.     RANDOMIZE TIMER
198.     hillx(h) = INT(RND * 799) + 1
199.     hilly(h) = 310
200.     RANDOMIZE TIMER
201.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
202.     RANDOMIZE TIMER
203.     hshape(h) = (RND - .35)
204.     hcolor(h) = INT(RND * 100) + 100
205. END IF
206. IF h = 0 THEN GOTO skiphill2:
207. l = l + 1
208. FOR hh = 1 TO h
209.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
210.     tilt5 = tilt / 5
211.     IF tilt5 < 0 THEN tilt5 = -tilt5
212.     hilly(hh) = hilly(hh) + tilt5 / 10
213.     IF hilly(hh) > 650 THEN GOTO skiphill:
214.     tttilt = tilt / 10
215.     IF tttilt > 6 THEN tttilt = 6
216.     IF tttilt < -6 THEN tttilt = -6
217.     hillx(hh) = hillx(hh) + tttilt
218.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
219.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
220.     FOR sz = .25 TO hillsz(hh) STEP .25
221.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh) + 44, hcolor(hh), 0), , , hshape(hh)
222.     NEXT sz
223.     skiphill:
224. NEXT hh
225. skiphill2:
226.  
227. 'Left vertical lines.
228. FOR x = 395 - e TO -300 STEP -xs - xx - e
229.     xx = xx + 55
230.     IF v > 7 + e THEN v = -7
231.     IF v < -7 THEN v = 7 + e
232.     IF vv > 300 THEN vv = 300
233.     IF vv < -300 THEN vv = -300
234.     FOR findy = 0 TO 600
235.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
236.     NEXT findy
237.     nex:
238.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
239.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
240.     skip:
241. NEXT x
242.  
243. 'Right vertical lines.
244. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
245.     xx2 = xx2 + 55
246.     IF v > 7 + e THEN v = -7
247.     IF v < -7 THEN v = 7 + e
248.     IF vv > 300 THEN vv = 300
249.     IF vv < -300 THEN vv = -300
250.     FOR findy = 0 TO 600
251.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
252.     NEXT findy
253.     nex2:
254.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
255.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
256.     skip2:
257. NEXT x
258.  
259. 'Horizontal lines.
260. FOR hy = 0 TO 600 STEP xs + xx3 + e
261.     xx3 = xx3 + 5
262.     IF speed > 7 + e THEN speed = -7
263.     IF speed < -7 THEN speed = 7 + e
264.     FOR findx = 0 TO 800
265.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
266.             xx4 = findx
267.         END IF
268.     NEXT findx
269.     FOR findx2 = 0 TO 800
270.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
271.             xx5 = findx2
272.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
273.             GOTO nex3:
274.         END IF
275.     NEXT findx2
276.     nex3:
277. NEXT hy
278. _PRINTMODE _KEEPBACKGROUND
279. _PRINTSTRING (250, 550), "Altitude"
280. elevation$ = STR$(elevation)
281. _PRINTSTRING (255, 570), elevation$
282.  
283. _PRINTSTRING (530, 550), "Airspeed"
284. speed2 = INT(speed2)
285. speed2$ = STR$(speed2)
286. _PRINTSTRING (535, 570), speed2$
287.  
288. _DISPLAY
289. xx = 0: xx2 = 0: xx3 = 0
290. l = l + 1
291. RETURN
292.  

[bplus]

P.S. Anyone seen B+ lately? Hope he didn't take off like I did a few months ago. I apologize for doing that without saying a word. I should have said something at least.

Hey Ken, still hang'in around but catching up on reading and some interesting stuff on YouTube. Thanks for asking.

Hey to @johnno56  too, I checked out your game at Syntax Bomb, nice work! though seems familiar ;-))

[SierraKen]

Awesome Bplus, glad you are still around. :)

I just re-shaped the hills by cutting them in half instead of ovals lol and I changed the colors of them from brown to different shades of green. I also fixed the airspeed so you can stop and everything won't keep adding up on the screen (hills, water, clouds). Plus I moved the clouds up a tiny bit and made them a little bit smaller and less round.

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 26, 2020.
3. 'V. 0.9 - Fixed airspeed and clouds, and made hills look better.
4.  
5. DIM waterx(500), watery(500), shape(500), watersz(500)
6. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
7. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
8. SCREEN _NEWIMAGE(800, 600, 32)
9. xs = 10
10. c = 0
11. e = 100
12. d = 0
13. FOR g = 1 TO 20
14.     GOSUB grid:
15. NEXT g
16.  
17. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
18. DO
19.     _LIMIT 2000
20.     a$ = INKEY$
21.  
22.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
23.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
24.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
25.     IF a$ = "-" THEN
26.         speed2 = speed2 - 10
27.     END IF
28.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
29.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
30.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
31.     IF a$ = CHR$(27) THEN END
32.     IF d = 1 THEN speed = speed + 2: b = 0
33.     IF d = 3 AND speed > 0 THEN
34.         v = v - 1
35.         vv = vv - 2
36.         tilt = tilt - 2
37.     END IF
38.     IF d = 4 AND speed > 0 THEN
39.         v = v + 1
40.         vv = vv + 2
41.         tilt = tilt + 2
42.     END IF
43.     IF d = 3 AND speed <= 0 THEN
44.         v = v - 1
45.         vv = vv - 2
46.         tilt = tilt - 2
47.         speed = speed + 4
48.     END IF
49.     IF d = 4 AND speed <= 0 THEN
50.         v = v + 1
51.         vv = vv + 2
52.         tilt = tilt + 2
53.         speed = speed + 4
54.     END IF
55.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
56.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
57.  
58.     IF tilt > 200 THEN tilt = 200
59.     IF tilt < -200 THEN tilt = -200
60.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
61.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
62.     IF e > 100 THEN e = 100
63.     IF e < 0 THEN e = 0
64.     elevation = e - 100
65.     elevation = -elevation
66.     elevation = elevation * 100
67.     IF d <> 0 THEN GOSUB grid:
68.     IF speed2 < 0 THEN speed2 = 0
69.     IF speed2 > 500 THEN speed2 = 500
70.     delay = 2 / speed2
71.     IF delay < .002 THEN delay = .002
72.     IF delay > .02 THEN delay = .02
73.     _DELAY delay
74. LOOP
75.  
76. grid:
77. CLS
78. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
79. PAINT (400, 2), _RGB32(0, 0, 150)
80. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
81. PAINT (400, 599), _RGB32(0, 155, 0)
82.  
83. 'Calculate Compass
84. tilt2 = tilt
85. IF tilt2 < 0 THEN tilt2 = -tilt2
86.  
87. IF tilt < 0 THEN c = c - tilt2 / 314
88. IF tilt > 0 THEN c = c + tilt2 / 314
89. IF c > 359 THEN c = 0
90. IF c < 0 THEN c = 359
91. cc = INT(c)
92. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
93. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
94. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
95. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
96. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
97. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
98. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
99. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
100. _PRINTMODE _KEEPBACKGROUND
101. _PRINTSTRING (390, 550), comp$
102. cc$ = STR$(cc)
103. _PRINTSTRING (395, 570), cc$
104.  
105. 'Sun
106. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
107. tilt3 = tilt / 50
108. IF cc = 315 THEN sunx = 800
109. IF cc = 225 THEN sunx = 0
110. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
111. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
112. oldtilt3 = tilt3
113. FOR sz = .25 TO 10 STEP .25
114.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
115. NEXT sz
116. nosun:
117.  
118. 'Clouds
119. RANDOMIZE TIMER
120. clouds = INT(RND * 200) + 1
121. IF clouds > 190 THEN
122.     cl = cl + 1
123.     IF cl > 100 THEN cl = 1
124.     RANDOMIZE TIMER
125.     cloudx(cl) = INT(RND * 799) + 1
126.     cloudy(cl) = 180
127.     RANDOMIZE TIMER
128.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
129.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
130.     RANDOMIZE TIMER
131.     shapecl(cl) = (RND - .4)
132.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
133. END IF
134. IF cl = 0 THEN GOTO skipclouds2:
135. FOR cl2 = 1 TO cl
136.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
137.     tilt6 = tilt / 5
138.     IF tilt6 < 0 THEN tilt6 = -tilt6
139.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
140.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
141.     ttttilt = tilt / 10
142.     IF ttttilt > 6 THEN ttttilt = 6
143.     IF ttttilt < -6 THEN ttttilt = -6
144.     cloudx(cl2) = cloudx(cl2) + ttttilt
145.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
146.     IF cloudy(cl2) >= 175 THEN ccl = 100
147.     IF cloudy(cl2) < 175 AND cloudy(cl2) >= 150 THEN ccl = 125
148.     IF cloudy(cl2) < 150 AND cloudy(cl2) >= 125 THEN ccl = 150
149.     IF cloudy(cl2) < 125 AND cloudy(cl2) >= 100 THEN ccl = 175
150.     IF cloudy(cl2) < 100 AND cloudy(cl2) >= 75 THEN ccl = 200
151.     IF cloudy(cl2) < 75 AND cloudy(cl2) >= 50 THEN ccl = 225
152.     IF cloudy(cl2) < 50 THEN ccl = 255
153.     FOR sz = .25 TO cloudsz(cl2) STEP .25
154.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)
155.     NEXT sz
156.     skipclouds:
157. NEXT cl2
158. skipclouds2:
159.  
160.  
161.  
162. 'Water
163. RANDOMIZE TIMER
164. water = INT(RND * 200) + 1
165. IF water > 197 THEN
166.     w = w + 1
167.     IF w > 100 THEN w = 1
168.     RANDOMIZE TIMER
169.     waterx(w) = INT(RND * 799) + 1
170.     watery(w) = 310
171.     RANDOMIZE TIMER
172.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
173.     RANDOMIZE TIMER
174.     shape(w) = (RND - .35)
175. END IF
176. IF w = 0 THEN GOTO skipwater2:
177. FOR ww = 1 TO w
178.     watery(ww) = watery(ww) + speed2 / 125
179.     tilt4 = tilt / 5
180.     IF tilt4 < 0 THEN tilt4 = -tilt4
181.     watery(ww) = watery(ww) + tilt4 / 10
182.     IF watery(ww) > 650 THEN GOTO skipwater:
183.     ttilt = tilt / 10
184.     IF ttilt > 6 THEN ttilt = 6
185.     IF ttilt < -6 THEN ttilt = -6
186.     waterx(ww) = waterx(ww) + ttilt
187.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
188.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
189.     FOR sz = .25 TO watersz(ww) STEP .25
190.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
191.     NEXT sz
192.     skipwater:
193. NEXT ww
194. skipwater2:
195.  
196. 'Hills
197. RANDOMIZE TIMER
198. hills = INT(RND * 200) + 1
199. IF hills > 150 THEN
200.     h = h + 1
201.     IF h > 300 THEN h = 1
202.     RANDOMIZE TIMER
203.     hillx(h) = INT(RND * 799) + 1
204.     hilly(h) = 310
205.     RANDOMIZE TIMER
206.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
207.     RANDOMIZE TIMER
208.     hshape(h) = (RND - .35)
209.     hcolor(h) = INT(RND * 100) + 100
210. END IF
211. IF h = 0 THEN GOTO skiphill2:
212. l = l + 1
213. FOR hh = 1 TO h
214.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
215.     tilt5 = tilt / 5
216.     IF tilt5 < 0 THEN tilt5 = -tilt5
217.     hilly(hh) = hilly(hh) + tilt5 / 10
218.     IF hilly(hh) > 650 THEN GOTO skiphill:
219.     tttilt = tilt / 10
220.     IF tttilt > 6 THEN tttilt = 6
221.     IF tttilt < -6 THEN tttilt = -6
222.     hillx(hh) = hillx(hh) + tttilt
223.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
224.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
225.     FOR sz = .25 TO hillsz(hh) STEP .25
226.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
227.     NEXT sz
228.     skiphill:
229. NEXT hh
230. skiphill2:
231.  
232. 'Left vertical lines.
233. FOR x = 395 - e TO -300 STEP -xs - xx - e
234.     xx = xx + 55
235.     IF v > 7 + e THEN v = -7
236.     IF v < -7 THEN v = 7 + e
237.     IF vv > 300 THEN vv = 300
238.     IF vv < -300 THEN vv = -300
239.     FOR findy = 0 TO 600
240.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
241.     NEXT findy
242.     nex:
243.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
244.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
245.     skip:
246. NEXT x
247.  
248. 'Right vertical lines.
249. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
250.     xx2 = xx2 + 55
251.     IF v > 7 + e THEN v = -7
252.     IF v < -7 THEN v = 7 + e
253.     IF vv > 300 THEN vv = 300
254.     IF vv < -300 THEN vv = -300
255.     FOR findy = 0 TO 600
256.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
257.     NEXT findy
258.     nex2:
259.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
260.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
261.     skip2:
262. NEXT x
263.  
264. 'Horizontal lines.
265. FOR hy = 0 TO 600 STEP xs + xx3 + e
266.     xx3 = xx3 + 5
267.     IF speed > 7 + e THEN speed = -7
268.     IF speed < -7 THEN speed = 7 + e
269.     FOR findx = 0 TO 800
270.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
271.             xx4 = findx
272.         END IF
273.     NEXT findx
274.     FOR findx2 = 0 TO 800
275.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
276.             xx5 = findx2
277.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
278.             GOTO nex3:
279.         END IF
280.     NEXT findx2
281.     nex3:
282. NEXT hy
283. _PRINTMODE _KEEPBACKGROUND
284. _PRINTSTRING (250, 550), "Altitude"
285. elevation$ = STR$(elevation)
286. _PRINTSTRING (255, 570), elevation$
287.  
288. _PRINTSTRING (530, 550), "Airspeed"
289. speed2 = INT(speed2)
290. speed2$ = STR$(speed2)
291. _PRINTSTRING (535, 570), speed2$
292.  
293. _DISPLAY
294. xx = 0: xx2 = 0: xx3 = 0
295.  
296. RETURN
297.  

[johnno56]

I can remember, before the advent of graphic cards, flight sims were either a text display of height, speed and direction etc. and waited for the user to input variations... or it was a text rendition of an artificial horizon.. Horizontal line of "-", tilting left or right, moving up or down, whilst displaying heading, altitude and speed... Relied heavily on one's imagination... ah... the memories...

bplus: Familiar? You can't go wrong with an Asteroids clone... Well, it was either that, or a player vs computer version of Pong... lol  Good to know that you are still around... All this isolation would give one the opportunity to get one's creative juices flowing again... says me who prefers Asteroids and Pong... lol Apart from reading, have you been doing much, in the way of game creation?

[bplus]

@johnno56  check your Message's

Ken here is my overland flight (posted sometime ago but worth repeating):

Code: QB64: [Select]

1. _TITLE "Drawlandscape Parallax test" 'started 2019-03-27
2. 'test if can get end of landscape level to start for big looping background
3. '2019-03-27 a more gentle adjustment back to Mountain starting height for
4. 'more seamless connect of back end to front
5. '2019-03-27 start this file with parallax drawing test
6.  
7.  
8. RANDOMIZE TIMER
9. SCREEN _NEWIMAGE(800, 600, 32)
10. _SCREENMOVE 100, 20
11. TYPE parallaxType
12.     handle AS LONG
13.     rate AS SINGLE 'number of pixels per frame added to le (leading edge)
14.     le AS SINGLE
15. END TYPE
16. DIM SHARED nLevels AS INTEGER
17. nLevels = 6
18. DIM SHARED para(1 TO nLevels) AS parallaxType
19.  
20. DIM SHARED scape&
21. LoadLandscape
22. scapeWidth = _WIDTH(para(1).handle)
23. scapeHeight = _HEIGHT(para(1).handle)
24.  
25. WHILE t < 6000
26.     CLS
27.     FOR i = 1 TO nLevels
28.         IF para(i).le + 800 > scapeWidth THEN
29.             te = scapeWidth - para(i).le
30.             _PUTIMAGE (0, 0)-(te, scapeHeight), para(i).handle, 0, (scapeWidth - te, 0)-(scapeWidth, scapeHeight)
31.             _PUTIMAGE (te, 0)-(800, scapeHeight), para(i).handle, 0, (0, 0)-(800 - te, scapeHeight)
32.  
33.         ELSE
34.             _PUTIMAGE (0, 0)-(800, scapeHeight), para(i).handle, 0, (para(i).le, 0)-(para(i).le + 800, scapeHeight)
35.         END IF
36.  
37.         para(i).le = para(i).le - para(i).rate
38.         IF para(i).le < 0 THEN para(i).le = scapeWidth
39.     NEXT
40.     t = t + 1
41.     _DISPLAY
42.     _LIMIT 120
43. WEND
44.  
45. SUB LoadLandscape
46.     cur& = _DEST
47.     xmax = 800 * 3.25: ymax = 600
48.     hdl& = 1
49.     para(hdl&).handle = _NEWIMAGE(xmax, ymax, 32)
50.     _DEST para(hdl&).handle
51.  
52.     FOR i = 0 TO ymax
53.         midInk 0, 0, 128, 128, 128, 200, i / ymax
54.         LINE (0, i)-(xmax, i)
55.     NEXT
56.     'the land
57.     startH = ymax - 200
58.     rr = 70: gg = 70: bb = 90
59.     FOR mountain = 1 TO nLevels
60.         IF mountain > 1 THEN
61.             para(mountain).handle = _NEWIMAGE(xmax, ymax, 32)
62.             _DEST para(mountain).handle
63.         END IF
64.         Xright = 0
65.         y = startH
66.         COLOR _RGB(rr, gg, bb)
67.         WHILE Xright < xmax - 50
68.             ' upDown = local up / down over range, change along Y
69.             ' range = how far up / down, along X
70.             upDown = (RND * .8 - .4) * (mountain * .5)
71.             range = Xright + rand%(15, 25) * 2.5 / mountain
72.             IF range > xmax - 50 THEN range = xmax - 50
73.             lastx = Xright - 1
74.             FOR x = Xright TO range 'need less flat tops
75.                 test = y + upDown
76.                 test2 = y - upDown
77.                 IF ABS(test - startH) < .13 * startH THEN y = test ELSE y = test2: upDown = -upDown
78.                 LINE (lastx, y)-(x, ymax), , BF 'just lines weren't filling right
79.                 lastx = x
80.             NEXT
81.             Xright = range
82.         WEND
83.         x = lastx + 1
84.         dy = (startH - y) / 50 'more gentle adjustment back to start of screen
85.         WHILE x <= xmax
86.             y = y + dy
87.             LINE (lastx, y)-(x, ymax), , BF 'just lines weren't filling right
88.             lastx = x
89.             x = x + 1
90.         WEND
91.         rr = rand%(rr - 15, rr): gg = rand%(gg - 15, gg): bb = rand%(bb - 25, bb)
92.         IF rr < 0 THEN rr = 0
93.         IF gg < 0 THEN gg = 0
94.         IF bb < 0 THEN bb = 0
95.         startH = startH + mountain * rand%(2, 10)
96.         para(mountain).le = xmax - 800
97.         para(mountain).rate = mountain * .5
98.     NEXT
99.     _DEST cur&
100. END SUB
101.  
102. FUNCTION rand% (lo%, hi%)
103.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
104. END FUNCTION
105.  
106. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
107.     COLOR _RGB(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
108. END SUB
109.  
110.  

[SierraKen]

Thanks bplus! Way cool. I forgot that we can make the sky shades and ground like that. I might look into it. :)

[SierraKen]

OK, I decided to go with the color idea bplus had on his example (not the mountains) and made a much better ground and sky. I also decided to remove the grid lines. So here is what I have so far. The graphics aren't perfect but we have now gone from 1985 technology to around 1994 or so. :) Thanks bplus!

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 26, 2020.
3. 'V. 1.0 - Removed grid lines and made ground and sky look better.
4. 'Thank you bplus for sky and ground idea.
5.  
6. DIM waterx(500), watery(500), shape(500), watersz(500)
7. DIM hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)
8. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
9. SCREEN _NEWIMAGE(800, 600, 32)
10. xs = 10
11. c = 0
12. e = 100
13. d = 0
14. FOR g = 1 TO 20
15.     GOSUB grid:
16. NEXT g
17.  
18. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
19. DO
20.     _LIMIT 3000
21.     a$ = INKEY$
22.  
23.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
24.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
25.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
26.     IF a$ = "-" THEN
27.         speed2 = speed2 - 10
28.     END IF
29.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
30.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
31.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
32.     IF a$ = CHR$(27) THEN END
33.     IF d = 1 THEN speed = speed + 2: b = 0
34.     IF d = 3 AND speed > 0 THEN
35.         v = v - 1
36.         vv = vv - 2
37.         tilt = tilt - 3
38.     END IF
39.     IF d = 4 AND speed > 0 THEN
40.         v = v + 1
41.         vv = vv + 2
42.         tilt = tilt + 3
43.     END IF
44.     IF d = 3 AND speed <= 0 THEN
45.         v = v - 1
46.         vv = vv - 2
47.         tilt = tilt - 3
48.         speed = speed + 4
49.     END IF
50.     IF d = 4 AND speed <= 0 THEN
51.         v = v + 1
52.         vv = vv + 2
53.         tilt = tilt + 3
54.         speed = speed + 4
55.     END IF
56.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
57.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
58.  
59.     IF tilt > 175 THEN tilt = 175
60.     IF tilt < -175 THEN tilt = -175
61.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
62.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
63.     IF e > 100 THEN e = 100
64.     IF e < 0 THEN e = 0
65.     elevation = e - 100
66.     elevation = -elevation
67.     elevation = elevation * 100
68.     IF d <> 0 THEN GOSUB grid:
69.     IF speed2 < 0 THEN speed2 = 0
70.     IF speed2 > 1000 THEN speed2 = 1000
71.     delay = 1 / speed2
72.     IF delay < .001 THEN delay = .001
73.     IF delay > .02 THEN delay = .02
74.     _DELAY delay
75. LOOP
76.  
77. grid:
78. CLS
79. FOR bsky = 0 TO 300 STEP .25
80.     LINE (0, bsky - e - tilt)-(800, bsky - e + tilt), _RGB32(0, 0, bsky)
81.     LINE (0, bsky - e - tilt + .12)-(800, bsky - e + tilt + .12), _RGB32(0, 0, bsky)
82. NEXT bsky
83.  
84. FOR ground = 300 TO 900 STEP .25
85.     IF ground = INT(ground) THEN ground2 = ground2 + 1
86.     LINE (0, ground - e - tilt)-(800, ground - e + tilt), _RGB32(0, ground2, 0)
87.     LINE (0, ground - e - tilt + .12)-(800, ground - e + tilt + .12), _RGB32(0, ground2, 0)
88. NEXT ground
89. ground2 = 0
90. 'LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
91. 'PAINT (400, 599), _RGB32(0, 155, 0)
92.  
93. 'Calculate Compass
94. tilt2 = tilt
95. IF tilt2 < 0 THEN tilt2 = -tilt2
96.  
97. IF tilt < 0 THEN c = c - tilt2 / 314
98. IF tilt > 0 THEN c = c + tilt2 / 314
99. IF c > 359 THEN c = 0
100. IF c < 0 THEN c = 359
101. cc = INT(c)
102. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
103. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
104. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
105. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
106. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
107. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
108. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
109. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
110. _PRINTMODE _KEEPBACKGROUND
111. _PRINTSTRING (390, 550), comp$
112. cc$ = STR$(cc)
113. _PRINTSTRING (395, 570), cc$
114.  
115. 'Sun
116. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
117. tilt3 = tilt / 50
118. IF cc = 315 THEN sunx = 800
119. IF cc = 225 THEN sunx = 0
120. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
121. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
122. oldtilt3 = tilt3
123. FOR sz = .25 TO 10 STEP .25
124.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
125. NEXT sz
126. nosun:
127.  
128. 'Clouds
129. RANDOMIZE TIMER
130. clouds = INT(RND * 200) + 1
131. IF clouds > 190 THEN
132.     cl = cl + 1
133.     IF cl > 100 THEN cl = 1
134.     RANDOMIZE TIMER
135.     cloudx(cl) = INT(RND * 799) + 1
136.     cloudy(cl) = 180
137.     RANDOMIZE TIMER
138.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
139.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
140.     RANDOMIZE TIMER
141.     shapecl(cl) = (RND - .4)
142.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
143. END IF
144. IF cl = 0 THEN GOTO skipclouds2:
145. FOR cl2 = 1 TO cl
146.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
147.     tilt6 = tilt / 5
148.     IF tilt6 < 0 THEN tilt6 = -tilt6
149.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
150.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
151.     ttttilt = tilt / 10
152.     IF ttttilt > 6 THEN ttttilt = 6
153.     IF ttttilt < -6 THEN ttttilt = -6
154.     cloudx(cl2) = cloudx(cl2) + ttttilt
155.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
156.     IF cloudy(cl2) >= 175 THEN ccl = 100
157.     IF cloudy(cl2) < 175 AND cloudy(cl2) >= 150 THEN ccl = 125
158.     IF cloudy(cl2) < 150 AND cloudy(cl2) >= 125 THEN ccl = 150
159.     IF cloudy(cl2) < 125 AND cloudy(cl2) >= 100 THEN ccl = 175
160.     IF cloudy(cl2) < 100 AND cloudy(cl2) >= 75 THEN ccl = 200
161.     IF cloudy(cl2) < 75 AND cloudy(cl2) >= 50 THEN ccl = 225
162.     IF cloudy(cl2) < 50 THEN ccl = 255
163.     FOR sz = .25 TO cloudsz(cl2) STEP .25
164.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)
165.     NEXT sz
166.     skipclouds:
167. NEXT cl2
168. skipclouds2:
169.  
170.  
171.  
172. 'Water
173. RANDOMIZE TIMER
174. water = INT(RND * 200) + 1
175. IF water > 197 THEN
176.     w = w + 1
177.     IF w > 100 THEN w = 1
178.     RANDOMIZE TIMER
179.     waterx(w) = INT(RND * 799) + 1
180.     watery(w) = 310
181.     RANDOMIZE TIMER
182.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
183.     RANDOMIZE TIMER
184.     shape(w) = (RND - .35)
185. END IF
186. IF w = 0 THEN GOTO skipwater2:
187. FOR ww = 1 TO w
188.     watery(ww) = watery(ww) + speed2 / 125
189.     tilt4 = tilt / 5
190.     IF tilt4 < 0 THEN tilt4 = -tilt4
191.     watery(ww) = watery(ww) + tilt4 / 10
192.     IF watery(ww) > 650 THEN GOTO skipwater:
193.     ttilt = tilt / 10
194.     IF ttilt > 6 THEN ttilt = 6
195.     IF ttilt < -6 THEN ttilt = -6
196.     waterx(ww) = waterx(ww) + ttilt
197.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
198.     IF POINT(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) THEN GOTO skipwater:
199.     FOR sz = .25 TO watersz(ww) STEP .25
200.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
201.     NEXT sz
202.     skipwater:
203. NEXT ww
204. skipwater2:
205.  
206. 'Hills
207. RANDOMIZE TIMER
208. hills = INT(RND * 200) + 1
209. IF hills > 150 THEN
210.     h = h + 1
211.     IF h > 300 THEN h = 1
212.     RANDOMIZE TIMER
213.     hillx(h) = INT(RND * 799) + 1
214.     hilly(h) = 310
215.     RANDOMIZE TIMER
216.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
217.     RANDOMIZE TIMER
218.     hshape(h) = (RND - .35)
219.     hcolor(h) = INT(RND * 100) + 100
220. END IF
221. IF h = 0 THEN GOTO skiphill2:
222. l = l + 1
223. FOR hh = 1 TO h
224.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
225.     tilt5 = tilt / 5
226.     IF tilt5 < 0 THEN tilt5 = -tilt5
227.     hilly(hh) = hilly(hh) + tilt5 / 10
228.     IF hilly(hh) > 650 THEN GOTO skiphill:
229.     tttilt = tilt / 10
230.     IF tttilt > 6 THEN tttilt = 6
231.     IF tttilt < -6 THEN tttilt = -6
232.     hillx(hh) = hillx(hh) + tttilt
233.     IF hillx(hh) < -50 OR hillx(hh) > 850 THEN GOTO skiphill:
234.     IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) THEN GOTO skiphill:
235.     FOR sz = .25 TO hillsz(hh) STEP .25
236.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
237.     NEXT sz
238.     skiphill:
239. NEXT hh
240. skiphill2:
241.  
242. _PRINTMODE _KEEPBACKGROUND
243. _PRINTSTRING (250, 550), "Altitude"
244. elevation$ = STR$(elevation)
245. _PRINTSTRING (255, 570), elevation$
246.  
247. _PRINTSTRING (530, 550), "Airspeed"
248. speed2 = INT(speed2)
249. speed2$ = STR$(speed2)
250. _PRINTSTRING (535, 570), speed2$
251.  
252. _DISPLAY
253. xx = 0: xx2 = 0: xx3 = 0
254.  
255. RETURN
256.