car simulator

[MasterGy]

Hello !
I'm also trying to put a car in the flying game. I used to think about it, but I didn’t get anywhere. In fact, I'm still stuck. What is seen is not much different from the dynamics of the plane. we move an object in a plane that has velocity and direction. We modify the direction vector with the new direction created by the drift. But I got stuck.
I want you to travel in the mountains, on the hills, and the shock absorber would also be useful. I want you to tip over. This, in turn, is a much more complex approach. I would like to ask you for ideas, links, literature to see if anyone can help. where can i find writing about the physics of a car?
I created an environment for experimentation. You can try this, go with it, you can switch between 4 camera views with the C key, the current options will be displayed on the screen.

Code: QB64: [Select]

1. CONST pip180 = 3.141592 / 180
2. CONST perlin_pers = 0 '7 'amplitudo
3. CONST perlin_level = 1 '5 'level of resolution wave
4. CONST perlin_multiplier = 0.007
5. CONST perlin_smooth_noise_interpolation_type = 0 '0-none '1-standard
6. CONST perlin_flat_soil_limit_low = .8 'high value is low area (negate)
7. CONST perlin_flat_soil_limit_high = .1
8. CONST flight_array_size = 20: DIM flight_save(flight_array_size - 1)
9. DIM SHARED rotating(2), cosrotz, sinrotz, cosrotx, sinrotx, map_zoom_xy, map_zoom_distance, see_point, flight(19, flight_array_size), me(19), rotx_bevel
10. DIM SHARED mouse_sens_xy, mouse_sens_z, position_speed, clmn_rad
11. DIM SHARED map_x, map_y, perl_setx, perl_sety, map_resolution, map_z, map_dimz, map_dimxy, flight_high_max
12. monx = 1366 * .8: mony = monx / 16 * 9 'screen size
13.  
14. RANDOMIZE TIMER
15. win_marg = monx / 25
16. flight_high_max = -70
17.  
18. auto_precalc = 22
19. auto_mouse_scale = 120
20. auto_try_resolution = 22
21. DIM flight_auto(auto_try_resolution - 1, flight_array_size - 1): DIM auto_efficiency(auto_try_resolution - 1, 5) '0- 1 if crash          '1- target-flight distance
22.  
23. pr_temp = 0 'temp pr
24. text_deep = 30 'make deep shadow pictures
25.  
26.  
27. map_center = 100000 'start of perlin-map
28. 'text_field$ = "need\field2.bmp"
29. text_field$ = "need\field1.bmp" 'field map texture
30. text_multi = 40 'zoom to texture
31.  
32. position_speed = .3
33. map_resolution = 50 'see map resolution
34. DIM SHARED map_resper2: map_resper2 = INT(map_resolution / 2)
35.  
36.  
37. DIM SHARED max_incli: max_incli = 65 'flight max rotation
38.  
39. map_dimxy = 1200 * .8
40. map_dimz = 250 * .8
41. DIM SHARED ee: ee = map_dimxy / map_resolution
42.  
43. map_zoom_xy = 6 * .2
44. map_zoom_distance = 15 * .2
45.  
46.  
47. mouse_sens_xy = 1.6
48. mouse_sens_z = 1
49.  
50. me(6) = pip180 * 270
51.  
52. me(0) = map_center: me(1) = map_center
53.  
54. control_type$(0) = "walking": control_type$(1) = "flying": control_type$(2) = "flying/autopilot"
55. DIM color_temp(9) AS _INTEGER64
56. targ_text = _LOADIMAGE("need\target.jpg", 33)
57.  
58.  
59.  
60.  
61.  
62. DIM clmn(1999, 5): clmn_rad = 30: ration_column = 0.0003
63. ration_column = 0.0003
64.  
65.  
66. 'PREPARATION ---------------------------------------------------------------------------------------------------------------------------------------------------
67.  
68. 'create wheel texture
69. whe_ts = 50: whe_marg = 7: temp = _NEWIMAGE(whe_ts, whe_ts, 32): _DEST temp: CLS , 0: marg = whe_ts * text_size_marg / 100
70. PAINT (0, 0), _RGBA32(10, 10, 10, 255)
71. LINE (whe_marg, whe_marg)-(whe_ts - whe_marg, whe_ts - whe_marg), _RGBA32(100, 100, 100, 255), BF
72. whe_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
73.  
74. 'create pseudo random buffer
75. DIM SHARED noise_rand_c: noise_rand_c = 10000: DIM SHARED noise_rand(noise_rand_c - 1): FOR t = 0 TO noise_rand_c - 1: noise_rand(t) = RND(1): NEXT t
76.  
77. 'vehicle frame texture
78. vhfr_ts = 30: marg = 5: temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(46, 88, 100, 255)
79. LINE (marg, marg)-(vhfr_ts - marg, vhfr_ts - marg), _RGBA32(255, 166, 50, 255), BF: vhfr_text(0) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
80. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(255 / 2, 166 / 2, 50 / 2, 255): vhfr_text(1) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
81. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(150, 150, 255, 50): vhfr_text(2) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
82. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(233, 94, 61, 255)
83. marg = 5: LINE (marg, marg)-(vhfr_ts - marg, vhfr_ts - marg), _RGB32(255, 0, 0), BF: _SETALPHA 0, _RGB32(255, 0, 0) TO _RGB32(255, 0, 0)
84. vhfr_text(3) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
85.  
86.  
87.  
88. vp$ = "-01010-03010-01020-03020-00031-04031-01052-03052-01072-03072-00081-04081-00101-04101-00090-04090" 'points X(2),Y(2),Z(1)
89. vl$ = "-0001-0002-0103-0203-0004-0105-0204-0305-0406-0507-0607-0410-0511-0608-0709-0809-0810-0911-1011-1012-1113-1213-1412-1513-1415-0405-0214-0315" '3d lines
90. sq$ = "-0123-4567-0246-2367-3175-1054" 'cubes points make square
91. vt$ = "-000102031-000104051-141512131-101112131-040012141-050113151-080910111-141502031" 'bodywork textures
92. vt$ = vt$ + "-040610082-040509112-040506072-060708092" 'vehicle windows
93. vp$ = vp$ + "-01081-01101-01092-01102-03081-03101-03092-03102-00092-04092-00102-04102": vt$ = vt$ + "-161718193-202122233-242526270" 'extension air deflector
94.  
95.  
96. 'temporary terrain texture
97. DIM temp_color(9) AS _INTEGER64
98. f = 500
99. terr = _NEWIMAGE(f, f, 32): _DEST terr
100. PAINT (0, 0), _RGB32(50, 80, 50)
101. r = 50 * RND(1)
102. FOR t = 0 TO 200
103.     x = f * RND(1): y = f * RND(1)
104.     temp_color(0) = _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1))
105.     CIRCLE (x, y), 20, temp_color(0)
106.     PAINT (x, y), temp_color(0), temp_color(0)
107.  
108. NEXT t
109. text_multi = 20
110.  
111.  
112.  
113.  
114.  
115. 'create texture to map
116. DIM SHARED mapz_min, mapz_max: DIM texture(text_deep - 1, 5): temp = terr '_LOADIMAGE(text_field$, 32)
117. FOR t = 0 TO text_deep - 1: dark = (.6 - (1 / (text_deep - 1) * t)): transp = dark * 2000: IF transp > 255 THEN transp = 255
118.     temp2 = _NEWIMAGE(_WIDTH(temp), _HEIGHT(temp), 32): _SOURCE temp: _DEST temp2: CLS 0, _RGBA32(0, 0, 0, transp)
119.     FOR tx = 0 TO _WIDTH(temp) - 1: FOR ty = 0 TO _HEIGHT(temp) - 1: temp_color(0) = POINT(tx, ty)
120.             c1 = _RED32(temp_color(0)) * dark: c2 = _GREEN32(temp_color(0)) * dark: c3 = _BLUE32(temp_color(0)) * dark
121. PSET (tx, ty), _RGBA32(c1, c2, c3, transp): NEXT ty, tx: texture(t, 0) = _COPYIMAGE(temp2, 33): _FREEIMAGE temp2: NEXT t
122.  
123. 'find min/max Z
124. DIM SHARED mapz_multiplier: mapz_min = 9999999: mapz_max = -mapz_min: FOR t = 0 TO 2999: c = Perlin2D_original(5000 * RND(1), 5000 * RND(1))
125.     mapz_min = c * ABS(mapz_min > c) + mapz_min * (ABS(mapz_min > c) XOR 1): mapz_max = c * ABS(mapz_max < c) + mapz_max * (ABS(mapz_max < c) XOR 1)
126. NEXT t: mapz_multiplier = 1 / (mapz_max - mapz_min)
127.  
128. 'fill map-buffer
129. DIM SHARED map(map_resolution - 1, map_resolution - 1, 19): perl_setx = INT(me(0)): perl_sety = INT(me(1))
130. FOR map_x = 0 TO map_resolution - 1: FOR map_y = 0 TO map_resolution - 1
131.         map((map_x + perl_setx) MOD map_resolution, (map_y + perl_sety) MOD map_resolution, 0) = perlin2d(perl_setx + map_x, perl_sety + map_y)
132. map((map_x + perl_setx) MOD map_resolution, (map_y + perl_sety) MOD map_resolution, 6) = noise(map_x, map_y) < ration_column: NEXT map_y, map_x
133.  
134. 'calculating shadows
135. FOR map_x = 0 TO map_resolution - 1: FOR map_y = 0 TO map_resolution - 1
136.         dis = INT((text_deep - 1) / map_resper2 * SQR((map_x - map_resper2) ^ 2 + (map_y - map_resper2) ^ 2)): IF dis < 0 OR dis > text_deep - 1 THEN _CONTINUE
137. map(map_x, map_y, 9) = 1: map(map_x, map_y, 8) = dis: NEXT map_y, map_x
138.  
139.  
140.  
141.  
142. 'MAP array
143. '0-perlin Z-data
144. '1-maptriangle calculate X
145. '2-maptriangle calculate Y
146. '3-maptriangle calculate Z
147. '4-distance from me (color)
148. '5-texture height scale
149. '6-is there a column ?
150. '7-is the point visible?
151. '8-shadow-table
152. '9-not used area signal
153.  
154. 'ME array
155. '0-me X location
156. '1-me Y location
157. '2-me Z location
158. '3-vector_x
159. '4-vector_y
160. '5-me XY angle CAM3
161. '6-me XY CAM4
162. '7-me kanyarodas merteke
163.  
164. 'FLIGHT array
165. '0-active
166. '1-rotx - kanyarodas merteke
167. '2-rotx_bevel
168. '3-location X
169. '4-location Y
170. '5-location Z
171. '6-vector X
172. '7-vector Y
173. '8-W gas
174. '9-S brake
175. '10-mouseX
176. '11-mouseZ
177. '12 cam4  /me6
178. '13 cam3 /me5
179. '15 actual speed
180. '16 column (XY) crash /last step
181. '17 land (Z) crash /last step
182.  
183. 'PREPARATION END ------------------------------------------------------------------------------------------------------------------------------------------
184. GOSUB new_target
185. mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _FULLSCREEN _SQUAREPIXELS , _SMOOTH: _MOUSEHIDE: _DISPLAYORDER _HARDWARE , _SOFTWARE
186. CLS , 0
187. control_type = 0
188.  
189.  
190.  
191.  
192. IF pr_temp THEN _PRINTSTRING (0, 0), "moving:mouse+WASD jump:space walking/fly: F"
193. DIM wang(20, 2, 1, 1)
194. veh_posx = map_center
195. veh_posy = map_center
196.  
197. DIM veh(19, 49)
198. me2_comp = 1.5
199. old_camera_type = -1
200. '-------------------------------------------------------- BOSS CYCLE -----------------------------------------------------------------------------------
201. DO: _LIMIT 40
202.  
203.     'keyboard/mouse inputs
204.     IF _KEYDOWN(27) THEN SYSTEM
205.     kf = _KEYDOWN(102): k_space = _KEYDOWN(32)
206.     kw = _KEYDOWN(119): ks = _KEYDOWN(115): mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY
207.         mw = mw + _MOUSEWHEEL
208.     WEND
209.     kw = _KEYDOWN(119): ks = _KEYDOWN(115): ka = _KEYDOWN(97): kd = _KEYDOWN(100)
210.     k_space = _KEYDOWN(32)
211.     k_left = _KEYDOWN(19200): k_right = _KEYDOWN(19712): k_up = _KEYDOWN(18432): k_down = _KEYDOWN(20480): veh_wheel_sens = 8
212.     IF ut_kf = 0 AND kf THEN control_type = (control_type + 1) MOD 3
213.     ut_kf = kf
214.     me2_comp = me2_comp + mw * .1
215.     IF _KEYDOWN(45) THEN me2_comp = me2_comp - .2
216.     IF _KEYDOWN(43) THEN me2_comp = me2_comp + .2
217.     IF _KEYDOWN(47) THEN dis_comp = dis_comp + .2
218.     IF _KEYDOWN(42) THEN dis_comp = dis_comp - .2
219.  
220.  
221.  
222.     '    IF _KEYDOWN(52) THEN veh_rotate2 = veh_rotate2 - .1
223.     '    IF _KEYDOWN(54) THEN veh_rotate2 = veh_rotate2 + .1
224.     '    IF _KEYDOWN(56) THEN veh_rotate3 = veh_rotate3 - .1
225.     '    IF _KEYDOWN(50) THEN veh_rotate3 = veh_rotate3 + .1
226.  
227.  
228.  
229.  
230.     'contol
231.     IF pr_temp THEN _PRINTSTRING (500, 0), "control type : " + control_type$(control_type) + "           "
232.     control_type = 0
233.     SELECT CASE control_type '(0-walking 1-flying)
234.         CASE 0
235.             walk_speed = .18
236.             me(3) = 0: me(4) = 0: me(7) = 0: flight(0, 1) = 0
237.             me(5) = me(5) + mousex * mouse_sens_xy / 200: me(6) = me(6) + mousey * mouse_sens_xy / 200
238.             go = ABS(ka OR kd OR kw OR ks): direction = (-90 * ABS(ka) + 90 * ABS(kd) + 180 * ABS(ks)) * go * pip180
239.             go_x = -(SIN(direction + me(5)) * walk_speed) * go: go_y = -(COS(direction + me(5)) * walk_speed) * go
240.             me(0) = me(0) + go_x: me(1) = me(1) + go_y
241.             ' me(2) = (map_deep(me(0), me(1)) - .18 + mapzd) * map_dimz
242.             'IF k_space AND free_jump THEN jump_cf = 15
243.             rotx_bevel = rotx_bevel * .95: me(2) = me(2) - jump_cf / 4: jump_cf = jump_cf - 1: IF jump_cf < 0 THEN jump_cf = 0
244.     END SELECT
245.  
246.  
247.     'camera control
248.  
249.     IF INKEY$ = "c" THEN camera_type = (camera_type + 1) MOD 4
250.  
251.  
252.     IF camera_type <> old_camera_type THEN
253.  
254.  
255.         LOCATE 1, 1: PRINT "VEHICLE CONTROL: arrow keys ,space-handbrake"
256.  
257.         c$(0) = "typical view, camera height adjustment mousewheel, camera distance /,* buttons , and mouse horisontal look"
258.         c$(1) = "interior view and mouse look around"
259.         c$(2) = "'cameraman' follows the car. camera height is mousewheel and mouse horisontal look"
260.         c$(3) = "free walking. WASD + mouse arrow. camera height is mousewheel "
261.         LOCATE 2, 1: PRINT "camera type :"; camera_type; "(change C button);  "
262.         LOCATE 3, 1: PRINT c$(camera_type) + SPACE$(120 - LEN(c$(camera_type)))
263.     END IF
264.     old_camera_type = camera_type
265.  
266.  
267.  
268.     SELECT CASE camera_type
269.         CASE 0
270.             me(5) = me(5) + (veh_rotate1_counterforce - me(5)) / 20
271.             dis = 5 + dis_comp
272.             me(0) = SIN(veh_rotate1) * dis + veh_posx
273.             me(1) = COS(veh_rotate1) * dis + veh_posy
274.             me(2) = map_deep(veh_posx, veh_posy) * map_dimz - (.5 + me2_comp) * ee
275.             ' me(5) = (degree(veh_posx - me(0), veh_posy - me(1)) + 180) * pip180
276.  
277.         CASE 1
278.             me(5) = me(5) + (veh_rotate1_counterforce - me(5)) / 20
279.             dis = 5 - 5.2 '    dis_comp = -5.2: me2_comp = 0.6
280.             me(0) = SIN(veh_rotate1) * dis + veh_posx
281.             me(1) = COS(veh_rotate1) * dis + veh_posy
282.             me(2) = map_deep(veh_posx, veh_posy) * map_dimz - (.5 + .6) * ee
283.             ' me(5) = (degree(veh_posx - me(0), veh_posy - me(1)) + 180) * pip180
284.  
285.         CASE 2
286.             medismax = 8: medismin = 3: follow = .01
287.  
288.             DO WHILE SQR((me(0) - veh_posx) ^ 2 + (me(1) - veh_posy) ^ 2) > medismax
289.             me(0) = me(0) + SGN(veh_posx - me(0)) * follow: me(1) = me(1) + SGN(veh_posy - me(1)) * follow: LOOP
290.  
291.             DO WHILE SQR((me(0) - veh_posx) ^ 2 + (me(1) - veh_posy) ^ 2) < medismin
292.             me(0) = me(0) - SGN(veh_posx - me(0)) * follow: me(1) = me(1) - SGN(veh_posy - me(1)) * follow: LOOP
293.  
294.             me(5) = (degree(veh_posx - me(0), veh_posy - me(1)) + 180) * pip180
295.             me(2) = map_deep(veh_posx, veh_posy) * map_dimz - (.5 + me2_comp) * ee
296.  
297.         CASE 3
298.             medis = 25: follow = .01
299.             IF me(0) <> veh_posx THEN DO WHILE ABS(me(0) - veh_posx) > medis: me(0) = me(0) + SGN(veh_posx - me(0)) * follow: LOOP
300.             IF me(1) <> veh_posy THEN DO WHILE ABS(me(1) - veh_posy) > medis: me(1) = me(1) + SGN(veh_posy - me(1)) * follow: LOOP
301.             me(2) = map_deep(veh_posx, veh_posy) * map_dimz - (.5 + me2_comp) * ee
302.     END SELECT
303.  
304.  
305.  
306.  
307.     cosrotz = COS(me(5)): sinrotz = SIN(me(5)): cosrotx = COS(me(6)): sinrotx = SIN(me(6)) 'to rotating angles
308.  
309.  
310.     '------------------------------------------ TERRAIN DRAW --------------------------------------------------------------------------------------------------
311.  
312.     'replace the missing row in the buffer line Y
313.     DO WHILE INT(INT(me(0))) <> perl_setx: dir = -SGN(INT(me(0)) - perl_setx): perl_setx = perl_setx - dir
314.         temp = INT(perl_setx + ABS(dir = -1) * (map_resolution - 1)): temp_m = INT(temp MOD map_resolution)
315.         FOR map_y = 0 TO map_resolution - 1: map(temp_m, INT(map_y + perl_sety) MOD map_resolution, 0) = perlin2d(temp, perl_sety + map_y)
316.     map(temp_m, INT((map_y + perl_sety) MOD map_resolution), 6) = noise(temp, perl_sety + map_y) < ration_column: NEXT map_y: LOOP
317.  
318.     'replace the missing row in the buffer line X
319.     DO WHILE INT(INT(me(1))) <> perl_sety: dir = -SGN(INT(me(1)) - perl_sety): perl_sety = perl_sety - dir
320.         temp = perl_sety + ABS(dir = -1) * (map_resolution - 1): temp_m = INT(temp MOD map_resolution)
321.         FOR map_x = 0 TO map_resolution - 1: map(INT((map_x + perl_setx) MOD map_resolution), temp_m, 0) = perlin2d(perl_setx + map_x, temp)
322.     map(INT(map_x + perl_setx) MOD map_resolution, temp_m, 6) = noise(perl_setx + map_x, temp) < ration_column: NEXT map_x: LOOP
323.  
324.     'calculating position and textures
325.     clmn(0, 0) = 0 'reset column counter
326.     FOR map_x = 0 TO map_resolution - 1: px = -map_dimxy / 2 + map_dimxy / map_resolution * (map_x - (me(0) - INT(me(0))))
327.         FOR map_y = 0 TO map_resolution - 1: IF map(map_x, map_y, 9) = 0 THEN _CONTINUE
328.             py = -map_dimxy / 2 + map_dimxy / map_resolution * (map_y - (me(1) - INT(me(1))))
329.             read_mapx = INT((map_x + perl_setx) MOD map_resolution): read_mapy = INT((map_y + perl_sety) MOD map_resolution): map_z = map(read_mapx, read_mapy, 0)
330.             map(map_x, map_y, 7) = 0: pz2 = map_dimz * map_z - me(2): rotate px, py, pz2, 1: IF see_point = 0 THEN _CONTINUE
331.             map(map_x, map_y, 1) = rotating(0): map(map_x, map_y, 2) = rotating(1): map(map_x, map_y, 3) = rotating(2): map(map_x, map_y, 7) = 1
332.             map(map_x, map_y, 5) = INT(text_height_scale * map_z): IF map(map_x, map_y, 5) > text_height_scale - 1 THEN map(map_x, map_y, 5) = text_height_scale - 1
333.             IF map(map_x, map_y, 5) < 0 THEN map(map_x, map_y, 5) = 0
334.             IF map(read_mapx, read_mapy, 6) THEN clmn(clmn(0, 0) + 1, 2) = map(map_x, map_y, 8): clmn(clmn(0, 0) + 1, 0) = px: clmn(clmn(0, 0) + 1, 1) = py: clmn(0, 0) = clmn(0, 0) + 1
335.     NEXT map_y, map_x
336.  
337.     'do maptriangle from squares !
338.     FOR map_x = 0 TO map_resolution - 2: FOR map_y = 0 TO map_resolution - 2
339.             IF (map(map_x, map_y, 7) AND map(map_x + 1, map_y, 7) AND map(map_x, map_y + 1, 7) AND map(map_x + 1, map_y + 1, 7)) = 0 THEN _CONTINUE
340.             m0x = map(map_x, map_y, 1): m0y = map(map_x, map_y, 2): m0z = map(map_x, map_y, 3)
341.             m1x = map(map_x + 1, map_y, 1): m1y = map(map_x + 1, map_y, 2): m1z = map(map_x + 1, map_y, 3)
342.             m2x = map(map_x, map_y + 1, 1): m2y = map(map_x, map_y + 1, 2): m2z = map(map_x, map_y + 1, 3)
343.             m3x = map(map_x + 1, map_y + 1, 1): m3y = map(map_x + 1, map_y + 1, 2): m3z = map(map_x + 1, map_y + 1, 3)
344.             atexture = texture(map(map_x, map_y, 8), 0): sx1 = (perl_setx + map_x) * text_multi: sy1 = (perl_sety + map_y) * text_multi: sx2 = sx1 + text_multi: sy2 = sy1 + text_multi
345.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), atexture TO(m0x, m0y, m0z)-(m1x, m1y, m1z)-(m2x, m2y, m2z)
346.     _MAPTRIANGLE (sx2, sy2)-(sx2, sy1)-(sx1, sy2), atexture TO(m3x, m3y, m3z)-(m1x, m1y, m1z)-(m2x, m2y, m2z): NEXT map_y, map_x
347.  
348.     'TERRAIN DRAW END --------------------------------------------------------------------------------------------------------------------------------------------
349.  
350.  
351.  
352.  
353.     'VEHICLE DRAW   -------------------------------------------------------------------------------------------------------
354.  
355.  
356.     v_ratio = .5
357.     veh_tengelytav = 4 * v_ratio
358.     veh_kerektav = 4 * v_ratio
359.     veh_kerekrad = 1 * v_ratio
360.     veh_kerekszeles = .9 * v_ratio
361.     veh_posz = map_deep(veh_posx, veh_posy) * map_dimz - veh_kerekrad * ee '- 2
362.     veh_shockab_scale = .3
363.     body_cx = .6 * v_ratio
364.     body_cy = .6 * v_ratio
365.     body_cz = .8 * v_ratio
366.     frs = .08 * v_ratio
367.  
368.     frs_dis_c = 1.1: body_yadd = -5.5 'frame size (ratio to vp$)
369.  
370.     'draw wheel
371.     wh_r(0) = veh_kerekrad: wh_r(1) = veh_kerekrad * .4: wh_div = 16 'wheel parameters
372.     FOR a_wheel = 0 TO 3: wh_posy = (SGN(a_wheel AND 1) * 2 - 1) * veh_tengelytav / 2: wh_posx = (SGN(a_wheel AND 2) * 2 - 1) * veh_kerektav / 2
373.         wheel_ang = (90 + ABS(a_wheel AND 1) * veh_wheel) * pip180
374.         FOR awh = 0 TO wh_div - 1: ang = (-wheel(a_wheel, 0) + 360 / wh_div * awh) * pip180: x = SIN(ang): y = COS(ang)
375.             FOR sz = 0 TO 1: wh_z = (sz * 2 - 1) * veh_kerekszeles / 2: FOR whr = 0 TO 1: r1 = x * wh_r(whr): r2 = wh_z: r3 = y * wh_r(whr)
376.                     rotate_2d r2, r1, wheel_ang: r1 = r1 + wh_posx: r2 = r2 + wh_posy: r3 = r3 + veh_shockab_scale * shockab(a_wheel)
377.                     rotate_vehicle r1, r2, r3, veh_rotate1, veh_rotate2, veh_rotate3: r1 = r1 + veh_posx: r2 = r2 + veh_posy: r3 = r3 * ee + veh_posz
378.         rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3 - me(2), 0: FOR t = 0 TO 2: wang(awh, t, whr, sz) = rotating(t): NEXT t, whr, sz, awh
379.         FOR t1 = 0 TO wh_div - 1: t2 = (t1 + 1) MOD wh_div: FOR t3 = 0 TO 1: FOR t4 = 0 TO 1
380.                     p00 = t1: p01 = t4: p02 = t4: p10 = t2: p11 = t4: p12 = t4: p20 = t1: p21 = t3: p22 = t3 XOR 1: p30 = t2: p31 = t3: p32 = t3 XOR 1
381.                     _MAPTRIANGLE (0, 0)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(wang(p00, 0, p01, p02), wang(p00, 1, p01, p02), wang(p00, 2, p01, p02))-(wang(p10, 0, p11, p12), wang(p10, 1, p11, p12), wang(p10, 2, p11, p12))-(wang(p20, 0, p21, p22), wang(p20, 1, p21, p22), wang(p20, 2, p21, p22))
382.                     _MAPTRIANGLE (whe_ts - 1, whe_ts - 1)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(wang(p30, 0, p31, p32), wang(p30, 1, p31, p32), wang(p30, 2, p31, p32))-(wang(p10, 0, p11, p12), wang(p10, 1, p11, p12), wang(p10, 2, p11, p12))-(wang(p20, 0, p21, p22), wang(p20, 1, p21, p22), wang(p20, 2, p21, p22))
383.     NEXT t4, t3, t1, a_wheel
384.  
385.     'draw vehicle frame
386.     FOR t1 = 0 TO LEN(vl$) / 5 - 1: p1 = VAL(MID$(vl$, t1 * 5 + 2, 2)): p2 = VAL(MID$(vl$, t1 * 5 + 4, 2))
387.         x1 = (VAL(MID$(vp$, p1 * 6 + 2, 2)) - 2) * body_cx: y1 = -(VAL(MID$(vp$, p1 * 6 + 4, 2)) + body_yadd) * body_cy: z1 = -(VAL(MID$(vp$, p1 * 6 + 6, 1))) * body_cz
388.         x2 = (VAL(MID$(vp$, p2 * 6 + 2, 2)) - 2) * body_cx: y2 = -(VAL(MID$(vp$, p2 * 6 + 4, 2)) + body_yadd) * body_cy: z2 = -(VAL(MID$(vp$, p2 * 6 + 6, 1))) * body_cz
389.         xc = (x1 + x2) / 2: yc = (y1 + y2) / 2: zc = (z1 + z2) / 2: dis = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2 + (z1 - z2) ^ 2) / 2 * frs_dis_c
390.         angle1 = (-degree(x2 - x1, y2 - y1)) * pip180: angle2 = (degree(y2 - y1, z2 - z1) - 90) * pip180
391.         FOR t2 = 0 TO 7: p(t2, 0) = (SGN(ABS(t2 AND 1)) * 2 - 1) * frs: p(t2, 1) = (SGN(ABS(t2 AND 2)) * 2 - 1) * dis: p(t2, 2) = (SGN(ABS(t2 AND 4)) * 2 - 1) * frs
392.             rotate_2d p(t2, 0), p(t2, 1), angle1: rotate_2d p(t2, 1), p(t2, 2), -angle2: p(t2, 0) = p(t2, 0) + xc: p(t2, 1) = p(t2, 1) + yc: p(t2, 2) = p(t2, 2) + zc
393.             rotate_vehicle p(t2, 0), p(t2, 1), p(t2, 2), veh_rotate1, veh_rotate2, veh_rotate3: r1 = p(t2, 0) + veh_posx: r2 = p(t2, 1) + veh_posy
394.         r3 = (veh_posz + p(t2, 2) * ee) - me(2): rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3, 0: FOR t = 0 TO 2: p(t2, t) = rotating(t): NEXT t, t2
395.         FOR t2 = 0 TO 5: FOR t3 = 0 TO 3: sq(t3) = VAL(MID$(sq$, 2 + t2 * 5 + t3, 1)): NEXT t3
396.             _MAPTRIANGLE (0, 0)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), vhfr_text(0) TO(p(sq(0), 0), p(sq(0), 1), p(sq(0), 2))-(p(sq(1), 0), p(sq(1), 1), p(sq(1), 2))-(p(sq(2), 0), p(sq(2), 1), p(sq(2), 2))
397.             _MAPTRIANGLE (vhfr_ts - 1, vhfr_ts - 1)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), vhfr_text(0) TO(p(sq(3), 0), p(sq(3), 1), p(sq(3), 2))-(p(sq(1), 0), p(sq(1), 1), p(sq(1), 2))-(p(sq(2), 0), p(sq(2), 1), p(sq(2), 2))
398.     NEXT t2, t1
399.  
400.     'draw vehicle bodywork textures
401.     FOR t1 = 0 TO LEN(vt$) / 10 - 1: FOR t = 0 TO 3: vtx(t) = VAL(MID$(vt$, t1 * 10 + (t + 1) * 2, 2)): NEXT t
402.         FOR t2 = 0 TO 3: vt(t2, 0) = (VAL(MID$(vp$, vtx(t2) * 6 + 2, 2)) - 2) * body_cx: vt(t2, 1) = -(VAL(MID$(vp$, vtx(t2) * 6 + 4, 2)) + body_yadd) * body_cy
403.             vt(t2, 2) = -(VAL(MID$(vp$, vtx(t2) * 6 + 6, 1))) * body_cz: rotate_vehicle vt(t2, 0), vt(t2, 1), vt(t2, 2), veh_rotate1, veh_rotate2, veh_rotate3
404.             r1 = vt(t2, 0) + veh_posx: r2 = vt(t2, 1) + veh_posy: r3 = (veh_posz + vt(t2, 2) * ee) - me(2)
405.         rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3, 0: FOR t = 0 TO 2: vt(t2, t) = rotating(t): NEXT t, t2: atexture = vhfr_text(VAL(MID$(vt$, t1 * 10 + 10, 1)))
406.         _MAPTRIANGLE (0, 0)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), atexture TO(vt(0, 0), vt(0, 1), vt(0, 2))-(vt(1, 0), vt(1, 1), vt(1, 2))-(vt(2, 0), vt(2, 1), vt(2, 2))
407.         _MAPTRIANGLE (vhfr_ts - 1, vhfr_ts - 1)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), atexture TO(vt(3, 0), vt(3, 1), vt(3, 2))-(vt(1, 0), vt(1, 1), vt(1, 2))-(vt(2, 0), vt(2, 1), vt(2, 2))
408.     NEXT t1
409.  
410.  
411.     'VEHICLE DRAW END ----------------------------------------------------------------------------------------------------------
412.  
413.  
414.  
415.  
416.  
417.     'vehicle control
418.  
419.  
420.  
421.     veh_speed_max = .3
422.  
423.     veh_wheel = veh_wheel + (k_left - k_right) * veh_wheel_sens '/ ((veh_speed + .01) * 5)
424.     veh_wheel_max = 45: IF ABS(veh_wheel) > veh_wheel_max THEN veh_wheel = SGN(veh_wheel) * veh_wheel_max
425.  
426.     veh_speed = SQR(veh_vecx ^ 2 + veh_vecy ^ 2)
427.  
428.     IF k_space THEN gg = 3 ELSE gg = 1
429.     veh_wheel = veh_wheel * (.85 - veh_speed / gg)
430.  
431.  
432.     veh_rotate1 = veh_rotate1 + (veh_speed * veh_wheel) / 120
433.  
434.  
435.     veh_rotate1_counterforce = veh_rotate1
436.  
437.     position_accel = .0091: ww = .98: szog_xy = veh_rotate1 '+ weh_wheel * pip180
438.  
439.     new_vec_x = SIN(szog_xy) * position_accel * k_up * ABS(k_space = 0)
440.     new_vec_y = COS(szog_xy) * position_accel * k_up * ABS(k_space = 0)
441.     vec_x = (veh_vecx * ww + new_vec_x)
442.     vec_y = (veh_vecy * ww + new_vec_y)
443.     vec_sum = SQR(vec_x * vec_x + vec_y * vec_y):
444.     IF vec_sum > veh_speed_max THEN vec_sum = veh_speed_max / vec_sum ELSE vec_sum = 1
445.  
446.  
447.     veh_vecx = vec_x * vec_sum
448.     veh_vecy = vec_y * vec_sum
449.     veh_speed = SQR(veh_vecx ^ 2 + veh_vecy ^ 2)
450.     IF k_up = 0 AND veh_speed < .01 THEN veh_vecx = 0: veh_vecy = 0: veh_speed = 0
451.     veh_posx = veh_posx + veh_vecx
452.     veh_posy = veh_posy + veh_vecy
453.  
454.  
455.     IF k_down THEN deacc = .96 ELSE deacc = .9993: IF kw THEN deacc = 1
456.     IF k_space THEN deacc = .99
457.     veh_vecx = veh_vecx * deacc
458.     veh_vecy = veh_vecy * deacc
459.  
460.     '    IF INKEY$ = "u" THEN FOR t = 0 TO 3: shockab(t) = RND(1): NEXT t
461.     '   LOCATE 3, 1: PRINT shockab(3)
462.  
463.     'wheels rotation
464.     FOR a_wheel = 0 TO 3
465.         wh_posy = (SGN(a_wheel AND 1) * 2 - 1) * veh_tengelytav / 2: wh_posx = (SGN(a_wheel AND 2) * 2 - 1) * veh_kerektav / 2
466.         rotate_2d wh_posy, wh_posx, veh_rotate1: wheel_ang = (90 + ABS(a_wheel AND 1) * veh_wheel) * pip180
467.         add = veh_speed: IF add > .2 THEN add = .2
468.         IF k_space AND ((a_wheel AND 1) = 0) THEN add = 0
469.     wheel(a_wheel, 0) = wheel(a_wheel, 0) + add * 50: NEXT a_wheel
470.  
471.  
472.  
473.  
474.  
475.  
476.     _DISPLAY: IF pr_temp THEN _PRINTSTRING (0, 20), SPACE$(160)
477. LOOP
478.  
479.  
480. '--------------------------------------------------------------------------- BOSS CYCLE END -------------------------------------------------
481.  
482.  
483. rotating_draw:
484. rd = .3
485. _MAPTRIANGLE (0, 0)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(rotating(0), rotating(1), rotating(2))-(rotating(0) + rd, rotating(1), rotating(2))-(rotating(0), rotating(1) + rd, rotating(2))
486. RETURN
487.  
488.  
489.  
490. new_target: l = 300: targ(0) = map_center + l / 2 + l * RND(1): targ(1) = map_center + l / 2 + l * RND(1): targ(2) = (map_deep(targ(0), targ(1)) - .1 - targ_size / 2)
491. new_target_signal = 160: RETURN
492.  
493.  
494.  
495.  
496. FUNCTION noise (x, y) 'reading pseudo random buffer
497.     x2 = INT(x): y2 = INT(y): a = INT(ABS(x2) + ABS(y2)) MOD noise_rand_c: b = ABS(x2) MOD noise_rand_c: c = noise_rand(a) + noise_rand(b): noise = c - INT(c)
498. END FUNCTION
499.  
500. FUNCTION SmoothNoise (x, y)
501.     SELECT CASE perlin_smooth_noise_interpolation_type
502.         CASE 0: SmoothNoise = noise(x, y)
503.         CASE 1: corners = (noise(x - 1, y - 1) + noise(x + 1, y - 1) + noise(x - 1, y + 1) + noise(x + 1, y + 1)) / 16
504.             sides = (noise(x - 1, y) + noise(x + 1, y) + noise(x, y - 1) + noise(x, y + 1)) / 8: center = noise(x, y) / 4: SmoothNoise = corners + sides + center
505. END SELECT: END FUNCTION
506.  
507. FUNCTION Perlin2D_original (x, y): total = 0: FOR t = 0 TO perlin_level - 1: frequency = 2 ^ t * perlin_multiplier: amplitude = perlin_pers ^ t
508.     total = total + InterpolatedNoise(x * frequency, y * frequency) * amplitude: NEXT t: Perlin2D_original = total
509. END FUNCTION
510.  
511. FUNCTION perlin2d (x, y): perlin2dx = mapz_multiplier * (Perlin2D_original(x, y) - mapz_min)
512.     '    perlin2d = 0: EXIT FUNCTION
513.     IF perlin2dx > perlin_flat_soil_limit_low THEN perlin2dx = perlin_flat_soil_limit_low
514.     IF perlin2dx < perlin_flat_soil_limit_high THEN perlin2dx = perlin_flat_soil_limit_high
515.     perlin2d = perlin2dx
516. END FUNCTION
517.  
518. FUNCTION InterpolatedNoise (x, y): integer_X = INT(x): fractional_X = x - integer_X: integer_y = INT(y): fractional_Y = y - integer_y
519.     v1 = SmoothNoise(integer_X, integer_y): v2 = SmoothNoise(integer_X + 1, integer_y)
520.     v3 = SmoothNoise(integer_X, integer_y + 1): v4 = SmoothNoise(integer_X + 1, integer_y + 1)
521. i1 = Interpolate(v1, v2, fractional_X): i2 = Interpolate(v3, v4, fractional_X): InterpolatedNoise = Interpolate(i1, i2, fractional_Y): END FUNCTION
522.  
523. FUNCTION Interpolate (a, b, x): Interpolate = a * (1 - x) + b * x: END FUNCTION
524.  
525. SUB rotate (px, py, pz2, see_analysis)
526.     px3 = px * cosrotz - py * sinrotz: py2 = px * sinrotz + py * cosrotz: py3 = py2 * cosrotx - pz2 * sinrotx: pz3 = -(py2 * sinrotx + pz2 * cosrotx)
527.     see_point = pz3 < 200: IF see_point = 0 AND see_analysis THEN EXIT SUB
528. rotate_2d px3, py2, rotx_bevel: rotating(0) = px3 * map_zoom_xy: rotating(1) = -py3 * map_zoom_xy: rotating(2) = pz3 * map_zoom_distance: END SUB
529.  
530. SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
531.  
532. SUB flight_control (af)
533.  
534.     rotx = flight(af, 1): me0 = flight(af, 3): me1 = flight(af, 4): me2 = flight(af, 5): me3 = flight(af, 6): me4 = flight(af, 7): kw = ABS(flight(af, 8))
535.     ks = ABS(flight(af, 9)): mousey = flight(af, 11): mousex = flight(af, 10): me6 = flight(af, 12): me5 = flight(af, 13): rotx_bevel3 = flight(af, 2)
536.     rotx = (rotx + mousex * .005) * .95: IF ABS(rotx) > (max_incli * pip180) THEN rotx = max_incli * pip180 * SGN(rotx)
537.  
538.     actual_speed = 1 / position_speed * SQR(me3 * me3 + me4 * me4): rotx_bevel2 = rotx * actual_speed * kw
539.     rotx_bevel3 = rotx_bevel3 + (rotx_bevel2 - rotx_bevel3) * .05: me5 = me5 + rotx / 20: me6 = me6 + mousey / 100: lim_fy = 65: temp = me6 / pip180
540.     IF temp > 270 + lim_fy THEN temp = 270 + lim_fy
541.     IF temp < 270 - lim_fy THEN temp = 270 - lim_fy
542.     me6 = temp * pip180: me2 = me2 + COS(-me6) * actual_speed * 5 * kw + 1 * ABS(ks AND actual_speed < .05) 'calculating Z
543.     actual_deep = (map_deep(me0, me1) - .1) * map_dimz
544.     IF me2 > actual_deep - .1 THEN me2 = actual_deep - .1 - actual_speed / 4: me3 = me3 * .9: me4 = me4 * .9: flight(af, 17) = 1 ELSE flight(af, 17) = 0
545.     IF me2 < flight_high_max THEN me2 = flight_high_max
546.     position_accel = .02: ww = .9999: szog_xy = me5 + rotx 'calculating XY
547.  
548.     new_vec_x = -SIN(szog_xy) * position_accel * kw: new_vec_y = -COS(szog_xy) * position_accel * kw: vec_x = (me3 * ww + new_vec_x): vec_y = (me4 * ww + new_vec_y)
549.     vec_sum = SQR(vec_x * vec_x + vec_y * vec_y): IF vec_sum > position_speed THEN vec_sum = position_speed / vec_sum ELSE vec_sum = 1
550.     me3 = vec_x * vec_sum: me4 = vec_y * vec_sum: me0 = me0 + me3: me1 = me1 + me4: IF ks THEN deacc = .96 ELSE deacc = .99: IF kw THEN deacc = 1
551.     me3 = me3 * deacc: me4 = me4 * deacc: flight(af, 16) = 0
552.  
553.     IF crash_to_column(me0, me1) THEN
554.         IF ABS(me3 < .05) THEN me0 = flight(af, 3)
555.         IF ABS(me4 < .05) THEN me1 = flight(af, 4)
556.         flight(af, 16) = 1: me3 = -me3 * .7: me4 = -me4 * .7: DO: me0 = me0 + me3: me1 = me1 + me4: LOOP WHILE crash_to_column(me0, me1)
557.     END IF
558.     flight(af, 1) = rotx: flight(af, 3) = me0: flight(af, 4) = me1: flight(af, 5) = me2: flight(af, 6) = me3: flight(af, 7) = me4: flight(af, 2) = rotx_bevel3
559.     flight(af, 12) = me6: flight(af, 13) = me5: flight(af, 15) = actual_speed
560.  
561. END SUB
562.  
563. FUNCTION map_deep (x, y)
564.     read_mapx1 = INT(x + map_resper2) MOD map_resolution: read_mapx2 = INT(x + map_resper2 + 1) MOD map_resolution
565.     read_mapy1 = INT(y + map_resper2) MOD map_resolution: read_mapy2 = INT(y + map_resper2 + 1) MOD map_resolution
566.     mapx1 = Interpolate(map(read_mapx1, read_mapy1, 0), map(read_mapx2, read_mapy1, 0), x - INT(x))
567.     mapx2 = Interpolate(map(read_mapx1, read_mapy2, 0), map(read_mapx2, read_mapy2, 0), x - INT(x))
568. map_deep = Interpolate(mapx1, mapx2, y - INT(y)): END FUNCTION
569.  
570.  
571. FUNCTION crash_to_column (x1, y1): EXIT FUNCTION
572.     pixs_column = INT(map_dimxy / map_resolution / clmn_rad) + 2
573.     FOR tx = -pixs_column TO pixs_column: FOR ty = -pixs_column TO pixs_column
574.             read_mapx = INT(x1 + map_resper2 + tx) MOD map_resolution: read_mapy = INT(y1 + map_resper2 + ty) MOD map_resolution
575.             IF map(read_mapx, read_mapy, 6) THEN crash_to_column = 1: EXIT FUNCTION
576. NEXT ty, tx: END FUNCTION
577.  
578. FUNCTION degree (a, b): degreex = ATN((a + .00001) / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0)
579. degree = degreex: END FUNCTION
580.  
581. SUB rotate_vehicle (p0, p1, p2, a1, a2, a3): rotate_2d p2, p1, a3 + 180 * pip180: rotate_2d p0, p2, a2 + 180 * pip180: rotate_2d p0, p1, -a1: END SUB
582.  
583.  
584.  
585.  

