Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on May 25, 2020, 12:55:19 am

Title: Flight Simulator
Post by: SierraKen on May 25, 2020, 12:55:19 am
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."
  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
  69.  
  70. grid:
  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
  113. water = INT(RND * 200) + 1
  114. IF water > 197 THEN
  115.     w = w + 1
  116.     IF w > 100 THEN w = 1
  118.     waterx(w) = INT(RND * 799) + 1
  119.     watery(w) = 310
  121.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  123.     shape(w) = (RND - .35)
  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:
  148. hills = INT(RND * 200) + 1
  149. IF hills > 150 THEN
  150.     h = h + 1
  151.     IF h > 300 THEN h = 1
  153.     hillx(h) = INT(RND * 799) + 1
  154.     hilly(h) = 310
  156.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  158.     hshape(h) = (RND - .35)
  159.     hcolor(h) = INT(RND * 100) + 100
  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:
  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:
  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.  
  243. xx = 0: xx2 = 0: xx3 = 0
  244. l = l + 1
  246.  
Title: Re: Flight Simulator
Post by: OldMoses on May 25, 2020, 08:17:08 am
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.... ;)
Title: Re: Flight Simulator
Post by: 40wattstudio on May 25, 2020, 10:00:01 am
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!
Title: Re: Flight Simulator
Post by: SierraKen on May 25, 2020, 12:46:50 pm
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."
  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
  69.  
  70. grid:
  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"
  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
  114. water = INT(RND * 200) + 1
  115. IF water > 197 THEN
  116.     w = w + 1
  117.     IF w > 100 THEN w = 1
  119.     waterx(w) = INT(RND * 799) + 1
  120.     watery(w) = 310
  122.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  124.     shape(w) = (RND - .35)
  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:
  149. hills = INT(RND * 200) + 1
  150. IF hills > 150 THEN
  151.     h = h + 1
  152.     IF h > 300 THEN h = 1
  154.     hillx(h) = INT(RND * 799) + 1
  155.     hilly(h) = 310
  157.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  159.     hshape(h) = (RND - .35)
  160.     hcolor(h) = INT(RND * 100) + 100
  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:
  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:
  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
  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.  
  245. xx = 0: xx2 = 0: xx3 = 0
  246. l = l + 1
  248.  
Title: Re: Flight Simulator
Post by: SierraKen on May 25, 2020, 12:49:15 pm
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
Title: Re: Flight Simulator
Post by: johnno56 on May 25, 2020, 06:07:36 pm
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
Title: Re: Flight Simulator
Post by: SierraKen on May 25, 2020, 06:18:02 pm
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."
  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
  70.  
  71. grid:
  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"
  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
  115. clouds = INT(RND * 200) + 1
  116. IF clouds > 190 THEN
  117.     cl = cl + 1
  118.     IF cl > 100 THEN cl = 1
  120.     cloudx(cl) = INT(RND * 799) + 1
  121.     cloudy(cl) = 200
  123.     cloudsz(cl) = INT(RND * 5) + 1 + e / 2
  125.     shapecl(cl) = (RND - .35)
  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
  150. water = INT(RND * 200) + 1
  151. IF water > 197 THEN
  152.     w = w + 1
  153.     IF w > 100 THEN w = 1
  155.     waterx(w) = INT(RND * 799) + 1
  156.     watery(w) = 310
  158.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  160.     shape(w) = (RND - .35)
  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:
  185. hills = INT(RND * 200) + 1
  186. IF hills > 150 THEN
  187.     h = h + 1
  188.     IF h > 300 THEN h = 1
  190.     hillx(h) = INT(RND * 799) + 1
  191.     hilly(h) = 310
  193.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  195.     hshape(h) = (RND - .35)
  196.     hcolor(h) = INT(RND * 100) + 100
  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:
  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:
  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
  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.  
  281. xx = 0: xx2 = 0: xx3 = 0
  282. l = l + 1
  284.  
Title: Re: Flight Simulator
Post by: johnno56 on May 26, 2020, 04:19:15 am
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.
Title: Re: Flight Simulator
Post by: SierraKen on May 26, 2020, 02:22:18 pm
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."
  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
  70.  
  71. grid:
  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"
  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
  115. clouds = INT(RND * 200) + 1
  116. IF clouds > 190 THEN
  117.     cl = cl + 1
  118.     IF cl > 100 THEN cl = 1
  120.     cloudx(cl) = INT(RND * 799) + 1
  121.     cloudy(cl) = 200
  123.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  124.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  126.     shapecl(cl) = (RND - .35)
  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
  158. water = INT(RND * 200) + 1
  159. IF water > 197 THEN
  160.     w = w + 1
  161.     IF w > 100 THEN w = 1
  163.     waterx(w) = INT(RND * 799) + 1
  164.     watery(w) = 310
  166.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  168.     shape(w) = (RND - .35)
  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:
  193. hills = INT(RND * 200) + 1
  194. IF hills > 150 THEN
  195.     h = h + 1
  196.     IF h > 300 THEN h = 1
  198.     hillx(h) = INT(RND * 799) + 1
  199.     hilly(h) = 310
  201.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  203.     hshape(h) = (RND - .35)
  204.     hcolor(h) = INT(RND * 100) + 100
  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:
  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:
  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
  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.  
  289. xx = 0: xx2 = 0: xx3 = 0
  290. l = l + 1
  292.  
Title: Re: Flight Simulator
Post by: bplus on May 26, 2020, 04:09:45 pm
Quote
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 ;-))
Title: Re: Flight Simulator
Post by: SierraKen on May 26, 2020, 04:44:30 pm
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:
  16.  
  17. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  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
  75.  
  76. grid:
  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"
  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
  120. clouds = INT(RND * 200) + 1
  121. IF clouds > 190 THEN
  122.     cl = cl + 1
  123.     IF cl > 100 THEN cl = 1
  125.     cloudx(cl) = INT(RND * 799) + 1
  126.     cloudy(cl) = 180
  128.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  129.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  131.     shapecl(cl) = (RND - .4)
  132.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  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
  164. water = INT(RND * 200) + 1
  165. IF water > 197 THEN
  166.     w = w + 1
  167.     IF w > 100 THEN w = 1
  169.     waterx(w) = INT(RND * 799) + 1
  170.     watery(w) = 310
  172.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  174.     shape(w) = (RND - .35)
  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
  198. hills = INT(RND * 200) + 1
  199. IF hills > 150 THEN
  200.     h = h + 1
  201.     IF h > 300 THEN h = 1
  203.     hillx(h) = INT(RND * 799) + 1
  204.     hilly(h) = 310
  206.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  208.     hshape(h) = (RND - .35)
  209.     hcolor(h) = INT(RND * 100) + 100
  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:
  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:
  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
  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.  
  294. xx = 0: xx2 = 0: xx3 = 0
  295.  
  297.  
Title: Re: Flight Simulator
Post by: johnno56 on May 26, 2020, 10:21:08 pm
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?
Title: Re: Flight Simulator
Post by: bplus on May 26, 2020, 10:50:29 pm
@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.  
  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
  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
  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&
  101.  
  102. FUNCTION rand% (lo%, hi%)
  103.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
  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##)
  109.  
  110.  
Title: Re: Flight Simulator
Post by: SierraKen on May 26, 2020, 11:26:34 pm
Thanks bplus! Way cool. I forgot that we can make the sky shades and ground like that. I might look into it. :)
Title: Re: Flight Simulator
Post by: SierraKen on May 27, 2020, 12:30:40 am
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:
  17.  
  18. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  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
  76.  
  77. grid:
  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"
  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
  130. clouds = INT(RND * 200) + 1
  131. IF clouds > 190 THEN
  132.     cl = cl + 1
  133.     IF cl > 100 THEN cl = 1
  135.     cloudx(cl) = INT(RND * 799) + 1
  136.     cloudy(cl) = 180
  138.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  139.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  141.     shapecl(cl) = (RND - .4)
  142.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  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
  174. water = INT(RND * 200) + 1
  175. IF water > 197 THEN
  176.     w = w + 1
  177.     IF w > 100 THEN w = 1
  179.     waterx(w) = INT(RND * 799) + 1
  180.     watery(w) = 310
  182.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  184.     shape(w) = (RND - .35)
  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
  208. hills = INT(RND * 200) + 1
  209. IF hills > 150 THEN
  210.     h = h + 1
  211.     IF h > 300 THEN h = 1
  213.     hillx(h) = INT(RND * 799) + 1
  214.     hilly(h) = 310
  216.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  218.     hshape(h) = (RND - .35)
  219.     hcolor(h) = INT(RND * 100) + 100
  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.  
  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.  
  253. xx = 0: xx2 = 0: xx3 = 0
  254.  
  256.  

