Terror in the hypermaze

[MasterGy]

Hi ! I'm building a game for the 4d maze. The main elements are there, it can only be expanded according to the scheme. It will include strategy, action, lots of enemies, lots of unique movement enemies, and more.
That's all for now. Everything still has 4 coordinate points. To objects, to enemies, to me. Since it is scientifically interesting to change the projection, I left the space button in it to change perspective, although the same maze remains. The enemies and I can come and go in the hyperspace corridor.

If you just want a simple 3D maze, write so that one of the planes is 0 at the beginning of the program, for example:

street_x = 3 'street in plan X
street_y = 3 'street in plan Y
street_z = 3 'street in plan Z
street_a = 0 'street in plan A

If you want a 2D maze, let 2 planes be 0, e.g.

street_x = 3 'street in plan X
street_y = 3 'street in plan Y
street_z = 0 'street in plan Z
street_a = 0 'street in plan A

Have fun !

download:
https://drive.google.com/file/d/1uPjm2AkZTN1yf3IgcO3SWEmXajIrYV4m/view?usp=sharing

[MasterGy]

just a piece of advice: if you are averse to your situation being opaque in 4d or 3d, write:

street_x = 9 'street in plan X
street_y = 9 'street in plan Y
street_z = 0 'street in plan Z
street_a = 0 'street in plan A

If program write "In this perspective, the exit leads through a hyper corridor", press space! So simple and enjoyable and playful, easy to get out in 2d.
or press space until you see a maze in 2d projection

funny..my :) set to 2d, give her or 600 enemies and find the exit

[bplus]

Man I can barely handle 2D, nice work!

And this is extremely interesting image (I cut and rotated):
  [ You are not allowed to view this attachment ]  

[MasterGy]

355 / 5000
Fordítási találatok
The thing is built. I can’t jump on a modern high-quality display with maptriangle, but I try to balance it with mood, spin, physics. I am completely addicted to development. I’m experiencing a lot of things that must have been experienced by many in the ’90s. I will include its usability and a few more ideas, but I will show you until then.

[MasterGy]

Fordítási találatok
Bplus, thank you! There are so many discoveries! Math is the most beautiful thing in the world for me! I'm not clever, I just have a lot of time! Sometimes 2 things are not understood and then the two things meet at the same time and everything becomes clear :) 1 good wine and everything becomes clear! :) If I didn’t bring myself to the level, I couldn’t solve a few things!

[Raven_Singularity]

This is pretty crazy looking.  I have no idea what's going on.  Why are hoards of emoticons attacking you?

[MasterGy]

I've only been dealing with this for days.
There were a lot of things that could go unnoticed.
-from the start surface you can set what kind of maze we want (2d / 3d), how many enemies.
-physics: bullets bounce off the wall and zigzag for a while, if we shoot a big fireball, it throws back
-Moving enemies is also somewhat strategic
- If you are aiming from one direction and attacking, you will hear a sound
I want even smarter enemies, more varieties. So far, I've got it.
I want you to give it a try and write about it, maybe if you notice a mistake.

download
https://drive.google.com/file/d/1LzGKvr5KhcELjNv1Jie_njQR4cTcK3wC/view?usp=sharing

[MasterGy]

I fixed the "emenies" slider because it was out of proportion to the difficulty. It was unfortunate that they attacked strongly even on a small level. It can now be adjusted as required.

https://drive.google.com/file/d/1RtL2xE3wW-063YyTZXQPibD7_CwJeJiY/view?usp=sharing

[MasterGy]

He won't let you rest!
With the appearance of a modern game, I can’t compete, but this _maptriangle is a miracle in qb64. I try to give as much to ergonomics, manageability and physics as possible.
-If the enemy comes close, I'll move away
-if you bite into it, you will have your eyesight for a moment (fisheye)
-what you shoot a bullet and bounce back will hurt you too
-if many people hurt at the same time, you have a harder time moving at first, you feel the pain

[MasterGy]

there will also be tasks in the game, for this it is good to have a compass. I'm having trouble with that. i can't put a nice texture with maptriangle3d on the screen because depending on where i put it, it shows it in perspective as well. An older problem is that I can't clip a hardware image and then delete it with _freeimage because memory is overflowing. Therefore, I am forced to draw the 3d compass in a simpler way. I'll expose you if it's interesting.

Code: QB64: [Select]

