Real Maze in 3D

[MasterGy]

Hi !
Do you still remember that?

https://www.qb64.org/forum/index.php?topic=2735.msg119572#msg119572

An algorithm that creates a maze in 2D. Then I wondered if I could simply increase the size of the array by one more dimension and rationally transform the operations, whether it was possible in 3D as well. I just tried it and it works.
At startup, you can specify the size of the matrix or the size of the maze. If you want, you can also save the created track in .OBJ. (I needed this for verification). Make an exit from the matrix and then place you at the farthest point from the exit. Control WASD + mouse. get out! Not recommended for claustrophobics ! :)
Control only works under QB64v1.3, I don't know why.

Code: QB64: [Select]

1. DIM SHARED maze_x, maze_y, maze_z AS _UNSIGNED _BYTE
2. '-------------------- REAL 3D MAZE --------- SETTINGS -------------------------------------only QB64v1.3
3. maze_x = 7 'maze size X
4. maze_y = 7 'maze size Y
5. maze_z = 7 'maze size Z
6. monx = 1024 'window size X
7. mon_rat = 0 'window side ratio 0=16:9 ,1=4:3
8. file_obj$ = "" 'write the track to .OBJ file - if file_obj$ is empty, then writting skip
9. msenx = .05 'mouse sensitive XY
10. msenz = .08 'mouse sensitive Z
11.  
12. '--------------- ADVANCED SETTINGS --------------------------------------------------------
13. pre_calc = 5 'calculation for step multiplier impact test
14. mouse_z_rot = 176 'Z-direction rotation angle of view in degrees
15. stepping = .08 'movement speed
16. texture_size = 140 'textures pixel size x,y
17. texture_margin = 3 'black margin to textures pixel
18. texture_grey = 50 'random colors  0:grey scale 100:very color
19. texture_c1 = 130 'circle is the maximum color variation allowed on the texture
20. texture_c2 = 70 'circle diameter as a percentage of the image
21. textures_c = 60 'number of different colors
22. boss_limit = 30 'display framefrate
23. zoom_xy = 6 '_maptriangle multiplier XY
24. zoom_distance = 11 'maptriangle multiplier Z (as large as fisheye optics)
25. cong$ = "  CONGRATULATIONS !  " 'text to sky when you find exit
26.  
27. 'creating 3D MAZE -----------------------------------------------------------------------------------------------------------------------------------------
28. RANDOMIZE TIMER: maze_x = maze_x + ((maze_x AND 1) XOR 1): maze_y = maze_y + ((maze_y AND 1) XOR 1): maze_z = maze_z + ((maze_z AND 1) XOR 1)
29. REDIM maze(maze_x - 1, maze_y - 1, maze_z - 1) AS _UNSIGNED _BYTE '0-fal 1-ureg 2-lehetoseg
30. REDIM d(5, 2) AS _BYTE: d(0, 2) = 1: d(1, 2) = -1: d(2, 1) = 1: d(3, 1) = -1: d(4, 0) = 1: d(5, 0) = -1
31. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: k = 0
32.             k = ABS((tx = 0 OR ty = 0 OR tz = 0) OR (tx = maze_x - 1 OR ty = maze_y - 1 OR tz = maze_z - 1)) * 3: IF tx AND 1 AND ty AND 1 AND tz AND 1 THEN k = 1
33. maze(tx, ty, tz) = k: NEXT tz, ty, tx
34. DO: sx = INT(maze_x * RND(1)): sy = INT(maze_y * RND(1)): sz = INT(maze_z * RND(1)): LOOP WHILE maze(sx, sy, sz) <> 1: maze(sx, sy, sz) = 4 'start
35. DO: REDIM way(9999, 3): wdb = 0: FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
36.                 FOR t = 0 TO 5
37.                     vpx1 = tx + d(t, 0): vpy1 = ty + d(t, 1): vpz1 = tz + d(t, 2): vpx2 = tx + d(t, 0) * 2: vpy2 = ty + d(t, 1) * 2: vpz2 = tz + d(t, 2) * 2
38.                     IF NOT ((vpx2 > maze_x - 1 OR vpx2 < 0) OR (vpy2 > maze_y - 1 OR vpy2 < 0) OR (vpz2 > maze_z - 1 OR vpz2 < 0)) THEN
39.                         IF maze(vpx1, vpy1, vpz1) = 0 AND maze(vpx2, vpy2, vpz2) = 1 THEN
40.                             FOR t2 = 0 TO 5: vpx3 = vpx2 + d(t2, 0): vpy3 = vpy2 + d(t2, 1): vpz3 = vpz2 + d(t2, 2): IF maze(vpx3, vpy3, vpz3) = 4 THEN GOTO kovi
41.                     NEXT t2: maze(vpx1, vpy1, vpz1) = 2: way(wdb, 0) = tx: way(wdb, 1) = ty: way(wdb, 2) = tz: way(wdb, 3) = t: wdb = wdb + 1: END IF: END IF
42.     kovi: NEXT t: NEXT tz, ty, tx: aw = INT(wdb * RND(1)): IF wdb = 0 THEN _CONTINUE
43.     FOR t = 0 TO 2: hovax = way(aw, 0) + d(way(aw, 3), 0) * t: hovay = way(aw, 1) + d(way(aw, 3), 1) * t: hovaz = way(aw, 2) + d(way(aw, 3), 2) * t
44.         IF (maze(hovax, hovay, hovaz) = 2) OR (maze(hovax, hovay, hovaz) = 1) THEN maze(hovax, hovay, hovaz) = 4
45.         NEXT t: FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: maze(tx, ty, tz) = (ABS(maze(tx, ty, tz) = 2) XOR 1) * maze(tx, ty, tz)
46. NEXT tz, ty, tx: LOOP WHILE wdb
47.  
48. '1 entri points on the cube
49. DO: sx = INT(maze_x * RND(1)): sy = INT(maze_y * RND(1)): sz = INT(maze_z * RND(1))
50.     felt1 = ABS(sx = 0 OR sx = maze_x - 1) + ABS(sy = 0 OR sy = maze_y - 1) + ABS(sz = 0 OR sz = maze_z - 1) = 1
51.     nex = ABS(sx = 0 OR sx = maze_x - 1) * -1 * SGN(sx): ney = ABS(sy = 0 OR sy = maze_y - 1) * -1 * SGN(sy): nez = ABS(sz = 0 OR sz = maze_z - 1) * -1 * SGN(sz)
52. LOOP UNTIL felt1 AND maze(nex + sx, ney + sy, nez + sz) = 4: maze(sx, sy, sz) = 4: exit_x = sx: exit_y = sy: exit_z = sz
53.  
54. 'calculation real points coordinates ,points array index2:ena/disa ,x,y,z
55. points = (maze_x + 1) * (maze_y + 1) * (maze_z + 1): DIM SHARED points(points - 1, 9): FOR tx = 0 TO maze_x: FOR ty = 0 TO maze_y: FOR tz = 0 TO maze_z
56. points(sp, 1) = tx: points(sp, 2) = ty: points(sp, 3) = tz: sp = sp + 1: NEXT tz, ty, tx
57.  
58. 'creating textures
59. DIM c(2) AS _UNSIGNED _BYTE: DIM SHARED actual_texture: 'textures number
60. DIM SHARED textures(textures_c - 1): FOR t = 0 TO textures_c - 1: temp = _NEWIMAGE(texture_size, texture_size, 32): _DEST temp
61.     c(0) = INT(256 * RND(1)): FOR t2 = 1 TO 2: c(t2) = c(0) + (256 / 100 * texture_grey * RND(1)) * ((t2 - 1) * 2 - 1)
62.         IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
63.     NEXT t2: FOR t2 = 0 TO 9: SWAP c(INT(3 * RND(1))), c(INT(3 * RND(1))): NEXT t2: CLS , _RGB32(0, 0, 0)
64.     LINE (texture_margin, texture_margin)-(texture_size - texture_margin - 1, texture_size - texture_margin - 1), _RGB32(c(0), c(1), c(2)), BF
65.     FOR t2 = 0 TO 2: c(t2) = INT(c(t2) * texture_c1 / 100): IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
66.     NEXT t2: CIRCLE (texture_size / 2, texture_size / 2), texture_size * texture_c2 / 100 / 2, _RGB32(c(0), c(1), c(2))
67. PAINT (texture_size / 2, texture_size / 2), _RGB32(c(0), c(1), c(2)), _RGB32(c(0), c(1), c(2)): textures(t) = _COPYIMAGE(temp, 33): NEXT t: _FREEIMAGE temp
68.  
69. 'creating triangles (triangles array index2:'ena/disa,point1,point2,point3)
70. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: cube_sum = cube_sum + ABS(maze(tx, ty, tz) <> 4): NEXT tz, ty, tx
71. DIM SHARED triangles(cube_sum * 12 - 1, 10), triangles
72. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: IF maze(tx, ty, tz) = 4 THEN _CONTINUE
73.             actual_texture = INT(textures_c * RND(1))
74.             sq0 = sq(tx, ty, tz): sq1 = sq(tx + 1, ty, tz): sq2 = sq(tx, ty + 1, tz): sq3 = sq(tx + 1, ty + 1, tz)
75.             sq4 = sq(tx, ty, tz + 1): sq5 = sq(tx + 1, ty, tz + 1): sq6 = sq(tx, ty + 1, tz + 1): sq7 = sq(tx + 1, ty + 1, tz + 1)
76.             sq_add sq0, sq1, sq2, sq3: sq_add sq4, sq5, sq6, sq7: sq_add sq4, sq0, sq6, sq2
77. sq_add sq5, sq1, sq7, sq3: sq_add sq0, sq1, sq4, sq5: sq_add sq2, sq3, sq6, sq7: NEXT tz, ty, tx
78.  
79. IF LEN(file_obj$) THEN 'write to .OBJ
80.     OPEN "d:\x.obj" FOR OUTPUT AS 1: FOR t = 0 TO points - 1: PRINT #1, "v "; points(t, 1); " "; points(t, 2); " "; points(t, 3); " ": NEXT t: FOR t = 0 TO triangles - 1
81.         IF triangles(t, 0) THEN PRINT #1, "f "; triangles(t, 1) + 1; " "; triangles(t, 2) + 1; " "; triangles(t, 3) + 1; " "
82. NEXT t: CLOSE 1: END IF
83.  
84. 'find the farthest place in the maze from the exit
85. REDIM me(19): maxdis = -9999999: FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: FOR tz = 0 TO maze_z - 1: IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
86.             dis = (exit_x - tx) ^ 2 + (exit_y - ty) ^ 2 + (exit_z - tz) ^ 2: IF dis > maxdis THEN maxdis = dis: start_x = tx: start_y = ty: start_z = tz
87. NEXT tz, ty, tx: me(0) = start_x: me(1) = start_y: me(2) = start_z
88.  
89. '---------------- other tasks to be performed
90. CONST pip180 = 3.141592 / 180: REDIM cam(19): IF mon_rat THEN mony = INT(monx / 4 * 3) ELSE mony = INT(monx / 16 * 9)
91. mon = _NEWIMAGE(monx, mony, 32): _DEST mon: SCREEN mon: _FULLSCREEN _SQUAREPIXELS , _SMOOTH: _MOUSEHIDE
92.  
93. DO: _LIMIT boss_limit ' ------------ BOSS CYCLE
94.  
95.     'control
96.     kw = _KEYDOWN(119): ks = _KEYDOWN(115): ka = _KEYDOWN(97): kd = _KEYDOWN(100): szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd): ir = ABS(ka OR kd OR kw) OR -ABS(ks)
97.     szog_xy = me(10) + (szog_xy_elt) * pip180: szog_z = me(11) + pip180 * 90: irx = -SIN(szog_xy) * COS(szog_z): iry = -COS(szog_xy) * COS(szog_z): irz = SIN(szog_z)
98.     ana_x = INT(me(0) + irx * stepping * ir * pre_calc): ana_y = INT(me(1) + iry * stepping * ir * pre_calc): ana_z = INT(me(2) + irz * stepping * ir * pre_calc)
99.     kivul = ana_x < 0 OR ana_x > maze_x - 1 OR ana_y < 0 OR ana_y > maze_y - 1 OR ana_z < 0 OR ana_z > maze_z - 1
100.     IF NOT kivul THEN IF maze(ana_x, ana_y, ana_z) <> 4 THEN ir = 0
101.     me(0) = me(0) + irx * stepping * ir: me(1) = me(1) + iry * stepping * ir: me(2) = me(2) + irz * stepping * ir
102.     mousex = 0: mousey = 0: lookzmax = (mouse_z_rot / 2 - 90) * pip180: lookzmin = (-mouse_z_rot / 2 - 90) * pip180
103.     FOR t = 0 TO 100: makt = _MOUSEINPUT: IF makt THEN mousex = _MOUSEMOVEMENTX + mousex: mousey = _MOUSEMOVEMENTY + mousey: axis = axis + _MOUSEWHEEL
104.     NEXT t: me(10) = me(10) + (mousex / 5 * msenx): me(11) = me(11) + (mousey / 7 * msenz): IF me(11) > lookzmax THEN me(11) = lookzmax
105.     IF me(11) < lookzmin THEN me(11) = lookzmin
106.  
107.     'calculating points
108.     cam(0) = me(0) - SIN(me(10) - 180 * pip180) * me(3) / 2: cam(1) = me(1) - COS(me(10) - 180 * pip180) * me(3) / 2
109.     cam(2) = me(2) + me(5) / 4: cam(3) = me(10): cam(4) = me(11): cosrotz = COS(cam(3)): sinrotz = SIN(cam(3)): cosrotx = COS(cam(4)): sinrotx = SIN(cam(4))
110.     FOR actual_point = 0 TO points - 1: IF points(actual_point, 0) THEN
111.             px = points(actual_point, 1) - cam(0): py = points(actual_point, 2) - cam(1): pz2 = points(actual_point, 3) - cam(2)
112.             px3 = px * cosrotz - py * sinrotz: py2 = px * sinrotz + py * cosrotz: py3 = py2 * cosrotx - pz2 * sinrotx: pz3 = py2 * sinrotx + pz2 * cosrotx
113.     points(actual_point, 4) = -px3 * zoom_xy: points(actual_point, 5) = -py3 * zoom_xy: points(actual_point, 6) = -pz3 * zoom_distance: END IF: NEXT actual_point
114.  
115.     'drawing triangles
116.     FOR actual_triangle = 0 TO triangles - 1: IF triangles(actual_triangle, 0) THEN
117.             wx1 = points(triangles(actual_triangle, 1), 4): wy1 = points(triangles(actual_triangle, 1), 5): wz1 = points(triangles(actual_triangle, 1), 6)
118.             wx2 = points(triangles(actual_triangle, 2), 4): wy2 = points(triangles(actual_triangle, 2), 5): wz2 = points(triangles(actual_triangle, 2), 6)
119.             wx3 = points(triangles(actual_triangle, 3), 4): wy3 = points(triangles(actual_triangle, 3), 5): wz3 = points(triangles(actual_triangle, 3), 6)
120.             sx1 = triangles(actual_triangle, 4): sy1 = triangles(actual_triangle, 5): sx2 = triangles(actual_triangle, 6): sy2 = triangles(actual_triangle, 7)
121.             sx3 = triangles(actual_triangle, 8): sy3 = triangles(actual_triangle, 9)
122.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy2)-(sx3, sy3), textures(triangles(actual_triangle, 10)) TO(wx1, wy1, wz1)-(wx2, wy2, wz2)-(wx3, wy3, wz3), , _SMOOTH
123. END IF: NEXT actual_triangle: _DISPLAY: CLS: FOR t = 1 TO _WIDTH(monx) / 8 * _HEIGHT(mony) / 16 / LEN(cong$): PRINT cong$;: NEXT t: LOOP
124.  
125. FUNCTION sq (ax, ay, az): sq = ax * (maze_y + 1) * (maze_z + 1) + ay * (maze_z + 1) + az: END FUNCTION 'which point ?
126. SUB sq_add (p0, p1, p2, p3): triangles(triangles, 0) = 1: triangles(triangles, 1) = p0: triangles(triangles, 2) = p1: triangles(triangles, 3) = p2
127.     triangles(triangles + 1, 0) = 1: triangles(triangles + 1, 1) = p3: triangles(triangles + 1, 2) = p1: triangles(triangles + 1, 3) = p2
128.     points(p0, 0) = 1: points(p1, 0) = 1: points(p2, 0) = 1: points(p3, 0) = 1: triangles(triangles, 10) = actual_texture
129.     triangles(triangles + 1, 10) = triangles(triangles, 10): triangles(triangles, 6) = _WIDTH(textures(actual_texture)) - 1
130.     triangles(triangles, 9) = _HEIGHT(textures(actual_texture)) - 1: triangles(triangles + 1, 6) = triangles(triangles, 6)
131. triangles(triangles + 1, 9) = triangles(triangles, 9): triangles = triangles + 2: END SUB
132.  
133.  
134.  
135.  
136.  
137.  
138.  