[STxAxTIC]

MasterGy -

This is such an excellent endeavor, and you've done an awesome job with the vehicle already! So car physics... we should be able to derive all that, if anyone wants to supply links that's their business.

As for the car flipping over... This can be intricate business to get exactly right, especially when in motion. Speed factors into whether you tip over or not, so how do we model all this? I'll start:

(1) Calculate (or convincingly estimate) the center of mass of your vehicle. This will be a 3d vector landing somewhere near the middle of it, basically. This number will have to change depending on what your shock absorbers are doing from moment to moment.

(2) When the car is in any given certain position on your terrain, place an imaginary point under each tire, and connect those imaginary points with imaginary lines to make a closed, 4-sided shape. In general, for bumpy terrain, this 4-sided wireframe won't be flat or level. (This frame can serve as the basis for determining the normal vector the vehicle and help render it at a slant.)

(3) View this wireframe shape from above (take the z-projection) and it flattens to a rectangle. If the ground was very slanted, you'll get a rather small rectangle. If the ground was perfectly flat, you get the biggest possible rectangle. The benefit of shock absorbers would be to increase the size of this projected rectangle.

(4) Project the center of mass vector onto the same plane, which will effectively place a dot either inside or outside the projected rectangle. If the dot lands outside the rectangle, the vehicle flips over.