Title: Re: Flight Simulator
Post by: johnno56 on May 27, 2020, 03:28:36 am
Cool... Much improved!
Title: Re: Flight Simulator
Post by: SierraKen on May 27, 2020, 12:11:15 pm
Thanks Johno. :) I'll be busy today so hopefully soon I'll work on it more.
Title: Re: Flight Simulator
Post by: SierraKen on May 29, 2020, 04:00:57 pm
I fixed the hills so they won't be seen in the sky anymore at all. LOL
I am having difficulty trying to remove the black pixels in the land that show up when you turn. Does anyone have any ideas on how to remove them? The land is made using LINE commands and when you turn they go at an angle which is why they show up. But I've tried POINT scans to find them and fill them with PSET's but no luck yet. Maybe I haven't found the right color yet. Although I did copy the image and pasted it in Paint.Net and used the color picker to get the exact RGB amount and it's 0,0,0 it says, which doesn't work on my scan. Not sure what's going on. I removed the scan commands for this update, but they were right after the first 2 loops under grid: and CLS right after it draws the sky and land. I've tried CP in both red, green, and/or blue but no luck. The scan I used was this:

Edit: Most pixelation has been fixed, scroll down to the next post for the update.

Code: QB64: [Select]
  1. FOR PCX=0 to 800
  2. FOR PCY=300 to 600
  3. IF POINT(PCX,PCY)=_RGB32(0,0,CP) THEN PSET (PCX,PCY),_RGB32(0,150,0)
  4. CP=CP+1
  5. NEXT PCY
  6. NEXT PCX
  7.  

Here's the update with the hills fix:

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:
  17.  
  18. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  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
  76.  
  77. grid:
  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. 'FOR PCX = 0 TO 800
  91. '    FOR PCY = 300 TO 600 STEP .25
  92. '    IF POINT(PCX, PCY) = _RGB32(0, 0, CP) THEN PSET (PCX, PCY), _RGB32(0, 150, 0)
  93. 'CP = CP + 1
  94. 'NEXT PCY
  95. 'NEXT PCX
  96.  
  97.  
  98. 'Calculate Compass
  99. tilt2 = tilt
  100. IF tilt2 < 0 THEN tilt2 = -tilt2
  101.  
  102. IF tilt < 0 THEN c = c - tilt2 / 314
  103. IF tilt > 0 THEN c = c + tilt2 / 314
  104. IF c > 359 THEN c = 0
  105. IF c < 0 THEN c = 359
  106. cc = INT(c)
  107. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
  108. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
  109. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
  110. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
  111. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
  112. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
  113. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
  114. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
  116. _PRINTSTRING (390, 550), comp$
  117. cc$ = STR$(cc)
  118. _PRINTSTRING (395, 570), cc$
  119.  
  120. 'Sun
  121. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
  122. tilt3 = tilt / 50
  123. IF cc = 315 THEN sunx = 800
  124. IF cc = 225 THEN sunx = 0
  125. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
  126. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
  127. oldtilt3 = tilt3
  128. FOR sz = .25 TO 10 STEP .25
  129.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
  130. NEXT sz
  131. nosun:
  132.  
  133. 'Clouds
  135. clouds = INT(RND * 200) + 1
  136. IF clouds > 190 THEN
  137.     cl = cl + 1
  138.     IF cl > 100 THEN cl = 1
  140.     cloudx(cl) = INT(RND * 799) + 1
  141.     cloudy(cl) = 180
  143.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  144.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  146.     shapecl(cl) = (RND - .4)
  147.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  149. IF cl = 0 THEN GOTO skipclouds2:
  150. FOR cl2 = 1 TO cl
  151.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
  152.     tilt6 = tilt / 5
  153.     IF tilt6 < 0 THEN tilt6 = -tilt6
  154.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
  155.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
  156.     ttttilt = tilt / 10
  157.     IF ttttilt > 6 THEN ttttilt = 6
  158.     IF ttttilt < -6 THEN ttttilt = -6
  159.     cloudx(cl2) = cloudx(cl2) + ttttilt
  160.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
  161.     IF cloudy(cl2) >= 175 THEN ccl = 100
  162.     IF cloudy(cl2) < 175 AND cloudy(cl2) >= 150 THEN ccl = 125
  163.     IF cloudy(cl2) < 150 AND cloudy(cl2) >= 125 THEN ccl = 150
  164.     IF cloudy(cl2) < 125 AND cloudy(cl2) >= 100 THEN ccl = 175
  165.     IF cloudy(cl2) < 100 AND cloudy(cl2) >= 75 THEN ccl = 200
  166.     IF cloudy(cl2) < 75 AND cloudy(cl2) >= 50 THEN ccl = 225
  167.     IF cloudy(cl2) < 50 THEN ccl = 255
  168.     FOR sz = .25 TO cloudsz(cl2) STEP .25
  169.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)
  170.     NEXT sz
  171.     skipclouds:
  172. NEXT cl2
  173. skipclouds2:
  174.  
  175. 'Water
  177. water = INT(RND * 200) + 1
  178. IF water > 197 THEN
  179.     w = w + 1
  180.     IF w > 100 THEN w = 1
  182.     waterx(w) = INT(RND * 799) + 1
  183.     watery(w) = 310
  185.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  187.     shape(w) = (RND - .35)
  189. IF w = 0 THEN GOTO skipwater2:
  190. FOR ww = 1 TO w
  191.     watery(ww) = watery(ww) + speed2 / 125
  192.     tilt4 = tilt / 5
  193.     IF tilt4 < 0 THEN tilt4 = -tilt4
  194.     watery(ww) = watery(ww) + tilt4 / 10
  195.     IF watery(ww) > 650 THEN GOTO skipwater:
  196.     ttilt = tilt / 10
  197.     IF ttilt > 6 THEN ttilt = 6
  198.     IF ttilt < -6 THEN ttilt = -6
  199.     waterx(ww) = waterx(ww) + ttilt
  200.     FOR chilly = 0 TO 300
  201.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skipwater:
  202.     NEXT chilly
  203.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
  204.     FOR sz = .25 TO watersz(ww) STEP .25
  205.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
  206.     NEXT sz
  207.     skipwater:
  208. NEXT ww
  209. skipwater2:
  210.  
  211. 'Hills
  213. hills = INT(RND * 200) + 1
  214. IF hills > 150 THEN
  215.     h = h + 1
  216.     IF h > 300 THEN h = 1
  218.     hillx(h) = INT(RND * 799) + 1
  219.     hilly(h) = 310
  221.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  223.     hshape(h) = (RND - .35)
  224.     hcolor(h) = INT(RND * 100) + 100
  226. IF h = 0 THEN GOTO skiphill2:
  227. FOR hh = 1 TO h
  228.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
  229.     tilt5 = tilt / 5
  230.     IF tilt5 < 0 THEN tilt5 = -tilt5
  231.     hilly(hh) = hilly(hh) + tilt5 / 10
  232.     IF hilly(hh) > 650 THEN GOTO skiphill:
  233.     tttilt = tilt / 10
  234.     IF tttilt > 6 THEN tttilt = 6
  235.     IF tttilt < -6 THEN tttilt = -6
  236.     hillx(hh) = hillx(hh) + tttilt
  237.     FOR chilly = 0 TO 300
  238.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skiphill:
  239.     NEXT chilly
  240.     IF hillx(hh) < 0 OR hillx(hh) > 800 THEN GOTO skiphill:
  241.     FOR sz = .25 TO hillsz(hh) STEP .25
  242.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
  243.     NEXT sz
  244.     skiphill:
  245. NEXT hh
  246. skiphill2:
  247.  
  249. _PRINTSTRING (250, 550), "Altitude"
  250. elevation$ = STR$(elevation)
  251. _PRINTSTRING (255, 570), elevation$
  252.  
  253. _PRINTSTRING (530, 550), "Airspeed"
  254. speed2 = INT(speed2)
  255. speed2$ = STR$(speed2)
  256. _PRINTSTRING (535, 570), speed2$
  257.  
  259. xx = 0: xx2 = 0: xx3 = 0
  260.  
  262.  