1. monx = 600: mony = 600: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon
2.  
3.  
4. cp(0) = 1 'arrow height
5. cp(1) = .5 'arrow width
6. cp(2) = .5 'arrowhead height
7. cp(3) = cp(1) * .3 'bottom width
8. cp(4) = .2 'Z-size
9.  
10.  
11. '-------------------------------------------------------------------
12. cpp(0, 0) = cp(1) / 2: cpp(0, 1) = 0: cpp(1, 0) = 0: cpp(1, 1) = cp(2): cpp(2, 0) = (cp(1) - cp(3)) / 2: cpp(2, 1) = cp(2)
13. cpp(3, 0) = cp(1) - cpp(2, 0): cpp(3, 1) = cp(2): cpp(4, 0) = cp(1): cpp(4, 1) = cp(2): cpp(5, 0) = cpp(2, 0): cpp(5, 1) = cp(0)
14. cpp(6, 0) = cpp(3, 0): cpp(6, 1) = cp(0)
15.  
16.  
17. DIM dp(13, 5), textq(13, 1)
18. FOR ap = 0 TO 6: FOR ap2 = 0 TO 1
19.         dp(ap2 * 7 + ap, 0) = cpp(ap, 0) - cp(1) / 2
20.         dp(ap2 * 7 + ap, 1) = cpp(ap, 1) - cp(0) / 2
21.         dp(ap2 * 7 + ap, 2) = (ap2 * 2 - 1) * cp(4) / 2
22. NEXT ap2, ap
23.  
24.  
25.  
26. mc$ = "a0a1 a1a2 a2a5 a5a6 a6a3 a3a4 a4a0 b0b1 b1b2 b2b5 b5b6 b6b3 b3b4 b4b0 a0b0 a1b1 a2b2 a3b3 a4b4 a5b5 a6b6 " 'lines
27.  
28. zoom_x = 4800
29. zoom_z = 10
30.  
31.  
32.  
33. DO: _LIMIT 30
34.     DO: LOOP WHILE _MOUSEINPUT
35.     angle1 = _WIDTH(mon) / 2 - _MOUSEX / 50
36.     angle3 = _HEIGHT(mon) / 2 - _MOUSEY / 50
37.  
38.     'rotating
39.     FOR ap = 0 TO 13
40.         px0 = dp(ap, 0): py0 = dp(ap, 1): pz0 = dp(ap, 2)
41.         px1 = px0 * COS(angle1) - py0 * SIN(angle1)
42.         py1 = py0 * COS(angle1) + px0 * SIN(angle1)
43.         px2 = px1 * COS(angle2) - pz0 * SIN(angle2)
44.         pz1 = pz0 * COS(angle2) + px1 * SIN(angle2)
45.         py2 = py1 * COS(angle3) - pz1 * SIN(angle3)
46.         pz2 = pz1 * COS(angle3) + py1 * SIN(angle3)
47.         dp(ap, 3) = px2: dp(ap, 4) = py2: dp(ap, 5) = pz2
48.     NEXT ap
49.  
50.     FOR amc = 0 TO LEN(mc$) / 5 - 1
51.         FOR ap = 0 TO 1
52.             apx = VAL(MID$(mc$, 2 + ap * 2 + amc * 5, 1)) + ((ASC(MID$(mc$, 1 + ap * 2 + amc * 5, 1))) - 97) * 7
53.             zc = (dp(apx, 5) + 2) * zoom_z
54.             p(ap, 0) = dp(apx, 3) * zoom_x / zc + monx / 2
55.             p(ap, 1) = dp(apx, 4) * zoom_x / zc + mony / 2
56.         NEXT ap
57.         LINE (p(0, 0), p(0, 1))-(p(1, 0), p(1, 1))
58.     NEXT amc
59.     _DISPLAY: CLS
60.  
61.  
62. LOOP
63.  
64.  
65.  
66.  

[MasterGy]

Hello !
Unfortunately, there has been no work since Easter, so I had a lot of time to play. Now comes a lot of ideas, inspiration (you know, when you buy a cigarette in the store and have to talk to someone and get annoyed and look at something like a UFO, and while he’s talking about his life, you can’t wait to code the idea). Unfortunately work from tomorrow, construction, 400km a day, and I’m the driver, so it would be nice not to be up until morning. And there are a lot of ideas and floods of ideas. I’m exposing what’s going on now because I don’t know when I can continue. (I come home at the end of the day, happy to live and get up in the morning). COMPASS! (I finally managed not with LINE, but with MAPTRIANGLE, I suffered for 3 days to point in the right direction. I had to do what I did recently, for example, Earth revolves around the maze and the compass position ultimately comes from Bplus’s game, so that if you suddenly turn back, the compass should not “suddenly,” slowly, “get in the right position.” Because I don’t know when I can continue, I will unload, although there will be key gates, enemies, fire-throwing enemies, etc. saj but unfortunately I will mix concrete from tomorrow and so on. path-cube without losing the role of the maze, thus larger spaces), physics.