This picture is actually not exactly what im describing but it does have the center of mass and you can imagine the "wireframe box"
 

... All that's true "At Rest" (or true enough for low speeds) ...

To do all this while in motion, you need Newton's second law to factor in. Friction, torque, centripetal stuff, oh my... Like for example, if you're driving along at a good speed, and then suddenly turn the wheel as hard as you can, the vehicle flips like crazy, even on flat ground. Do you want to capture all of those dynamics too?

[bplus]

Once again really nice work @MasterGy

[MasterGy]

thanks for the advice and for checking it out. Good idea STxAxTIC what you wrote! I'm just drawing for now, I'm trying to understand. I hope you succeed one day.

[MasterGy]

I'm getting up with this lately, I'm lying with this. Before I write the move for the game, I first try to understand the dynamics of the vehicle in 2d, it’s very complicated and by the time I get there, it’s false. The behavior is not realistic. Knowledge of solid body physics or rigid body physics would be required. In vain, there are many descriptions on the Internet, but so far they have not been applied effectively. No problem, I won't give up!

Code: QB64: [Select]

1. CONST pip180 = 3.141592 / 180
2. CONST perlin_pers = 7 '7 'amplitudo
3. CONST perlin_level = 1 '5 'level of resolution wave
4. CONST perlin_multiplier = 0.005
5. CONST perlin_smooth_noise_interpolation_type = 0 '0-none '1-standard
6. CONST perlin_flat_soil_limit_low = .99 'high value is low area (negate)
7. CONST perlin_flat_soil_limit_high = .05
8.  
9.  
10. 'create pseudo random buffer
11. DIM SHARED noise_rand_c: noise_rand_c = 10000: DIM SHARED noise_rand(noise_rand_c - 1): FOR t = 0 TO noise_rand_c - 1: noise_rand(t) = RND(1): NEXT t
12.  
13. 'find min/max Z
14. DIM SHARED mapz_min, mapz_max, dimz
15. DIM SHARED mapz_multiplier: mapz_min = 9999999: mapz_max = -mapz_min: FOR t = 0 TO 2999: c = Perlin2D_original(5000 * RND(1), 100)
16.     mapz_min = c * ABS(mapz_min > c) + mapz_min * (ABS(mapz_min > c) XOR 1): mapz_max = c * ABS(mapz_max < c) + mapz_max * (ABS(mapz_max < c) XOR 1)
17. NEXT t: mapz_multiplier = 1 / (mapz_max - mapz_min)
18.  
19. 'vehicle 3d data
20. vp$ = "-01010-03010-01020-03020-00031-04031-01052-03052-01072-03072-00081-04081-00101-04101-00090-04090" 'points X(2),Y(2),Z(1)
21. vl$ = "-0001-0002-0103-0203-0004-0105-0204-0305-0406-0507-0607-0410-0511-0608-0709-0809-0810-0911-1011-1012-1113-1213-1412-1513-1415-0405-0214-0315" '3d lines
22. sq$ = "-0123-4567-0246-2367-3175-1054" 'cubes points make square
23. vt$ = "-000102031-000104051-141512131-101112131-040012141-050113151-080910111-141502031" 'bodywork textures
24. vt$ = vt$ + "-040610082-040509112-040506072-060708092" 'vehicle windows
25. vp$ = vp$ + "-01081-01101-01092-01102-03081-03101-03092-03102-00092-04092-00102-04102": vt$ = vt$
26.  
27.  
28. monx = 1200: mony = 400: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _SCREENMOVE _MIDDLE
29. dimz = 200: veh_posx = 10000
30. eltx = -monx / 8 'location vehicle on display
31. DIM whz(1, 99, 9)
32. 'shockab(0) = .5
33.  
34.  
35. veh_posz = map_deep(veh_posx) + 150 'veh_kerekrad
36.  
37. '------------------------------------------------------------- BOSS CYCLE -------------------------------------------------------------------------------------
38. DO: _LIMIT 20
39.     'controls input
40.     k_space = _KEYDOWN(32): k_left = _KEYDOWN(19200): k_right = _KEYDOWN(19712): k_up = _KEYDOWN(18432): k_down = _KEYDOWN(20480)
41.     WHILE _MOUSEINPUT: WEND
42.  
43.  
44.     'draw terrain
45.     FOR tx = 0 TO monx - 1: az = perlin2d(tx + veh_posx - monx / 2 - eltx, 100) * dimz: LINE (tx, mony)-(tx, mony - az), _RGB32(50, 50, 50): NEXT tx
46.  
47.     v_ratio = 30
48.     veh_tengelytav = 4 * v_ratio
49.     veh_kerektav = 4 * v_ratio
50.     veh_kerekrad = 1 * v_ratio
51.     veh_kerekszeles = .9 * v_ratio
52.     veh_shockab_scale = .7 * v_ratio
53.     body_cx = .6 * v_ratio
54.     body_cy = .6 * v_ratio
55.     body_cz = .8 * v_ratio
56.     frs = .08 * v_ratio
57.     wh_div = 11
58.     frs_dis_c = 1.1: body_yadd = -5.5 'frame size (ratio to vp$)
59.     wh_r(0) = veh_kerekrad: wh_r(1) = veh_kerekrad * .4
60.  
61.     'draw wheel
62.     FOR a_wheel = 0 TO 1: wh_posx = (a_wheel * 2 - 1) * veh_tengelytav / 2: wh_posy = veh_shockab_scale * shockab(a_wheel)
63.         rotate_2d wh_posx, wh_posy, veh_rotx: wpx = wh_posx + monx / 2 + eltx: wpy = mony - wh_posy - veh_posz
64.         CIRCLE (wpx, wpy), wh_r(0), _RGB32(255, 255, 255): CIRCLE (wpx, wpy), wh_r(1), _RGB32(255, 255, 255)
65.         FOR t = 0 TO wh_div - 1: ang = (-wheel_rat(a_wheel) + 360 / wh_div * t) * pip180 + veh_rotx
66.             x1 = SIN(ang) * wh_r(0) + wpx: y1 = COS(ang) * wh_r(0) + wpy: x2 = SIN(ang) * wh_r(1) + wpx: y2 = COS(ang) * wh_r(1) + wpy
67.     LINE (x1, y1)-(x2, y2), _RGB32(200, 200, 200): NEXT t, a_wheel
68.  
69.     'draw vehicle frame
70.     FOR t1 = 0 TO LEN(vl$) / 5 - 1: p1 = VAL(MID$(vl$, t1 * 5 + 2, 2)): p2 = VAL(MID$(vl$, t1 * 5 + 4, 2))
71.         x1 = (VAL(MID$(vp$, p1 * 6 + 4, 2)) + body_yadd) * body_cy: y1 = -(VAL(MID$(vp$, p1 * 6 + 6, 1))) * body_cz
72.         x2 = (VAL(MID$(vp$, p2 * 6 + 4, 2)) + body_yadd) * body_cy: y2 = -(VAL(MID$(vp$, p2 * 6 + 6, 1))) * body_cz
73.         rotate_2d x1, y1, veh_rotx: rotate_2d x2, y2, veh_rotx
74.         x1 = x1 + monx / 2 + eltx: y1 = mony - y1 - veh_posz: x2 = x2 + monx / 2 + eltx: y2 = mony - y2 - veh_posz
75.     LINE (x1, y1)-(x2, y2), _RGB32(255, 255, 255): NEXT t1
76.  
77.     '--------------------------------------------------------------------- CONTROL --------------------------------------------------------
78.     v_ratio = 3
79.     gravity = v_ratio * 0.05
80.  
81.     veh_posx = veh_posx + veh_vecx * v_ratio
82.     veh_posz = veh_posz + veh_vecz * v_ratio
83.  
84.     veh_vecx = COS(veh_rotx) * v_ratio
85.     veh_vecz = veh_vecz - gravity + SIN(veh_rotx) * .3
86.  
87.     '    LOCATE 1, 1: PRINT veh_vecx, veh_vecz
88.  
89.     'utkozik-e valamelyik kerek ?
90.     FOR a_wheel = 0 TO 1: whe_pos(a_wheel, 2) = 0
91.         whe_pos(a_wheel, 0) = (veh_tengelytav / 2 * (a_wheel * 2 - 1)): whe_pos(a_wheel, 1) = veh_shockab_scale * shockab(a_wheel)
92.         rotate_2d whe_pos(a_wheel, 0), whe_pos(a_wheel, 1), veh_rotx
93.         whe_pos(a_wheel, 0) = whe_pos(a_wheel, 0) + veh_posx: whe_pos(a_wheel, 1) = whe_pos(a_wheel, 1) + veh_posz
94.  
95.         res = 100: twc = 0: twx = 0: twz = 0: FOR t2 = 0 TO res - 1: whz(a_wheel, t2, 2) = veh_rotx + (360 / (res - 1) * t2) * pip180 'angle
96.             wangx = SIN(whz(a_wheel, t2, 2)) * veh_kerekrad: wangz = COS(whz(a_wheel, t2, 2)) * veh_kerekrad
97.             whz(a_wheel, t2, 0) = wangx + whe_pos(a_wheel, 0): whz(a_wheel, t2, 1) = wangz + whe_pos(a_wheel, 1)
98.             t3 = ABS(map_deep(whz(a_wheel, t2, 0)) > whz(a_wheel, t2, 1)) 'point in the terrain height
99.         twc = twc + t3: twx = twx + wangz * t3: twz = twz - wangx * t3: NEXT t2: IF twc = 0 THEN _CONTINUE
100.         whe_pos(a_wheel, 2) = 1 'van-e utkozes ?
101.         whe_pos(a_wheel, 3) = degree(twx, twz) - 90 'hany fok ?
102.         whe_pos(a_wheel, 4) = INT(whe_pos(a_wheel, 0) - twz / twc) 'melyik terep X ?
103.         road_scan = 4 'road-wheel angle ,road scan widht
104.         'az utfelulet szoge a kerekek alatt
105.         whe_pos(a_wheel, 5) = degree((map_deep(whe_pos(a_wheel, 4) + road_scan) - map_deep(whe_pos(a_wheel, 4) - road_scan)), road_scan * 2) - 90
106.     NEXT a_wheel
107.  
108.  
109.     'draw help-lines
110.     FOR a_wheel = 0 TO 1: IF whe_pos(a_wheel, 2) = 0 THEN _CONTINUE
111.         FOR t = 0 TO 1
112.             xm(t) = whe_pos(a_wheel, 0) + SIN(whe_pos(a_wheel, 5) * pip180) * 300 * (t * 2 - 1) + monx / 2 - veh_posx + eltx
113.             ym(t) = mony - (whe_pos(a_wheel, 1) - COS(whe_pos(a_wheel, 5) * pip180) * 300 * (t * 2 - 1) - veh_kerekrad)
114.         NEXT t
115.         IF rajzolas THEN LINE (xm(0), ym(0))-(xm(1), ym(1)), _RGB32(0, 255, 0) 'a talaj kerek alatti szoge
116.         ang = whe_pos(a_wheel, 3) * pip180: x1 = whe_pos(a_wheel, 0) - veh_posx + eltx + monx / 2: y1 = mony - whe_pos(a_wheel, 1)
117.         x2 = x1 + SIN(ang) * 100: y2 = y1 - COS(ang) * 100: IF rajzolas THEN LINE (x1, y1)-(x2, y2) 'kerek esese a talajra
118.         x1 = whe_pos(a_wheel, 4): y1 = mony - map_deep(x1): IF rajzolas THEN CIRCLE (x1 - veh_posx + eltx + monx / 2, y1), 20 'talajon kerek talalkozas
119.     NEXT a_wheel
120.  
121.  
122.     'draw mover calculation
123.     dvc = 100: dvy = dvc + 10: dvx = monx - dvy: 'CIRCLE (dvx, dvy), dvc: mover_x = _MOUSEX - dvx: mover_y = _MOUSEY - dvy
124.     IF SQR(mover_x ^ 2 + mover_y ^ 2) > dvc THEN mover_ang = mover_ang_last ELSE mover_ang = degree(mover_x, mover_y)
125.     mover_ang_last = mover_ang: mover_str = .5
126.     x1 = SIN(mover_ang * pip180) * dvc * mover_str + dvx: y1 = COS(mover_ang * pip180) * dvc * mover_str + dvy: 'LINE (dvx, dvy)-(x1, y1)
127.  
128.     'draw mover vector
129.     FOR a_wheel = 0 TO 1: IF whe_pos(a_wheel, 2) = 0 THEN _CONTINUE
130.         x = whe_pos(a_wheel, 0): y = whe_pos(a_wheel, 1): angx = SIN(mover_ang * pip180): angy = COS(mover_ang * pip180):
131.         x1 = whe_pos(a_wheel, 4): y1 = mony - map_deep(x1): x1 = x1 + monx / 2 - veh_posx + eltx: x2 = x1 - angx * 200: y2 = y1 - angy * 200
132.         IF rajzolas THEN LINE (x1, y1)-(x2, y2), _RGB32(255, 100, 100)
133.  
134.  
135.         'az auto mozgasvektora, es a talaj szoge mekkora szoget zar be ?
136.         whe_pos(a_wheel, 6) = (-mover_ang) + whe_pos(a_wheel, 5) + 90
137.  
138.         angx = SIN(whe_pos(a_wheel, 6) * pip180) * 200: angy = COS(whe_pos(a_wheel, 6) * pip180) * 200
139.         x3 = x1 - angx: y3 = y1 - angy:
140.         IF rajzolas THEN LINE (x1, y1)-(x3, y3), _RGB32(100, 100, 255)
141.  
142.         66:
143.     NEXT a_wheel
144.  
145.  
146.     'lengescsillapito control
147.     FOR a_wheel = 0 TO 1
148.         IF whe_pos(a_wheel, 2) THEN shockab(a_wheel) = shockab(a_wheel) - .1 * v_ratio ELSE shockab(a_wheel) = shockab(a_wheel) + .02 * v_ratio
149.         IF shockab(a_wheel) > 1 THEN shockab(a_wheel) = 1
150.         IF shockab(a_wheel) < 0 THEN shockab(a_wheel) = 0
151.  
152.         whe_posx(a_wheel) = (veh_tengelytav / 2 * (a_wheel * 2 - 1))
153.         whe_posy(a_wheel) = veh_shockab_scale * shockab(a_wheel)
154.         rotate_2d whe_posx(a_wheel), whe_posy(a_wheel), veh_rotx
155.  
156.     NEXT a_wheel
157.  
158.  
159.     IF whe_pos(1, 2) OR whe_pos(0, 2) THEN
160.         veh_rotx2 = -(degree(whe_posx(0) - whe_posx(1), whe_posy(0) - whe_posy(1)) - 90) * pip180
161.         veh_rotx3 = (veh_rotx2 - veh_rotx) * .3
162.     ELSE
163.         '        veh_rotx2 = veh_rotx3
164.     END IF
165.  
166.     veh_rotx = veh_rotx + veh_rotx3
167.  
168.  
169.     '    veh_rotx = veh_rotx + veh_rotx2 / 80
170.     '    veh_rotx = veh_rotx + (veh_rotx_v1 - veh_rotx) / 15 '+ (veh_rotx_v2 - veh_rotx) / 5
171.  
172.  
173.     'elforgatas
174.  
175.     LOCATE 1, 1: PRINT "angles draw D button"
176.     IF INKEY$ = "d" THEN rajzolas = rajzolas XOR 1
177.  
178.  
179.     'talaj fole igazitas
180.  
181.  
182.  
183.     IF whe_pos(1, 2) OR whe_pos(0, 2) THEN veh_vecz = 1
184.  
185.  
186.  
187. _DISPLAY: CLS , _RGB32(25, 0, 0): LOOP
188.  
189. kerek_talajker:
190. RETURN
191.  
192.  
193.  
194.  
195.  
196.  
197.  
198.  
199.  
200.  
201.  
202.  
203.  
204.  
205.  
206.  
207.  
208.  
209.  
210.  
211.  
212.  
213.  
214.  
215.  
216.  
217.  
218.  
219.  
220.  
221.  
222.  
223. FUNCTION noise (x, y) 'reading pseudo random buffer
224.     x2 = INT(x): y2 = INT(y): a = INT(ABS(x2) + ABS(y2)) MOD noise_rand_c: b = ABS(x2) MOD noise_rand_c: c = noise_rand(a) + noise_rand(b): noise = c - INT(c)
225. END FUNCTION
226.  
227. FUNCTION SmoothNoise (x, y)
228.     SELECT CASE perlin_smooth_noise_interpolation_type
229.         CASE 0: SmoothNoise = noise(x, y)
230.         CASE 1: corners = (noise(x - 1, y - 1) + noise(x + 1, y - 1) + noise(x - 1, y + 1) + noise(x + 1, y + 1)) / 16
231.             sides = (noise(x - 1, y) + noise(x + 1, y) + noise(x, y - 1) + noise(x, y + 1)) / 8: center = noise(x, y) / 4: SmoothNoise = corners + sides + center
232. END SELECT: END FUNCTION
233.  
234. FUNCTION Perlin2D_original (x, y): total = 0: FOR t = 0 TO perlin_level - 1: frequency = 2 ^ t * perlin_multiplier: amplitude = perlin_pers ^ t
235.     total = total + InterpolatedNoise(x * frequency, y * frequency) * amplitude: NEXT t: Perlin2D_original = total
236. END FUNCTION
237.  
238. FUNCTION perlin2d (x, y): perlin2dx = mapz_multiplier * (Perlin2D_original(x, y) - mapz_min)
239.     IF perlin2dx > perlin_flat_soil_limit_low THEN perlin2dx = perlin_flat_soil_limit_low
240.     IF perlin2dx < perlin_flat_soil_limit_high THEN perlin2dx = perlin_flat_soil_limit_high
241.     perlin2d = perlin2dx
242. END FUNCTION
243.  
244. FUNCTION InterpolatedNoise (x, y): integer_X = INT(x): fractional_X = x - integer_X: integer_y = INT(y): fractional_Y = y - integer_y
245.     v1 = SmoothNoise(integer_X, integer_y): v2 = SmoothNoise(integer_X + 1, integer_y)
246.     v3 = SmoothNoise(integer_X, integer_y + 1): v4 = SmoothNoise(integer_X + 1, integer_y + 1)
247. i1 = Interpolate(v1, v2, fractional_X): i2 = Interpolate(v3, v4, fractional_X): InterpolatedNoise = Interpolate(i1, i2, fractional_Y): END FUNCTION
248.  
249. FUNCTION Interpolate (a, b, x): Interpolate = a * (1 - x) + b * x: END FUNCTION
250.  
251. SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
252.  
253. FUNCTION map_deep (x): map_deep = perlin2d(x, 100) * dimz: END FUNCTION
254.  
255. FUNCTION degree (a, b): degreex = ATN((a + .00001) / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0)
256. degree = degreex: END FUNCTION
257.  