Title: Re: Flight Simulator
Post by: SierraKen on May 29, 2020, 08:02:46 pm
I was able to fix most of the pixelation problem by just adding more LINE commands. There's still a couple on the very side but I'm not going to worry about it.
Here is the update:

Code: QB64: [Select]
  1. 'Flying - By SierraKen
  2. 'Made on May 29, 2020.
  3. 'V. 1.1 - Fixed hills from being in the sky and most pixelation on land.
  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:
  16.  
  17. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  19.     _LIMIT 4000
  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 - 3
  37.     END IF
  38.     IF d = 4 AND speed > 0 THEN
  39.         v = v + 1
  40.         vv = vv + 2
  41.         tilt = tilt + 3
  42.     END IF
  43.     IF d = 3 AND speed <= 0 THEN
  44.         v = v - 1
  45.         vv = vv - 2
  46.         tilt = tilt - 3
  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 + 3
  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 > 175 THEN tilt = 175
  59.     IF tilt < -175 THEN tilt = -175
  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 > 1000 THEN speed2 = 1000
  70.     delay = 1 / speed2 * 2
  71.     IF delay < .0005 THEN delay = .0005
  72.     IF delay > .005 THEN delay = .005
  73.     _DELAY delay
  75.  
  76. grid:
  78. FOR bsky = 0 TO 300 STEP .25
  79.     LINE (0, bsky - e - tilt)-(800, bsky - e + tilt), _RGB32(0, 0, bsky)
  80.     LINE (0, bsky - e - tilt + .125)-(800, bsky - e + tilt - .125), _RGB32(0, 0, bsky)
  81.     LINE (0, bsky - e - tilt - .125)-(800, bsky - e + tilt + .125), _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 + .125)-(800, ground - e + tilt - .125), _RGB32(0, ground2, 0)
  88.     LINE (0, ground - e - tilt - .125)-(800, ground - e + tilt + .125), _RGB32(0, ground2, 0)
  89.  
  90. NEXT ground
  91. ground2 = 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"
  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
  130. clouds = INT(RND * 200) + 1
  131. IF clouds > 190 THEN
  132.     cl = cl + 1
  133.     IF cl > 100 THEN cl = 1
  135.     cloudx(cl) = INT(RND * 799) + 1
  136.     cloudy(cl) = 180
  138.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  139.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  141.     shapecl(cl) = (RND - .4)
  142.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  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. 'Water
  172. water = INT(RND * 200) + 1
  173. IF water > 197 THEN
  174.     w = w + 1
  175.     IF w > 100 THEN w = 1
  177.     waterx(w) = INT(RND * 799) + 1
  178.     watery(w) = 310
  180.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  182.     shape(w) = (RND - .35)
  184. IF w = 0 THEN GOTO skipwater2:
  185. FOR ww = 1 TO w
  186.     watery(ww) = watery(ww) + speed2 / 125
  187.     tilt4 = tilt / 5
  188.     IF tilt4 < 0 THEN tilt4 = -tilt4
  189.     watery(ww) = watery(ww) + tilt4 / 10
  190.     IF watery(ww) > 650 THEN GOTO skipwater:
  191.     ttilt = tilt / 10
  192.     IF ttilt > 6 THEN ttilt = 6
  193.     IF ttilt < -6 THEN ttilt = -6
  194.     waterx(ww) = waterx(ww) + ttilt
  195.     FOR chilly = 0 TO 300
  196.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skipwater:
  197.     NEXT chilly
  198.     IF waterx(ww) < -50 OR waterx(ww) > 850 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
  208. hills = INT(RND * 200) + 1
  209. IF hills > 150 THEN
  210.     h = h + 1
  211.     IF h > 300 THEN h = 1
  213.     hillx(h) = INT(RND * 799) + 1
  214.     hilly(h) = 310
  216.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  218.     hshape(h) = (RND - .35)
  219.     hcolor(h) = INT(RND * 100) + 100
  221. IF h = 0 THEN GOTO skiphill2:
  222. FOR hh = 1 TO h
  223.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
  224.     tilt5 = tilt / 5
  225.     IF tilt5 < 0 THEN tilt5 = -tilt5
  226.     hilly(hh) = hilly(hh) + tilt5 / 10
  227.     IF hilly(hh) > 650 THEN GOTO skiphill:
  228.     tttilt = tilt / 10
  229.     IF tttilt > 6 THEN tttilt = 6
  230.     IF tttilt < -6 THEN tttilt = -6
  231.     hillx(hh) = hillx(hh) + tttilt
  232.     FOR chilly = 0 TO 300
  233.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skiphill:
  234.     NEXT chilly
  235.     IF hillx(hh) < 0 OR hillx(hh) > 800 THEN GOTO skiphill:
  236.     FOR sz = .25 TO hillsz(hh) STEP .25
  237.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
  238.     NEXT sz
  239.     skiphill:
  240. NEXT hh
  241. skiphill2:
  242.  
  244. _PRINTSTRING (250, 550), "Altitude"
  245. elevation$ = STR$(elevation)
  246. _PRINTSTRING (255, 570), elevation$
  247.  
  248. _PRINTSTRING (530, 550), "Airspeed"
  249. speed2 = INT(speed2)
  250. speed2$ = STR$(speed2)
  251. _PRINTSTRING (535, 570), speed2$
  252.  
  254. xx = 0: xx2 = 0: xx3 = 0
  255.  
  257.  
Title: Re: Flight Simulator
Post by: SierraKen on May 30, 2020, 12:54:02 am
Sorry for so many updates, but I am trying to keep you all up to date as I make this better. It would be a good learning example for people.

V. 1.2 Update - Removed unneeded delay, lessened _LIMIT to 1000, made turning faster as you go faster, and increased speed to 2000.

