3d fps game (Fulopke es az ellenallok)_MAPTRIANGLE3D

[MasterGy]

Hi !

Sorry to open a new topic. I opened a new topic because I want to put it here if there is an update to the game.
I changed the game to MAPTRINGLE3D. Much better! The CPU is barely working, other tasks take more time. The rendering is beautiful, the text is the highest.

In maptriangle2d, I had to sort the tiles in order. That's a lot of time. You don't need maptriangle3d. Just "print" the 3d data and then the wonderful

_DISPLAY command displays. In addition, he hardly works in cpu.

I improved the game, added a little bit, has a finish, tried to enhance the game experience.

Thanks to those who are developing qb64, there are tremendous graphical opportunities.

https://www.youtube.com/watch?v=TFSOcD6jUbA

download (with source code)

https://drive.google.com/open?id=13TMm1HYUu0RIbToY4NF49qwReS5mNCxO

[Petr]

Hi.
It really looks great. The flickering of textures from the previous version is completely removed, it's very nice.
My version 3D crawling with MAPTRIANGLE3D i been doing here https://www.qb64.org/forum/index.php?topic=300.msg109293#msg109293 even though it's still not full finished.

Great job, MasterGy.

[MasterGy]

thank you Petr !

[MasterGy]

I was really surprised by the maptriangle3d speed and I got a lot of ideas, but I'm just experimenting. if anyone can get out of it, use it. I was thinking of flying game, but I don't have time. but as a basis for someone to be good.

use W,S, and mouse !

Code: QB64: [Select]