sorry, I did not turn back the adjustability of the enemies. here's the good demo

https://drive.google.com/file/d/1pUpsK_mwQY_FVknwB6Egh6XE1YSvfI_F/view?usp=sharing

[MasterGy]

I just show it interestingly. in order to build a key-gate system into the maze, I need to know the path of passage because of the arrangement of the gates. I experimented in 2d to understand and see.

Code: QB64: [Select]

1. RANDOMIZE TIMER
2.  
3. maze_x = 140 'maze size X
4. maze_y = 40 'maze size Y
5.  
6. 'preparation -------------------------------------------------------------------------------------------------------------------------------------------
7. IF maze_x / 2 = INT(maze_x / 2) THEN maze_x = maze_x + 1
8. IF maze_y / 2 = INT(maze_y / 2) THEN maze_y = maze_y + 1
9. monx = (maze_x + 10) * 8: mony = (maze_y + 5) * 16: kep = _NEWIMAGE(monx, mony, 32): SCREEN kep: _SCREENMOVE 0, 0
10. d(0, 0) = 0: d(0, 1) = -1: d(1, 0) = 0: d(1, 1) = 1: d(2, 0) = -1: d(2, 1) = 0: d(3, 0) = 1: d(3, 1) = 0
11. k$(0) = "±" 'fal / adjustable wall
12. k$(1) = " " 'nem bejart ureg / non walked road
13. k$(2) = "W" 'lehetoseg / possible way
14. k$(3) = "Ű" 'szilard fal / standard wall
15. k$(4) = "." 'bejart ureg  / walked road
16. k$(5) = "." 'belepesi pont  / entry point
17. DIM maze(maze_x - 1, maze_y - 1) AS _BYTE '0-fal 1-ureg 2-lehetoseg
18.  
19.  
20. 'create empty maze --------------------------------------------------------------------------------------------------------------------------------------
21. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: k = 0
22.         IF tx = 0 OR ty = 0 OR tx = maze_x - 1 OR ty = maze_y - 1 THEN k = 3
23.         IF tx AND 1 AND ty AND 1 THEN k = 1
24. maze(tx, ty) = k: NEXT ty, tx
25.  
26. 'start position -----------------------------------------------------------------------------------------------------------------------------------------
27. DO: sx = INT(maze_x * RND(1)): sy = INT(maze_y * RND(1)): LOOP WHILE maze(sx, sy) <> 1: maze(sx, sy) = 4
28.  
29.  
30. 'way searching ------------------------------------------------------------------------------------------------------------------------------------------
31. DO: REDIM way(9999, 2): wdb = 0
32.     FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1
33.             IF maze(tx, ty) = 4 THEN
34.                 van = 0
35.                 FOR t = 0 TO 3
36.                     vpx1 = tx + d(t, 0): vpy1 = ty + d(t, 1): vpx2 = tx + d(t, 0) * 2: vpy2 = ty + d(t, 1) * 2
37.                     f = (vpx2 > maze_x - 1 OR vpx2 < 0) OR (vpy2 > maze_y - 1 OR vpy2 < 0)
38.                     IF NOT f THEN
39.                         IF maze(vpx1, vpy1) = 0 AND maze(vpx2, vpy2) = 1 THEN
40.                             FOR t2 = 0 TO 3: vpx3 = vpx2 + d(t2, 0): vpy3 = vpy2 + d(t2, 1): IF maze(vpx3, vpy3) = 4 THEN GOTO kovi
41.                             NEXT t2
42.                             maze(vpx1, vpy1) = 2: way(wdb, 0) = tx: way(wdb, 1) = ty: way(wdb, 2) = t: wdb = wdb + 1
43.                             kovi:
44.                         END IF
45.                     END IF
46.                 NEXT t
47.             END IF
48.     NEXT ty, tx
49.  
50.     IF wdb THEN
51.         aw = INT(wdb * RND(1))
52.         FOR t = 0 TO 2
53.             hovax = way(aw, 0) + d(way(aw, 2), 0) * t: hovay = way(aw, 1) + d(way(aw, 2), 1) * t
54.             IF (maze(hovax, hovay) = 2) OR (maze(hovax, hovay) = 1) THEN maze(hovax, hovay) = 4
55.         NEXT t
56.  
57.         FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: IF maze(tx, ty) = 2 THEN maze(tx, ty) = 0
58.         NEXT ty, tx
59.     END IF
60.  
61. LOOP WHILE wdb
62.  
63. 'entry point 1
64. sx = 0: sy = 3: IF maze(sx + 1, sy) <> 4 THEN sy = sy + 1
65. maze(sx, sy) = 4: start_x = sx: start_y = sy
66.  
67.  
68.  
69. 'entry point 2
70. sx = maze_x - 1: sy = maze_y - 3: IF maze(sx - 1, sy) <> 4 THEN sy = sy - 1
71. maze(sx, sy) = 4
72. exit_x = sx: exit_y = sy
73.  
74. ' it has taken so far to build the maze. contained in the maze array ------------------------------------------------------------------------------------------------
75. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1
76.         IF maze(tx, ty) <> 4 THEN maze(tx, ty) = 0
77. NEXT ty, tx
78. 'drawing
79. sy = INT((mony / 16 - maze_y) / 2) + 1: sx = INT((monx / 8 - maze_x) / 2) + 1
80. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: LOCATE sy + ty, sx + tx: PRINT k$(maze(tx, ty)): NEXT ty, tx
81.  
82.  
83.  
84.  
85. DIM dj1(tx - 1, ty - 1), dj2(tx - 1, ty - 1): dj1(start_x, start_y) = 1
86. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: sum_way = sum_way + ABS(maze(tx, ty) = 4): NEXT ty, tx
87.  
88.  
89. actual = 1
90. DO:
91.  
92.     FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1
93.             IF maze(tx, ty) = 4 AND dj1(tx, ty) = 0 THEN
94.                 FOR t = 0 TO 3
95.                     noway = 0
96.                     IF tx + d(t, 0) < 0 OR tx + d(t, 0) > maze_x - 1 THEN noway = 1
97.                     IF ty + d(t, 1) < 0 OR ty + d(t, 1) > maze_y - 1 THEN noway = 1
98.                     IF noway = 0 THEN
99.                         nei = dj1(tx + d(t, 0), ty + d(t, 1))
100.                         hel = maze(tx + d(t, 0), ty + d(t, 1))
101.                         IF nei = actual AND hel = 4 THEN dj1(tx, ty) = actual + 1: find_way = find_way + 1
102.  
103.                     END IF
104.  
105.                 NEXT t
106.             END IF
107.     NEXT ty, tx
108.  
109.     actual = actual + 1
110.     sy = INT((mony / 16 - maze_y) / 2) + 1: sx = INT((monx / 8 - maze_x) / 2) + 1
111.     FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: LOCATE sy + ty, sx + tx: PRINT k$(maze(tx, ty)): NEXT ty, tx
112.  
113.     sy = INT((mony / 16 - maze_y) / 2) + 1: sx = INT((monx / 8 - maze_x) / 2) + 1
114.     FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: LOCATE sy + ty, sx + tx
115.             ert = dj1(tx, ty)
116.  
117.             '            IF ert > 0 THEN PRINT CHR$(97 + ert)
118.     NEXT ty, tx
119.  
120.     LOCATE 1, 1: PRINT find_way, sum_way
121. LOOP UNTIL find_way = sum_way - 1
122.  
123.  
124. 'atlagolas
125. ave = 1
126. FOR tx = 0 TO maze_x - 1: FOR ty = 0 TO maze_y - 1: sum = 0: c = 0
127.         FOR q0 = -ave TO ave: FOR q1 = -ave TO ave
128.                 IF tx + q0 < 0 OR tx + q0 > maze_x - 1 OR ty + q1 < 0 OR ty + q1 > maze_y - 1 THEN _CONTINUE
129.                 IF maze(tx + q0, ty + q1) = 4 THEN c = c + 1: sum = sum + dj1(tx + q0, ty + q1)
130.         NEXT q1, q0
131.         dj2(tx, ty) = sum / c
132. NEXT ty, tx
133.  
134. 'celrajz
135. actx = exit_x: acty = exit_y
136.  
137. DO
138.     LOCATE sy + acty, sx + actx: PRINT "Ű"
139.  
140.     max = 999999
141.     FOR t = 0 TO 3
142.         IF actx + d(t, 0) < 0 OR actx + d(t, 0) > maze_x - 1 OR acty + d(t, 1) < 0 OR acty + d(t, 1) > maze_y - 1 THEN _CONTINUE
143.         IF dj2(actx + d(t, 0), acty + d(t, 1)) < max AND maze(actx + d(t, 0), acty + d(t, 1)) = 4 THEN max = dj2(actx + d(t, 0), acty + d(t, 1)): need = t
144.     NEXT t
145.  
146.     actx = actx + d(need, 0): acty = acty + d(need, 1)
147.  
148. LOOP UNTIL start_x = actx AND start_y = acty
149.  
150.  
151.  
152.  
153.  

[OldMoses]

Amazing stuff. Devilishly hard to orient yourself and stay that way. Does it have an off switch?

[MasterGy]

what do you mean, switch off?

[bplus]

He means an escape key.

If all else fails there is Alt+F4.