Code: QB64: [Select]
  1. 'Flying - By SierraKen
  2. 'Made on May 29, 2020.
  3. 'V. 1.2 - Removed unneeded delay, lessened _LIMIT to 1000, made turning faster as you go faster, and increased speed to 2000.
  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:
  16.  
  17. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  19.     _LIMIT 1000
  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 speed2 = speed2 - 10
  26.     IF speed2 <= 0 THEN speed = 0: b = 1: d = 0
  27.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
  28.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
  29.     IF a$ = CHR$(27) THEN END
  30.     IF d = 1 THEN speed = speed + 2: b = 0
  31.     IF d = 3 AND speed > 0 THEN
  32.         v = v - 1
  33.         vv = vv - 2
  34.         stilt = speed2 / 200
  35.         IF stilt < 4 THEN stilt = 4
  36.         tilt = tilt - stilt
  37.     END IF
  38.     IF d = 4 AND speed > 0 THEN
  39.         v = v + 1
  40.         vv = vv + 2
  41.         stilt2 = speed2 / 200
  42.         IF stilt2 < 4 THEN stilt2 = 4
  43.         tilt = tilt + stilt2
  44.     END IF
  45.     IF d = 3 AND speed <= 0 THEN
  46.         v = v - 1
  47.         vv = vv - 2
  48.         tilt = tilt - 3
  49.         speed = speed + 4
  50.     END IF
  51.     IF d = 4 AND speed <= 0 THEN
  52.         v = v + 1
  53.         vv = vv + 2
  54.         tilt = tilt + 3
  55.         speed = speed + 4
  56.     END IF
  57.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
  58.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
  59.  
  60.     IF tilt > 175 THEN tilt = 175
  61.     IF tilt < -175 THEN tilt = -175
  62.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
  63.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
  64.     IF e > 100 THEN e = 100
  65.     IF e < 0 THEN e = 0
  66.     elevation = e - 100
  67.     elevation = -elevation
  68.     elevation = elevation * 100
  69.     IF d <> 0 THEN GOSUB grid:
  70.     IF speed2 < 0 THEN speed2 = 0
  71.     IF speed2 > 2000 THEN speed2 = 2000
  73.  
  74. grid:
  76. FOR bsky = 0 TO 300 STEP .25
  77.     LINE (0, bsky - e - tilt)-(800, bsky - e + tilt), _RGB32(0, 0, bsky)
  78.     LINE (0, bsky - e - tilt + .125)-(800, bsky - e + tilt - .125), _RGB32(0, 0, bsky)
  79.     LINE (0, bsky - e - tilt - .125)-(800, bsky - e + tilt + .125), _RGB32(0, 0, bsky)
  80. NEXT bsky
  81.  
  82. FOR ground = 300 TO 900 STEP .25
  83.     IF ground = INT(ground) THEN ground2 = ground2 + 1
  84.     LINE (0, ground - e - tilt)-(800, ground - e + tilt), _RGB32(0, ground2, 0)
  85.     LINE (0, ground - e - tilt + .125)-(800, ground - e + tilt - .125), _RGB32(0, ground2, 0)
  86.     LINE (0, ground - e - tilt - .125)-(800, ground - e + tilt + .125), _RGB32(0, ground2, 0)
  87.  
  88. NEXT ground
  89. ground2 = 0
  90.  
  91. 'Calculate Compass
  92. tilt2 = tilt
  93. IF tilt2 < 0 THEN tilt2 = -tilt2
  94.  
  95. IF tilt < 0 THEN c = c - tilt2 / 314
  96. IF tilt > 0 THEN c = c + tilt2 / 314
  97. IF c > 359 THEN c = 0
  98. IF c < 0 THEN c = 359
  99. cc = INT(c)
  100. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
  101. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
  102. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
  103. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
  104. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
  105. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
  106. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
  107. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
  109. _PRINTSTRING (390, 550), comp$
  110. cc$ = STR$(cc)
  111. _PRINTSTRING (395, 570), cc$
  112.  
  113. 'Sun
  114. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
  115. tilt3 = tilt / 50
  116. IF cc = 315 THEN sunx = 800
  117. IF cc = 225 THEN sunx = 0
  118. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
  119. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
  120. oldtilt3 = tilt3
  121. FOR sz = .25 TO 10 STEP .25
  122.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
  123. NEXT sz
  124. nosun:
  125.  
  126. 'Clouds
  128. clouds = INT(RND * 200) + 1
  129. IF clouds > 190 THEN
  130.     cl = cl + 1
  131.     IF cl > 100 THEN cl = 1
  133.     cloudx(cl) = INT(RND * 799) + 1
  134.     cloudy(cl) = 180
  136.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  137.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  139.     shapecl(cl) = (RND - .4)
  140.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  142. IF cl = 0 THEN GOTO skipclouds2:
  143. FOR cl2 = 1 TO cl
  144.     cloudy(cl2) = cloudy(cl2) - speed2 / 125
  145.     tilt6 = tilt / 5
  146.     IF tilt6 < 0 THEN tilt6 = -tilt6
  147.     cloudy(cl2) = cloudy(cl2) + tilt6 / 10
  148.     IF cloudy(cl2) < -50 THEN GOTO skipclouds:
  149.     ttttilt = tilt / 10
  150.     IF ttttilt > 6 THEN ttttilt = 6
  151.     IF ttttilt < -6 THEN ttttilt = -6
  152.     cloudx(cl2) = cloudx(cl2) + ttttilt
  153.     IF cloudx(cl2) < -50 OR cloudx(cl2) > 850 THEN GOTO skipclouds:
  154.     IF cloudy(cl2) >= 175 THEN ccl = 100
  155.     IF cloudy(cl2) < 175 AND cloudy(cl2) >= 150 THEN ccl = 125
  156.     IF cloudy(cl2) < 150 AND cloudy(cl2) >= 125 THEN ccl = 150
  157.     IF cloudy(cl2) < 125 AND cloudy(cl2) >= 100 THEN ccl = 175
  158.     IF cloudy(cl2) < 100 AND cloudy(cl2) >= 75 THEN ccl = 200
  159.     IF cloudy(cl2) < 75 AND cloudy(cl2) >= 50 THEN ccl = 225
  160.     IF cloudy(cl2) < 50 THEN ccl = 255
  161.     FOR sz = .25 TO cloudsz(cl2) STEP .25
  162.         CIRCLE (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)
  163.     NEXT sz
  164.     skipclouds:
  165. NEXT cl2
  166. skipclouds2:
  167.  
  168. 'Water
  170. water = INT(RND * 200) + 1
  171. IF water > 197 THEN
  172.     w = w + 1
  173.     IF w > 100 THEN w = 1
  175.     waterx(w) = INT(RND * 799) + 1
  176.     watery(w) = 310
  178.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  180.     shape(w) = (RND - .35)
  182. IF w = 0 THEN GOTO skipwater2:
  183. FOR ww = 1 TO w
  184.     watery(ww) = watery(ww) + speed2 / 125
  185.     tilt4 = tilt / 5
  186.     IF tilt4 < 0 THEN tilt4 = -tilt4
  187.     watery(ww) = watery(ww) + tilt4 / 10
  188.     IF watery(ww) > 650 THEN GOTO skipwater:
  189.     ttilt = tilt / 10
  190.     IF ttilt > 6 THEN ttilt = 6
  191.     IF ttilt < -6 THEN ttilt = -6
  192.     waterx(ww) = waterx(ww) + ttilt
  193.     FOR chilly = 0 TO 300
  194.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skipwater:
  195.     NEXT chilly
  196.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
  197.     FOR sz = .25 TO watersz(ww) STEP .25
  198.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
  199.     NEXT sz
  200.     skipwater:
  201. NEXT ww
  202. skipwater2:
  203.  
  204. 'Hills
  206. hills = INT(RND * 200) + 1
  207. IF hills > 150 THEN
  208.     h = h + 1
  209.     IF h > 300 THEN h = 1
  211.     hillx(h) = INT(RND * 799) + 1
  212.     hilly(h) = 310
  214.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  216.     hshape(h) = (RND - .35)
  217.     hcolor(h) = INT(RND * 100) + 100
  219. IF h = 0 THEN GOTO skiphill2:
  220. FOR hh = 1 TO h
  221.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
  222.     tilt5 = tilt / 5
  223.     IF tilt5 < 0 THEN tilt5 = -tilt5
  224.     hilly(hh) = hilly(hh) + tilt5 / 10
  225.     IF hilly(hh) > 650 THEN GOTO skiphill:
  226.     tttilt = tilt / 10
  227.     IF tttilt > 6 THEN tttilt = 6
  228.     IF tttilt < -6 THEN tttilt = -6
  229.     hillx(hh) = hillx(hh) + tttilt
  230.     FOR chilly = 0 TO 300
  231.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skiphill:
  232.     NEXT chilly
  233.     IF hillx(hh) < 0 OR hillx(hh) > 800 THEN GOTO skiphill:
  234.     FOR sz = .25 TO hillsz(hh) STEP .25
  235.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
  236.     NEXT sz
  237.     skiphill:
  238. NEXT hh
  239. skiphill2:
  240.  
  242. _PRINTSTRING (250, 550), "Altitude"
  243. elevation$ = STR$(elevation)
  244. _PRINTSTRING (255, 570), elevation$
  245.  
  246. _PRINTSTRING (530, 550), "Airspeed"
  247. speed2 = INT(speed2)
  248. speed2$ = STR$(speed2)
  249. _PRINTSTRING (535, 570), speed2$
  250.  
  252. xx = 0: xx2 = 0: xx3 = 0
  253.  
  255.  
Title: Re: Flight Simulator
Post by: SierraKen on May 30, 2020, 05:05:31 pm
Today I added buildings with windows, made a lot more hills, and fixed the water.
Also attached is a picture of the current version.