[MasterGy]

The car goes in the field. Cheats a lot, it's not real physics. I’ve learned a lot from it by now, if I have the time and mood, I’ll do it all over again. I want it to roll over and use the shock absorber as it should and the whole car should have normal dynamics. Right now, the way I’ve solved things is a bit confusing.
4 camera views, can be switched with the C key. camera-car distance * / buttons, camera-height + - buttons.

Code: QB64: [Select]

1. CONST pip180 = 3.141592 / 180
2. CONST perlin_pers = 8 '7 'amplitudo
3. CONST perlin_level = 4 '5 'level of resolution wave
4. CONST perlin_multiplier = 0.012
5. CONST perlin_smooth_noise_interpolation_type = 0 '0-none '1-standard
6. CONST perlin_flat_soil_limit_low = .6 'high value is low area (negate)
7. CONST perlin_flat_soil_limit_high = .1
8. CONST flight_array_size = 20: DIM flight_save(flight_array_size - 1)
9. DIM SHARED rotating(2), cosrotz, sinrotz, cosrotx, sinrotx, map_zoom_xy, map_zoom_distance, see_point, flight(19, flight_array_size), me(19), rotx_bevel
10. DIM SHARED mouse_sens_xy, mouse_sens_z, position_speed, clmn_rad
11. DIM SHARED map_x, map_y, perl_setx, perl_sety, map_resolution, map_z, map_dimz, map_dimxy, flight_high_max
12. monx = 1366 * .8: mony = monx / 16 * 9 'screen size
13.  
14. RANDOMIZE TIMER
15. win_marg = monx / 25
16. flight_high_max = -70
17.  
18. auto_precalc = 22
19. auto_mouse_scale = 120
20. auto_try_resolution = 22
21. DIM flight_auto(auto_try_resolution - 1, flight_array_size - 1): DIM auto_efficiency(auto_try_resolution - 1, 5) '0- 1 if crash          '1- target-flight distance
22.  
23. pr_temp = 0 'temp pr
24. text_deep = 30 'make deep shadow pictures
25.  
26.  
27. map_center = 100000 'start of perlin-map
28. 'text_field$ = "need\field2.bmp"
29. text_field$ = "field1.bmp" 'field map texture
30. text_multi = 40 'zoom to texture
31.  
32. position_speed = .3
33. map_resolution = 50 'see map resolution
34. DIM SHARED map_resper2: map_resper2 = INT(map_resolution / 2)
35.  
36.  
37. DIM SHARED max_incli: max_incli = 65 'flight max rotation
38.  
39. map_dimxy = 1200 * .8
40. map_dimz = 250 * .8
41. DIM SHARED ee: ee = map_dimxy / map_resolution
42.  
43. map_zoom_xy = 6 * .2
44. map_zoom_distance = 15 * .2
45.  
46.  
47. mouse_sens_xy = 1.6
48. mouse_sens_z = 1
49.  
50. me(6) = pip180 * 270
51.  
52. me(0) = map_center: me(1) = map_center
53.  
54. control_type$(0) = "walking": control_type$(1) = "flying": control_type$(2) = "flying/autopilot"
55. DIM color_temp(9) AS _INTEGER64
56. targ_text = _LOADIMAGE("need\target.jpg", 33)
57.  
58.  
59.  
60.  
61.  
62. DIM clmn(1999, 5): clmn_rad = 30: ration_column = 0.0003
63. ration_column = 0.0003
64.  
65.  
66. 'PREPARATION ---------------------------------------------------------------------------------------------------------------------------------------------------
67.  
68. 'create wheel texture
69. whe_ts = 50: whe_marg = 7: temp = _NEWIMAGE(whe_ts, whe_ts, 32): _DEST temp: CLS , 0: marg = whe_ts * text_size_marg / 100
70. PAINT (0, 0), _RGBA32(10, 10, 10, 255)
71. LINE (whe_marg, whe_marg)-(whe_ts - whe_marg, whe_ts - whe_marg), _RGBA32(100, 100, 100, 255), BF
72. whe_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
73.  
74. 'create pseudo random buffer
75. DIM SHARED noise_rand_c: noise_rand_c = 10000: DIM SHARED noise_rand(noise_rand_c - 1): FOR t = 0 TO noise_rand_c - 1: noise_rand(t) = RND(1): NEXT t
76.  
77. 'make sky
78. da = 8: db = 8: sky_points = da * db: DIM sky_points(sky_points - 1, 9), sq(sky_points - 1, 7): sky_image = _LOADIMAGE("sky.jpg", 33)
79. FOR da2 = 0 TO da - 1: dega = 360 / (da - 1) * da2 * pip180: FOR db2 = 0 TO db - 1: degb = 180 / (db - 1) * db2 * pip180: ss = 1400
80. ap = da2 * db + db2: sky_points(ap, 0) = SIN(degb) * COS(dega) * ss: sky_points(ap, 1) = SIN(degb) * SIN(dega) * ss: sky_points(ap, 2) = COS(degb) * ss: NEXT db2, da2
81. FOR da2 = 0 TO da - 2: FOR db2 = 0 TO db - 2: sqa = da2 * db + db2: sq(sqa, 0) = sqa: sq(sqa, 1) = sq(sqa, 0) + 1: sq(sqa, 2) = sq(sqa, 0) + db: sq(sqa, 3) = sq(sqa, 2) + 1
82.         sq(sqa, 4) = _WIDTH(sky_image) - (_WIDTH(sky_image) / (da - 1) * da2) - 1: sq(sqa, 5) = _WIDTH(sky_image) - (_WIDTH(sky_image) / (da - 1) * (da2 + 1)) - 1
83. sq(sqa, 6) = INT(_HEIGHT(sky_image) / (db - 1) * db2): sq(sqa, 7) = INT(_HEIGHT(sky_image) / (db - 1) * (db2 + 1)): NEXT db2, da2
84.  
85.  
86.  
87. 'vehicle frame texture
88. vhfr_ts = 30: marg = 5: temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(46, 88, 100, 255)
89. LINE (marg, marg)-(vhfr_ts - marg, vhfr_ts - marg), _RGBA32(255, 166, 50, 255), BF: vhfr_text(0) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
90. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(255 / 2, 166 / 2, 50 / 2, 255): vhfr_text(1) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
91. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(150, 150, 255, 50): vhfr_text(2) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
92. temp = _NEWIMAGE(vhfr_ts, vhfr_ts, 32): _DEST temp: PAINT (0, 0), _RGBA32(233, 94, 61, 255)
93. marg = 5: LINE (marg, marg)-(vhfr_ts - marg, vhfr_ts - marg), _RGB32(255, 0, 0), BF: _SETALPHA 0, _RGB32(255, 0, 0) TO _RGB32(255, 0, 0)
94. vhfr_text(3) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
95.  
96.  
97.  
98. vp$ = "-01010-03010-01020-03020-00031-04031-01052-03052-01072-03072-00081-04081-00101-04101-00090-04090" 'points X(2),Y(2),Z(1)
99. vl$ = "-0001-0002-0103-0203-0004-0105-0204-0305-0406-0507-0607-0410-0511-0608-0709-0809-0810-0911-1011-1012-1113-1213-1412-1513-1415-0405-0214-0315" '3d lines
100. sq$ = "-0123-4567-0246-2367-3175-1054" 'cubes points make square
101. vt$ = "-000102031-000104051-141512131-101112131-040012141-050113151-080910111-141502031" 'bodywork textures
102. vt$ = vt$ + "-040610082-040509112-040506072-060708092" 'vehicle windows
103. vp$ = vp$ + "-01081-01101-01092-01102-03081-03101-03092-03102-00092-04092-00102-04102": vt$ = vt$ + "-161718193-202122233-242526270" 'extension air deflector
104.  
105.  
106.  
107.  
108.  
109.  
110.  
111. DIM temp_color(0) AS _INTEGER64
112. 'create texture to map
113. DIM SHARED mapz_min, mapz_max: DIM texture(text_deep - 1, 5): temp = _LOADIMAGE(text_field$, 32)
114. FOR t = 0 TO text_deep - 1: dark = (.6 - (1 / (text_deep - 1) * t)): transp = dark * 2000: IF transp > 255 THEN transp = 255
115.     temp2 = _NEWIMAGE(_WIDTH(temp), _HEIGHT(temp), 32): _SOURCE temp: _DEST temp2: CLS 0, _RGBA32(0, 0, 0, transp)
116.     FOR tx = 0 TO _WIDTH(temp) - 1: FOR ty = 0 TO _HEIGHT(temp) - 1: temp_color(0) = POINT(tx, ty)
117.             c1 = _RED32(temp_color(0)) * dark: c2 = _GREEN32(temp_color(0)) * dark: c3 = _BLUE32(temp_color(0)) * dark
118. PSET (tx, ty), _RGBA32(c1, c2, 0, transp): NEXT ty, tx: texture(t, 0) = _COPYIMAGE(temp2, 33): _FREEIMAGE temp2: NEXT t
119.  
120. 'find min/max Z
121. DIM SHARED mapz_multiplier: mapz_min = 9999999: mapz_max = -mapz_min: FOR t = 0 TO 2999: c = Perlin2D_original(5000 * RND(1), 5000 * RND(1))
122.     mapz_min = c * ABS(mapz_min > c) + mapz_min * (ABS(mapz_min > c) XOR 1): mapz_max = c * ABS(mapz_max < c) + mapz_max * (ABS(mapz_max < c) XOR 1)
123. NEXT t: mapz_multiplier = 1 / (mapz_max - mapz_min)
124.  
125. 'fill map-buffer
126. DIM SHARED map(map_resolution - 1, map_resolution - 1, 19): perl_setx = INT(me(0)): perl_sety = INT(me(1))
127. FOR map_x = 0 TO map_resolution - 1: FOR map_y = 0 TO map_resolution - 1
128.         map((map_x + perl_setx) MOD map_resolution, (map_y + perl_sety) MOD map_resolution, 0) = perlin2d(perl_setx + map_x, perl_sety + map_y)
129. map((map_x + perl_setx) MOD map_resolution, (map_y + perl_sety) MOD map_resolution, 6) = noise(map_x, map_y) < ration_column: NEXT map_y, map_x
130.  
131. 'calculating shadows
132. FOR map_x = 0 TO map_resolution - 1: FOR map_y = 0 TO map_resolution - 1
133.         dis = INT((text_deep - 1) / map_resper2 * SQR((map_x - map_resper2) ^ 2 + (map_y - map_resper2) ^ 2)): IF dis < 0 OR dis > text_deep - 1 THEN _CONTINUE
134. map(map_x, map_y, 9) = 1: map(map_x, map_y, 8) = dis: NEXT map_y, map_x
135.  
136.  
137.  
138.  
139. 'MAP array
140. '0-perlin Z-data
141. '1-maptriangle calculate X
142. '2-maptriangle calculate Y
143. '3-maptriangle calculate Z
144. '4-distance from me (color)
145. '5-texture height scale
146. '6-is there a column ?
147. '7-is the point visible?
148. '8-shadow-table
149. '9-not used area signal
150.  
151. 'ME array
152. '0-me X location
153. '1-me Y location
154. '2-me Z location
155. '3-vector_x
156. '4-vector_y
157. '5-me XY angle CAM3
158. '6-me XY CAM4
159. '7-me kanyarodas merteke
160.  
161. 'FLIGHT array
162. '0-active
163. '1-rotx - kanyarodas merteke
164. '2-rotx_bevel
165. '3-location X
166. '4-location Y
167. '5-location Z
168. '6-vector X
169. '7-vector Y
170. '8-W gas
171. '9-S brake
172. '10-mouseX
173. '11-mouseZ
174. '12 cam4  /me6
175. '13 cam3 /me5
176. '15 actual speed
177. '16 column (XY) crash /last step
178. '17 land (Z) crash /last step
179.  
180. 'PREPARATION END ------------------------------------------------------------------------------------------------------------------------------------------
181. GOSUB new_target
182. mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _FULLSCREEN _SQUAREPIXELS , _SMOOTH: _MOUSEHIDE: _DISPLAYORDER _HARDWARE , _SOFTWARE
183. CLS , 0
184. control_type = 0
185.  
186.  
187.  
188.  
189. IF pr_temp THEN _PRINTSTRING (0, 0), "moving:mouse+WASD jump:space walking/fly: F"
190. DIM wang(20, 2, 1, 1)
191. veh_posx = map_center
192. veh_posy = map_center
193.  
194. DIM veh(19, 49)
195.  
196. old_camera_type = -1
197. camera_type = 0
198.  
199. gravity = .3
200. veh_gra = gravity
201.  
202.  
203. '-------------------------------------------------------- BOSS CYCLE -----------------------------------------------------------------------------------
204. DO: _LIMIT 40
205.  
206.  
207.     'draw sky
208.     FOR actual_point = 0 TO sky_points - 1: rotate sky_points(actual_point, 0), sky_points(actual_point, 1), sky_points(actual_point, 2), 0
209.     sky_points(actual_point, 4) = rotating(0): sky_points(actual_point, 5) = rotating(1): sky_points(actual_point, 6) = rotating(2): NEXT actual_point
210.     FOR asq = 0 TO sky_points - 1
211.         wx0 = sky_points(sq(asq, 0), 4): wy0 = sky_points(sq(asq, 0), 5): wz0 = sky_points(sq(asq, 0), 6)
212.         wx1 = sky_points(sq(asq, 1), 4): wy1 = sky_points(sq(asq, 1), 5): wz1 = sky_points(sq(asq, 1), 6)
213.         wx2 = sky_points(sq(asq, 2), 4): wy2 = sky_points(sq(asq, 2), 5): wz2 = sky_points(sq(asq, 2), 6)
214.         wx3 = sky_points(sq(asq, 3), 4): wy3 = sky_points(sq(asq, 3), 5): wz3 = sky_points(sq(asq, 3), 6)
215.         sy0 = sq(asq, 6): sx0 = sq(asq, 4): sy1 = sq(asq, 7): sx1 = sq(asq, 4): sy2 = sq(asq, 6): sx2 = sq(asq, 5): sy3 = sq(asq, 7): sx3 = sq(asq, 5)
216.         _MAPTRIANGLE (sx0, sy0)-(sx1, sy1)-(sx2, sy2), sky_image TO(wx0, wy0, wz0)-(wx1, wy1, wz1)-(wx2, wy2, wz2), , _SMOOTH
217.         _MAPTRIANGLE (sx3, sy3)-(sx1, sy1)-(sx2, sy2), sky_image TO(wx3, wy3, wz3)-(wx1, wy1, wz1)-(wx2, wy2, wz2), , _SMOOTH
218.     NEXT asq
219.  
220.  
221.  
222.  
223.  
224.  
225.  
226.     'keyboard/mouse inputs
227.     IF _KEYDOWN(27) THEN SYSTEM
228.     kf = _KEYDOWN(102): k_space = _KEYDOWN(32)
229.     kw = _KEYDOWN(119): ks = _KEYDOWN(115): mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY
230.         mw = mw + _MOUSEWHEEL
231.     WEND
232.     kw = _KEYDOWN(119): ks = _KEYDOWN(115): ka = _KEYDOWN(97): kd = _KEYDOWN(100)
233.     k_space = _KEYDOWN(32)
234.     k_left = _KEYDOWN(19200): k_right = _KEYDOWN(19712): k_up = _KEYDOWN(18432): k_down = _KEYDOWN(20480): veh_wheel_sens = 8
235.     IF ut_kf = 0 AND kf THEN control_type = (control_type + 1) MOD 3
236.     ut_kf = kf
237.     me2_comp = me2_comp + mw * .1
238.     IF _KEYDOWN(45) THEN me2_comp = me2_comp - .1
239.     IF _KEYDOWN(43) THEN me2_comp = me2_comp + .1
240.     IF _KEYDOWN(47) THEN dis_comp = dis_comp + 3
241.     IF _KEYDOWN(42) THEN dis_comp = dis_comp - 3
242.  
243.  
244.  
245.     IF _KEYDOWN(52) THEN veh_rotate2 = veh_rotate2 - .1
246.     IF _KEYDOWN(54) THEN veh_rotate2 = veh_rotate2 + .1
247.     IF _KEYDOWN(56) THEN veh_rotate3 = veh_rotate3 - .1
248.     IF _KEYDOWN(50) THEN veh_rotate3 = veh_rotate3 + .1
249.  
250.  
251.  
252.  
253.     'contol
254.     IF pr_temp THEN _PRINTSTRING (500, 0), "control type : " + control_type$(control_type) + "           "
255.     control_type = 0
256.     SELECT CASE control_type '(0-walking 1-flying)
257.         CASE 0
258.             walk_speed = .18
259.             me(3) = 0: me(4) = 0: me(7) = 0: flight(0, 1) = 0
260.             me(5) = me(5) + mousex * mouse_sens_xy / 200: me(6) = me(6) + mousey * mouse_sens_xy / 200
261.             go = ABS(ka OR kd OR kw OR ks): direction = (-90 * ABS(ka) + 90 * ABS(kd) + 180 * ABS(ks)) * go * pip180
262.             go_x = -(SIN(direction + me(5)) * walk_speed) * go: go_y = -(COS(direction + me(5)) * walk_speed) * go
263.             me(0) = me(0) + go_x: me(1) = me(1) + go_y
264.             ' me(2) = (map_deep(me(0), me(1)) - .18 + mapzd) * map_dimz
265.             'IF k_space AND free_jump THEN jump_cf = 15
266.             'rotx_bevel = rotx_bevel * .95
267.             me(2) = me(2) - jump_cf / 4: jump_cf = jump_cf - 1: IF jump_cf < 0 THEN jump_cf = 0
268.     END SELECT
269.  
270.  
271.     'camera control
272.  
273.     IF INKEY$ = "c" THEN camera_type = (camera_type + 1) MOD 4
274.  
275.  
276.     IF camera_type <> old_camera_type THEN
277.         me2_comp = 0: dis_comp = 0
278.  
279.         LOCATE 1, 1: PRINT "VEHICLE CONTROL: arrow keys ,space-handbrake"
280.  
281.         q$ = "camera height :mousewheel or *,- button , camera distance /,* button"
282.         c$(0) = "typical view -" + q$
283.         c$(1) = "interior view and mouse look around"
284.         c$(2) = "'camera follows the car - " + q$
285.         c$(3) = "free walking - WASD + mouse arrow " + q$
286.         LOCATE 2, 1: PRINT "camera type :"; camera_type; "(change C button);  "
287.         LOCATE 3, 1: PRINT c$(camera_type) + SPACE$(120 - LEN(c$(camera_type)))
288.     END IF
289.     old_camera_type = camera_type
290.  
291.  
292.  
293.     SELECT CASE camera_type
294.         CASE 0
295.  
296.             dis = (45 + dis_comp) / ee
297.             me(0) = SIN(veh_rotate1) * dis + veh_posx
298.             me(1) = COS(veh_rotate1) * dis + veh_posy
299.             me(2) = map_deep(me(0), me(1)) * map_dimz - (2 + me2_comp) * ee
300.  
301.             me(5) = (degree(veh_posx - me(0), veh_posy - me(1)) + 180) * pip180
302.             me(6) = (degree(-(me(2) - veh_posz), dis)) * pip180 - (180 - 45) * pip180
303.  
304.  
305.         CASE 1
306.             me(5) = me(5) + (veh_rotate1 - me(5)) / 10
307.             dis = 5 - 5.4 '    dis_comp = -5.2: me2_comp = 0.6
308.             me(0) = SIN(veh_rotate1) * dis + veh_posx
309.             me(1) = COS(veh_rotate1) * dis + veh_posy
310.             me(2) = veh_posz - 12
311.             me(6) = -(veh_rotate3 + pip180 * -90) - pip180 * 180 + veh_rotate3_mass
312.  
313.  
314.  
315.         CASE 2
316.             medismax = 3: medismin = 5: follow = .01
317.  
318.             DO WHILE SQR((me(0) - veh_posx) ^ 2 + (me(1) - veh_posy) ^ 2) > medismax
319.             me(0) = me(0) + SGN(veh_posx - me(0)) * follow: me(1) = me(1) + SGN(veh_posy - me(1)) * follow: LOOP
320.  
321.             DO WHILE SQR((me(0) - veh_posx) ^ 2 + (me(1) - veh_posy) ^ 2) < medismin
322.             me(0) = me(0) - SGN(veh_posx - me(0)) * follow: me(1) = me(1) - SGN(veh_posy - me(1)) * follow: LOOP
323.  
324.             me(5) = (degree(veh_posx - me(0), veh_posy - me(1)) + 180) * pip180
325.             me(2) = map_deep(me(0), me(1)) * map_dimz - (.5 + me2_comp) * ee
326.  
327.         CASE 3
328.             medis = 25: follow = .01
329.             IF me(0) <> veh_posx THEN DO WHILE ABS(me(0) - veh_posx) > medis: me(0) = me(0) + SGN(veh_posx - me(0)) * follow: LOOP
330.             IF me(1) <> veh_posy THEN DO WHILE ABS(me(1) - veh_posy) > medis: me(1) = me(1) + SGN(veh_posy - me(1)) * follow: LOOP
331.             me(2) = map_deep(me(0), me(1)) * map_dimz - (1 + me2_comp) * ee
332.  
333.     END SELECT
334.  
335.  
336.     '    LOCATE 3, 1: PRINT rotx_bevel
337.     IF camera_type = 1 THEN
338.         cosrotz = COS(me(5))
339.         sinrotz = SIN(me(5))
340.         cosrotx = COS(me(6) - veh_rotate3)
341.         sinrotx = SIN(me(6) - veh_rotate3)
342.         '        rotx_bevel = veh_rotate2
343.         '       rotx_bevel = TIMER / 20 '* RND(1)
344.     ELSE
345.         cosrotz = COS(me(5)): sinrotz = SIN(me(5)): cosrotx = COS(me(6)): sinrotx = SIN(me(6)) 'to rotating angles
346.     END IF
347.     '------------------------------------------ TERRAIN DRAW --------------------------------------------------------------------------------------------------
348.  
349.     'replace the missing row in the buffer line Y
350.     DO WHILE INT(INT(me(0))) <> perl_setx: dir = -SGN(INT(me(0)) - perl_setx): perl_setx = perl_setx - dir
351.         temp = INT(perl_setx + ABS(dir = -1) * (map_resolution - 1)): temp_m = INT(temp MOD map_resolution)
352.         FOR map_y = 0 TO map_resolution - 1: map(temp_m, INT(map_y + perl_sety) MOD map_resolution, 0) = perlin2d(temp, perl_sety + map_y)
353.     map(temp_m, INT((map_y + perl_sety) MOD map_resolution), 6) = noise(temp, perl_sety + map_y) < ration_column: NEXT map_y: LOOP
354.  
355.     'replace the missing row in the buffer line X
356.     DO WHILE INT(INT(me(1))) <> perl_sety: dir = -SGN(INT(me(1)) - perl_sety): perl_sety = perl_sety - dir
357.         temp = perl_sety + ABS(dir = -1) * (map_resolution - 1): temp_m = INT(temp MOD map_resolution)
358.         FOR map_x = 0 TO map_resolution - 1: map(INT((map_x + perl_setx) MOD map_resolution), temp_m, 0) = perlin2d(perl_setx + map_x, temp)
359.     map(INT(map_x + perl_setx) MOD map_resolution, temp_m, 6) = noise(perl_setx + map_x, temp) < ration_column: NEXT map_x: LOOP
360.  
361.     'calculating position and textures
362.     clmn(0, 0) = 0 'reset column counter
363.     FOR map_x = 0 TO map_resolution - 1: px = -map_dimxy / 2 + map_dimxy / map_resolution * (map_x - (me(0) - INT(me(0))))
364.         FOR map_y = 0 TO map_resolution - 1: IF map(map_x, map_y, 9) = 0 THEN _CONTINUE
365.             py = -map_dimxy / 2 + map_dimxy / map_resolution * (map_y - (me(1) - INT(me(1))))
366.             read_mapx = INT((map_x + perl_setx) MOD map_resolution): read_mapy = INT((map_y + perl_sety) MOD map_resolution): map_z = map(read_mapx, read_mapy, 0)
367.             map(map_x, map_y, 7) = 0: pz2 = map_dimz * map_z - me(2): rotate px, py, pz2, 1: IF see_point = 0 THEN _CONTINUE
368.             map(map_x, map_y, 1) = rotating(0): map(map_x, map_y, 2) = rotating(1): map(map_x, map_y, 3) = rotating(2): map(map_x, map_y, 7) = 1
369.             map(map_x, map_y, 5) = INT(text_height_scale * map_z): IF map(map_x, map_y, 5) > text_height_scale - 1 THEN map(map_x, map_y, 5) = text_height_scale - 1
370.             IF map(map_x, map_y, 5) < 0 THEN map(map_x, map_y, 5) = 0
371.             IF map(read_mapx, read_mapy, 6) THEN clmn(clmn(0, 0) + 1, 2) = map(map_x, map_y, 8): clmn(clmn(0, 0) + 1, 0) = px: clmn(clmn(0, 0) + 1, 1) = py: clmn(0, 0) = clmn(0, 0) + 1
372.     NEXT map_y, map_x
373.  
374.     'do maptriangle from squares !
375.     FOR map_x = 0 TO map_resolution - 2: FOR map_y = 0 TO map_resolution - 2
376.             IF (map(map_x, map_y, 7) AND map(map_x + 1, map_y, 7) AND map(map_x, map_y + 1, 7) AND map(map_x + 1, map_y + 1, 7)) = 0 THEN _CONTINUE
377.             m0x = map(map_x, map_y, 1): m0y = map(map_x, map_y, 2): m0z = map(map_x, map_y, 3)
378.             m1x = map(map_x + 1, map_y, 1): m1y = map(map_x + 1, map_y, 2): m1z = map(map_x + 1, map_y, 3)
379.             m2x = map(map_x, map_y + 1, 1): m2y = map(map_x, map_y + 1, 2): m2z = map(map_x, map_y + 1, 3)
380.             m3x = map(map_x + 1, map_y + 1, 1): m3y = map(map_x + 1, map_y + 1, 2): m3z = map(map_x + 1, map_y + 1, 3)
381.             atexture = texture(map(map_x, map_y, 8), 0): sx1 = (perl_setx + map_x) * text_multi: sy1 = (perl_sety + map_y) * text_multi: sx2 = sx1 + text_multi: sy2 = sy1 + text_multi
382.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), atexture TO(m0x, m0y, m0z)-(m1x, m1y, m1z)-(m2x, m2y, m2z)
383.     _MAPTRIANGLE (sx2, sy2)-(sx2, sy1)-(sx1, sy2), atexture TO(m3x, m3y, m3z)-(m1x, m1y, m1z)-(m2x, m2y, m2z): NEXT map_y, map_x
384.  
385.     'TERRAIN DRAW END --------------------------------------------------------------------------------------------------------------------------------------------
386.  
387.  
388.  
389.  
390.  
391.  
392.  
393.  
394.  
395.  
396.  
397.  
398.  
399.     'VEHICLE DRAW   -------------------------------------------------------------------------------------------------------
400.  
401.  
402.     v_ratio = .4 'car relativ size
403.     veh_tengelytav = 4 * v_ratio: veh_kerektav = 4 * v_ratio: veh_kerekrad = 1 * v_ratio: veh_kerekszeles = .9 * v_ratio: veh_shockab_scale = .3
404.     body_cx = .6 * v_ratio: body_cy = .6 * v_ratio: body_cz = .7 * v_ratio: frs = .08 * v_ratio: frs_dis_c = 1.1: body_yadd = -5.5 'frame size (ratio to vp$)
405.  
406.     'draw wheel
407.     wh_r(0) = veh_kerekrad: wh_r(1) = veh_kerekrad * .4: wh_div = 12 'wheel parameters
408.     FOR a_wheel = 0 TO 3: wh_posy = (SGN(a_wheel AND 1) * 2 - 1) * veh_tengelytav / 2: wh_posx = (SGN(a_wheel AND 2) * 2 - 1) * veh_kerektav / 2
409.         wheel_ang = (90 + ABS(a_wheel AND 1) * veh_wheel) * pip180
410.         FOR awh = 0 TO wh_div - 1: ang = (-wheel(a_wheel, 0) + 360 / wh_div * awh) * pip180: x = SIN(ang): y = COS(ang)
411.             FOR sz = 0 TO 1: wh_z = (sz * 2 - 1) * veh_kerekszeles / 2: FOR whr = 0 TO 1: r1 = x * wh_r(whr): r2 = wh_z: r3 = y * wh_r(whr)
412.                     rotate_2d r2, r1, wheel_ang: r1 = r1 + wh_posx: r2 = r2 + wh_posy: r3 = r3 + veh_shockab_scale * shockab(a_wheel)
413.                     rotate_vehicle r1, r2, r3, veh_rotate1, veh_rotate2, veh_rotate3: r1 = r1 + veh_posx: r2 = r2 + veh_posy: r3 = r3 * ee + veh_posz
414.         rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3 - me(2), 0: FOR t = 0 TO 2: wang(awh, t, whr, sz) = rotating(t): NEXT t, whr, sz, awh
415.         FOR t1 = 0 TO wh_div - 1: t2 = (t1 + 1) MOD wh_div: FOR t3 = 0 TO 1: FOR t4 = 0 TO 1
416.                     p00 = t1: p01 = t4: p02 = t4: p10 = t2: p11 = t4: p12 = t4: p20 = t1: p21 = t3: p22 = t3 XOR 1: p30 = t2: p31 = t3: p32 = t3 XOR 1
417.                     _MAPTRIANGLE (0, 0)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(wang(p00, 0, p01, p02), wang(p00, 1, p01, p02), wang(p00, 2, p01, p02))-(wang(p10, 0, p11, p12), wang(p10, 1, p11, p12), wang(p10, 2, p11, p12))-(wang(p20, 0, p21, p22), wang(p20, 1, p21, p22), wang(p20, 2, p21, p22))
418.                     _MAPTRIANGLE (whe_ts - 1, whe_ts - 1)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(wang(p30, 0, p31, p32), wang(p30, 1, p31, p32), wang(p30, 2, p31, p32))-(wang(p10, 0, p11, p12), wang(p10, 1, p11, p12), wang(p10, 2, p11, p12))-(wang(p20, 0, p21, p22), wang(p20, 1, p21, p22), wang(p20, 2, p21, p22))
419.     NEXT t4, t3, t1, a_wheel
420.  
421.     'draw vehicle frame
422.     FOR t1 = 0 TO LEN(vl$) / 5 - 1: p1 = VAL(MID$(vl$, t1 * 5 + 2, 2)): p2 = VAL(MID$(vl$, t1 * 5 + 4, 2))
423.         x1 = (VAL(MID$(vp$, p1 * 6 + 2, 2)) - 2) * body_cx: y1 = -(VAL(MID$(vp$, p1 * 6 + 4, 2)) + body_yadd) * body_cy: z1 = -(VAL(MID$(vp$, p1 * 6 + 6, 1))) * body_cz
424.         x2 = (VAL(MID$(vp$, p2 * 6 + 2, 2)) - 2) * body_cx: y2 = -(VAL(MID$(vp$, p2 * 6 + 4, 2)) + body_yadd) * body_cy: z2 = -(VAL(MID$(vp$, p2 * 6 + 6, 1))) * body_cz
425.         xc = (x1 + x2) / 2: yc = (y1 + y2) / 2: zc = (z1 + z2) / 2: dis = SQR((x1 - x2) ^ 2 + (y1 - y2) ^ 2 + (z1 - z2) ^ 2) / 2 * frs_dis_c
426.         angle1 = (-degree(x2 - x1, y2 - y1)) * pip180: angle2 = (degree(y2 - y1, z2 - z1) - 90) * pip180
427.         FOR t2 = 0 TO 7: p(t2, 0) = (SGN(ABS(t2 AND 1)) * 2 - 1) * frs: p(t2, 1) = (SGN(ABS(t2 AND 2)) * 2 - 1) * dis: p(t2, 2) = (SGN(ABS(t2 AND 4)) * 2 - 1) * frs
428.             rotate_2d p(t2, 0), p(t2, 1), angle1: rotate_2d p(t2, 1), p(t2, 2), -angle2: p(t2, 0) = p(t2, 0) + xc: p(t2, 1) = p(t2, 1) + yc: p(t2, 2) = p(t2, 2) + zc
429.             rotate_vehicle p(t2, 0), p(t2, 1), p(t2, 2), veh_rotate1, veh_rotate2 + veh_rotate2_mass, veh_rotate3 + veh_rotate3_mass
430.             r1 = p(t2, 0) + veh_posx: r2 = p(t2, 1) + veh_posy
431.         r3 = (veh_posz + p(t2, 2) * ee) - me(2): rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3, 0: FOR t = 0 TO 2: p(t2, t) = rotating(t): NEXT t, t2
432.         FOR t2 = 0 TO 5: FOR t3 = 0 TO 3: sqv(t3) = VAL(MID$(sq$, 2 + t2 * 5 + t3, 1)): NEXT t3
433.             _MAPTRIANGLE (0, 0)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), vhfr_text(0) TO(p(sqv(0), 0), p(sqv(0), 1), p(sqv(0), 2))-(p(sqv(1), 0), p(sqv(1), 1), p(sqv(1), 2))-(p(sqv(2), 0), p(sqv(2), 1), p(sqv(2), 2))
434.             _MAPTRIANGLE (vhfr_ts - 1, vhfr_ts - 1)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), vhfr_text(0) TO(p(sqv(3), 0), p(sqv(3), 1), p(sqv(3), 2))-(p(sqv(1), 0), p(sqv(1), 1), p(sqv(1), 2))-(p(sqv(2), 0), p(sqv(2), 1), p(sqv(2), 2))
435.     NEXT t2, t1
436.  
437.     'draw vehicle bodywork textures
438.     FOR t1 = 0 TO LEN(vt$) / 10 - 1: FOR t = 0 TO 3: vtx(t) = VAL(MID$(vt$, t1 * 10 + (t + 1) * 2, 2)): NEXT t
439.         FOR t2 = 0 TO 3: vt(t2, 0) = (VAL(MID$(vp$, vtx(t2) * 6 + 2, 2)) - 2) * body_cx: vt(t2, 1) = -(VAL(MID$(vp$, vtx(t2) * 6 + 4, 2)) + body_yadd) * body_cy
440.             vt(t2, 2) = -(VAL(MID$(vp$, vtx(t2) * 6 + 6, 1))) * body_cz:
441.             rotate_vehicle vt(t2, 0), vt(t2, 1), vt(t2, 2), veh_rotate1, veh_rotate2 + veh_rotate2_mass, veh_rotate3 + veh_rotate3_mass
442.             r1 = vt(t2, 0) + veh_posx: r2 = vt(t2, 1) + veh_posy: r3 = (veh_posz + vt(t2, 2) * ee) - me(2)
443.         rotate (r1 - me(0)) * ee, (r2 - me(1)) * ee, r3, 0: FOR t = 0 TO 2: vt(t2, t) = rotating(t): NEXT t, t2: atexture = vhfr_text(VAL(MID$(vt$, t1 * 10 + 10, 1)))
444.         _MAPTRIANGLE (0, 0)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), atexture TO(vt(0, 0), vt(0, 1), vt(0, 2))-(vt(1, 0), vt(1, 1), vt(1, 2))-(vt(2, 0), vt(2, 1), vt(2, 2))
445.         _MAPTRIANGLE (vhfr_ts - 1, vhfr_ts - 1)-(vhfr_ts - 1, 0)-(0, vhfr_ts - 1), atexture TO(vt(3, 0), vt(3, 1), vt(3, 2))-(vt(1, 0), vt(1, 1), vt(1, 2))-(vt(2, 0), vt(2, 1), vt(2, 2))
446.     NEXT t1
447.  
448.  
449.     'VEHICLE DRAW END ----------------------------------------------------------------------------------------------------------
450.  
451.  
452.  
453.  
454.  
455.     'vehicle shockabs control
456.  
457.     wheel_gc = 0: min_wh = 999999
458.     FOR a_wheel = 0 TO 3
459.         r2 = (SGN(a_wheel AND 1) * 2 - 1) * veh_tengelytav * .3: r1 = (SGN(a_wheel AND 2) * 2 - 1) * veh_kerektav * .3: r3 = veh_shockab_scale * shockab(a_wheel)
460.         rotate_vehicle r1, r2, r3, veh_rotate1, veh_rotate2, veh_rotate3: r1 = r1 + veh_posx: r2 = r2 + veh_posy: r3 = r3 * ee + veh_posz
461.         dis_wheel(a_wheel, 0) = map_deep(r1, r2) * map_dimz 'a kerekek alatti talaj magassaga
462.         dis_wheel(a_wheel, 1) = r3 'a kerek helyzete Z
463.         dis_wheel(a_wheel, 2) = (dis_wheel(a_wheel, 0) - dis_wheel(a_wheel, 1) - 10) '    shockab(2) = .5 '0-bal hatso '1-bal elso '2-jobb hatso '3-jobb elso
464.         wheel_gc = wheel_gc + ABS(dis_wheel(a_wheel, 2) < 0): qw = -0.2
465.         IF dis_wheel(a_wheel, 2) < -1 THEN dis_wheel(a_wheel, 3) = qw / 2 ELSE dis_wheel(a_wheel, 3) = 0
466.         IF dis_wheel(a_wheel, 2) < 1 THEN
467.             shockab(a_wheel) = shockab(a_wheel) - ABS(dis_wheel(a_wheel, 2)) * .02
468.         ELSE
469.             shockab(a_wheel) = shockab(a_wheel) + .05
470.         END IF
471.         shockab(a_wheel) = shockab(a_wheel) * 1.01
472.         IF shockab(a_wheel) > 1 THEN shockab(a_wheel) = 1
473.         IF shockab(a_wheel) < 0 THEN shockab(a_wheel) = 0
474.         IF dis_wheel(a_wheel, 2) < min_wh THEN min_wh = dis_wheel(a_wheel, 2): w_rot_neg = a_wheel
475.     NEXT a_wheel
476.  
477.     zact = map_deep(veh_posx, veh_posy) * map_dimz - veh_kerekrad * ee
478.     IF zact < veh_posz THEN veh_posz = veh_posz + (zact - veh_posz) * .7: veh_vecz = 0 ELSE veh_vecz = veh_vecz + .06: veh_posz = veh_posz + .3
479.     vfly = ABS(wheel_gc < 2 AND ABS(veh_speed) > .12): turn_rot = 1
480.  
481.     'vehicle Z-contol
482.     ana_rad = 3 * v_ratio: ang = (veh_rotate1): x1 = veh_posx + SIN(ang) * ana_rad: y1 = veh_posy + COS(ang) * ana_rad: m1 = map_deep(x1, y1) * map_dimz / ee
483.     x2 = veh_posx - SIN(ang) * ana_rad: y2 = veh_posy - COS(ang) * ana_rad: m2 = map_deep(x2, y2) * map_dimz / ee
484.     nofly_veh_rotate3 = (-degree(m2 - m1, ana_rad * 2)) * pip180: veh_doles_power = SIN(nofly_veh_rotate3)
485.     ang = (veh_rotate1) + 90 * pip180: x1 = veh_posx + SIN(ang) * ana_rad: y1 = veh_posy + COS(ang) * ana_rad: m1 = map_deep(x1, y1) * map_dimz / ee
486.     x2 = veh_posx - SIN(ang) * ana_rad: y2 = veh_posy - COS(ang) * ana_rad: m2 = map_deep(x2, y2) * map_dimz / ee
487.     nofly_veh_rotate2 = (degree(m2 - m1, ana_rad * 2)) * pip180
488.  
489.     qq_c = .022: fly_veh_rotate2 = SGN(veh_rotate2_v) * qq_c: fly_veh_rotate3 = SGN(veh_rotate3_v) * qq_c: fly_veh_rotate1 = SGN(veh_rotate1 - veh_rotate1_last) / 40
490.  
491.     IF vfly THEN
492.         IF wheel_gc > 0 THEN ell = 1 ELSE ell = 1
493.         new_rotate3 = veh_rotate3 + fly_veh_rotate3 * ell: new_rotate2 = veh_rotate2 + fly_veh_rotate2 * ell: veh_rotate1 = veh_rotate1 + fly_veh_rotate1
494.     ELSE
495.         veh_rotate2_v = dif_ang(veh_rotate2 / pip180, veh_rotate2_last / pip180, 360) * turn_rot
496.         veh_rotate3_v = dif_ang(veh_rotate3 / pip180, veh_rotate3_last / pip180, 360) * turn_rot
497.         veh_rotate3_last = veh_rotate3: veh_rotate2_last = veh_rotate2: veh_rotate1_last = veh_rotate1
498.         new_rotate3 = nofly_veh_rotate3: new_rotate2 = nofly_veh_rotate2
499.  
500.     END IF
501.     veh_rotate2 = veh_rotate2 + (dif_ang(new_rotate2 / pip180, veh_rotate2 / pip180, 360)) * .009
502.     veh_rotate3 = veh_rotate3 + (dif_ang(new_rotate3 / pip180, veh_rotate3 / pip180, 360)) * .009
503.  
504.  
505.  
506.     'vehicle direction control
507.  
508.     veh_speed_max = .6: veh_speed_min = .3
509.  
510.     veh_wheel = veh_wheel + (k_left - k_right) * veh_wheel_sens
511.     veh_wheel_max = 70: IF ABS(veh_wheel) > veh_wheel_max THEN veh_wheel = SGN(veh_wheel) * veh_wheel_max
512.  
513.     veh_speed = SQR(veh_vecx ^ 2 + veh_vecy ^ 2): IF k_space AND ABS(vfly = 0) THEN gg = 3 ELSE gg = 1
514.     veh_wheel = veh_wheel * (.85 - veh_speed / gg): wheel_speed_meas = -dif_ang(degree(vec_y, -vec_x), veh_rotate1 / pip180, 360)
515.  
516.     IF vfly = 0 THEN
517.  
518.         IF k_space THEN veh_rotate1_v_new = vr1vn * 1.01 ELSE veh_rotate1_v_new = (veh_speed * veh_wheel) / 30 * SGN(wheel_speed_meas)
519.         vr1vn = veh_rotate1_v_new: korm_bef = (1 - veh_speed / veh_speed_max): IF korm_bef < .05 THEN korm_bef = .05
520.         veh_rotate1_v = veh_rotate1_v + (veh_rotate1_v_new - veh_rotate1_v) * korm_bef / 6
521.         veh_rotate1_v = veh_rotate1_v * .999: veh_rotate1 = veh_rotate1 + veh_rotate1_v * veh_speed / veh_speed_max * 1
522.  
523.         doles = (1 - veh_doles_power * .2) ^ 2: position_accel = .0075 * 1 * (k_up - k_down) * ABS(k_space = 0)
524.  
525.         ww = .98: new_vec_x = SIN(veh_rotate1) * position_accel: new_vec_y = COS(veh_rotate1) * position_accel: vdp = (1 - veh_doles_power / 200) ^ 2
526.         vec_x = (veh_vecx * ww + new_vec_x) * vdp: vec_y = (veh_vecy * ww + new_vec_y) * vdp: vec_sum = SQR(vec_x * vec_x + vec_y * vec_y)
527.         IF vec_sum > veh_speed_max AND SGN(wheel_speed_meas) = 1 THEN vec_sum = veh_speed_max / vec_sum ELSE vec_sum = 1
528.  
529.         veh_vecx = vec_x * vec_sum: veh_vecy = vec_y * vec_sum: veh_speed = SQR(veh_vecx ^ 2 + veh_vecy ^ 2)
530.         IF ((k_down = 0 AND k_up = 0) OR k_space) AND veh_speed < .02 THEN veh_vecx = 0: veh_vecy = 0: veh_speed = 0
531.  
532.         deacc = .999: IF k_space THEN deacc = .98
533.         veh_vecx = veh_vecx * deacc: veh_vecy = veh_vecy * deacc
534.  
535.     END IF
536.  
537.     veh_posx = veh_posx + veh_vecx: veh_posy = veh_posy + veh_vecy: veh_posz = veh_posz + veh_vecz
538.  
539.  
540.  
541.     'mass center
542.     ang = degree(veh_vecx, veh_vecy) * pip180 - veh_rotate1: dis = SQR(veh_vecx ^ 2 + veh_vecy ^ 2)
543.     veh_rotate2_mass = -SIN(ang) * dis * .6: veh_rotate3_mass = -COS(ang) * dis * .6 + -4.5 * pip180
544.  
545.     'wheels rotation
546.     FOR a_wheel = 0 TO 3: wh_posy = (SGN(a_wheel AND 1) * 2 - 1) * veh_tengelytav / 2: wh_posx = (SGN(a_wheel AND 2) * 2 - 1) * veh_kerektav / 2
547.         rotate_2d wh_posy, wh_posx, veh_rotate1: wheel_ang = (90 + ABS(a_wheel AND 1) * veh_wheel) * pip180: add = veh_speed: IF add > .2 THEN add = .2
548.         IF k_space AND ((a_wheel AND 1) = 0) THEN add = 0
549.     wheel(a_wheel, 0) = wheel(a_wheel, 0) + add * 50 * SGN(wheel_speed_meas): NEXT a_wheel
550.  
551.  
552.  
553.  
554.  
555.  
556.  
557.     _DISPLAY: IF pr_temp THEN _PRINTSTRING (0, 20), SPACE$(160)
558. LOOP
559.  
560.  
561. '--------------------------------------------------------------------------- BOSS CYCLE END -------------------------------------------------
562.  
563.  
564. rotating_draw:
565. rd = .3
566. _MAPTRIANGLE (0, 0)-(whe_ts - 1, 0)-(0, whe_ts - 1), whe_text TO(rotating(0), rotating(1), rotating(2))-(rotating(0) + rd, rotating(1), rotating(2))-(rotating(0), rotating(1) + rd, rotating(2))
567. RETURN
568.  
569.  
570.  
571. new_target: l = 300: targ(0) = map_center + l / 2 + l * RND(1): targ(1) = map_center + l / 2 + l * RND(1): targ(2) = (map_deep(targ(0), targ(1)) - .1 - targ_size / 2)
572. new_target_signal = 160: RETURN
573.  
574.  
575.  
576.  
577. FUNCTION noise (x, y) 'reading pseudo random buffer
578.     x2 = INT(x): y2 = INT(y): a = INT(ABS(x2) + ABS(y2)) MOD noise_rand_c: b = ABS(x2) MOD noise_rand_c: c = noise_rand(a) + noise_rand(b): noise = c - INT(c)
579. END FUNCTION
580.  
581. FUNCTION SmoothNoise (x, y)
582.     SELECT CASE perlin_smooth_noise_interpolation_type
583.         CASE 0: SmoothNoise = noise(x, y)
584.         CASE 1: corners = (noise(x - 1, y - 1) + noise(x + 1, y - 1) + noise(x - 1, y + 1) + noise(x + 1, y + 1)) / 16
585.             sides = (noise(x - 1, y) + noise(x + 1, y) + noise(x, y - 1) + noise(x, y + 1)) / 8: center = noise(x, y) / 4: SmoothNoise = corners + sides + center
586. END SELECT: END FUNCTION
587.  
588. FUNCTION Perlin2D_original (x, y): total = 0: FOR t = 0 TO perlin_level - 1: frequency = 2 ^ t * perlin_multiplier: amplitude = perlin_pers ^ t
589.     total = total + InterpolatedNoise(x * frequency, y * frequency) * amplitude: NEXT t: Perlin2D_original = total
590. END FUNCTION
591.  
592. FUNCTION perlin2d (x, y): perlin2dx = mapz_multiplier * (Perlin2D_original(x, y) - mapz_min)
593.     '    perlin2d = 0: EXIT FUNCTION
594.     IF perlin2dx > perlin_flat_soil_limit_low THEN perlin2dx = perlin_flat_soil_limit_low
595.     IF perlin2dx < perlin_flat_soil_limit_high THEN perlin2dx = perlin_flat_soil_limit_high
596.     perlin2d = perlin2dx
597. END FUNCTION
598.  
599. FUNCTION InterpolatedNoise (x, y): integer_X = INT(x): fractional_X = x - integer_X: integer_y = INT(y): fractional_Y = y - integer_y
600.     v1 = SmoothNoise(integer_X, integer_y): v2 = SmoothNoise(integer_X + 1, integer_y)
601.     v3 = SmoothNoise(integer_X, integer_y + 1): v4 = SmoothNoise(integer_X + 1, integer_y + 1)
602. i1 = Interpolate(v1, v2, fractional_X): i2 = Interpolate(v3, v4, fractional_X): InterpolatedNoise = Interpolate(i1, i2, fractional_Y): END FUNCTION
603.  
604. FUNCTION Interpolate (a, b, x): Interpolate = a * (1 - x) + b * x: END FUNCTION
605.  
606. SUB rotate (px, py, pz2, see_analysis)
607.     px3 = px * cosrotz - py * sinrotz: py2 = px * sinrotz + py * cosrotz: py3 = py2 * cosrotx - pz2 * sinrotx: pz3 = -(py2 * sinrotx + pz2 * cosrotx)
608.     see_point = pz3 < 200: IF see_point = 0 AND see_analysis THEN EXIT SUB
609. rotate_2d px3, py2, rotx_bevel: rotating(0) = px3 * map_zoom_xy: rotating(1) = -py3 * map_zoom_xy: rotating(2) = pz3 * map_zoom_distance: END SUB
610.  
611. SUB rotate_2d (x, y, ang): x1 = -(x * COS(ang) - y * SIN(ang)): y1 = -(x * SIN(ang) + y * COS(ang)): x = x1: y = y1: END SUB
612.  
613.  
614. FUNCTION map_deep (x, y)
615.     read_mapx1 = INT(x + map_resper2) MOD map_resolution: read_mapx2 = INT(x + map_resper2 + 1) MOD map_resolution
616.     read_mapy1 = INT(y + map_resper2) MOD map_resolution: read_mapy2 = INT(y + map_resper2 + 1) MOD map_resolution
617.     mapx1 = Interpolate(map(read_mapx1, read_mapy1, 0), map(read_mapx2, read_mapy1, 0), x - INT(x))
618.     mapx2 = Interpolate(map(read_mapx1, read_mapy2, 0), map(read_mapx2, read_mapy2, 0), x - INT(x))
619.     map_deep = Interpolate(mapx1, mapx2, y - INT(y))
620.  
621.  
622.  
623.     '    map_deep = (SIN(x10 / 500) + 1) / 2
624. END FUNCTION
625.  
626.  
627.  
628. FUNCTION degree (a, b): degreex = ATN((a + .00001) / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0)
629. degree = degreex: END FUNCTION
630.  
631. SUB rotate_vehicle (p0, p1, p2, a1, a2, a3): rotate_2d p2, p1, a3 + 180 * pip180: rotate_2d p0, p2, a2 + 180 * pip180: rotate_2d p0, p1, -a1: END SUB
632.  
633. FUNCTION dif_ang (a, b, unit): a2 = a: b2 = b
634.     DO WHILE ABS(a2 - b2) > ABS((a2 - unit) - b2): a2 = a2 - unit: LOOP: DO WHILE ABS(a2 - b2) > ABS((a2 + unit) - b2): a2 = a2 + unit: LOOP: dif_ang = a2 - b2
635. END FUNCTION
636.  
637.  

