Beginning Flying Example

[SierraKen]

This is just a straight-forward slow down and speed up flying example. You can't turn with this but feel free to add or change anything on it. It's just something I was playing around with the other day and decided to put it on here. The 2D objects on the ground are randomly generated as you fly over them. It shows the speed indicator in the top left corner. I thought of this when I checked out a Starfield I made many months ago with the help of you guys. I changed some things around and cut it in half and made each object move the same speed. I just like how the view of the objects go past you. This could be the start of any type of flying game or simulator or even the start of driving or walking on the ground.

Code: QB64: [Select]

1. _TITLE "Flying - Use Up and Down Arrow Key for speed."
2. DIM x(800), y(800), dx(800), dy(800), sz(800), c(800), shape(800), xx(800), ssz(800)
3.  
4. SCREEN _NEWIMAGE(800, 800, 32)
5. LINE (0, 0)-(800, 360), _RGB32(127, 194, 255), BF
6. LINE (0, 360)-(800, 800), _RGB32(67, 200, 150), BF
7. 'Set the default speed, amount of objects, and then make the first objects.
8. speed = .0005
9. amount = 100
10.  
11. FOR objects = 1 TO amount
12.     GOSUB make:
13. NEXT objects
14.  
15. DO
16.     _LIMIT 1000
17.     FOR objects = 1 TO amount
18.         a$ = INKEY$
19.         IF a$ = CHR$(27) THEN END
20.  
21.         'Detect the arrow keys to make it go faster or slower.
22.         IF a$ = CHR$(0) + CHR$(72) THEN speed = speed + .0005: warp = warp + 1
23.         IF a$ = CHR$(0) + CHR$(80) THEN speed = speed - .0005: warp = warp - 1
24.         IF warp < .002 THEN warp = 0
25.         IF warp > 10 THEN warp = 10
26.         IF warp > 0 THEN LOCATE 1, 1: PRINT "Speed: "; warp * 50
27.         IF speed < .0005 THEN speed = .0005
28.         IF speed > .02 THEN speed = .02
29.  
30.         'Move the objects.
31.         x(objects) = x(objects) + dx(objects) * speed
32.         y(objects) = y(objects) + dy(objects) * speed
33.  
34.         IF x(objects) < -800 THEN x(objects) = -800
35.         IF x(objects) > 800 THEN x(objects) = 0
36.  
37.         'Get a new object if one goes off the screen.
38.         IF x(objects) < -6400 OR x(objects) > 6400 OR y(objects) < -400 OR y(objects) > 400 THEN GOSUB make:
39.  
40.         'Draw the objects, c(objects) is the choice of colors
41.         IF c(objects) < 34 THEN
42.             FOR sz = .25 TO ssz(objects) STEP .25
43.                 CIRCLE ((x(objects) + _WIDTH / 2) + xx(objects), y(objects) + _HEIGHT / 2), sz, _RGB32(255, 255, 255), , , shape(objects)
44.             NEXT sz
45.         END IF
46.         IF c(objects) >= 34 AND c(objects) < 66 THEN
47.             FOR sz = .25 TO ssz(objects) STEP .25
48.                 CIRCLE ((x(objects) + _WIDTH / 2) + xx(objects), y(objects) + _HEIGHT / 2), sz, _RGB32(100, 10, 10), , , shape(objects)
49.             NEXT sz
50.         END IF
51.         IF c(objects) >= 66 THEN
52.             FOR sz = .25 TO ssz(objects) STEP .25
53.                 CIRCLE ((x(objects) + _WIDTH / 2) + xx(objects), y(objects) + _HEIGHT / 2), sz, _RGB32(10, 10, 200), , , shape(objects)
54.             NEXT sz
55.         END IF
56.         dy(objects) = y(objects) + 10
57.         dx(objects) = x(objects) + xx(objects)
58.     NEXT objects
59.  
60.     _DISPLAY
61.  
62.     LINE (0, 360)-(800, 800), _RGB32(67, 200, 150), BF
63. LOOP
64.  
65. make:
66. RANDOMIZE TIMER
67.  
68. 'Get a random X number using 2 decimal points - RND and .5 and times it by the width of the screen.
69.  
70. x(objects) = (RND - .5) * _WIDTH
71.  
72. 'Get a random Y number using 2 decimal points - RND and .5 and times it by the height of the screen.
73.  
74. y(objects) = INT(RND * 300) + 1
75.  
76. shape(objects) = RND * .5
77.  
78. c(objects) = INT(RND * 100) + 1
79.  
80. ssz(objects) = INT(RND * 8) + 3
81.  
82. RETURN
83.  

[bplus]

Hi Ken,

You might try to make the object get bigger as it approaches the bottom of the screen.