Code: QB64: [Select]
  1. 'Flying - By SierraKen
  2. 'Made on May 30, 2020.
  3. 'V. 1.3 - Fixed water, added more hills, added buildings.
  4.  
  5. DIM waterx(500), watery(500), shape(500), watersz(500)
  6. DIM hillx(40000), hilly(40000), hshape(40000), hillsz(40000), hcolor(40000)
  7. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
  8. DIM buildingx(600), buildingy(600), buildingsz1(600), buildingsz2(600), bcolor(600)
  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:
  17.  
  18. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  20.     _LIMIT 2000
  21.     a$ = INKEY$
  22.  
  23.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b2 = 0 'Up arrow key flies down.
  24.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b2 = 0 'Down arrow key flies up.
  25.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
  26.     IF a$ = "-" THEN speed2 = speed2 - 10
  27.     IF speed2 <= 0 THEN speed = 0: b2 = 1: d = 0
  28.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
  29.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
  30.     IF a$ = CHR$(27) THEN END
  31.     IF d = 1 THEN speed = speed + 2: b2 = 0
  32.     IF d = 3 AND speed > 0 THEN
  33.         v = v - 1
  34.         vv = vv - 2
  35.         stilt = speed2 / 200
  36.         IF stilt < 4 THEN stilt = 4
  37.         tilt = tilt - stilt
  38.     END IF
  39.     IF d = 4 AND speed > 0 THEN
  40.         v = v + 1
  41.         vv = vv + 2
  42.         stilt2 = speed2 / 200
  43.         IF stilt2 < 4 THEN stilt2 = 4
  44.         tilt = tilt + stilt2
  45.     END IF
  46.     IF d = 3 AND speed <= 0 THEN
  47.         v = v - 1
  48.         vv = vv - 2
  49.         tilt = tilt - 3
  50.         speed = speed + 4
  51.     END IF
  52.     IF d = 4 AND speed <= 0 THEN
  53.         v = v + 1
  54.         vv = vv + 2
  55.         tilt = tilt + 3
  56.         speed = speed + 4
  57.     END IF
  58.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b2 = 0
  59.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b2 = 0
  60.  
  61.     IF tilt > 175 THEN tilt = 175
  62.     IF tilt < -175 THEN tilt = -175
  63.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b2 = 0 THEN speed = speed + 1
  64.     IF (d = 3 OR d = 4) AND b2 = 1 THEN speed = speed - 1
  65.     IF e > 100 THEN e = 100
  66.     IF e < 0 THEN e = 0
  67.     elevation = e - 100
  68.     elevation = -elevation
  69.     elevation = elevation * 100
  70.     IF d <> 0 THEN GOSUB grid:
  71.     IF speed2 < 0 THEN speed2 = 0
  72.     IF speed2 > 2000 THEN speed2 = 2000
  74.  
  75. grid:
  77. FOR bsky = 0 TO 300 STEP .25
  78.     LINE (0, bsky - e - tilt)-(800, bsky - e + tilt), _RGB32(0, 0, bsky)
  79.     LINE (0, bsky - e - tilt + .125)-(800, bsky - e + tilt - .125), _RGB32(0, 0, bsky)
  80.     LINE (0, bsky - e - tilt - .125)-(800, bsky - e + tilt + .125), _RGB32(0, 0, bsky)
  81. NEXT bsky
  82.  
  83. FOR ground = 300 TO 900 STEP .25
  84.     IF ground = INT(ground) THEN ground2 = ground2 + 1
  85.     LINE (0, ground - e - tilt)-(800, ground - e + tilt), _RGB32(0, ground2, 0)
  86.     LINE (0, ground - e - tilt + .125)-(800, ground - e + tilt - .125), _RGB32(0, ground2, 0)
  87.     LINE (0, ground - e - tilt - .125)-(800, ground - e + tilt + .125), _RGB32(0, ground2, 0)
  88.  
  89. NEXT ground
  90. ground2 = 0
  91.  
  92. 'Calculate Compass
  93. tilt2 = tilt
  94. IF tilt2 < 0 THEN tilt2 = -tilt2
  95.  
  96. IF tilt < 0 THEN c = c - tilt2 / 314
  97. IF tilt > 0 THEN c = c + tilt2 / 314
  98. IF c > 359 THEN c = 0
  99. IF c < 0 THEN c = 359
  100. cc = INT(c)
  101. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
  102. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
  103. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
  104. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
  105. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
  106. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
  107. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
  108. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
  110. _PRINTSTRING (390, 550), comp$
  111. cc$ = STR$(cc)
  112. _PRINTSTRING (395, 570), cc$
  113.  
  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
  130. clouds = INT(RND * 200) + 1
  131. IF clouds > 190 THEN
  132.     cl = cl + 1
  133.     IF cl > 100 THEN cl = 1
  135.     cloudx(cl) = INT(RND * 799) + 1
  136.     cloudy(cl) = 180
  138.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  139.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  141.     shapecl(cl) = (RND - .4)
  142.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  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. 'Water
  172. water = INT(RND * 200) + 1
  173. IF water > 190 THEN
  174.     w = w + 1
  175.     IF w > 100 THEN w = 1
  177.     waterx(w) = INT(RND * 799) + 1
  178.     watery(w) = 310
  180.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  182.     shape(w) = (RND - .35)
  183.     IF shape(w) < .1 THEN shape(w) = .1
  185. IF w = 0 THEN GOTO skipwater2:
  186. FOR ww = 1 TO w
  187.     watery(ww) = watery(ww) + speed2 / 125
  188.     tilt4 = tilt / 5
  189.     IF tilt4 < 0 THEN tilt4 = -tilt4
  190.     watery(ww) = watery(ww) + tilt4 / 10
  191.     IF watery(ww) > 650 THEN GOTO skipwater:
  192.     ttilt = tilt / 10
  193.     IF ttilt > 6 THEN ttilt = 6
  194.     IF ttilt < -6 THEN ttilt = -6
  195.     waterx(ww) = waterx(ww) + ttilt
  196.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
  197.     FOR sz = .25 TO watersz(ww) STEP .25
  198.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
  199.     NEXT sz
  200.     skipwater:
  201. NEXT ww
  202. skipwater2:
  203.  
  204. 'Hills
  206. hills = INT(RND * 1000) + 1
  207. IF speed2 > hills THEN
  208.     h = h + 1
  209.     IF h > 30000 THEN h = 1
  211.     hillx(h) = INT(RND * 799) + 1
  212.     hilly(h) = 310
  214.     hillsz(h) = INT(RND * 5) + 1 + e / 1.5
  216.     hshape(h) = (RND - .35)
  217.     hcolor(h) = INT(RND * 100) + 100
  219. IF h = 0 THEN GOTO skiphill2:
  220. FOR hh = 1 TO h
  221.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 125
  222.     tilt5 = tilt / 5
  223.     IF tilt5 < 0 THEN tilt5 = -tilt5
  224.     hilly(hh) = hilly(hh) + tilt5 / 10
  225.     IF hilly(hh) > 650 THEN GOTO skiphill:
  226.     tttilt = tilt / 10
  227.     IF tttilt > 6 THEN tttilt = 6
  228.     IF tttilt < -6 THEN tttilt = -6
  229.     hillx(hh) = hillx(hh) + tttilt
  230.     FOR chilly = 0 TO 300
  231.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skiphill:
  232.     NEXT chilly
  233.     IF hillx(hh) < 0 OR hillx(hh) > 800 THEN GOTO skiphill:
  234.     FOR sz = .25 TO hillsz(hh) STEP .25
  235.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
  236.     NEXT sz
  237.     skiphill:
  238. NEXT hh
  239. skiphill2:
  240.  
  241. 'Buildings
  243. building = INT(RND * 200) + 1
  244. IF building > 190 THEN
  245.     b = b + 1
  246.     IF b > 500 THEN b = 1
  248.     buildingx(b) = INT(RND * 799) + 1
  249.     buildingy(b) = 310
  251.     buildingsz1(b) = INT(RND * 2) + 1 + e / 4.5
  253.     buildingsz2(b) = INT(RND * 2) + 1 + e / 4.5
  255.     bcolor(b) = INT(RND * 155) + 100
  257. IF b = 0 THEN GOTO skipbuilding2:
  258. FOR bb = 1 TO b
  259.     buildingy(bb) = buildingy(bb) + speed2 / 125
  260.     tilt7 = tilt / 5
  261.     IF tilt7 < 0 THEN tilt7 = -tilt7
  262.     buildingy(bb) = buildingy(bb) + tilt7 / 10
  263.     IF buildingy(bb) > 650 THEN GOTO skipbuilding:
  264.     tttttilt = tilt / 10
  265.     IF tttttilt > 6 THEN tttttilt = 6
  266.     IF tttttilt < -6 THEN tttttilt = -6
  267.     buildingx(bb) = buildingx(bb) + tttttilt
  268.     IF buildingx(bb) < -50 OR buildingx(bb) > 850 THEN GOTO skipbuilding:
  269.     LINE (buildingx(bb), buildingy(bb))-(buildingx(bb) + buildingsz1(bb), buildingy(bb) + buildingsz2(bb)), _RGB32(150, bcolor(bb), bcolor(bb)), BF
  270.  
  271.     'Building Windows
  272.     IF elevation <= 1000 THEN ew = 2
  273.     IF elevation > 1000 AND elevation < 2000 THEN ew = 1
  274.     IF elevation >= 2000 THEN GOTO skipwindows:
  275.  
  276.     bwindowx1 = (buildingx(bb) + buildingsz1(bb)) - 5
  277.     bwindowy1 = (buildingy(bb) + buildingsz2(bb)) - 5
  278.     bwindowx2 = (buildingx(bb) + buildingsz1(bb)) - 10
  279.     bwindowy2 = (buildingy(bb) + buildingsz2(bb)) - 5
  280.     bwindowx3 = (buildingx(bb) + buildingsz1(bb)) - 15
  281.     bwindowy3 = (buildingy(bb) + buildingsz2(bb)) - 5
  282.     bwindowx4 = (buildingx(bb) + buildingsz1(bb)) - 20
  283.     bwindowy4 = (buildingy(bb) + buildingsz2(bb)) - 5
  284.     bwindowx5 = (buildingx(bb) + buildingsz1(bb)) - 5
  285.     bwindowy5 = (buildingy(bb) + buildingsz2(bb)) - 10
  286.     bwindowx6 = (buildingx(bb) + buildingsz1(bb)) - 10
  287.     bwindowy6 = (buildingy(bb) + buildingsz2(bb)) - 10
  288.     bwindowx7 = (buildingx(bb) + buildingsz1(bb)) - 15
  289.     bwindowy7 = (buildingy(bb) + buildingsz2(bb)) - 10
  290.     bwindowx8 = (buildingx(bb) + buildingsz1(bb)) - 20
  291.     bwindowy8 = (buildingy(bb) + buildingsz2(bb)) - 10
  292.     bwindowx9 = (buildingx(bb) + buildingsz1(bb)) - 5
  293.     bwindowy9 = (buildingy(bb) + buildingsz2(bb)) - 15
  294.     bwindowx10 = (buildingx(bb) + buildingsz1(bb)) - 10
  295.     bwindowy10 = (buildingy(bb) + buildingsz2(bb)) - 15
  296.     bwindowx11 = (buildingx(bb) + buildingsz1(bb)) - 15
  297.     bwindowy11 = (buildingy(bb) + buildingsz2(bb)) - 15
  298.     bwindowx12 = (buildingx(bb) + buildingsz1(bb)) - 20
  299.     bwindowy12 = (buildingy(bb) + buildingsz2(bb)) - 15
  300.     bwindowx13 = (buildingx(bb) + buildingsz1(bb)) - 5
  301.     bwindowy13 = (buildingy(bb) + buildingsz2(bb)) - 20
  302.     bwindowx14 = (buildingx(bb) + buildingsz1(bb)) - 10
  303.     bwindowy14 = (buildingy(bb) + buildingsz2(bb)) - 20
  304.     bwindowx15 = (buildingx(bb) + buildingsz1(bb)) - 15
  305.     bwindowy15 = (buildingy(bb) + buildingsz2(bb)) - 20
  306.     bwindowx16 = (buildingx(bb) + buildingsz1(bb)) - 20
  307.     bwindowy16 = (buildingy(bb) + buildingsz2(bb)) - 20
  308.  
  309.     LINE (bwindowx1, bwindowy1)-(bwindowx1 + ew, bwindowy1 + ew), _RGB32(255, 255, 255), BF
  310.     LINE (bwindowx2, bwindowy2)-(bwindowx2 + ew, bwindowy2 + ew), _RGB32(255, 255, 255), BF
  311.     LINE (bwindowx3, bwindowy3)-(bwindowx3 + ew, bwindowy3 + ew), _RGB32(255, 255, 255), BF
  312.     LINE (bwindowx4, bwindowy4)-(bwindowx4 + ew, bwindowy4 + ew), _RGB32(255, 255, 255), BF
  313.     LINE (bwindowx5, bwindowy5)-(bwindowx5 + ew, bwindowy5 + ew), _RGB32(255, 255, 255), BF
  314.     LINE (bwindowx6, bwindowy6)-(bwindowx6 + ew, bwindowy6 + ew), _RGB32(255, 255, 255), BF
  315.     LINE (bwindowx7, bwindowy7)-(bwindowx7 + ew, bwindowy7 + ew), _RGB32(255, 255, 255), BF
  316.     LINE (bwindowx8, bwindowy8)-(bwindowx8 + ew, bwindowy8 + ew), _RGB32(255, 255, 255), BF
  317.     LINE (bwindowx9, bwindowy9)-(bwindowx9 + ew, bwindowy9 + ew), _RGB32(255, 255, 255), BF
  318.     LINE (bwindowx10, bwindowy10)-(bwindowx10 + ew, bwindowy10 + ew), _RGB32(255, 255, 255), BF
  319.     LINE (bwindowx11, bwindowy11)-(bwindowx11 + ew, bwindowy11 + ew), _RGB32(255, 255, 255), BF
  320.     LINE (bwindowx12, bwindowy12)-(bwindowx12 + ew, bwindowy12 + ew), _RGB32(255, 255, 255), BF
  321.     LINE (bwindowx13, bwindowy13)-(bwindowx13 + ew, bwindowy13 + ew), _RGB32(255, 255, 255), BF
  322.     LINE (bwindowx14, bwindowy14)-(bwindowx14 + ew, bwindowy14 + ew), _RGB32(255, 255, 255), BF
  323.     LINE (bwindowx15, bwindowy15)-(bwindowx15 + ew, bwindowy15 + ew), _RGB32(255, 255, 255), BF
  324.     LINE (bwindowx16, bwindowy16)-(bwindowx16 + ew, bwindowy16 + ew), _RGB32(255, 255, 255), BF
  325.     skipwindows:
  326.     skipbuilding:
  327. NEXT bb
  328. skipbuilding2:
  329.  
  331. _PRINTSTRING (250, 550), "Altitude"
  332. elevation$ = STR$(elevation)
  333. _PRINTSTRING (255, 570), elevation$
  334.  
  335. _PRINTSTRING (530, 550), "Airspeed"
  336. speed2 = INT(speed2)
  337. speed2$ = STR$(speed2)
  338. _PRINTSTRING (535, 570), speed2$
  339.  
  341. xx = 0: xx2 = 0: xx3 = 0
  342.  
  344.  