[bplus]

Wow! that is cool! nice one @MasterGy

[STxAxTIC]

If you name was just Gy I would call you MasterGy anyway. Nice job!

[FellippeHeitor]

Wow!

[Dav]

What a great little coded gem this is!   Saving it fast, and making a backup already.

Great work!

- Dav

[MasterGy]

Thank you for your answers !

[Petr]

What a great little coded gem this is!   Saving it fast, and making a backup already.

Yes, it is great work. But first, take a good look at the code. It is condensed. Many commands separated by colons. This is not user - friendly source code.

[johnno56]

The video looked impressive. Running the program, "compressed" and "expanded", did not work on my Linux box, Presented with a large image or discs within squares and the only keys that worked were "a" and "s" and the movement was only a few pixels.

Oh yes. I have had QB641.4 installed for quite some time. Could be the reason why it won't run. Line #2 "only QB64v1.3"

Code: QB64: [Select]

1. DIM SHARED maze_x, maze_y, maze_z AS _UNSIGNED _BYTE
2. '-------------------- REAL 3D MAZE --------- SETTINGS -------------------------------------only QB64v1.3
3. maze_x = 7 'maze size X
4. maze_y = 7 'maze size Y
5. maze_z = 7 'maze size Z
6. monx = 1024 'window size X
7. mon_rat = 0 'window side ratio 0=16:9 ,1=4:3
8. file_obj$ = "" 'write the track to .OBJ file - if file_obj$ is empty, then writting skip
9. msenx = .05 'mouse sensitive XY
10. msenz = .08 'mouse sensitive Z
11.  
12. '--------------- ADVANCED SETTINGS --------------------------------------------------------
13. pre_calc = 5 'calculation for step multiplier impact test
14. mouse_z_rot = 176 'Z-direction rotation angle of view in degrees
15. stepping = .08 'movement speed
16. texture_size = 140 'textures pixel size x,y
17. texture_margin = 3 'black margin to textures pixel
18. texture_grey = 50 'random colors  0:grey scale 100:very color
19. texture_c1 = 130 'circle is the maximum color variation allowed on the texture
20. texture_c2 = 70 'circle diameter as a percentage of the image
21. textures_c = 60 'number of different colors
22. boss_limit = 30 'display framefrate
23. zoom_xy = 6 '_maptriangle multiplier XY
24. zoom_distance = 11 'maptriangle multiplier Z (as large as fisheye optics)
25. cong$ = "  CONGRATULATIONS !  " 'text to sky when you find exit
26.  
27. 'creating 3D MAZE -----------------------------------------------------------------------------------------------------------------------------------------
28.  
29. RANDOMIZE TIMER
30.  
31. maze_x = maze_x + ((maze_x AND 1) XOR 1)
32. maze_y = maze_y + ((maze_y AND 1) XOR 1)
33. maze_z = maze_z + ((maze_z AND 1) XOR 1)
34.  
35. REDIM maze(maze_x - 1, maze_y - 1, maze_z - 1) AS _UNSIGNED _BYTE '0-fal 1-ureg 2-lehetoseg
36. REDIM d(5, 2) AS _BYTE
37.  
38. d(0, 2) = 1
39. d(1, 2) = -1
40. d(2, 1) = 1
41. d(3, 1) = -1
42. d(4, 0) = 1
43. d(5, 0) = -1
44. FOR tx = 0 TO maze_x - 1
45.     FOR ty = 0 TO maze_y - 1
46.         FOR tz = 0 TO maze_z - 1
47.             k = 0
48.             k = ABS((tx = 0 OR ty = 0 OR tz = 0) OR (tx = maze_x - 1 OR ty = maze_y - 1 OR tz = maze_z - 1)) * 3
49.             IF tx AND 1 AND ty AND 1 AND tz AND 1 THEN k = 1
50.             maze(tx, ty, tz) = k
51. NEXT tz, ty, tx
52. DO
53.     sx = INT(maze_x * RND(1))
54.     sy = INT(maze_y * RND(1))
55.     sz = INT(maze_z * RND(1))
56. LOOP WHILE maze(sx, sy, sz) <> 1
57. maze(sx, sy, sz) = 4 'start
58. DO
59.     REDIM way(9999, 3)
60.     wdb = 0
61.     FOR tx = 0 TO maze_x - 1
62.         FOR ty = 0 TO maze_y - 1
63.             FOR tz = 0 TO maze_z - 1
64.                 IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
65.                 FOR t = 0 TO 5
66.                     vpx1 = tx + d(t, 0)
67.                     vpy1 = ty + d(t, 1)
68.                     vpz1 = tz + d(t, 2)
69.                     vpx2 = tx + d(t, 0) * 2
70.                     vpy2 = ty + d(t, 1) * 2
71.                     vpz2 = tz + d(t, 2) * 2
72.                     IF NOT ((vpx2 > maze_x - 1 OR vpx2 < 0) OR (vpy2 > maze_y - 1 OR vpy2 < 0) OR (vpz2 > maze_z - 1 OR vpz2 < 0)) THEN
73.                         IF maze(vpx1, vpy1, vpz1) = 0 AND maze(vpx2, vpy2, vpz2) = 1 THEN
74.                             FOR t2 = 0 TO 5
75.                                 vpx3 = vpx2 + d(t2, 0)
76.                                 vpy3 = vpy2 + d(t2, 1)
77.                                 vpz3 = vpz2 + d(t2, 2)
78.                                 IF maze(vpx3, vpy3, vpz3) = 4 THEN GOTO kovi
79.                             NEXT t2
80.                             maze(vpx1, vpy1, vpz1) = 2
81.                             way(wdb, 0) = tx
82.                             way(wdb, 1) = ty
83.                             way(wdb, 2) = tz
84.                             way(wdb, 3) = t
85.                             wdb = wdb + 1
86.                         END IF
87.                     END IF
88.                     kovi:
89.                 NEXT t
90.     NEXT tz, ty, tx
91.     aw = INT(wdb * RND(1))
92.     IF wdb = 0 THEN _CONTINUE
93.     FOR t = 0 TO 2
94.         hovax = way(aw, 0) + d(way(aw, 3), 0) * t
95.         hovay = way(aw, 1) + d(way(aw, 3), 1) * t
96.         hovaz = way(aw, 2) + d(way(aw, 3), 2) * t
97.         IF (maze(hovax, hovay, hovaz) = 2) OR (maze(hovax, hovay, hovaz) = 1) THEN maze(hovax, hovay, hovaz) = 4
98.     NEXT t
99.     FOR tx = 0 TO maze_x - 1
100.         FOR ty = 0 TO maze_y - 1
101.             FOR tz = 0 TO maze_z - 1
102.                 maze(tx, ty, tz) = (ABS(maze(tx, ty, tz) = 2) XOR 1) * maze(tx, ty, tz)
103.     NEXT tz, ty, tx
104. LOOP WHILE wdb
105.  
106. '1 entri points on the cube
107. DO
108.     sx = INT(maze_x * RND(1))
109.     sy = INT(maze_y * RND(1))
110.     sz = INT(maze_z * RND(1))
111.     felt1 = ABS(sx = 0 OR sx = maze_x - 1) + ABS(sy = 0 OR sy = maze_y - 1) + ABS(sz = 0 OR sz = maze_z - 1) = 1
112.     nex = ABS(sx = 0 OR sx = maze_x - 1) * -1 * SGN(sx)
113.     ney = ABS(sy = 0 OR sy = maze_y - 1) * -1 * SGN(sy)
114.     nez = ABS(sz = 0 OR sz = maze_z - 1) * -1 * SGN(sz)
115. LOOP UNTIL felt1 AND maze(nex + sx, ney + sy, nez + sz) = 4
116. maze(sx, sy, sz) = 4
117. exit_x = sx
118. exit_y = sy
119. exit_z = sz
120.  
121. 'calculation real points coordinates ,points array index2:ena/disa ,x,y,z
122. points = (maze_x + 1) * (maze_y + 1) * (maze_z + 1)
123. DIM SHARED points(points - 1, 9)
124. FOR tx = 0 TO maze_x
125.     FOR ty = 0 TO maze_y
126.         FOR tz = 0 TO maze_z
127.             points(sp, 1) = tx
128.             points(sp, 2) = ty
129.             points(sp, 3) = tz
130.             sp = sp + 1
131. NEXT tz, ty, tx
132.  
133. 'creating textures
134. DIM c(2) AS _UNSIGNED _BYTE
135. DIM SHARED actual_texture
136. 'textures number
137. DIM SHARED textures(textures_c - 1)
138. FOR t = 0 TO textures_c - 1
139.     temp = _NEWIMAGE(texture_size, texture_size, 32)
140.     _DEST temp
141.     c(0) = INT(256 * RND(1))
142.     FOR t2 = 1 TO 2
143.         c(t2) = c(0) + (256 / 100 * texture_grey * RND(1)) * ((t2 - 1) * 2 - 1)
144.         IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
145.     NEXT t2
146.     FOR t2 = 0 TO 9
147.         SWAP c(INT(3 * RND(1))), c(INT(3 * RND(1)))
148.     NEXT t2
149.     CLS , _RGB32(0, 0, 0)
150.     LINE (texture_margin, texture_margin)-(texture_size - texture_margin - 1, texture_size - texture_margin - 1), _RGB32(c(0), c(1), c(2)), BF
151.     FOR t2 = 0 TO 2
152.         c(t2) = INT(c(t2) * texture_c1 / 100)
153.         IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
154.     NEXT t2
155.     CIRCLE (texture_size / 2, texture_size / 2), texture_size * texture_c2 / 100 / 2, _RGB32(c(0), c(1), c(2))
156.     PAINT (texture_size / 2, texture_size / 2), _RGB32(c(0), c(1), c(2)), _RGB32(c(0), c(1), c(2))
157.     textures(t) = _COPYIMAGE(temp, 33)
158. NEXT t
159. _FREEIMAGE temp
160.  
161. 'creating triangles (triangles array index2:'ena/disa,point1,point2,point3)
162. FOR tx = 0 TO maze_x - 1
163.     FOR ty = 0 TO maze_y - 1
164.         FOR tz = 0 TO maze_z - 1
165.             cube_sum = cube_sum + ABS(maze(tx, ty, tz) <> 4)
166. NEXT tz, ty, tx
167. DIM SHARED triangles(cube_sum * 12 - 1, 10), triangles
168. FOR tx = 0 TO maze_x - 1
169.     FOR ty = 0 TO maze_y - 1
170.         FOR tz = 0 TO maze_z - 1
171.             IF maze(tx, ty, tz) = 4 THEN _CONTINUE
172.             actual_texture = INT(textures_c * RND(1))
173.             sq0 = sq(tx, ty, tz)
174.             sq1 = sq(tx + 1, ty, tz)
175.             sq2 = sq(tx, ty + 1, tz)
176.             sq3 = sq(tx + 1, ty + 1, tz)
177.             sq4 = sq(tx, ty, tz + 1)
178.             sq5 = sq(tx + 1, ty, tz + 1)
179.             sq6 = sq(tx, ty + 1, tz + 1)
180.             sq7 = sq(tx + 1, ty + 1, tz + 1)
181.             sq_add sq0, sq1, sq2, sq3
182.             sq_add sq4, sq5, sq6, sq7
183.             sq_add sq4, sq0, sq6, sq2
184.             sq_add sq5, sq1, sq7, sq3
185.             sq_add sq0, sq1, sq4, sq5
186.             sq_add sq2, sq3, sq6, sq7
187. NEXT tz, ty, tx
188.  
189. IF LEN(file_obj$) THEN 'write to .OBJ
190.     OPEN "d:\x.obj" FOR OUTPUT AS 1
191.     FOR t = 0 TO points - 1
192.         PRINT #1, "v "; points(t, 1); " "; points(t, 2); " "; points(t, 3); " "
193.     NEXT t
194.     FOR t = 0 TO triangles - 1
195.         IF triangles(t, 0) THEN PRINT #1, "f "; triangles(t, 1) + 1; " "; triangles(t, 2) + 1; " "; triangles(t, 3) + 1; " "
196.     NEXT t
197.     CLOSE 1
198. END IF
199.  
200. 'find the farthest place in the maze from the exit
201. REDIM me(19)
202. maxdis = -9999999
203. FOR tx = 0 TO maze_x - 1
204.     FOR ty = 0 TO maze_y - 1
205.         FOR tz = 0 TO maze_z - 1
206.             IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
207.             dis = (exit_x - tx) ^ 2 + (exit_y - ty) ^ 2 + (exit_z - tz) ^ 2
208.             IF dis > maxdis THEN maxdis = dis
209.             start_x = tx
210.             start_y = ty
211.             start_z = tz
212. NEXT tz, ty, tx
213. me(0) = start_x
214. me(1) = start_y
215. me(2) = start_z
216.  
217. '---------------- other tasks to be performed
218. CONST pip180 = 3.141592 / 180
219. REDIM cam(19)
220. IF mon_rat THEN mony = INT(monx / 4 * 3) ELSE mony = INT(monx / 16 * 9)
221. mon = _NEWIMAGE(monx, mony, 32)
222. _DEST mon
223. SCREEN mon
224. _FULLSCREEN _SQUAREPIXELS , _SMOOTH
225. _MOUSEHIDE
226.  
227. DO
228.     _LIMIT boss_limit ' ------------ BOSS CYCLE
229.  
230.     'control
231.     kw = _KEYDOWN(119)
232.     ks = _KEYDOWN(115)
233.     ka = _KEYDOWN(97)
234.     kd = _KEYDOWN(100)
235.     szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd)
236.     ir = ABS(ka OR kd OR kw) OR -ABS(ks)
237.     szog_xy = me(10) + (szog_xy_elt) * pip180
238.     szog_z = me(11) + pip180 * 90
239.     irx = -SIN(szog_xy) * COS(szog_z)
240.     iry = -COS(szog_xy) * COS(szog_z)
241.     irz = SIN(szog_z)
242.     ana_x = INT(me(0) + irx * stepping * ir * pre_calc)
243.     ana_y = INT(me(1) + iry * stepping * ir * pre_calc)
244.     ana_z = INT(me(2) + irz * stepping * ir * pre_calc)
245.     kivul = ana_x < 0 OR ana_x > maze_x - 1 OR ana_y < 0 OR ana_y > maze_y - 1 OR ana_z < 0 OR ana_z > maze_z - 1
246.     IF NOT kivul THEN IF maze(ana_x, ana_y, ana_z) <> 4 THEN ir = 0
247.     me(0) = me(0) + irx * stepping * ir
248.     me(1) = me(1) + iry * stepping * ir
249.     me(2) = me(2) + irz * stepping * ir
250.     mousex = 0
251.     mousey = 0
252.     lookzmax = (mouse_z_rot / 2 - 90) * pip180
253.     lookzmin = (-mouse_z_rot / 2 - 90) * pip180
254.     FOR t = 0 TO 100
255.         makt = _MOUSEINPUT
256.         IF makt THEN mousex = _MOUSEMOVEMENTX + mousex
257.         mousey = _MOUSEMOVEMENTY + mousey
258.         axis = axis + _MOUSEWHEEL
259.     NEXT t
260.     me(10) = me(10) + (mousex / 5 * msenx)
261.     me(11) = me(11) + (mousey / 7 * msenz)
262.     IF me(11) > lookzmax THEN me(11) = lookzmax
263.     IF me(11) < lookzmin THEN me(11) = lookzmin
264.  
265.     'calculating points
266.     cam(0) = me(0) - SIN(me(10) - 180 * pip180) * me(3) / 2
267.     cam(1) = me(1) - COS(me(10) - 180 * pip180) * me(3) / 2
268.     cam(2) = me(2) + me(5) / 4
269.     cam(3) = me(10)
270.     cam(4) = me(11)
271.     cosrotz = COS(cam(3))
272.     sinrotz = SIN(cam(3))
273.     cosrotx = COS(cam(4))
274.     sinrotx = SIN(cam(4))
275.     FOR actual_point = 0 TO points - 1
276.         IF points(actual_point, 0) THEN
277.             px = points(actual_point, 1) - cam(0)
278.             py = points(actual_point, 2) - cam(1)
279.             pz2 = points(actual_point, 3) - cam(2)
280.             px3 = px * cosrotz - py * sinrotz
281.             py2 = px * sinrotz + py * cosrotz
282.             py3 = py2 * cosrotx - pz2 * sinrotx
283.             pz3 = py2 * sinrotx + pz2 * cosrotx
284.             points(actual_point, 4) = -px3 * zoom_xy
285.             points(actual_point, 5) = -py3 * zoom_xy
286.             points(actual_point, 6) = -pz3 * zoom_distance
287.         END IF
288.     NEXT actual_point
289.  
290.     'drawing triangles
291.     FOR actual_triangle = 0 TO triangles - 1
292.         IF triangles(actual_triangle, 0) THEN
293.             wx1 = points(triangles(actual_triangle, 1), 4)
294.             wy1 = points(triangles(actual_triangle, 1), 5)
295.             wz1 = points(triangles(actual_triangle, 1), 6)
296.             wx2 = points(triangles(actual_triangle, 2), 4)
297.             wy2 = points(triangles(actual_triangle, 2), 5)
298.             wz2 = points(triangles(actual_triangle, 2), 6)
299.             wx3 = points(triangles(actual_triangle, 3), 4)
300.             wy3 = points(triangles(actual_triangle, 3), 5)
301.             wz3 = points(triangles(actual_triangle, 3), 6)
302.             sx1 = triangles(actual_triangle, 4)
303.             sy1 = triangles(actual_triangle, 5)
304.             sx2 = triangles(actual_triangle, 6)
305.             sy2 = triangles(actual_triangle, 7)
306.             sx3 = triangles(actual_triangle, 8)
307.             sy3 = triangles(actual_triangle, 9)
308.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy2)-(sx3, sy3), textures(triangles(actual_triangle, 10)) TO(wx1, wy1, wz1)-(wx2, wy2, wz2)-(wx3, wy3, wz3), , _SMOOTH
309.         END IF
310.     NEXT actual_triangle
311.     _DISPLAY
312.     CLS
313.     FOR t = 1 TO _WIDTH(monx) / 8 * _HEIGHT(mony) / 16 / LEN(cong$)
314.         PRINT cong$;
315.     NEXT t
316. LOOP
317.  
318. FUNCTION sq (ax, ay, az)
319.     sq = ax * (maze_y + 1) * (maze_z + 1) + ay * (maze_z + 1) + az
320. END FUNCTION 'which point ?
321.  
322. SUB sq_add (p0, p1, p2, p3)
323.     triangles(triangles, 0) = 1
324.     triangles(triangles, 1) = p0
325.     triangles(triangles, 2) = p1
326.     triangles(triangles, 3) = p2
327.     triangles(triangles + 1, 0) = 1
328.     triangles(triangles + 1, 1) = p3
329.     triangles(triangles + 1, 2) = p1
330.     triangles(triangles + 1, 3) = p2
331.     points(p0, 0) = 1
332.     points(p1, 0) = 1
333.     points(p2, 0) = 1
334.     points(p3, 0) = 1
335.     triangles(triangles, 10) = actual_texture
336.     triangles(triangles + 1, 10) = triangles(triangles, 10)
337.     triangles(triangles, 6) = _WIDTH(textures(actual_texture)) - 1
338.     triangles(triangles, 9) = _HEIGHT(textures(actual_texture)) - 1
339.     triangles(triangles + 1, 6) = triangles(triangles, 6)
340.     triangles(triangles + 1, 9) = triangles(triangles, 9)
341.     triangles = triangles + 2
342. END SUB
343.  