[MasterGy]

there were problems with the camera, it works fine now

[MasterGy]

you’ve been thinking about what if you go fast in a car and lower the steering wheel as fast as you know, what happens. the car starts to spin. but what is it worth doing then? it is very interesting that this problem has come to light, because from here on, it is hard to imagine what a good position the wheel is to dampen the spin. it is interesting how this problem returned in mathematics because it was unable to turn greater than 180 degrees. very interesting. or just me? it was hard to imagine even in reality, but I could solve it. now really good! try it out and enjoy the car drifting back and forth.

[MasterGy]

I really want to make something out of it. car, flying with approximate dynamics, and automatic control. you just have to give them a goal and do everyone’s thing. I'll show you soon.

[MasterGy]

It will be ready soon, I will not give up now.
The gameplay will be easy and I hope it’s fun.

[STxAxTIC]

MasterGy, this is (going to be) already amazing, looks so good.

Looks like we're getting a game for Christmas bois... or maybe for New Years?

[MasterGy]

I want to finish as soon as possible because I’m slowly going crazy. Get a simple storyline that makes it playable and expose. I want my brain cleared for the holidays before Christmas.

[MasterGy]

Hi !
Almost finished. Sounds are still missing (collision, wheel squeak), but both the car and the plane managed to give a speed-proportional, real sound. Balance okay, stereo.
In principle, there are no faults in physics or collisions.
The first half of the video (until 4:20) shows a complete fight, with each player controlled by a computer. The point is to get the bullet from the other and take it to the tornado. That’s where a pretty exciting chase begins.
In the video, after 4:20, I show that if I move the mouse over the object in the list, we see the world from his point of view. If I don’t bring the mouse to anyone, the cinema-mode camera remains, which doesn’t even take its eyes off the bullet.
If, on the other hand, I click on one, it gives me control and I control it.
For a few more days, I’ll make a menu, a simple interface, and expose the game.
I recorded the video in an audio multichanel and made sure it stayed that way when converting. Unfortunately, I don’t think you’re going to play 4 speakers in anyone, just stereo.