« previous next »
Pages: 1 [2]   Go Down

Author Topic: Flight Simulator  (Read 2203 times)

0 Members and 1 Guest are viewing this topic.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Flight Simulator
« Reply #15 on: May 27, 2020, 03:28:36 am »
Cool... Much improved!
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #16 on: May 27, 2020, 12:11:15 pm »
Thanks Johno. :) I'll be busy today so hopefully soon I'll work on it more.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #17 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.  
« Last Edit: May 29, 2020, 08:01:29 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #18 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.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #19 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.  
« Last Edit: May 30, 2020, 01:12:36 am by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #20 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.  

Flight Simulator by Ken - May 30 2020.jpg
* Flight Simulator by Ken - May 30 2020.jpg (Filesize: 88.75 KB, Dimensions: 801x624, Views: 151)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Flight Simulator
« Reply #21 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.  
Logged
Pages: 1 [2]   Go Up
« previous next »