[bplus]

Oh yes. I have had QB641.4 installed for quite some time. Could be the reason why it won't run. Line #2 "only QB64v1.3"

I bet everyone who already wowed tested on QB64 v1.4 but not on Linux. ;) I know I did.

Maybe you removed a colon that shouldn't have been removed? Like after a THEN ?

[MasterGy]

Hi !
Thanks for the comment, I didn’t think the colon was a problem. i tend to compress it because if any part works, i like it to take up as little space as possible due to scrolling. if I have to deal with it for something, I will unpack it. it's easier for me to see through that too. I also try to express it with more complex logical operations instead of IF, because that saves a lot of unnecessary lines.

I changed the program, making the management easier. it does not get stuck on the wall, but chooses a different angle, and the turns-up feeling disappears with the turns as well. mouse forward, right mouse backward. Unfortunately, even though I expose it line by line, under qb1.4 the control is just as good. I stick to qb1.3 because it makes exe much faster than me.

I also wanted to do the essential parts (e.g. numbering, easier control) because there was an interesting thing about making the game. If a 2d maze builder can be turned into a 3d maze builder almost simply by adding another dimension to the array, then why shouldn’t there be more dimensions? I want an experiment to make a maze in 4d. Let X, Y, Z, A be the axes. Obviously, it’s also visually difficult to imagine the thing, even though the array would fix the roads in the right way. At least logically. What if a screen were divided into 4 and the read points from the 4d array were shown separately as follows: XYZ, XYA, XZA, YZA. So each would miss the fourth. When we move in one of the windows where only that 3 dimension exists, you would only see it. i wonder if i move in one window, walk around, how the other 3 windows change. I can pretty much imagine it. Do you think so? Couldn't that explain a lot of things? For example. The exit would be at 3,2,1,6 coordinate points. If you are in the wrong 4th dimension, there is no way out, even though the 3 coordinates of the world you know are all right.