1. DIM terep(39999, 49), pont(39999, 49), kellkocka(99, 99, 99)
2. CONST pip180 = 3.1415 / 180
3.  
4.  
5. res3dx = 1024
6. res3dy = 768
7. ivx = 200 'X-dimension size
8. ivy = 200 'Y-dimension size
9. ivz = 200 'Z-dimension size
10. ks = .1 '1 box size
11. kockadb = 1600 'piece of cubes
12. msens = .3 'mouse sensitive
13.  
14.  
15.  
16.  
17. _MOUSEHIDE
18. mon = _NEWIMAGE(res3dx, res3dy, 32)
19.  
20.  
21. 'create box texture
22. kep0 = _NEWIMAGE(200, 200, 32): _DEST kep0: CIRCLE (100, 100), 60, _RGB32(255, 255, 255)
23. LINE (0, 0)-(199, 199), , B , _RGB32(255, 255, 255)
24. PAINT (100, 100), _RGB32(122, 139, 200), _RGB32(255, 255, 255)
25. PAINT (2, 2), _RGB32(55, 0, 0), _RGB32(255, 255, 255)
26. kep(0) = _COPYIMAGE(kep0, 33)
27. _FREEIMAGE kep0
28.  
29.  
30.  
31. 'if you have a picture, use this
32. 'kep(0) = _LOADIMAGE("d:\3dtext.bmp", 33)
33.  
34.  
35.  
36.  
37.  
38.  
39. kezdpontkocka = pontdb: pontdb = pontdb + kockadb * 8
40. kezdterepkocka = terepdb: terepdb = terepdb + kockadb * 6
41.  
42. GOSUB objadd '3d data to array for boxes
43.  
44. SCREEN mon: _FULLSCREEN , _SMOOTH: _DEST mon
45.  
46. DO: _LIMIT 30
47.     lepes = 2: 'speed me
48.     px = 0: py = 0: pz = 0: GOSUB enlepes
49.     IF _KEYDOWN(119) THEN px = en(5): py = en(6): pz = en(7)
50.     IF _KEYDOWN(115) THEN px = -en(5): py = -en(6): pz = -en(7)
51.     GOSUB egerkezelo: en(0) = en(0) + px * lepes: en(1) = en(1) + py * lepes: en(2) = en(2) + pz * lepes
52.  
53.     GOSUB pontcalc
54.  
55.     FOR t = 0 TO terepdb - 1
56.         IF terep(t, 14) THEN
57.             szorzo = 10
58.  
59.             x0 = pont(terep(t, 0), 20) * szorzo
60.             y0 = pont(terep(t, 0), 21) * szorzo
61.             z0 = -pont(terep(t, 0), 22) * szorzo + addz
62.             x1 = pont(terep(t, 1), 20) * szorzo
63.             y1 = pont(terep(t, 1), 21) * szorzo
64.             z1 = -pont(terep(t, 1), 22) * szorzo + addz
65.             x2 = pont(terep(t, 2), 20) * szorzo
66.             y2 = pont(terep(t, 2), 21) * szorzo
67.             z2 = -pont(terep(t, 2), 22) * szorzo + addz
68.             x3 = pont(terep(t, 3), 20) * szorzo
69.             y3 = pont(terep(t, 3), 21) * szorzo
70.             z3 = -pont(terep(t, 3), 22) * szorzo + addz
71.  
72.             akep = terep(t, 4)
73.             sx0 = terep(t, 5)
74.             sy0 = terep(t, 6)
75.             sx1 = terep(t, 7)
76.             sy1 = terep(t, 8)
77.             sx2 = terep(t, 9)
78.             sy2 = terep(t, 10)
79.             sx3 = terep(t, 11)
80.             sy3 = terep(t, 12)
81.  
82.             limit = 12000
83.             felt1 = x1 > -limit AND x1 < limit: felt2 = x2 > -limit AND x2 < limit
84.             felt3 = x3 > -limit AND x3 < limit: felt4 = x4 > -limit AND x4 < limit
85.             felt5 = y1 > -limit AND y1 < limit: felt6 = y2 > -limit AND y2 < limit
86.             felt7 = y3 > -limit AND y3 < limit: felt8 = y4 > -limit AND y4 < limit
87.             felt9 = z1 < 1 AND z1 > -10000: felt10 = z2 < 1 AND z2 > -10000
88.             felt11 = z3 < 1 AND z3 > -10000: felt12 = z4 < 1 AND z4 > -10000
89.             felta = ((felt1 AND felt2) AND (felt3 AND felt4)) AND ((felt5 AND felt6) AND (felt7 AND felt8))
90.             feltb = (felt9 AND felt10) AND (felt11 AND felt12)
91.  
92.  
93.             IF felta AND feltb THEN
94.  
95.                 _MAPTRIANGLE (sx0, sy0)-(sx1, sy1)-(sx2, sy2), kep(akep) TO(x0, y0, z0)-(x1, y1, z1)-(x2, y2, z2), , _SMOOTH
96.                 _MAPTRIANGLE (sx3, sy3)-(sx1, sy1)-(sx2, sy2), kep(akep) TO(x3, y3, z3)-(x1, y1, z1)-(x2, y2, z2), , _SMOOTH
97.  
98.             END IF
99.         END IF
100.     NEXT t
101.     LOCATE 1, 1: PRINT "en3"; en(3); "en4"; en(4)
102.     LOCATE 2, 1: PRINT "en5"; en(5); "en6"; en(6); "en7"; en(7)
103.     _DISPLAY: CLS
104. LOOP
105. END
106.  
107.  
108.  
109. egerkezelo:
110.  
111.  
112.  
113. makt = 0: mousex = 0: mousey = 0
114. FOR t = 0 TO 100: makt = _MOUSEINPUT
115.     IF makt THEN
116.         mousex = _MOUSEMOVEMENTX + mousex
117.         mousey = _MOUSEMOVEMENTY + mousey
118.  
119.     END IF
120. NEXT t
121.  
122.  
123.  
124. en(3) = en(3) - mousey * msens
125. en(4) = en(4) + (mousex * msens) * neg
126. zslimit = 89
127. IF en(3) >= 360 THEN en(3) = 0
128. IF en(3) < 0 THEN en(3) = 360
129. IF en(4) >= 360 THEN en(4) = 0
130. IF en(4) < 0 THEN en(4) = 360
131. RETURN
132.  
133.  
134.  
135. enlepes:
136.  
137.  
138.  
139. x5 = SIN(pip180 * en(4)) * 1
140. x7 = COS(pip180 * en(4)) * 1
141. neg = SGN(COS(en(3) * pip180))
142. x5 = neg * x5: x7 = neg * x7
143. x6 = (SIN(pip180 * en(3)) * 3)
144.  
145.  
146.  
147. s = (ABS(x6)) + (ABS(x5)) + ABS(x7)
148. en(5) = 1 / s * x5
149. en(6) = 1 / s * x6
150. en(7) = 1 / s * x7
151.  
152.  
153.  
154. RETURN
155.  
156.  
157.  
158. pontcalc:
159. FOR t = 1 TO pontdb - 1
160.     x = pont(t, 0) - en(0): y = pont(t, 1) - en(1): z = pont(t, 2) - en(2)
161.     rotx = pip180 * en(3): rotz = 0: roty = pip180 * en(4)
162.     x2 = (x * COS(rotz)) - (y * SIN(rotz))
163.     y2 = (x * SIN(rotz)) + (y * COS(rotz))
164.     x3 = (x2 * COS(roty)) - (z * SIN(roty))
165.     z2 = (x2 * SIN(roty)) + (z * COS(roty))
166.     y3 = (y2 * COS(rotx)) - (z2 * SIN(rotx))
167.     z3 = (y2 * SIN(rotx)) + (z2 * COS(rotx))
168.     pont(t, 20) = x3: pont(t, 21) = y3: pont(t, 22) = z3
169. NEXT t
170. t = 5
171. qx = pont(t, 20) - pont(t, 0)
172. qy = pont(t, 21) - pont(t, 1)
173. qz = pont(t, 22) - pont(t, 2)
174.  
175.  
176.  
177.  
178. RETURN
179.  
180.  
181.  
182.  
183.  
184.  
185.  
186.  
187.  
188.  
189. objadd:
190.  
191. ks = 5: REM kocka merete
192. koc(0, 0) = -1
193. koc(0, 1) = -1
194. koc(0, 2) = -1
195. koc(1, 0) = 1
196. koc(1, 1) = -1
197. koc(1, 2) = -1
198. koc(2, 0) = -1
199. koc(2, 1) = 1
200. koc(2, 2) = -1
201. koc(3, 0) = 1
202. koc(3, 1) = 1
203. koc(3, 2) = -1
204. koc(4, 0) = -1
205. koc(4, 1) = -1
206. koc(4, 2) = 1
207. koc(5, 0) = 1
208. koc(5, 1) = -1
209. koc(5, 2) = 1
210. koc(6, 0) = -1
211. koc(6, 1) = 1
212. koc(6, 2) = 1
213. koc(7, 0) = 1
214. koc(7, 1) = 1
215. koc(7, 2) = 1
216.  
217. FOR t = 0 TO kockadb - 1
218.     DO: lehetx = INT(INT(ivx / ks) * RND(1)): lehety = INT(INT(ivy / ks) * RND(1)): lehetz = INT(INT(ivz / ks) * RND(1))
219.     LOOP WHILE kellkocka(lehetx, lehety, lehetz)
220.     kellkocka(lehetx, lehety, lehetz) = 1: ap = kezdpontkocka + t * 8
221.     FOR t2 = 0 TO 7
222.         pont(ap + t2, 0) = lehetx * ks + koc(t2, 0) * ks / 2 - ivx / 2
223.         pont(ap + t2, 1) = lehety * ks + koc(t2, 1) * ks / 2 - ivy / 2
224.         pont(ap + t2, 2) = lehetz * ks + koc(t2, 2) * ks / 2 - ivz / 2
225.     NEXT t2
226.  
227.     at = kezdterepkocka + t * 6
228.     atx = at + 0: p1 = ap + 0: p2 = ap + 1: p3 = ap + 2: p4 = ap + 3: GOSUB terepmake
229.     atx = at + 1: p1 = ap + 5: p2 = ap + 4: p3 = ap + 7: p4 = ap + 6: GOSUB terepmake
230.     atx = at + 2: p1 = ap + 1: p2 = ap + 5: p3 = ap + 3: p4 = ap + 7: GOSUB terepmake
231.     atx = at + 3: p1 = ap + 4: p2 = ap + 0: p3 = ap + 6: p4 = ap + 2: GOSUB terepmake
232.     atx = at + 4: p1 = ap + 4: p2 = ap + 5: p3 = ap + 0: p4 = ap + 1: GOSUB terepmake
233.     atx = at + 5: p1 = ap + 7: p2 = ap + 6: p3 = ap + 3: p4 = ap + 2: GOSUB terepmake
234.  
235.  
236. NEXT t
237.  
238. RETURN
239.  
240. terepmake:
241.  
242. terep(atx, 0) = p1
243. terep(atx, 1) = p2
244. terep(atx, 2) = p3
245. terep(atx, 3) = p4
246. terep(atx, 4) = 0: REM kep azonosito
247. terep(atx, 5) = 0
248. terep(atx, 6) = 0
249. terep(atx, 7) = _WIDTH(kep(0)) - 1
250. terep(atx, 8) = 0
251. terep(atx, 9) = 0
252. terep(atx, 10) = _HEIGHT(kep(0)) - 1
253. terep(atx, 11) = _WIDTH(kep(0)) - 1
254. terep(atx, 12) = _HEIGHT(kep(0)) - 1
255. terep(atx, 14) = 1: REM terep aktiv
256. RETURN
257.  
258.  
259.  
260.  
261.  

[MasterGy]

i like the solution in the edit. the level building !! take a lot! good luck with the game!

[Jack002]

Wow, that's so cool! Thanks for sharing it!

[MasterGy]

Hi ! I'd like to do a "fülöpke2". I wanted it to be such an airplane mode, but the problem is that you can get bored quickly. but the course gives you the opportunity to jump on it. if that's the case, i want to put the old batteries in it. for example, flying only under certain conditions. it would be a lot of ideas if anyone has any, i would appreciate it. I want it to be boring. but they would need simple solutions. if someone has good ideas.

https://www.youtube.com/watch?v=binF_L_BwRM&feature=youtu.be

[MasterGy]

Hi !

I did some minor tweaks to it, improved the presentation to further enhance the ecstasy, the action.

I put it on google drivre to be accessible at any time:

https://drive.google.com/open?id=13TMm1HYUu0RIbToY4NF49qwReS5mNCxO