Title: Re: Flight Simulator
Post by: SierraKen on May 31, 2020, 05:47:42 pm
Yep, I'm still working on it. :) Something I've wanted to make all my life so I'm trying to make it as good as I can get.

V. 1.4 - Increased size of hills and made them not able to overlap, fixed display of compass, fixed Sun so it won't show up underground, increased speed.   

Code: QB64: [Select]
  1. 'Flying - By SierraKen
  2. 'Made on May 31, 2020.
  3. 'V. 1.4 - Increased size of hills and made them not able to overlap, fixed display of compass, fixed Sun so it won't show up underground, increased speed.
  4.  
  5. DIM waterx(500), watery(500), shape(500), watersz(500)
  6. DIM hillx(40000), hilly(40000), hshape(40000), hillsz(40000), hcolor(40000)
  7. DIM cloudx(500), cloudy(500), shapecl(500), cloudsz(500)
  8. DIM buildingx(600), buildingy(600), buildingsz1(600), buildingsz2(600), bcolor(600)
  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:
  17.  
  18. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
  20.     _LIMIT 2000
  21.     a$ = INKEY$
  22.  
  23.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b2 = 0 'Up arrow key flies down.
  24.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b2 = 0 'Down arrow key flies up.
  25.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
  26.     IF a$ = "-" THEN speed2 = speed2 - 10
  27.     IF speed2 <= 0 THEN speed = 0: b2 = 1: d = 0
  28.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
  29.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
  30.     IF a$ = CHR$(27) THEN END
  31.     IF d = 1 THEN speed = speed + 8: b2 = 0
  32.     IF d = 3 AND speed > 0 THEN
  33.         v = v - 1
  34.         vv = vv - 2
  35.         stilt = speed2 / 100
  36.         IF stilt < 8 THEN stilt = 8
  37.         tilt = tilt - stilt
  38.     END IF
  39.     IF d = 4 AND speed > 0 THEN
  40.         v = v + 1
  41.         vv = vv + 2
  42.         stilt2 = speed2 / 100
  43.         IF stilt2 < 8 THEN stilt2 = 8
  44.         tilt = tilt + stilt2
  45.     END IF
  46.     IF d = 3 AND speed <= 0 THEN
  47.         v = v - 1
  48.         vv = vv - 2
  49.         tilt = tilt - 3
  50.         speed = speed + 4
  51.     END IF
  52.     IF d = 4 AND speed <= 0 THEN
  53.         v = v + 1
  54.         vv = vv + 2
  55.         tilt = tilt + 3
  56.         speed = speed + 4
  57.     END IF
  58.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b2 = 0
  59.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b2 = 0
  60.  
  61.     IF tilt > 175 THEN tilt = 175
  62.     IF tilt < -175 THEN tilt = -175
  63.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b2 = 0 THEN speed = speed + 1
  64.     IF (d = 3 OR d = 4) AND b2 = 1 THEN speed = speed - 1
  65.     IF e > 100 THEN e = 100
  66.     IF e < 0 THEN e = 0
  67.     elevation = e - 100
  68.     elevation = -elevation
  69.     elevation = elevation * 100
  70.     IF d <> 0 THEN GOSUB grid:
  71.     IF speed2 < 0 THEN speed2 = 0
  72.     IF speed2 > 2000 THEN speed2 = 2000
  74.  
  75. grid:
  77. FOR bsky = 0 TO 300 STEP .25
  78.     LINE (0, bsky - e - tilt)-(800, bsky - e + tilt), _RGB32(0, 0, bsky)
  79.     LINE (0, bsky - e - tilt + .125)-(800, bsky - e + tilt - .125), _RGB32(0, 0, bsky)
  80.     LINE (0, bsky - e - tilt - .125)-(800, bsky - e + tilt + .125), _RGB32(0, 0, bsky)
  81. NEXT bsky
  82.  
  83. FOR ground = 300 TO 900 STEP .25
  84.     IF ground = INT(ground) THEN ground2 = ground2 + 1
  85.     LINE (0, ground - e - tilt)-(800, ground - e + tilt), _RGB32(0, ground2, 0)
  86.     LINE (0, ground - e - tilt + .125)-(800, ground - e + tilt - .125), _RGB32(0, ground2, 0)
  87.     LINE (0, ground - e - tilt - .125)-(800, ground - e + tilt + .125), _RGB32(0, ground2, 0)
  88.  
  89. NEXT ground
  90. ground2 = 0
  91.  
  92. 'Sun
  93. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
  94. tilt3 = tilt / 50
  95. IF cc = 315 THEN sunx = 800
  96. IF cc = 225 THEN sunx = 0
  97. oldtil = til
  98. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
  99. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
  100. oldtilt3 = tilt3
  101. FOR chk = 1 TO 255
  102.     IF POINT(sunx, til) = _RGB32(0, chk, 0) THEN
  103.         GOTO nosun:
  104.     END IF
  105. NEXT chk
  106. sun:
  107. FOR sz = .25 TO 10 STEP .25
  108.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
  109. NEXT sz
  110. nosun:
  111.  
  112. 'Clouds
  114. clouds = INT(RND * 200) + 1
  115. IF clouds > 190 THEN
  116.     cl = cl + 1
  117.     IF cl > 100 THEN cl = 1
  119.     cloudx(cl) = INT(RND * 799) + 1
  120.     cloudy(cl) = 180
  122.     cloudsz(cl) = INT(RND * 5) + 1 + e / 1.5
  123.     IF cloudsz(cl) < 10 THEN cloudsz(cl) = 10
  125.     shapecl(cl) = (RND - .4)
  126.     IF shapecl(cl) < .4 THEN shapecl(cl) = .4
  128. IF cl = 0 THEN GOTO skipclouds2:
  129. FOR cl2 = 1 TO cl
  130.     cloudy(cl2) = cloudy(cl2) - speed2 / 60
  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. 'Water
  156. water = INT(RND * 200) + 1
  157. IF water > 190 THEN
  158.     w = w + 1
  159.     IF w > 100 THEN w = 1
  161.     waterx(w) = INT(RND * 799) + 1
  162.     watery(w) = 310
  164.     watersz(w) = INT(RND * 5) + 1 + e / 1.5
  166.     shape(w) = (RND - .35)
  167.     IF shape(w) < .1 THEN shape(w) = .1
  169. IF w = 0 THEN GOTO skipwater2:
  170. FOR ww = 1 TO w
  171.     watery(ww) = watery(ww) + speed2 / 60
  172.     tilt4 = tilt / 5
  173.     IF tilt4 < 0 THEN tilt4 = -tilt4
  174.     watery(ww) = watery(ww) + tilt4 / 10
  175.     IF watery(ww) > 650 THEN GOTO skipwater:
  176.     ttilt = tilt / 10
  177.     IF ttilt > 6 THEN ttilt = 6
  178.     IF ttilt < -6 THEN ttilt = -6
  179.     waterx(ww) = waterx(ww) + ttilt
  180.     IF waterx(ww) < -50 OR waterx(ww) > 850 THEN GOTO skipwater:
  181.     FOR sz = .25 TO watersz(ww) STEP .25
  182.         CIRCLE (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)
  183.     NEXT sz
  184.     skipwater:
  185. NEXT ww
  186. skipwater2:
  187.  
  188. 'Hills
  190. hlls = INT(RND * 200) + 1
  191. IF hlls < 180 THEN GOTO hills:
  192.  
  194. hills = INT(RND * 1000) + 1
  195. IF speed2 > hills THEN
  196.     h = h + 1
  197.     IF h > 30000 THEN h = 1
  199.     hillx(h) = INT(RND * 799) + 1
  200.     hilly(h) = 310
  202.     hillsz(h) = INT(RND * e) + 50 + e / 1.5
  204.     hshape(h) = (RND - .35)
  205.     hcolor(h) = INT(RND * 100) + 100
  207. hills:
  208. IF h = 0 THEN GOTO skiphill2:
  209. FOR hh = 1 TO h
  210.     IF speed2 > 0 THEN hilly(hh) = hilly(hh) + speed2 / 60
  211.     tilt5 = tilt / 5
  212.     IF tilt5 < 0 THEN tilt5 = -tilt5
  213.     hilly(hh) = hilly(hh) + tilt5 / 10
  214.     IF hilly(hh) > 650 THEN GOTO skiphill:
  215.     tttilt = tilt / 10
  216.     IF tttilt > 6 THEN tttilt = 6
  217.     IF tttilt < -6 THEN tttilt = -6
  218.     hillx(hh) = hillx(hh) + tttilt
  219.     FOR chilly = 0 TO 300
  220.         IF POINT(hillx(hh), hilly(hh)) = _RGB32(0, 0, chilly) THEN GOTO skiphill:
  221.     NEXT chilly
  222.     FOR hcolor2 = 100 TO 200
  223.         FOR hx = -hillsz(hh) TO hillsz(hh)
  224.             IF POINT(hillx(hh) + hx, hilly(hh)) = _RGB32(hcolor2, hcolor2 + 44, 0) THEN GOTO skiphill:
  225.             IF POINT(hillx(hh), hilly(hh) - hx) = _RGB32(hcolor2, hcolor2 + 44, 0) THEN GOTO skiphill:
  226.         NEXT hx
  227.     NEXT hcolor2
  228.     IF hillx(hh) < 0 OR hillx(hh) > 800 THEN GOTO skiphill:
  229.     FOR sz = .25 TO hillsz(hh) STEP .25
  230.         CIRCLE (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _PI, _PI, hshape(hh)
  231.     NEXT sz
  232.     skiphill:
  233. NEXT hh
  234. skiphill2:
  235.  
  236. 'Buildings
  238. building = INT(RND * 200) + 1
  239. IF building > 190 THEN
  240.     b = b + 1
  241.     IF b > 500 THEN b = 1
  243.     buildingx(b) = INT(RND * 799) + 1
  244.     buildingy(b) = 310
  246.     buildingsz1(b) = INT(RND * 2) + 1 + e / 4.5
  248.     buildingsz2(b) = INT(RND * 2) + 1 + e / 4.5
  250.     bcolor(b) = INT(RND * 155) + 100
  252. IF b = 0 THEN GOTO skipbuilding2:
  253. FOR bb = 1 TO b
  254.     buildingy(bb) = buildingy(bb) + speed2 / 60
  255.     tilt7 = tilt / 5
  256.     IF tilt7 < 0 THEN tilt7 = -tilt7
  257.     buildingy(bb) = buildingy(bb) + tilt7 / 10
  258.     IF buildingy(bb) > 650 THEN GOTO skipbuilding:
  259.     tttttilt = tilt / 10
  260.     IF tttttilt > 6 THEN tttttilt = 6
  261.     IF tttttilt < -6 THEN tttttilt = -6
  262.     buildingx(bb) = buildingx(bb) + tttttilt
  263.     IF buildingx(bb) < -50 OR buildingx(bb) > 850 THEN GOTO skipbuilding:
  264.     LINE (buildingx(bb), buildingy(bb))-(buildingx(bb) + buildingsz1(bb), buildingy(bb) + buildingsz2(bb)), _RGB32(150, bcolor(bb), bcolor(bb)), BF
  265.  
  266.     'Building Windows
  267.     IF elevation <= 1000 THEN ew = 2
  268.     IF elevation > 1000 AND elevation < 2000 THEN ew = 1
  269.     IF elevation >= 2000 THEN GOTO skipwindows:
  270.  
  271.     bwindowx1 = (buildingx(bb) + buildingsz1(bb)) - 5
  272.     bwindowy1 = (buildingy(bb) + buildingsz2(bb)) - 5
  273.     bwindowx2 = (buildingx(bb) + buildingsz1(bb)) - 10
  274.     bwindowy2 = (buildingy(bb) + buildingsz2(bb)) - 5
  275.     bwindowx3 = (buildingx(bb) + buildingsz1(bb)) - 15
  276.     bwindowy3 = (buildingy(bb) + buildingsz2(bb)) - 5
  277.     bwindowx4 = (buildingx(bb) + buildingsz1(bb)) - 20
  278.     bwindowy4 = (buildingy(bb) + buildingsz2(bb)) - 5
  279.     bwindowx5 = (buildingx(bb) + buildingsz1(bb)) - 5
  280.     bwindowy5 = (buildingy(bb) + buildingsz2(bb)) - 10
  281.     bwindowx6 = (buildingx(bb) + buildingsz1(bb)) - 10
  282.     bwindowy6 = (buildingy(bb) + buildingsz2(bb)) - 10
  283.     bwindowx7 = (buildingx(bb) + buildingsz1(bb)) - 15
  284.     bwindowy7 = (buildingy(bb) + buildingsz2(bb)) - 10
  285.     bwindowx8 = (buildingx(bb) + buildingsz1(bb)) - 20
  286.     bwindowy8 = (buildingy(bb) + buildingsz2(bb)) - 10
  287.     bwindowx9 = (buildingx(bb) + buildingsz1(bb)) - 5
  288.     bwindowy9 = (buildingy(bb) + buildingsz2(bb)) - 15
  289.     bwindowx10 = (buildingx(bb) + buildingsz1(bb)) - 10
  290.     bwindowy10 = (buildingy(bb) + buildingsz2(bb)) - 15
  291.     bwindowx11 = (buildingx(bb) + buildingsz1(bb)) - 15
  292.     bwindowy11 = (buildingy(bb) + buildingsz2(bb)) - 15
  293.     bwindowx12 = (buildingx(bb) + buildingsz1(bb)) - 20
  294.     bwindowy12 = (buildingy(bb) + buildingsz2(bb)) - 15
  295.     bwindowx13 = (buildingx(bb) + buildingsz1(bb)) - 5
  296.     bwindowy13 = (buildingy(bb) + buildingsz2(bb)) - 20
  297.     bwindowx14 = (buildingx(bb) + buildingsz1(bb)) - 10
  298.     bwindowy14 = (buildingy(bb) + buildingsz2(bb)) - 20
  299.     bwindowx15 = (buildingx(bb) + buildingsz1(bb)) - 15
  300.     bwindowy15 = (buildingy(bb) + buildingsz2(bb)) - 20
  301.     bwindowx16 = (buildingx(bb) + buildingsz1(bb)) - 20
  302.     bwindowy16 = (buildingy(bb) + buildingsz2(bb)) - 20
  303.  
  304.     LINE (bwindowx1, bwindowy1)-(bwindowx1 + ew, bwindowy1 + ew), _RGB32(255, 255, 255), BF
  305.     LINE (bwindowx2, bwindowy2)-(bwindowx2 + ew, bwindowy2 + ew), _RGB32(255, 255, 255), BF
  306.     LINE (bwindowx3, bwindowy3)-(bwindowx3 + ew, bwindowy3 + ew), _RGB32(255, 255, 255), BF
  307.     LINE (bwindowx4, bwindowy4)-(bwindowx4 + ew, bwindowy4 + ew), _RGB32(255, 255, 255), BF
  308.     LINE (bwindowx5, bwindowy5)-(bwindowx5 + ew, bwindowy5 + ew), _RGB32(255, 255, 255), BF
  309.     LINE (bwindowx6, bwindowy6)-(bwindowx6 + ew, bwindowy6 + ew), _RGB32(255, 255, 255), BF
  310.     LINE (bwindowx7, bwindowy7)-(bwindowx7 + ew, bwindowy7 + ew), _RGB32(255, 255, 255), BF
  311.     LINE (bwindowx8, bwindowy8)-(bwindowx8 + ew, bwindowy8 + ew), _RGB32(255, 255, 255), BF
  312.     LINE (bwindowx9, bwindowy9)-(bwindowx9 + ew, bwindowy9 + ew), _RGB32(255, 255, 255), BF
  313.     LINE (bwindowx10, bwindowy10)-(bwindowx10 + ew, bwindowy10 + ew), _RGB32(255, 255, 255), BF
  314.     LINE (bwindowx11, bwindowy11)-(bwindowx11 + ew, bwindowy11 + ew), _RGB32(255, 255, 255), BF
  315.     LINE (bwindowx12, bwindowy12)-(bwindowx12 + ew, bwindowy12 + ew), _RGB32(255, 255, 255), BF
  316.     LINE (bwindowx13, bwindowy13)-(bwindowx13 + ew, bwindowy13 + ew), _RGB32(255, 255, 255), BF
  317.     LINE (bwindowx14, bwindowy14)-(bwindowx14 + ew, bwindowy14 + ew), _RGB32(255, 255, 255), BF
  318.     LINE (bwindowx15, bwindowy15)-(bwindowx15 + ew, bwindowy15 + ew), _RGB32(255, 255, 255), BF
  319.     LINE (bwindowx16, bwindowy16)-(bwindowx16 + ew, bwindowy16 + ew), _RGB32(255, 255, 255), BF
  320.     skipwindows:
  321.     skipbuilding:
  322. NEXT bb
  323. skipbuilding2:
  324.  
  325. 'Calculate Compass
  326. tilt2 = tilt
  327. IF tilt2 < 0 THEN tilt2 = -tilt2
  328.  
  329. IF tilt < 0 THEN c = c - tilt2 / 314
  330. IF tilt > 0 THEN c = c + tilt2 / 314
  331. IF c > 359 THEN c = 0
  332. IF c < 0 THEN c = 359
  333. cc = INT(c)
  334. IF cc >= 340 OR cc < 25 THEN comp$ = "North"
  335. IF cc >= 25 AND cc < 65 THEN comp$ = "Northeast"
  336. IF cc >= 65 AND cc < 115 THEN comp$ = "East"
  337. IF cc >= 115 AND cc < 160 THEN comp$ = "Southeast"
  338. IF cc >= 160 AND cc < 205 THEN comp$ = "South"
  339. IF cc >= 205 AND cc < 250 THEN comp$ = "Southwest"
  340. IF cc >= 250 AND cc < 295 THEN comp$ = "West"
  341. IF cc >= 295 AND cc < 340 THEN comp$ = "Northwest"
  343. _PRINTSTRING (390, 550), comp$
  344. cc$ = STR$(cc)
  345. _PRINTSTRING (395, 570), cc$
  346.  
  348. _PRINTSTRING (250, 550), "Altitude"
  349. elevation$ = STR$(elevation)
  350. _PRINTSTRING (255, 570), elevation$
  351.  
  352. _PRINTSTRING (530, 550), "Airspeed"
  353. speed2 = INT(speed2)
  354. speed2$ = STR$(speed2)
  355. _PRINTSTRING (535, 570), speed2$
  356.  
  358. xx = 0: xx2 = 0: xx3 = 0
  359.  
  361.  
  362.  
Text Only | Text with Attachments