Code: QB64: [Select]

1. DIM SHARED maze_x, maze_y, maze_z AS _UNSIGNED _BYTE
2. '-------------------- REAL 3D MAZE --------- SETTINGS -------------------------------------only QB64v1.3
3.  
4. maze_x = 9 'maze size X
5. maze_y = 7 'maze size Y
6. maze_z = 9 'maze size Z
7. monx = 1024 'window size X
8. mon_rat = 0 'window side ratio 0=16:9 ,1=4:3
9. file_obj$ = "" 'write the track to .OBJ file - if file_obj$ is empty, then writting skip
10. msenx = .05 'mouse sensitive XY
11. msenz = .08 'mouse sensitive Z
12.  
13. '--------------- ADVANCED SETTINGS --------------------------------------------------------
14. pre_calc = 2 'calculation for step multiplier impact test
15. mouse_z_rot = 176 'Z-direction rotation angle of view in degrees
16. stepping = .04 'movement speed
17. texture_size = 140 'textures pixel size x,y
18. texture_margin = 3 'black margin to textures pixel
19. texture_grey = 50 'random colors  0 grey scale 100 very color
20. texture_c1 = 130 'circle is the maximum color variation allowed on the texture
21. texture_c2 = 70 'circle diameter as a percentage of the image
22. texture_n = 1 'serial number to cube
23. boss_limit = 30 'display framefrate
24. zoom_xy = 6 '_maptriangle multiplier XY
25. zoom_distance = 20 'maptriangle multiplier Z (as large as fisheye optics)
26. me_dim = .2 'my dimensions
27. max_couch = 70 'correct angle of impact tolerance
28. cong$ = "  CONGRATULATIONS !  " 'text to sky when you find exit
29.  
30. 'creating 3D MAZE -----------------------------------------------------------------------------------------------------------------------------------------
31. RANDOMIZE TIMER
32. maze_x = maze_x + ((maze_x AND 1) XOR 1)
33. maze_y = maze_y + ((maze_y AND 1) XOR 1)
34. maze_z = maze_z + ((maze_z AND 1) XOR 1)
35. REDIM maze(maze_x - 1, maze_y - 1, maze_z - 1) AS _UNSIGNED _BYTE '0-fal 1-ureg 2-lehetoseg
36. REDIM d(5, 2) AS _BYTE
37. d(0, 2) = 1
38. d(1, 2) = -1
39. d(2, 1) = 1
40. d(3, 1) = -1
41. d(4, 0) = 1
42. d(5, 0) = -1
43. FOR tx = 0 TO maze_x - 1
44.     FOR ty = 0 TO maze_y - 1
45.         FOR tz = 0 TO maze_z - 1
46.             k = 0
47.             k = ABS((tx = 0 OR ty = 0 OR tz = 0) OR (tx = maze_x - 1 OR ty = maze_y - 1 OR tz = maze_z - 1)) * 3
48.             IF tx AND 1 AND ty AND 1 AND tz AND 1 THEN k = 1
49.             maze(tx, ty, tz) = k
50. NEXT tz, ty, tx
51. DO
52.     sx = INT(maze_x * RND(1))
53.     sy = INT(maze_y * RND(1))
54.     sz = INT(maze_z * RND(1))
55. LOOP WHILE maze(sx, sy, sz) <> 1
56. maze(sx, sy, sz) = 4 'start
57. DO
58.     REDIM way(9999, 3)
59.     wdb = 0
60.     FOR tx = 0 TO maze_x - 1
61.         FOR ty = 0 TO maze_y - 1
62.             FOR tz = 0 TO maze_z - 1
63.                 IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
64.                 FOR t = 0 TO 5
65.                     vpx1 = tx + d(t, 0)
66.                     vpy1 = ty + d(t, 1)
67.                     vpz1 = tz + d(t, 2)
68.                     vpx2 = tx + d(t, 0) * 2
69.                     vpy2 = ty + d(t, 1) * 2
70.                     vpz2 = tz + d(t, 2) * 2
71.                     IF NOT ((vpx2 > maze_x - 1 OR vpx2 < 0) OR (vpy2 > maze_y - 1 OR vpy2 < 0) OR (vpz2 > maze_z - 1 OR vpz2 < 0)) THEN
72.                         IF maze(vpx1, vpy1, vpz1) = 0 AND maze(vpx2, vpy2, vpz2) = 1 THEN
73.                             FOR t2 = 0 TO 5
74.                                 vpx3 = vpx2 + d(t2, 0)
75.                                 vpy3 = vpy2 + d(t2, 1)
76.                                 vpz3 = vpz2 + d(t2, 2)
77.                                 IF maze(vpx3, vpy3, vpz3) = 4 THEN GOTO kovi
78.                             NEXT t2
79.                             maze(vpx1, vpy1, vpz1) = 2
80.                             way(wdb, 0) = tx
81.                             way(wdb, 1) = ty
82.                             way(wdb, 2) = tz
83.                             way(wdb, 3) = t
84.                             wdb = wdb + 1
85.                         END IF
86.                     END IF
87.                     kovi:
88.                 NEXT t
89.     NEXT tz, ty, tx
90.     aw = INT(wdb * RND(1))
91.     IF wdb = 0 THEN _CONTINUE
92.     FOR t = 0 TO 2
93.         hovax = way(aw, 0) + d(way(aw, 3), 0) * t
94.         hovay = way(aw, 1) + d(way(aw, 3), 1) * t
95.         hovaz = way(aw, 2) + d(way(aw, 3), 2) * t
96.         IF (maze(hovax, hovay, hovaz) = 2) OR (maze(hovax, hovay, hovaz) = 1) THEN maze(hovax, hovay, hovaz) = 4
97.     NEXT t
98.     FOR tx = 0 TO maze_x - 1
99.         FOR ty = 0 TO maze_y - 1
100.             FOR tz = 0 TO maze_z - 1
101.                 maze(tx, ty, tz) = (ABS(maze(tx, ty, tz) = 2) XOR 1) * maze(tx, ty, tz)
102.     NEXT tz, ty, tx
103. LOOP WHILE wdb
104.  
105. '1 entri points on the cube
106. DO
107.     sx = INT(maze_x * RND(1))
108.     sy = INT(maze_y * RND(1))
109.     sz = INT(maze_z * RND(1))
110.     felt1 = ABS(sx = 0 OR sx = maze_x - 1) + ABS(sy = 0 OR sy = maze_y - 1) + ABS(sz = 0 OR sz = maze_z - 1) = 1
111.     nex = ABS(sx = 0 OR sx = maze_x - 1) * -1 * SGN(sx)
112.     ney = ABS(sy = 0 OR sy = maze_y - 1) * -1 * SGN(sy)
113.     nez = ABS(sz = 0 OR sz = maze_z - 1) * -1 * SGN(sz)
114. LOOP UNTIL felt1 AND maze(nex + sx, ney + sy, nez + sz) = 4
115. maze(sx, sy, sz) = 4
116. exit_x = sx
117. exit_y = sy
118. exit_z = sz
119.  
120. 'calculation real points coordinates ,points array index2
121.  
122. points = (maze_x + 1) * (maze_y + 1) * (maze_z + 1)
123. DIM SHARED points(points - 1, 9)
124. FOR tx = 0 TO maze_x
125.     FOR ty = 0 TO maze_y
126.         FOR tz = 0 TO maze_z
127.             points(sp, 1) = tx
128.             points(sp, 2) = ty
129.             points(sp, 3) = tz
130.             sp = sp + 1
131. NEXT tz, ty, tx
132.  
133.  
134. 'creating triangles (triangles array index2
135. 'ena/disa,point1,point2,point3)
136. DIM c(2) AS _UNSIGNED _BYTE
137. DIM SHARED serial
138. DIM SHARED textures(maze_x * maze_y * maze_z - 1)
139. FOR tx = 0 TO maze_x - 1
140.     FOR ty = 0 TO maze_y - 1
141.         FOR tz = 0 TO maze_z - 1
142.             cube_sum = cube_sum + ABS(maze(tx, ty, tz) <> 4)
143. NEXT tz, ty, tx
144. DIM SHARED triangles(cube_sum * 12 - 1, 10), triangles
145. FOR tx = 0 TO maze_x - 1
146.     FOR ty = 0 TO maze_y - 1
147.         FOR tz = 0 TO maze_z - 1
148.             IF maze(tx, ty, tz) = 4 THEN _CONTINUE
149.             'creating texture
150.             temp = _NEWIMAGE(texture_size, texture_size, 32)
151.             _DEST temp
152.             c(0) = INT(256 * RND(1))
153.             FOR t2 = 1 TO 2
154.                 c(t2) = c(0) + (256 / 100 * texture_grey * RND(1)) * ((t2 - 1) * 2 - 1)
155.                 IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
156.             NEXT t2
157.             FOR t2 = 0 TO 9
158.                 SWAP c(INT(3 * RND(1))), c(INT(3 * RND(1)))
159.             NEXT t2
160.             CLS '_RGB32(255, 255, 255), _RGB32(0, 0, 0)
161.             LINE (texture_margin, texture_margin)-(texture_size - texture_margin - 1, texture_size - texture_margin - 1), _RGB32(c(0), c(1), c(2)), BF
162.             FOR t2 = 0 TO 2
163.                 c(t2) = INT(c(t2) * texture_c1 / 100)
164.                 IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
165.             NEXT t2
166.             CIRCLE (texture_size / 2, texture_size / 2), texture_size * texture_c2 / 100 / 2, _RGB32(c(0), c(1), c(2))
167.             PAINT (texture_size / 2, texture_size / 2), _RGB32(c(0), c(1), c(2)), _RGB32(c(0), c(1), c(2))
168.             IF texture_n THEN num$ = LTRIM$(STR$(serial))
169.             LOCATE texture_size / 32 + 1, ((texture_size / 8) - LEN(num$)) / 2 + 1
170.             PRINT num$;
171.             textures(serial) = _COPYIMAGE(temp, 33)
172.             _FREEIMAGE temp
173.             'creating cube
174.             sq0 = sq(tx, ty, tz)
175.             sq1 = sq(tx + 1, ty, tz)
176.             sq2 = sq(tx, ty + 1, tz)
177.             sq3 = sq(tx + 1, ty + 1, tz)
178.             sq4 = sq(tx, ty, tz + 1)
179.             sq5 = sq(tx + 1, ty, tz + 1)
180.             sq6 = sq(tx, ty + 1, tz + 1)
181.             sq7 = sq(tx + 1, ty + 1, tz + 1)
182.             sq_add sq1, sq0, sq3, sq2, 1
183.             sq_add sq4, sq5, sq6, sq7, 1
184.             sq_add sq2, sq0, sq6, sq4, 1
185.             sq_add sq1, sq3, sq5, sq7, 1
186.             sq_add sq0, sq1, sq4, sq5, 1
187.             sq_add sq3, sq2, sq7, sq6, 1
188.  
189.             serial = serial + 1
190. NEXT tz, ty, tx
191.  
192. IF LEN(file_obj$) THEN 'write to .OBJ
193.     OPEN "d:\x.obj" FOR OUTPUT AS 1
194.     FOR t = 0 TO points - 1
195.         PRINT #1, "v "; points(t, 1); " "; points(t, 2); " "; points(t, 3); " "
196.     NEXT t
197.     FOR t = 0 TO triangles - 1
198.         IF triangles(t, 0) THEN PRINT #1, "f "; triangles(t, 1) + 1; " "; triangles(t, 2) + 1; " "; triangles(t, 3) + 1; " "
199.     NEXT t
200.     CLOSE 1
201. END IF
202.  
203. 'find the farthest place in the maze from the exit
204. REDIM me(19)
205. maxdis = -9999999
206. FOR tx = 0 TO maze_x - 1
207.     FOR ty = 0 TO maze_y - 1
208.         FOR tz = 0 TO maze_z - 1
209.             IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
210.             dis = (exit_x - tx) ^ 2 + (exit_y - ty) ^ 2 + (exit_z - tz) ^ 2
211.             IF dis > maxdis THEN maxdis = dis: start_x = tx: start_y = ty: start_z = tz
212. NEXT tz, ty, tx
213. me(0) = start_x + .5
214. me(1) = start_y + .5
215. me(2) = start_z + .5
216.  
217.  
218. '---------------- other tasks to be performed
219. CONST pip180 = 3.141592 / 180
220. REDIM cam(19)
221. IF mon_rat THEN mony = INT(monx / 4 * 3) ELSE mony = INT(monx / 16 * 9)
222. mon = _NEWIMAGE(monx, mony, 32)
223. _DEST mon
224. SCREEN mon
225. _FULLSCREEN _SQUAREPIXELS , _SMOOTH
226. _MOUSEHIDE
227.  
228. DO
229.     _LIMIT boss_limit ' ------------ BOSS CYCLE
230.     'control
231.     kw = _KEYDOWN(119) OR _MOUSEBUTTON(1)
232.     ks = _KEYDOWN(115) OR _MOUSEBUTTON(2)
233.     ka = _KEYDOWN(97)
234.     et_ir = ABS(ka OR kd OR kw) OR -ABS(ks)
235.     kd = _KEYDOWN(100)
236.     FOR elt1 = 0 TO max_couch STEP 2
237.         FOR elt2 = 0 TO 360 STEP 12
238.             elt_xy = SIN(elt2 * pip180) * elt1
239.             elt_z = COS(elt2 * pip180) * elt1
240.             szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd)
241.             szog_xy = me(10) + (szog_xy_elt + elt_xy) * pip180
242.             szog_z = me(11) + pip180 * (90 + elt_z)
243.             irx = -SIN(szog_xy) * COS(szog_z)
244.             iry = -COS(szog_xy) * COS(szog_z)
245.             irz = SIN(szog_z)
246.             ir = et_ir
247.             multi = stepping * ir * pre_calc * 2
248.             FOR elt_x = 0 TO 1
249.                 FOR elt_y = 0 TO 1
250.                     FOR elt_z = 0 TO 1
251.                         ana_x = INT(me(0) + irx * multi + (elt_x * 2 - 1) * me_dim / 2)
252.                         ana_y = INT(me(1) + iry * multi + (elt_y * 2 - 1) * me_dim / 2)
253.                         ana_z = INT(me(2) + irz * multi + (elt_z * 2 - 1) * me_dim / 2)
254.                         kivul = ana_x < 0 OR ana_x > maze_x - 1 OR ana_y < 0 OR ana_y > maze_y - 1 OR ana_z < 0 OR ana_z > maze_z - 1
255.                         IF NOT kivul THEN ir = ir * ABS(maze(ana_x, ana_y, ana_z) = 4)
256.             NEXT elt_z, elt_y, elt_x
257.             multi = stepping * ir / max_couch * (max_couch - elt1)
258.             me(0) = me(0) + irx * multi
259.             me(1) = me(1) + iry * multi
260.             me(2) = me(2) + irz * multi
261.             IF ir THEN GOTO move_ready
262.     NEXT elt2, elt1
263.     move_ready:
264.  
265.  
266.     lookzmax = (mouse_z_rot / 2 - 90) * pip180
267.     lookzmin = (-mouse_z_rot / 2 - 90) * pip180
268.     mousex = 0
269.     mousey = 0
270.     WHILE _MOUSEINPUT
271.         mousex = mousex + _MOUSEMOVEMENTX
272.         mousey = mousey + _MOUSEMOVEMENTY
273.     WEND
274.     me(11) = me(11) + mousey / 7 * msenz
275.     me(11) = me(11) - 2 * _PI * ABS(me(11) > 2 * _PI)
276.     me(11) = me(11) + 2 * _PI * ABS(me(11) < 0)
277.     inv_me10 = 1
278.     IF me(11) < _PI THEN inv_me10 = -1
279.     me(10) = me(10) + mousex / 5 * msenx * inv_me10
280.  
281.     'calculating points
282.     cam(0) = me(0) - SIN(me(10) - 180 * pip180) * me(3) / 2
283.     cam(1) = me(1) - COS(me(10) - 180 * pip180) * me(3) / 2
284.     cam(2) = me(2) + me(5) / 4
285.     cam(3) = me(10)
286.     cam(4) = me(11)
287.     cosrotz = COS(cam(3))
288.     sinrotz = SIN(cam(3))
289.     cosrotx = COS(cam(4))
290.     sinrotx = SIN(cam(4))
291.     FOR actual_point = 0 TO points - 1
292.         IF points(actual_point, 0) THEN
293.             px = points(actual_point, 1) - cam(0)
294.             py = points(actual_point, 2) - cam(1)
295.             pz2 = points(actual_point, 3) - cam(2)
296.             px3 = px * cosrotz - py * sinrotz
297.             py2 = px * sinrotz + py * cosrotz
298.             py3 = py2 * cosrotx - pz2 * sinrotx
299.             pz3 = py2 * sinrotx + pz2 * cosrotx
300.             points(actual_point, 4) = -px3 * zoom_xy
301.             points(actual_point, 5) = -py3 * zoom_xy
302.             points(actual_point, 6) = -pz3 * zoom_distance
303.         END IF
304.     NEXT actual_point
305.  
306.     'drawing triangles
307.     FOR actual_triangle = 0 TO triangles - 1
308.         IF triangles(actual_triangle, 0) THEN
309.             wx1 = points(triangles(actual_triangle, 1), 4)
310.             wy1 = points(triangles(actual_triangle, 1), 5)
311.             wz1 = points(triangles(actual_triangle, 1), 6)
312.             wx2 = points(triangles(actual_triangle, 2), 4)
313.             wy2 = points(triangles(actual_triangle, 2), 5)
314.             wz2 = points(triangles(actual_triangle, 2), 6)
315.             wx3 = points(triangles(actual_triangle, 3), 4)
316.             wy3 = points(triangles(actual_triangle, 3), 5)
317.             wz3 = points(triangles(actual_triangle, 3), 6)
318.             sx1 = triangles(actual_triangle, 4)
319.             sy1 = triangles(actual_triangle, 5)
320.             sx2 = triangles(actual_triangle, 6)
321.             sy2 = triangles(actual_triangle, 7)
322.             sx3 = triangles(actual_triangle, 8)
323.             sy3 = triangles(actual_triangle, 9)
324.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy2)-(sx3, sy3), textures(triangles(actual_triangle, 10)) TO(wx1, wy1, wz1)-(wx2, wy2, wz2)-(wx3, wy3, wz3), , _SMOOTH
325.         END IF
326.     NEXT actual_triangle
327.     _DISPLAY
328.     CLS
329.     FOR t = 1 TO _WIDTH(monx) / 8 * _HEIGHT(mony) / 16 / LEN(cong$)
330.         PRINT cong$;
331.     NEXT t
332. LOOP
333.  
334. FUNCTION sq (ax, ay, az)
335.     sq = ax * (maze_y + 1) * (maze_z + 1) + ay * (maze_z + 1) + az
336. END FUNCTION 'which point ?
337. SUB sq_add (p0, p1, p2, p3, sk)
338.     triangles(triangles, 0) = sk
339.     triangles(triangles + 1, 0) = sk
340.     triangles(triangles, 1) = p0
341.     triangles(triangles, 2) = p1
342.     triangles(triangles, 3) = p2
343.     triangles(triangles + 1, 1) = p3
344.     triangles(triangles + 1, 2) = p1
345.     triangles(triangles + 1, 3) = p2
346.     points(p0, 0) = 1
347.     points(p1, 0) = 1
348.     points(p2, 0) = 1
349.     points(p3, 0) = 1
350.     triangles(triangles, 10) = serial
351.     triangles(triangles + 1, 10) = serial
352.     triangles(triangles, 6) = _WIDTH(textures(serial)) - 1
353.     triangles(triangles, 9) = _HEIGHT(textures(serial)) - 1
354.     triangles(triangles + 1, 6) = _WIDTH(textures(serial)) - 1
355.     triangles(triangles + 1, 9) = _HEIGHT(textures(serial)) - 1
356.     triangles(triangles + 1, 4) = _WIDTH(textures(serial)) - 1
357.     triangles(triangles + 1, 5) = _HEIGHT(textures(serial)) - 1
358.     triangles = triangles + 2
359. END SUB
360.  

[FellippeHeitor]

That's so much better to look at, thank you.

[FellippeHeitor]

With these changes it'll work in the latest version of QB64:

Code: QB64: [Select]

1. DIM SHARED maze_x, maze_y, maze_z AS _UNSIGNED _BYTE
2. '-------------------- REAL 3D MAZE --------- SETTINGS -------------------------------------only QB64v1.3
3.  
4. maze_x = 9 'maze size X
5. maze_y = 7 'maze size Y
6. maze_z = 9 'maze size Z
7. monx = 1024 'window size X
8. mon_rat = 0 'window side ratio 0=16:9 ,1=4:3
9. file_obj$ = "" 'write the track to .OBJ file - if file_obj$ is empty, then writting skip
10. msenx = .05 'mouse sensitive XY
11. msenz = .08 'mouse sensitive Z
12.  
13. '--------------- ADVANCED SETTINGS --------------------------------------------------------
14. pre_calc = 2 'calculation for step multiplier impact test
15. mouse_z_rot = 176 'Z-direction rotation angle of view in degrees
16. stepping = .04 'movement speed
17. texture_size = 140 'textures pixel size x,y
18. texture_margin = 3 'black margin to textures pixel
19. texture_grey = 50 'random colors  0 grey scale 100 very color
20. texture_c1 = 130 'circle is the maximum color variation allowed on the texture
21. texture_c2 = 70 'circle diameter as a percentage of the image
22. texture_n = 1 'serial number to cube
23. boss_limit = 30 'display framefrate
24. zoom_xy = 6 '_maptriangle multiplier XY
25. zoom_distance = 20 'maptriangle multiplier Z (as large as fisheye optics)
26. me_dim = .2 'my dimensions
27. max_couch = 70 'correct angle of impact tolerance
28. cong$ = "  CONGRATULATIONS !  " 'text to sky when you find exit
29.  
30. 'creating 3D MAZE -----------------------------------------------------------------------------------------------------------------------------------------
31. RANDOMIZE TIMER
32. maze_x = maze_x + ((maze_x AND 1) XOR 1)
33. maze_y = maze_y + ((maze_y AND 1) XOR 1)
34. maze_z = maze_z + ((maze_z AND 1) XOR 1)
35. REDIM maze(maze_x - 1, maze_y - 1, maze_z - 1) AS _UNSIGNED _BYTE '0-fal 1-ureg 2-lehetoseg
36. REDIM d(5, 2) AS _BYTE
37. d(0, 2) = 1
38. d(1, 2) = -1
39. d(2, 1) = 1
40. d(3, 1) = -1
41. d(4, 0) = 1
42. d(5, 0) = -1
43. FOR tx = 0 TO maze_x - 1
44.     FOR ty = 0 TO maze_y - 1
45.         FOR tz = 0 TO maze_z - 1
46.             k = 0
47.             k = ABS((tx = 0 OR ty = 0 OR tz = 0) OR (tx = maze_x - 1 OR ty = maze_y - 1 OR tz = maze_z - 1)) * 3
48.             IF tx AND 1 AND ty AND 1 AND tz AND 1 THEN k = 1
49.             maze(tx, ty, tz) = k
50. NEXT tz, ty, tx
51. DO
52.     sx = INT(maze_x * RND(1))
53.     sy = INT(maze_y * RND(1))
54.     sz = INT(maze_z * RND(1))
55. LOOP WHILE maze(sx, sy, sz) <> 1
56. maze(sx, sy, sz) = 4 'start
57. DO
58.     REDIM way(9999, 3)
59.     wdb = 0
60.     FOR tx = 0 TO maze_x - 1
61.         FOR ty = 0 TO maze_y - 1
62.             FOR tz = 0 TO maze_z - 1
63.                 IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
64.                 FOR t = 0 TO 5
65.                     vpx1 = tx + d(t, 0)
66.                     vpy1 = ty + d(t, 1)
67.                     vpz1 = tz + d(t, 2)
68.                     vpx2 = tx + d(t, 0) * 2
69.                     vpy2 = ty + d(t, 1) * 2
70.                     vpz2 = tz + d(t, 2) * 2
71.                     IF NOT ((vpx2 > maze_x - 1 OR vpx2 < 0) OR (vpy2 > maze_y - 1 OR vpy2 < 0) OR (vpz2 > maze_z - 1 OR vpz2 < 0)) THEN
72.                         IF maze(vpx1, vpy1, vpz1) = 0 AND maze(vpx2, vpy2, vpz2) = 1 THEN
73.                             FOR t2 = 0 TO 5
74.                                 vpx3 = vpx2 + d(t2, 0)
75.                                 vpy3 = vpy2 + d(t2, 1)
76.                                 vpz3 = vpz2 + d(t2, 2)
77.                                 IF maze(vpx3, vpy3, vpz3) = 4 THEN GOTO kovi
78.                             NEXT t2
79.                             maze(vpx1, vpy1, vpz1) = 2
80.                             way(wdb, 0) = tx
81.                             way(wdb, 1) = ty
82.                             way(wdb, 2) = tz
83.                             way(wdb, 3) = t
84.                             wdb = wdb + 1
85.                         END IF
86.                     END IF
87.                     kovi:
88.                 NEXT t
89.     NEXT tz, ty, tx
90.     aw = INT(wdb * RND(1))
91.     IF wdb = 0 THEN _CONTINUE
92.     FOR t = 0 TO 2
93.         hovax = way(aw, 0) + d(way(aw, 3), 0) * t
94.         hovay = way(aw, 1) + d(way(aw, 3), 1) * t
95.         hovaz = way(aw, 2) + d(way(aw, 3), 2) * t
96.         IF (maze(hovax, hovay, hovaz) = 2) OR (maze(hovax, hovay, hovaz) = 1) THEN maze(hovax, hovay, hovaz) = 4
97.     NEXT t
98.     FOR tx = 0 TO maze_x - 1
99.         FOR ty = 0 TO maze_y - 1
100.             FOR tz = 0 TO maze_z - 1
101.                 maze(tx, ty, tz) = (ABS(maze(tx, ty, tz) = 2) XOR 1) * maze(tx, ty, tz)
102.     NEXT tz, ty, tx
103. LOOP WHILE wdb
104.  
105. '1 entri points on the cube
106. DO
107.     sx = INT(maze_x * RND(1))
108.     sy = INT(maze_y * RND(1))
109.     sz = INT(maze_z * RND(1))
110.     felt1 = ABS(sx = 0 OR sx = maze_x - 1) + ABS(sy = 0 OR sy = maze_y - 1) + ABS(sz = 0 OR sz = maze_z - 1) = 1
111.     nex = ABS(sx = 0 OR sx = maze_x - 1) * -1 * SGN(sx)
112.     ney = ABS(sy = 0 OR sy = maze_y - 1) * -1 * SGN(sy)
113.     nez = ABS(sz = 0 OR sz = maze_z - 1) * -1 * SGN(sz)
114. LOOP UNTIL felt1 AND maze(nex + sx, ney + sy, nez + sz) = 4
115. maze(sx, sy, sz) = 4
116. exit_x = sx
117. exit_y = sy
118. exit_z = sz
119.  
120. 'calculation real points coordinates ,points array index2
121.  
122. points = (maze_x + 1) * (maze_y + 1) * (maze_z + 1)
123. DIM SHARED points(points - 1, 9)
124. FOR tx = 0 TO maze_x
125.     FOR ty = 0 TO maze_y
126.         FOR tz = 0 TO maze_z
127.             points(sp, 1) = tx
128.             points(sp, 2) = ty
129.             points(sp, 3) = tz
130.             sp = sp + 1
131. NEXT tz, ty, tx
132.  
133.  
134. 'creating triangles (triangles array index2
135. 'ena/disa,point1,point2,point3)
136. DIM c(2) AS _UNSIGNED _BYTE
137. DIM SHARED serial
138. DIM SHARED textures(maze_x * maze_y * maze_z - 1)
139. FOR tx = 0 TO maze_x - 1
140.     FOR ty = 0 TO maze_y - 1
141.         FOR tz = 0 TO maze_z - 1
142.             cube_sum = cube_sum + ABS(maze(tx, ty, tz) <> 4)
143. NEXT tz, ty, tx
144. DIM SHARED triangles(cube_sum * 12 - 1, 10), triangles
145. FOR tx = 0 TO maze_x - 1
146.     FOR ty = 0 TO maze_y - 1
147.         FOR tz = 0 TO maze_z - 1
148.             IF maze(tx, ty, tz) = 4 THEN _CONTINUE
149.             'creating texture
150.             temp = _NEWIMAGE(texture_size, texture_size, 32)
151.             _DEST temp
152.             c(0) = INT(256 * RND(1))
153.             FOR t2 = 1 TO 2
154.                 c(t2) = c(0) + (256 / 100 * texture_grey * RND(1)) * ((t2 - 1) * 2 - 1)
155.                 IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
156.             NEXT t2
157.             FOR t2 = 0 TO 9
158.                 SWAP c(INT(3 * RND(1))), c(INT(3 * RND(1)))
159.             NEXT t2
160.             CLS '_RGB32(255, 255, 255), _RGB32(0, 0, 0)
161.             LINE (texture_margin, texture_margin)-(texture_size - texture_margin - 1, texture_size - texture_margin - 1), _RGB32(c(0), c(1), c(2)), BF
162.             FOR t2 = 0 TO 2
163.                 c(t2) = INT(c(t2) * texture_c1 / 100)
164.                 IF c(t2) < 0 THEN c(t2) = 0 ELSE IF c(t2) > 255 THEN c(t2) = 255
165.             NEXT t2
166.             CIRCLE (texture_size / 2, texture_size / 2), texture_size * texture_c2 / 100 / 2, _RGB32(c(0), c(1), c(2))
167.             PAINT (texture_size / 2, texture_size / 2), _RGB32(c(0), c(1), c(2)), _RGB32(c(0), c(1), c(2))
168.             IF texture_n THEN num$ = LTRIM$(STR$(serial))
169.             LOCATE texture_size / 32 + 1, ((texture_size / 8) - LEN(num$)) / 2 + 1
170.             PRINT num$;
171.             textures(serial) = _COPYIMAGE(temp, 33)
172.             _FREEIMAGE temp
173.             'creating cube
174.             sq0 = sq(tx, ty, tz)
175.             sq1 = sq(tx + 1, ty, tz)
176.             sq2 = sq(tx, ty + 1, tz)
177.             sq3 = sq(tx + 1, ty + 1, tz)
178.             sq4 = sq(tx, ty, tz + 1)
179.             sq5 = sq(tx + 1, ty, tz + 1)
180.             sq6 = sq(tx, ty + 1, tz + 1)
181.             sq7 = sq(tx + 1, ty + 1, tz + 1)
182.             sq_add sq1, sq0, sq3, sq2, 1
183.             sq_add sq4, sq5, sq6, sq7, 1
184.             sq_add sq2, sq0, sq6, sq4, 1
185.             sq_add sq1, sq3, sq5, sq7, 1
186.             sq_add sq0, sq1, sq4, sq5, 1
187.             sq_add sq3, sq2, sq7, sq6, 1
188.  
189.             serial = serial + 1
190. NEXT tz, ty, tx
191.  
192. IF LEN(file_obj$) THEN 'write to .OBJ
193.     OPEN "d:\x.obj" FOR OUTPUT AS 1
194.     FOR t = 0 TO points - 1
195.         PRINT #1, "v "; points(t, 1); " "; points(t, 2); " "; points(t, 3); " "
196.     NEXT t
197.     FOR t = 0 TO triangles - 1
198.         IF triangles(t, 0) THEN PRINT #1, "f "; triangles(t, 1) + 1; " "; triangles(t, 2) + 1; " "; triangles(t, 3) + 1; " "
199.     NEXT t
200.     CLOSE 1
201. END IF
202.  
203. 'find the farthest place in the maze from the exit
204. REDIM me(19)
205. maxdis = -9999999
206. FOR tx = 0 TO maze_x - 1
207.     FOR ty = 0 TO maze_y - 1
208.         FOR tz = 0 TO maze_z - 1
209.             IF maze(tx, ty, tz) <> 4 THEN _CONTINUE
210.             dis = (exit_x - tx) ^ 2 + (exit_y - ty) ^ 2 + (exit_z - tz) ^ 2
211.             IF dis > maxdis THEN maxdis = dis: start_x = tx: start_y = ty: start_z = tz
212. NEXT tz, ty, tx
213. me(0) = start_x + .5
214. me(1) = start_y + .5
215. me(2) = start_z + .5
216.  
217.  
218. '---------------- other tasks to be performed
219. CONST pip180 = 3.141592 / 180
220. REDIM cam(19)
221. IF mon_rat THEN mony = INT(monx / 4 * 3) ELSE mony = INT(monx / 16 * 9)
222. mon = _NEWIMAGE(monx, mony, 32)
223. _DEST mon
224. SCREEN mon
225. _FULLSCREEN _SQUAREPIXELS , _SMOOTH
226. _MOUSEHIDE
227.  
228. DO
229.     _LIMIT boss_limit ' ------------ BOSS CYCLE
230.     'control
231.     kw = _KEYDOWN(119) OR _MOUSEBUTTON(1)
232.     ks = _KEYDOWN(115) OR _MOUSEBUTTON(2)
233.     ka = _KEYDOWN(97)
234.     et_ir = ABS(ka OR kd OR kw) OR -ABS(ks)
235.     kd = _KEYDOWN(100)
236.     FOR elt1 = 0 TO max_couch STEP 2
237.         FOR elt2 = 0 TO 360 STEP 12
238.             elt_xy = SIN(elt2 * pip180) * elt1
239.             elt_z = COS(elt2 * pip180) * elt1
240.             szog_xy_elt = -90 * ABS(ka) + 90 * ABS(kd)
241.             szog_xy = me(10) + (szog_xy_elt + elt_xy) * pip180
242.             szog_z = me(11) + pip180 * (90 + elt_z)
243.             irx = -SIN(szog_xy) * COS(szog_z)
244.             iry = -COS(szog_xy) * COS(szog_z)
245.             irz = SIN(szog_z)
246.             ir = et_ir
247.             multi = stepping * ir * pre_calc * 2
248.             FOR elt_x = 0 TO 1
249.                 FOR elt_y = 0 TO 1
250.                     FOR elt_z = 0 TO 1
251.                         ana_x = INT(me(0) + irx * multi + (elt_x * 2 - 1) * me_dim / 2)
252.                         ana_y = INT(me(1) + iry * multi + (elt_y * 2 - 1) * me_dim / 2)
253.                         ana_z = INT(me(2) + irz * multi + (elt_z * 2 - 1) * me_dim / 2)
254.                         kivul = ana_x < 0 OR ana_x > maze_x - 1 OR ana_y < 0 OR ana_y > maze_y - 1 OR ana_z < 0 OR ana_z > maze_z - 1
255.                         IF NOT kivul THEN ir = ir * ABS(maze(ana_x, ana_y, ana_z) = 4)
256.             NEXT elt_z, elt_y, elt_x
257.             multi = stepping * ir / max_couch * (max_couch - elt1)
258.             me(0) = me(0) + irx * multi
259.             me(1) = me(1) + iry * multi
260.             me(2) = me(2) + irz * multi
261.             IF ir THEN GOTO move_ready
262.     NEXT elt2, elt1
263.     move_ready:
264.  
265.  
266.     lookzmax = (mouse_z_rot / 2 - 90) * pip180
267.     lookzmin = (-mouse_z_rot / 2 - 90) * pip180
268.     mousex = 0
269.     mousey = 0
270.     WHILE _MOUSEINPUT
271.         mousex = mousex + mouseMovementX
272.         mousey = mousey + mouseMovementy
273.     WEND
274.     me(11) = me(11) + mousey / 7 * msenz
275.     me(11) = me(11) - 2 * _PI * ABS(me(11) > 2 * _PI)
276.     me(11) = me(11) + 2 * _PI * ABS(me(11) < 0)
277.     inv_me10 = 1
278.     IF me(11) < _PI THEN inv_me10 = -1
279.     me(10) = me(10) + mousex / 5 * msenx * inv_me10
280.  
281.     'calculating points
282.     cam(0) = me(0) - SIN(me(10) - 180 * pip180) * me(3) / 2
283.     cam(1) = me(1) - COS(me(10) - 180 * pip180) * me(3) / 2
284.     cam(2) = me(2) + me(5) / 4
285.     cam(3) = me(10)
286.     cam(4) = me(11)
287.     cosrotz = COS(cam(3))
288.     sinrotz = SIN(cam(3))
289.     cosrotx = COS(cam(4))
290.     sinrotx = SIN(cam(4))
291.     FOR actual_point = 0 TO points - 1
292.         IF points(actual_point, 0) THEN
293.             px = points(actual_point, 1) - cam(0)
294.             py = points(actual_point, 2) - cam(1)
295.             pz2 = points(actual_point, 3) - cam(2)
296.             px3 = px * cosrotz - py * sinrotz
297.             py2 = px * sinrotz + py * cosrotz
298.             py3 = py2 * cosrotx - pz2 * sinrotx
299.             pz3 = py2 * sinrotx + pz2 * cosrotx
300.             points(actual_point, 4) = -px3 * zoom_xy
301.             points(actual_point, 5) = -py3 * zoom_xy
302.             points(actual_point, 6) = -pz3 * zoom_distance
303.         END IF
304.     NEXT actual_point
305.  
306.     'drawing triangles
307.     FOR actual_triangle = 0 TO triangles - 1
308.         IF triangles(actual_triangle, 0) THEN
309.             wx1 = points(triangles(actual_triangle, 1), 4)
310.             wy1 = points(triangles(actual_triangle, 1), 5)
311.             wz1 = points(triangles(actual_triangle, 1), 6)
312.             wx2 = points(triangles(actual_triangle, 2), 4)
313.             wy2 = points(triangles(actual_triangle, 2), 5)
314.             wz2 = points(triangles(actual_triangle, 2), 6)
315.             wx3 = points(triangles(actual_triangle, 3), 4)
316.             wy3 = points(triangles(actual_triangle, 3), 5)
317.             wz3 = points(triangles(actual_triangle, 3), 6)
318.             sx1 = triangles(actual_triangle, 4)
319.             sy1 = triangles(actual_triangle, 5)
320.             sx2 = triangles(actual_triangle, 6)
321.             sy2 = triangles(actual_triangle, 7)
322.             sx3 = triangles(actual_triangle, 8)
323.             sy3 = triangles(actual_triangle, 9)
324.             _MAPTRIANGLE (sx1, sy1)-(sx2, sy2)-(sx3, sy3), textures(triangles(actual_triangle, 10)) TO(wx1, wy1, wz1)-(wx2, wy2, wz2)-(wx3, wy3, wz3), , _SMOOTH
325.         END IF
326.     NEXT actual_triangle
327.     _DISPLAY
328.     CLS
329.     FOR t = 1 TO _WIDTH(monx) / 8 * _HEIGHT(mony) / 16 / LEN(cong$)
330.         PRINT cong$;
331.     NEXT t
332. LOOP
333.  
334. FUNCTION sq (ax, ay, az)
335.     sq = ax * (maze_y + 1) * (maze_z + 1) + ay * (maze_z + 1) + az
336. END FUNCTION 'which point ?
337. SUB sq_add (p0, p1, p2, p3, sk)
338.     triangles(triangles, 0) = sk
339.     triangles(triangles + 1, 0) = sk
340.     triangles(triangles, 1) = p0
341.     triangles(triangles, 2) = p1
342.     triangles(triangles, 3) = p2
343.     triangles(triangles + 1, 1) = p3
344.     triangles(triangles + 1, 2) = p1
345.     triangles(triangles + 1, 3) = p2
346.     points(p0, 0) = 1
347.     points(p1, 0) = 1
348.     points(p2, 0) = 1
349.     points(p3, 0) = 1
350.     triangles(triangles, 10) = serial
351.     triangles(triangles + 1, 10) = serial
352.     triangles(triangles, 6) = _WIDTH(textures(serial)) - 1
353.     triangles(triangles, 9) = _HEIGHT(textures(serial)) - 1
354.     triangles(triangles + 1, 6) = _WIDTH(textures(serial)) - 1
355.     triangles(triangles + 1, 9) = _HEIGHT(textures(serial)) - 1
356.     triangles(triangles + 1, 4) = _WIDTH(textures(serial)) - 1
357.     triangles(triangles + 1, 5) = _HEIGHT(textures(serial)) - 1
358.     triangles = triangles + 2
359. END SUB
360.  
361. FUNCTION mouseMovementX
362.     STATIC lastX
363.     mouseMovementX = _MOUSEX - lastX
364.     lastX = _MOUSEX
365. END FUNCTION
366.  
367. FUNCTION mouseMovementy
368.     STATIC lastY
369.     mouseMovementy = _MOUSEY - lastY
370.     lastY = _MOUSEY
371. END FUNCTION
372.  

[MasterGy]

Thank you very much !! I'll put this away! From now on, I will incorporate this.

[MasterGy]

now I understand ... I did this _MOUSEX-oldmousex thing. The trouble with this is that if the mouse goes off the screen, it will not move.

[FellippeHeitor]

Ah, true. On macOS the mouse keeps registering movement even outside the window's borders.