courtesy cubes :)

[MasterGy]

this should make a game :)

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. mon = _NEWIMAGE(800, 800, 32): SCREEN mon: _DEST mon
3.  
4. DIM SHARED temp_color(9) AS _INTEGER64
5.  
6. map_x = 30
7. map_y = 30
8.  
9. mb_c = 54: DIM mb(mb_c - 1, 9)
10.  
11. DIM map(map_x - 1, map_y - 1)
12.  
13. speed = .05
14. size_block = 23
15. size_wall = .9
16.  
17. cent_x = (_WIDTH(mon) - size_block * map_x) / 2
18. cent_y = (_HEIGHT(mon) - size_block * map_y) / 2
19.  
20.  
21. DIM d(3, 1) AS _BYTE
22. d(0, 0) = 0: d(0, 1) = -1
23. d(1, 0) = 1: d(1, 1) = 0
24. d(2, 0) = 0: d(2, 1) = 1
25. d(3, 0) = -1: d(3, 1) = 0
26.  
27.  
28. 'make walls
29. FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
30.  
31. 'make mover bricks
32. FOR t = 0 TO mb_c - 1
33.     DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
34.         FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 THEN _CONTINUE
35.             busy = busy OR (mb(t2, 1) = mb(t, 1) AND mb(t2, 2) = mb(t, 2))
36.             sik = (mb(t, 3) MOD 2) = (mb(t2, 3) MOD 2) 'ha egy sikban mozognak
37.             busy = busy OR ((mb(t2, 1) = mb(t, 1)) AND sik)
38.             busy = busy OR ((mb(t2, 2) = mb(t, 2)) AND sik)
39.         NEXT t2
40.     LOOP WHILE busy
41.     mb(t, 0) = 1 'lets busy
42. NEXT t
43.  
44. 'mb array
45. '0 ena/disa
46. '1,2 XY location
47. '3 'direction
48.  
49.  
50.  
51.  
52.  
53.  
54.  
55.  
56. '------------------------------------------- BOSS CYCLE
57. DO: _LIMIT 30
58.     'draw non mover blocks
59.     FOR tx = 0 TO map_x - 1: xc = tx * size_block + .5 + cent_x
60.         FOR ty = 0 TO map_y - 1: yc = ty * size_block + .5 + cent_y
61.             SELECT CASE map(tx, ty)
62.                 CASE 1
63.                     size = size_block * size_wall / 2
64.                     LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(255, 50, 50), BF
65.             END SELECT
66.     NEXT ty, tx
67.  
68.     'draw mover blocks
69.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
70.         xc = mb(amb, 1) * size_block + .5 + cent_x
71.         yc = mb(amb, 2) * size_block + .5 + cent_y
72.         size = size_block * size_wall / 2
73.         LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(50, 255, 50), BF
74.     NEXT amb
75.  
76.     'moving mover bricks
77.  
78.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
79.         tx = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (speed + .5))
80.         ty = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (speed + .5))
81.  
82.  
83.         IF map(tx, ty) = 1 THEN mb(amb, 3) = (mb(amb, 3) + 2) MOD 4: _CONTINUE
84.         dontgo = 0
85.         FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 THEN _CONTINUE
86.             IF (mb(t, 3) MOD 2) = (mb(amb, 3) MOD 2) THEN _CONTINUE
87.             tx2 = CINT(mb(t, 1))
88.             ty2 = CINT(mb(t, 2))
89.             IF tx = tx2 AND ty = ty2 THEN dontgo = 1: EXIT FOR
90.         NEXT t
91.  
92.  
93.  
94.         mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * speed * (dontgo XOR 1)
95.         mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * speed * (dontgo XOR 1)
96.  
97.  
98.     NEXT amb
99.  
100.  
101.     _DISPLAY: CLS
102.  
103.  
104. LOOP
105.  

[_vince]

wow nice! here is a nice screensaver us newbs here can appreciate.  Now are the momenta and velocities gaussian distributed?

[MasterGy]

I don't understand Gauss :) There is a sorting principle: don't have one
 movement in a row or column of 2 stones. so max stone = x * y
I was just thinking of a minimalist 3D skill game that could be written from a few lines.

[_vince]

I was just thinking of a minimalist 3D skill game that could be written from a few lines.

A dense pasture of cows -- now get your tractor from one corner to the next without hitting any

[MasterGy]

this is a great idea! :)

[MasterGy]

a simple change to make more bricks. So far, there could have been 1 brick in 1 plane, so there could have been a maximum of X x Y bricks on the track. it had to be inserted so that there could be more bricks in 1 plane, but they would not cross each other.
The solution: when a brick moving in parallel meets, it loses direction, it releases a moving brick when it meets perpendicularly.

Code: QB64: [Select]

1. RANDOMIZE TIMER
2. mon = _NEWIMAGE(800, 800, 32): SCREEN mon: _DEST mon
3.  
4. DIM SHARED temp_color(9) AS _INTEGER64
5.  
6. map_x = 30
7. map_y = 30
8. mb_c = 150
9. speed = .08
10. size_block = 23
11. size_wall = .9 'size percent size_block
12. b_colors = 10
13.  
14.  
15.  
16.  
17.  
18. cent_x = (_WIDTH(mon) - size_block * map_x) / 2
19. cent_y = (_HEIGHT(mon) - size_block * map_y) / 2
20.  
21.  
22. DIM d(3, 1) AS _BYTE, map(map_x - 1, map_y - 1), mb(mb_c - 1, 9): d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1 'directions
23.  
24.  
25. 'make colors
26. DIM b_colors(b_colors - 1) AS _INTEGER64
27. FOR t = 0 TO b_colors - 1
28.     b_colors(t) = _RGB32(100 + 100 * RND(1), 100 + 100 * RND(1), 100 + 100 * RND(1))
29. NEXT t
30.  
31. 'make walls
32. FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
33.  
34. 'make mover bricks
35. FOR t = 0 TO mb_c - 1
36.     DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
37.         FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 THEN _CONTINUE
38.             busy = busy OR (mb(t2, 1) = mb(t, 1) AND mb(t2, 2) = mb(t, 2))
39.         NEXT t2
40.     LOOP WHILE busy
41.     mb(t, 0) = 1 'lets busy
42.     mb(t, 5) = INT(b_colors * RND(1))
43. NEXT t
44.  
45. 'mb array
46. '0 ena/disa
47. '1,2 XY location
48. '3 'direction
49. '4 stop counter
50. '5 color index
51.  
52.  
53.  
54.  
55.  
56.  
57.  
58. '------------------------------------------- BOSS CYCLE
59. DO: _LIMIT 30: IF INKEY$ = " " THEN RUN
60.     'draw non mover blocks
61.     FOR tx = 0 TO map_x - 1: xc = tx * size_block + .5 + cent_x
62.         FOR ty = 0 TO map_y - 1: yc = ty * size_block + .5 + cent_y
63.             PSET (xc, yc), _RGB32(100, 100, 100)
64.             SELECT CASE map(tx, ty)
65.                 CASE 1
66.                     size = size_block * size_wall / 2
67.                     LINE (xc - size, yc - size)-(xc + size, yc + size), _RGB32(255, 50, 50), BF
68.             END SELECT
69.     NEXT ty, tx
70.  
71.     'draw mover blocks
72.     FOR amb = 0 TO mb_c - 1
73.         xc = mb(amb, 1) * size_block + .5 + cent_x: yc = mb(amb, 2) * size_block + .5 + cent_y: size = size_block * size_wall / 2
74.         IF mb(amb, 0) = 0 THEN _CONTINUE
75.         LINE (xc - size, yc - size)-(xc + size, yc + size), b_colors(mb(amb, 5)), BF
76.     NEXT amb
77.  
78.     'moving mover bricks
79.  
80.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
81.         p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (speed + .5))
82.         p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (speed + .5))
83.  
84.  
85.         dontgo = 0: letsneg = 0
86.  
87.         FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb THEN _CONTINUE
88.             vr = mb(t, 3) MOD 2
89.             IF vr = (mb(amb, 3) MOD 2) THEN
90.                 IF (mb(t, 1 + (vr XOR 1))) <> (mb(amb, 1 + (vr XOR 1))) THEN _CONTINUE
91.                 letsneg = letsneg OR (ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1)
92.             ELSE
93.                 dontgo = dontgo OR (ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1)
94.             END IF
95.         NEXT t
96.  
97.         '        mb(amb, 3) = (mb(amb, 3) + ABS((letsneg AND mb(amb, 4) = 0) OR map(p(0), p(1)) = 1) * 2) MOD 4
98.         mb(amb, 3) = (mb(amb, 3) + ABS((letsneg) OR map(p(0), p(1)) = 1) * 2) MOD 4
99.  
100.         IF dontgo THEN
101.             mb(amb, 4) = (mb(amb, 4)) + 1: IF mb(amb, 4) > 5 / speed THEN mb(amb, 3) = (mb(amb, 3) + 2) MOD 4
102.         ELSE
103.             mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * speed: mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * speed: mb(amb, 4) = 0
104.         END IF
105.     NEXT amb
106.  
107.     _DISPLAY: CLS
108.  
109.  
110. LOOP
111.  
112.  

[bplus]

That actually starts to look intelligent like an ant farm.

[MasterGy]

I did control the game tonight.

I'll start in 3D tomorrow, I'll be curious. The game is easy in 2d because we can see what will happen from above, but in 3d, it has to be fast.

Code: QB64: [Select]

1. DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y
2. '----------------- settings
3. monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
4. map_x = 30
5. map_y = 30
6. mb_c = 120 'maximum mover bricks
7.  
8. speed_min = .03
9. speed_max = .09
10.  
11. me(5) = .5 'the size of my extent relative to a brick
12. me_speed = .1 'my speed
13.  
14. size_block = 20
15. size_wall = .95 'size percent size_block
16. b_colors = 5
17. shdw_c = 5
18. '----------------------------
19. CONST pip180 = 3.141592 / 180
20. RANDOMIZE TIMER: _AUTODISPLAY
21.  
22. 'me install
23. 'me array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
24. me(0) = -1: me(1) = -1 'my start locate
25. size = 100
26. temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10)
27. CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
28. PAINT (size / 2, size / 2), _RGB32(200, 200, 200)
29. _CLEARCOLOR _RGB32(10, 10, 10)
30. me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
31.  
32. 'SCREEN temp
33. 'END
34.  
35.  
36.  
37.  
38.  
39. DIM SHARED temp_color(9) AS _INTEGER64
40.  
41. 'directions
42. DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
43. DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
44. 'make colors
45. DIM b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(50 + 150 * RND(1), 50 + 150 * RND(1), 50 + 150 * RND(1)): NEXT t
46. b_colors(0) = _RGB32(150, 20, 20) 'wall color
47.  
48. 'make textures
49. marg = .12: tmax = 50: tmin = 20
50. DIM text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
51. FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
52.  
53.     stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
54.     LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF
55.  
56.     'make wall
57.     FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32)
58.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
59.         _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
60.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
61.         _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
62.     text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
63. NEXT t
64.  
65.  
66.  
67. 'make walls
68. FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
69.  
70. 'add walls within the framework
71. add_wall_c = 3: add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
72.     DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
73.     dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
74. FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
75.  
76.  
77. 'money install
78. temp = _NEWIMAGE(8, 16, 32): _DEST temp: PRINT "$";: text_money = _COPYIMAGE(temp, 33): _FREEIMAGE temp
79. DO: money_x = INT(1 + (map_x - 2) * RND(1)): money_y = INT(1 + (map_y - 2) * RND(1)): LOOP WHILE map(money_y, money_x)
80. map(money_x, money_y) = 3
81.  
82.  
83. 'make mover bricks
84. FOR t = 0 TO mb_c - 1: agent_timer = TIMER
85.     DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
86.         FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
87.         FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
88.         busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
89.     LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
90.     mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
91. NEXT t
92.  
93.  
94.  
95. 'entri brick to the area
96. t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
97. posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
98.  
99.  
100.  
101.  
102. 'mb array
103. '0 ena/disa
104. '1,2 XY location
105. '3 'direction
106. '4 stop counter
107. '5 color index
108. '6 speed
109.  
110.  
111.  
112.  
113.  
114. mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon
115. 'CLS , _RGB32(20, 20, 20)
116. _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN '_SQUAREPIXELS ', _SMOOTH
117.  
118.  
119.  
120. LOCATE mony / 16 - 3, 1
121. PRINT "control-type1: WASD+mouse (map rotating)"
122. PRINT "control-type2: arrows (no map rotating)"
123. PRINT "map zoom: mouse wheel"
124.  
125. '------------------------------------------- BOSS CYCLE
126. DO: _LIMIT 30
127.     'draw non mover blocks
128.     FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) THEN draw_brick tx, ty, text_mb(0, 0), 1
129.     NEXT ty, tx
130.  
131.     'draw mover blocks
132.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) THEN draw_brick mb(amb, 1), mb(amb, 2), text_mb(mb(amb, 5), 0), 1
133.     NEXT amb
134.  
135.     'draw me
136.     IF dead = 0 OR (dead AND INT(2 * RND(1))) THEN draw_brick me(0), me(1), me_text, me(5)
137.  
138.     'draw money
139.     IF storyline = 0 THEN draw_brick money_x, money_y, text_money, 1
140.  
141.  
142.     'moving mover bricks
143.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
144.         p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
145.         p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
146.  
147.         FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
148.             vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
149.             letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
150.             dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
151.         NEXT t
152.  
153.         mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
154.         mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
155.         mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
156.         mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
157.         mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
158.  
159.  
160.     NEXT amb
161.  
162.     'control me
163.     mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
164.     k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
165.     k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
166.  
167.     me(3) = (me(3) + mousex * 1) * ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
168.  
169.     size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
170.  
171.     IF dead = 0 THEN
172.         IF crash_test(me(0), me(1)) THEN
173.             try_speed = speed_max * 1.1
174.             try = -1: FOR atry = 0 TO 3
175.                 IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
176.             NEXT atry: IF try = -1 THEN dead = 1
177.             IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
178.         END IF
179.  
180.         go = me_speed * ABS(k_left OR k_right OR k_up OR k_down): go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3)
181.         go_x = SIN(go_ang * pip180) * go + me(0)
182.         go_y = -COS(go_ang * pip180) * go + me(1)
183.         IF crash_test(go_x, go_y) = 0 THEN
184.             me(0) = go_x: me(1) = go_y
185.         END IF
186.  
187.  
188.     END IF
189.  
190.     'cheats
191.     inkey2$ = INKEY$
192.     IF inkey2$ = " " THEN RUN
193.     IF inkey2$ = "o" THEN dead = 1 'reborn
194.     IF inkey2$ = "p" THEN dead = 0 'dead
195.  
196.     _DISPLAY
197.  
198.     'money near- storyline
199.     IF storyline = 0 AND SQR((me(0) - money_x) ^ 2 + (me(1) - money_y) ^ 2) < 1.2 THEN storyline = 1: map(money_x, money_y) = 0
200.     IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
201.  
202.     SELECT CASE storyline
203.         CASE 0: s$ = "GET THE MONEY !"
204.         CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
205.         CASE 2: s$ = "Mission compeleted !"
206.     END SELECT
207.  
208.     IF dead THEN s$ = "you dead ,mission incompleted !"
209.     COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 1, 1: _PRINTSTRING (30, 30), s$ + SPACE$(20)
210. LOOP
211.  
212. 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
213.  
214. SUB draw_brick (x, y, text, relsize)
215.     DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
216.     rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
217.     FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
218.     rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
219.     wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
220.     _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(x(0), y(0))-(x(1), y(1))-(x(2), y(2)), , _SMOOTH
221.     _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(x(3), y(3))-(x(1), y(1))-(x(2), y(2)), , _SMOOTH
222. END SUB
223.  
224. FUNCTION crash_test (x, y)
225.     FOR myp = 0 TO 3
226.         mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
227.  
228.         FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
229.             IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
230.         NEXT amb
231.  
232.         FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
233.                 IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
234.     NEXT ty, tx, myp
235. END FUNCTION
236.  
237.  

[MasterGy]

bring the money out of the wall and be careful not to squeeze the stones!

[MasterGy]

done in 3d. You can set the strength at the beginning of the source code. speeds, number of golds, number of moving cubes.

Control: WASD + mouse
Mission: Collect all the gold and go out!
Survive not to squeeze the cubes!

The program does not have a file.

 

Code: QB64: [Select]

1. 'MasterGy 2022
2.  
3. DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y, crash_test_disable, shdw_c
4. '----------------- settings ---------------------------------------------------------------------------------------------
5.  
6.  
7.  
8.  
9. map_x = 30 'size map X
10. map_y = 30 'size map Y
11. speed_min = .03 'bricks minimum speed
12. speed_max = .09 'bricks maximum speed
13. money_c = 5 'money number what you find
14. mb_c = 60 'maximum mover bricks in the map
15. me_speed = .1 'my speed
16. mouse_sens = 1
17.  
18.  
19.  
20.  
21.  
22. '------------------------------------------------------ advanced settings -------------------------------------------------------------
23. monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
24. tile_marg = 4
25. me(5) = .5 'the size of my extent relative to a brick
26.  
27. size_block = 20
28. size_wall = .9 'size percent size_block
29. b_colors = 8
30. shdw_c = 50
31. '----------------------------
32. CONST pip180 = 3.141592 / 180
33. RANDOMIZE TIMER: _AUTODISPLAY
34.  
35. 'me install 'ME array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
36. me(0) = -1: me(1) = -1: me(2) = .4 'my start locate
37. size = 100
38. temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10)
39. CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
40. PAINT (size / 2, size / 2), _RGB32(200, 200, 200): _CLEARCOLOR _RGB32(10, 10, 10): me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
41.  
42. DIM SHARED temp_color(9) AS _INTEGER64
43.  
44.  
45. 'shadows
46. DIM SHARED shdw(16383) AS _BYTE: DIM SHARED darking_array(shdw_c - 1)
47. FOR t = 0 TO 16383: ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
48. shdw(t) = ashdw: NEXT t
49.  
50.  
51. 'directions
52. DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
53. DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
54. 'make colors
55. DIM SHARED b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(50 + 150 * RND(1), 50 + 150 * RND(1), 50 + 150 * RND(1)): NEXT t
56. b_colors(0) = _RGB32(150, 20, 20) 'wall color
57.  
58. 'make textures
59. marg = .12: tmax = 30: tmin = 30
60. DIM SHARED text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
61. FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
62.     stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
63.     LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF
64.  
65.     'make wall
66.     FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
67.         IF t2 = 0 THEN LINE (0, 0)-(size, size), _RGB32(50, 50, 50): LINE (size, 0)-(0, size), _RGB32(50, 50, 50) 'no mover wall
68.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
69.         _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
70.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
71.         _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
72.     text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
73. NEXT t
74.  
75.  
76. 'skys_color
77. DIM text_sky(999)
78.  
79.  
80. FOR t = 0 TO 499
81.     temp = _NEWIMAGE(3, 3, 32): _DEST temp: CLS , _RGB32(20, 20, 255 / 499 * t): text_sky(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
82. NEXT t
83.  
84. 'make walls
85. FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
86.  
87. 'add walls within the framework
88. add_wall_c = 3: add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
89.     DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
90.     dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
91. FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
92.  
93.  
94. 'money install
95. DIM SHARED text_money(9)
96. FOR t = 0 TO 9: temp = _NEWIMAGE(8, 16, 32): _DEST temp: COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): PRINT "$";
97. _CLEARCOLOR _RGB32(0, 0, 0): text_money(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
98. DIM money(money_c - 1, 9)
99. FOR t = 0 TO money_c - 1: DO: money(t, 0) = INT(1 + (map_x - 2) * RND(1)): money(t, 1) = INT(1 + (map_y - 2) * RND(1))
100. LOOP WHILE map(money(t, 0), money(t, 1)): map(money(t, 0), money(t, 1)) = 3: NEXT t
101.  
102. 'make mover bricks
103. FOR t = 0 TO mb_c - 1: agent_timer = TIMER
104.     DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
105.         FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
106.         FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
107.         busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
108.     LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
109.     mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
110. NEXT t
111.  
112.  
113.  
114. 'entri brick to the area
115. t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
116. posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
117.  
118.  
119.  
120.  
121. 'mb array
122. '0 ena/disa
123. '1,2 XY location
124. '3 'direction
125. '4 stop counter
126. '5 color index
127. '6 speed
128.  
129.  
130.  
131.  
132.  
133. mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon: _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN: _MOUSEHIDE
134.  
135.  
136.  
137.  
138.  
139. '------------------------------------------- BOSS CYCLE
140. DO: _LIMIT 30
141.     draw_2d_map = _KEYDOWN(100306) OR _KEYDOWN(100305) 'if press CTRL, show the 2d map
142.  
143.     'draw non mover blocks
144.  
145.  
146.     FOR tx = -tile_marg TO map_x - 1 + tile_marg: FOR ty = -tile_marg TO map_y - 1 + tile_marg
147.             IF tx < 0 OR tx > map_x - 1 OR ty < 0 OR ty > map_y - 1 THEN
148.  
149.             ELSE
150.                 IF map(tx, ty) = 1 OR map(tx, ty) = 2 THEN
151.                     IF draw_2d_map THEN draw_brick_2d tx, ty, 1, 0
152.                     draw_brick_3d tx, ty, 0, 1
153.                 ELSE
154.  
155.                 END IF
156.             END IF
157.             tile_3d tx, ty
158.     NEXT ty, tx
159.  
160.     'draw mover blocks
161.     FOR amb = 0 TO mb_c - 1:
162.         IF mb(amb, 0) THEN
163.             IF draw_2d_map THEN draw_brick_2d mb(amb, 1), mb(amb, 2), 1, mb(amb, 5)
164.             draw_brick_3d mb(amb, 1), mb(amb, 2), mb(amb, 5), 1
165.         END IF
166.     NEXT amb
167.  
168.     'draw me
169.     IF (dead = 0 OR (dead AND INT(2 * RND(1)))) AND draw_2d_map THEN draw_brick_2d me(0), me(1), me(5), mb(0, 0)
170.  
171.     'draw money
172.     IF storyline = 0 THEN
173.         FOR t = 0 TO money_c - 1: IF money(t, 2) THEN _CONTINUE
174.             IF draw_2d_map THEN draw_brick_2d money(t, 0), money(t, 1), 1, -1
175.             money_3d money(t, 0), money(t, 1)
176.         NEXT t
177.     END IF
178.  
179.     'moving mover bricks
180.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
181.         p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
182.         p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
183.  
184.         FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
185.             vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
186.             letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
187.             dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
188.         NEXT t
189.  
190.         mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
191.         mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
192.         mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
193.         mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
194.         mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
195.  
196.  
197.     NEXT amb
198.  
199.     'control me
200.     mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
201.     k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
202.     k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
203.  
204.     me(3) = me(3) + mousex * mouse_sens '* ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
205.     me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
206.     size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
207.  
208.     IF dead = 0 THEN
209.         IF crash_test(me(0), me(1)) THEN
210.             try_speed = speed_max * 1.1
211.             try = -1: FOR atry = 0 TO 3
212.                 IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
213.             NEXT atry: IF try = -1 THEN dead = 1
214.             IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
215.         END IF
216.         try_ang_sc = 70
217.         FOR try_ang = 0 TO try_ang_sc STEP 5: FOR try_ang_dir = 0 TO 1
218.                 go = me_speed * ABS(k_left OR k_right OR k_up OR k_down) / try_ang_sc * (try_ang_sc - try_ang)
219.                 go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3) + (try_ang_dir * 2 - 1) * try_ang
220.                 go_x = SIN(go_ang * pip180) * go + me(0): go_y = -COS(go_ang * pip180) * go + me(1)
221.                 IF crash_test(go_x, go_y) = 0 THEN me(0) = go_x: me(1) = go_y: GOTO ok
222.         NEXT try_ang_dir, try_ang
223.         ok:
224.  
225.     END IF
226.  
227.     'cheats
228.     inkey2$ = INKEY$
229.     IF inkey2$ = " " THEN RUN
230.     IF inkey2$ = "l" THEN crash_test_disable = crash_test_disable XOR 1
231.     IF inkey2$ = "o" THEN dead = 1 'reborn
232.     IF inkey2$ = "p" THEN dead = 0 'dead
233.  
234.     'sky draw
235.     sky_flash = sky_flash - 0.02: IF sky_flash < 0 THEN sky_flash = 0
236.     IF sky_flash > 1 THEN sky_flash = 1
237.     IF dead THEN sky_ind = 490 * SGN(INT(TIMER * 50) AND 1) ELSE sky_ind = INT(490 * sky_flash)
238.     asky = text_sky(sky_ind)
239.     _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(-16000, -16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
240.     _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(16000, 16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
241.     _DISPLAY: CLS
242.  
243.     'money near- storyline
244.     IF storyline = 0 THEN
245.         FOR t = 0 TO money_c - 1
246.             find_money = SQR((me(0) - money(t, 0)) ^ 2 + (me(1) - money(t, 1)) ^ 2) < 1.1 AND (money(t, 2) = 0)
247.             IF find_money THEN money_sum = money_sum + 1: map(money(t, 0), money(t, 1)) = 0: money(t, 2) = 1: sky_flash = 1
248.         NEXT t
249.         storyline = storyline + ABS(money_sum = money_c)
250.     END IF
251.     IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
252.  
253.     SELECT CASE storyline
254.         CASE 0: s$ = "GET THE MONEY !   " + STR$(money_c) + " /" + STR$(money_sum)
255.         CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
256.         CASE 2: s$ = "Mission compeleted ! "
257.     END SELECT
258.  
259.     IF dead THEN s$ = "you dead ,mission incompleted !"
260.  
261.     COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 3, (monx / 8 - LEN(s$)) / 2: PRINT s$
262.     IF draw_2d_map = 0 THEN COLOR _RGB32(255, 255, 255), _RGBA(0, 0, 0, 0): LOCATE mony / 16 - 1, 1: PRINT "CTRL - show 2Dmap        mouse wheel:2Dmap zoom";
263.  
264. LOOP
265.  
266. 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
267.  
268. FUNCTION crash_test (x, y): IF crash_test_disable THEN EXIT FUNCTION
269.     FOR myp = 0 TO 3: mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
270.         FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
271.             IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
272.         NEXT amb
273.         FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
274.                 IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
275.     NEXT ty, tx, myp
276. END FUNCTION
277.  
278. SUB draw_brick_2d (x, y, relsize, col)
279.     DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
280.     rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
281.     FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
282.     rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
283.  
284.     IF col = -1 THEN COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)) ELSE COLOR b_colors(col)
285.     LINE (x(0), y(0))-(x(1), y(1)): LINE (x(3), y(3))-(x(1), y(1)): LINE (x(2), y(2))-(x(3), y(3)): LINE (x(0), y(0))-(x(2), y(2))
286. END SUB
287.  
288.  
289. SUB point_3d (x, y, z)
290.     x = x - me(0): y = y - me(2): z = z - me(1)
291.     rotate_2d x, z, -(me(3) + 180) * pip180: rotate_2d y, z, (me(4) + 180) * pip180
292.     x = x * 100: y = y * 100: z = z * 100
293. END SUB
294.  
295. SUB draw_brick_3d (x, y, text, relsize)
296.     DIM p(7, 2), sq(3)
297.     size = size_wall * .5 * relsize
298.     FOR t = 0 TO 7
299.         p(t, 0) = size * (SGN(t AND 1) * 2 - 1) + x: p(t, 2) = size * (SGN(t AND 2) * 2 - 1) + y: p(t, 1) = size * SGN(t AND 4) * 2
300.         point_3d p(t, 0), p(t, 1), p(t, 2)
301.     NEXT t
302.     shdw = ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))
303.     sq$ = "-0246-2367-3175-1054" 'cubes points make square "-0123-4567"
304.     FOR t2 = 0 TO 3: FOR t3 = 0 TO 3: sq(t3) = VAL(MID$(sq$, 2 + t2 * 5 + t3, 1)): NEXT t3
305.         atext = text_mb(text, shdw(shdw))
306.         wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
307.         _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext 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)), , _SMOOTH
308.         _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext 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)), , _SMOOTH
309.     NEXT t2
310. END SUB
311.  
312. SUB tile_3d (x, y)
313.     DIM p(3, 2)
314.     FOR t = 0 TO 3
315.         p(t, 0) = x + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = y + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = 0
316.         point_3d p(t, 0), p(t, 1), p(t, 2)
317.     NEXT t
318.     atext = text_mb(0, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
319.     wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
320.     _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
321.     _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
322. END SUB
323.  
324. SUB money_3d (x, y)
325.     DIM p(3, 2)
326.     ang = TIMER * 2
327.     FOR t = 0 TO 3
328.         ang = TIMER * 2 + _PI * (t AND 1): p(t, 0) = SIN(ang) * .5 + x: p(t, 2) = COS(ang) * .5 + y: p(t, 1) = SGN(t AND 2)
329.         point_3d p(t, 0), p(t, 1), p(t, 2)
330.     NEXT t
331.     atext = text_money(INT(10 * RND(1)))
332.     wtext = _WIDTH(atext) - 1: htext = _HEIGHT(atext) - 1
333.     _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), atext TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
334.     _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), atext TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
335. END SUB
336.  
337.  
338.  

[MasterGy]

lots of small changes to make the graphics and enjoyment better

Code: QB64: [Select]

1. 'MasterGy 2022
2.  
3. DIM SHARED size_block, size_wall, me(9), monx, mony, mb_c, map_x, map_y, crash_test_disable, shdw_c
4. '----------------- settings ---------------------------------------------------------------------------------------------
5.  
6.  
7.  
8.  
9. map_x = 30 'size map X
10. map_y = 30 'size map Y
11. speed_min = .03 'bricks minimum speed
12. speed_max = .06 'bricks maximum speed
13. money_c = 6 'money number what you find
14. mb_c = 80 'maximum mover bricks in the map
15. me_speed = .12 'my speed
16. mouse_sens = 1
17.  
18.  
19.  
20.  
21.  
22. '------------------------------------------------------ advanced settings -------------------------------------------------------------
23. add_wall_c = 4 'cross road-walls inside map
24. walk_limit = 8 'walk limit outside map
25. tile_marg = 5 'tiles outside near wall
26. me(5) = .5 'the size of my extent relative to a brick (1=standard size)
27. cheat_keys = 0 'enable cheat keys
28. monx = 800: mony = INT(monx / _DESKTOPWIDTH * _DESKTOPHEIGHT)
29. size_block = 20 '2d map draw start size
30. size_wall = .9 'size percent size_block (1=standard)
31. b_colors = 12 'brick colors
32. shdw_c = 50 'mipmap
33. '----------------------------------------------------------------------------------------
34. DIM SHARED temp_color(9) AS _INTEGER64
35. CONST pip180 = 3.141592 / 180
36. RANDOMIZE TIMER: _AUTODISPLAY
37.  
38. 'me install 'ME array params '0,1,2=X,Y,Z 3=angXY 4=angXZ 5'XY dimension
39. me(0) = -1: me(1) = -1: me(2) = .4 'my start locate
40. size = 100: temp = _NEWIMAGE(size, size, 32): _DEST temp: CLS 0, _RGB32(10, 10, 10): CIRCLE (size / 2, size / 2), size / 2 * size_wall, _RGB32(200, 200, 200)
41. PAINT (size / 2, size / 2), _RGB32(200, 200, 200): _CLEARCOLOR _RGB32(10, 10, 10): me_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp
42.  
43. 'shadows
44. DIM SHARED shdw(16383) AS _BYTE: FOR t = 0 TO 16383: ashdw = INT((shdw_c - 1) * 0.0006 * t): IF ashdw > shdw_c - 1 THEN ashdw = shdw_c - 1
45. shdw(t) = ashdw: NEXT t
46.  
47.  
48. 'directions
49. DIM d(3, 1) AS _BYTE: d(3, 1) = -1: d(0, 0) = 1: d(1, 1) = 1: d(2, 0) = -1: d(3, 1) = -1
50.  
51. DIM SHARED map(map_x - 1, map_y - 1), mb(mb_c - 1, 9)
52.  
53. 'make colors
54. DIM SHARED b_colors(b_colors - 1) AS _INTEGER64: FOR t = 1 TO b_colors - 1: b_colors(t) = _RGB32(30 + 180 * RND(1), 30 + 180 * RND(1), 30 + 180 * RND(1)): NEXT t
55. b_colors(0) = _RGB32(150, 20, 20) 'wall color
56.  
57. 'make textures
58. marg = .12: tmax = 40: tmin = 40
59. DIM SHARED text_mb(mb_c - 1, shdw_c - 1), text_wall(shdw_c - 1)
60. FOR t = 0 TO shdw_c - 1: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
61.     stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
62.     LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF: _SOURCE stand_temp
63.     noise = 5 + 10 / (shdw_c - 1) * t
64.     FOR tx = 0 TO size - 1: FOR ty = 0 TO size - 1: temp_color(0) = POINT(tx, ty)
65.             PSET (tx, ty), _RGB32(_RED32(temp_color(0)) - noise / 2 * RND(1) * noise, _GREEN32(temp_color(0)) - noise / 2 * RND(1) * noise, _BLUE32(temp_color(0)) - noise / 2 * RND(1) * noise)
66.     NEXT ty, tx
67.  
68.  
69.     'make wall
70.     FOR t2 = 0 TO b_colors - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
71.         IF t2 = 0 THEN LINE (0, 0)-(size, size), _RGB32(50, 50, 50): LINE (size, 0)-(0, size), _RGB32(50, 50, 50) 'no mover wall
72.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(_RED32(b_colors(t2)) * dark, _GREEN32(b_colors(t2)) * dark, _BLUE32(b_colors(t2)) * dark, 150)
73.         _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans
74.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
75.         _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans
76.     text_mb(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
77. NEXT t
78.  
79.  
80. 'skys_color
81. DIM text_sky(999)
82.  
83.  
84. FOR t = 0 TO 499
85.     temp = _NEWIMAGE(3, 3, 32): _DEST temp: CLS , _RGB32(20, 20, 255 / 499 * t): text_sky(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
86. NEXT t
87.  
88. 'make walls
89. FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: map(tx, ty) = ABS(tx = 0 OR ty = 0 OR tx = map_x - 1 OR ty = map_y - 1): NEXT ty, tx
90.  
91. 'add walls within the framework
92. add_wall_p(0) = .8: add_wall_p(1) = .8: FOR t = 1 TO add_wall_c
93.     DO: FOR t2 = 0 TO 3: p(t2) = map_x * add_wall_p(t2 MOD 2) * RND(1) + map_x * (1 - add_wall_p(t2 MOD 2)) / 2: NEXT t2
94.     dis = SQR((p(0) - p(2)) ^ 2 + (p(1) - p(3)) ^ 2): LOOP WHILE dis < 5: dis = dis * .7
95. FOR t2 = 0 TO dis: map(INT(p(0) + (p(2) - p(0)) / dis * t2), INT(p(1) + (p(3) - p(1)) / dis * t2)) = 2: NEXT t2, t
96.  
97.  
98. 'money install
99. DIM SHARED text_money(9)
100. FOR t = 0 TO 9: temp = _NEWIMAGE(8, 16, 32): _DEST temp: COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)): PRINT "$";
101. _CLEARCOLOR _RGB32(0, 0, 0): text_money(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
102. DIM money(money_c - 1, 9)
103. FOR t = 0 TO money_c - 1: DO: money(t, 0) = INT(1 + (map_x - 2) * RND(1)): money(t, 1) = INT(1 + (map_y - 2) * RND(1))
104. LOOP WHILE map(money(t, 0), money(t, 1)): map(money(t, 0), money(t, 1)) = 3: NEXT t
105.  
106. 'make mover bricks
107. FOR t = 0 TO mb_c - 1: agent_timer = TIMER
108.     DO: mb(t, 1) = INT(1 + (map_x - 2) * RND(1)): mb(t, 2) = INT(1 + (map_y - 2) * RND(1)): mb(t, 3) = INT(4 * RND(1)): busy = 0
109.         FOR tx = -1 TO 1: FOR ty = -1 TO 1: busy = busy OR SGN(map(tx + mb(t, 1), ty + mb(t, 2))): NEXT ty, tx
110.         FOR t2 = 0 TO mb_c - 1: IF mb(t2, 0) = 0 OR busy THEN _CONTINUE
111.         busy = busy OR (SQR((mb(t2, 1) - mb(t, 1)) ^ 2 + (mb(t2, 2) - mb(t, 2)) ^ 2) < 2): NEXT t2: IF ABS(agent_timer - TIMER) > 2 THEN EXIT FOR
112.     LOOP WHILE busy: mb(t, 0) = 1: mb(t, 5) = 1 + INT((b_colors - 1) * RND(1))
113.     mb(t, 6) = speed_min + (speed_max - speed_min) * RND(1)
114. NEXT t
115.  
116.  
117.  
118. 'entri brick to the area
119. t = INT(2 * RND(1)): posx = INT((1 + (map_x - 2) * RND(1)) * t) + INT(2 * RND(1)) * (map_x - 1) * ABS(t = 0)
120. posy = INT((1 + (map_y - 2) * RND(1)) * (t XOR 1)) + INT(2 * RND(1)) * (map_x - 1) * ABS((t XOR 1) = 0): map(posx, posy) = 0
121.  
122.  
123.  
124.  
125. 'mb array
126. '0 ena/disa
127. '1,2 XY location
128. '3 'direction
129. '4 stop counter
130. '5 color index
131. '6 speed
132.  
133.  
134.  
135.  
136.  
137. mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: _DEST mon: _DISPLAYORDER _HARDWARE , _SOFTWARE: _FULLSCREEN: _MOUSEHIDE
138.  
139.  
140.  
141.  
142. limit_cycle = 1
143. '------------------------------------------- BOSS CYCLE
144. DO: IF limit_cycle THEN _LIMIT 30
145.     draw_2d_map = _KEYDOWN(100306) OR _KEYDOWN(100305) 'if press CTRL, show the 2d map
146.  
147.     'draw non mover blocks
148.  
149.  
150.     FOR tx = -tile_marg TO map_x - 1 + tile_marg: FOR ty = -tile_marg TO map_y - 1 + tile_marg
151.             IF tx < 0 OR tx > map_x - 1 OR ty < 0 OR ty > map_y - 1 THEN
152.  
153.             ELSE
154.                 IF map(tx, ty) = 1 OR map(tx, ty) = 2 THEN
155.                     IF draw_2d_map THEN draw_brick_2d tx, ty, 1, 0
156.                     draw_brick_3d tx, ty, 0, 1
157.                 ELSE
158.  
159.                 END IF
160.             END IF
161.             tile_3d tx, ty
162.     NEXT ty, tx
163.  
164.     'draw mover blocks
165.     FOR amb = 0 TO mb_c - 1:
166.         IF mb(amb, 0) THEN
167.             IF draw_2d_map THEN draw_brick_2d mb(amb, 1), mb(amb, 2), 1, mb(amb, 5)
168.             draw_brick_3d mb(amb, 1), mb(amb, 2), mb(amb, 5), 1
169.         END IF
170.     NEXT amb
171.  
172.     'draw me
173.     IF (dead = 0 OR (dead AND INT(2 * RND(1)))) AND draw_2d_map THEN draw_brick_2d me(0), me(1), me(5), mb(0, 0)
174.  
175.     'draw money
176.     IF storyline = 0 THEN
177.         FOR t = 0 TO money_c - 1: IF money(t, 2) THEN _CONTINUE
178.             IF draw_2d_map THEN draw_brick_2d money(t, 0), money(t, 1), 1, -1
179.             money_3d money(t, 0), money(t, 1)
180.         NEXT t
181.     END IF
182.  
183.     'moving mover bricks
184.     FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
185.         p(0) = CINT(mb(amb, 1) + d(mb(amb, 3), 0) * (mb(amb, 6) + .5))
186.         p(1) = CINT(mb(amb, 2) + d(mb(amb, 3), 1) * (mb(amb, 6) + .5)): dontgo = 0: letsneg = 0
187.  
188.         FOR t = 0 TO mb_c - 1: IF mb(t, 0) = 0 OR t = amb OR dontgo THEN _CONTINUE
189.             vr = mb(t, 3) MOD 2: vr2 = vr = (mb(amb, 3) MOD 2)
190.             letsneg = letsneg OR (((ABS(mb(t, 1 + vr) - mb(amb, 1 + vr)) < 1) AND (mb(t, 1 + (vr XOR 1))) = (mb(amb, 1 + (vr XOR 1)))) AND vr2)
191.             dontgo = dontgo OR ((ABS(p(0) - mb(t, 1)) < 1 AND ABS(p(1) - mb(t, 2)) < 1) AND (vr2 = 0))
192.         NEXT t
193.  
194.         mb(amb, 3) = (mb(amb, 3) + ABS(((letsneg) OR map(p(0), p(1)) = 2 OR map(p(0), p(1)) = 3) OR (p(0) = 0 OR p(0) = map_x - 1 OR p(1) = 0 OR p(1) = map_y - 1)) * 2) MOD 4
195.         mb(amb, 4) = (mb(amb, 4) + ABS(dontgo)) * ABS(dontgo)
196.         mb(amb, 3) = (mb(amb, 3) + 2 * ABS((mb(amb, 4) > 5 / mb(amb, 6)) AND dontgo)) MOD 4
197.         mb(amb, 1) = mb(amb, 1) + d(mb(amb, 3), 0) * mb(amb, 6) * ABS(dontgo = 0)
198.         mb(amb, 2) = mb(amb, 2) + d(mb(amb, 3), 1) * mb(amb, 6) * ABS(dontgo = 0)
199.  
200.  
201.     NEXT amb
202.  
203.     'control me
204.     mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
205.     k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
206.     k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s"))
207.  
208.     me(3) = me(3) + mousex * mouse_sens '* ABS((_KEYDOWN(19200) OR _KEYDOWN(19712) OR _KEYDOWN(18432) OR _KEYDOWN(20480)) = 0)
209.     me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
210.     size_block = size_block - mw: IF size_block < 3 THEN size_block = 3 ELSE IF size_block > 140 THEN size_block = 140
211.  
212.     IF dead = 0 THEN
213.         IF crash_test(me(0), me(1)) THEN
214.             try_speed = speed_max * 1.1
215.             try = -1: FOR atry = 0 TO 3
216.                 IF crash_test(me(0) + d(atry, 0) * try_speed, me(1) + d(atry, 1) * try_speed) = 0 THEN try = atry: EXIT FOR
217.             NEXT atry: IF try = -1 THEN dead = 1
218.             IF dead = 0 THEN me(0) = me(0) + d(atry, 0) * try_speed: me(1) = me(1) + d(atry, 1) * try_speed
219.         END IF
220.         try_ang_sc = 85
221.         FOR try_ang = 0 TO try_ang_sc STEP 6: FOR try_ang_dir = 0 TO 1
222.                 go = me_speed * ABS(k_left OR k_right OR k_up OR k_down) * (1 / try_ang_sc * (try_ang_sc - try_ang)) ^ .7
223.                 go_ang = k_down * 180 + 90 * (k_left - k_right) + me(3) + (try_ang_dir * 2 - 1) * try_ang
224.                 go_x = SIN(go_ang * pip180) * go + me(0): go_y = -COS(go_ang * pip180) * go + me(1)
225.                 walk_limit_ok = (go_x < -walk_limit OR go_y < -walk_limit OR go_x > map_x - 1 + walk_limit OR go_y > map_y - 1 + walk_limit) = 0
226.                 IF crash_test(go_x, go_y) = 0 AND walk_limit_ok THEN me(0) = go_x: me(1) = go_y: GOTO ok
227.         NEXT try_ang_dir, try_ang
228.         ok:
229.  
230.     END IF
231.  
232.     'cheats
233.     inkey2$ = INKEY$: IF inkey2$ = CHR$(27) THEN SYSTEM
234.     IF cheat_keys THEN
235.         IF inkey2$ = "r" THEN RUN
236.         IF inkey2$ = "l" THEN limit_cycle = limit_cycle XOR 1
237.         IF inkey2$ = "c" THEN crash_test_disable = crash_test_disable XOR 1
238.         IF inkey2$ = "o" THEN dead = 1 'reborn
239.         IF inkey2$ = "p" THEN dead = 0 'dead
240.     END IF
241.     'sky draw
242.     sky_flash = sky_flash - 0.02: IF sky_flash < 0 THEN sky_flash = 0
243.     IF sky_flash > 1 THEN sky_flash = 1
244.     IF dead THEN sky_ind = 490 * SGN(INT(TIMER * 50) AND 1) ELSE sky_ind = INT(490 * sky_flash)
245.     asky = text_sky(sky_ind)
246.     _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(-16000, -16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
247.     _MAPTRIANGLE (0, 0)-(0, 5)-(5, 0), asky TO(16000, 16000, -10000)-(16000, -16000, -10000)-(-16000, 16000, -10000)
248.     _DISPLAY: CLS
249.  
250.     'money near- storyline
251.     IF storyline = 0 THEN
252.         FOR t = 0 TO money_c - 1
253.             find_money = SQR((me(0) - money(t, 0)) ^ 2 + (me(1) - money(t, 1)) ^ 2) < 1.1 AND (money(t, 2) = 0)
254.             IF find_money THEN money_sum = money_sum + 1: map(money(t, 0), money(t, 1)) = 0: money(t, 2) = 1: sky_flash = 1
255.         NEXT t
256.         storyline = storyline + ABS(money_sum = money_c)
257.     END IF
258.     IF storyline = 1 AND (me(0) > 0 AND me(0) < map_x - 1 AND me(1) > 0 AND me(1) < map_y - 1) = 0 THEN storyline = 2
259.  
260.     SELECT CASE storyline
261.         CASE 0: s$ = "GET THE MONEY !   " + STR$(money_c) + " /" + STR$(money_sum)
262.         CASE 1: s$ = "ESCAPE OUTSIDE THE WALL !"
263.         CASE 2: s$ = "Mission compeleted ! "
264.     END SELECT
265.  
266.     IF dead THEN s$ = "you dead ,mission incompleted !"
267.  
268.     COLOR _RGB32(255 * RND(1), 255 * RND(1), 255 * RND(1)): LOCATE 3, (monx / 8 - LEN(s$)) / 2: PRINT s$
269.     IF draw_2d_map = 0 THEN COLOR _RGB32(255, 255, 255), _RGBA(0, 0, 0, 0): LOCATE mony / 16 - 1, 1: PRINT "CTRL - show 2Dmap        mouse wheel:2Dmap zoom";
270.  
271. LOOP
272.  
273. 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
274.  
275. FUNCTION crash_test (x, y): IF crash_test_disable THEN EXIT FUNCTION
276.  
277.     FOR myp = 0 TO 3: mx = x + me(5) * .5 * (SGN(myp AND 1) * 2 - 1): my = y + me(5) * .5 * (SGN(myp AND 2) * 2 - 1)
278.         FOR amb = 0 TO mb_c - 1: IF mb(amb, 0) = 0 THEN _CONTINUE
279.             IF mx > mb(amb, 1) - .5 AND mx < mb(amb, 1) + .5 AND my > mb(amb, 2) - .5 AND my < mb(amb, 2) + .5 THEN crash_test = 1: EXIT FUNCTION
280.         NEXT amb
281.         FOR tx = 0 TO map_x - 1: FOR ty = 0 TO map_y - 1: IF map(tx, ty) = 0 THEN _CONTINUE
282.                 IF mx > tx - .5 AND mx < tx + .5 AND my > ty - .5 AND my < ty + .5 THEN crash_test = 1: EXIT FUNCTION
283.     NEXT ty, tx, myp
284. END FUNCTION
285.  
286. SUB draw_brick_2d (x, y, relsize, col)
287.     DIM x(3), y(3): xc = (x - me(0)) * size_block + .5: yc = (y - me(1)) * size_block + .5: rot = (-me(3) + 180) * pip180
288.     rotate_2d xc, yc, rot: xc = xc + monx / 2: yc = yc + mony / 2: size = size_block * size_wall * .5 * relsize
289.     FOR t = 0 TO 3: x(t) = size * -(SGN(t AND 1) * 2 - 1): y(t) = size * (ABS(t < 2) * 2 - 1)
290.     rotate_2d x(t), y(t), rot: x(t) = INT(x(t) + xc): y(t) = INT(y(t) + yc): NEXT t
291.     IF col = -1 THEN COLOR _RGB32(256 * RND(1), 256 * RND(1), 256 * RND(1)) ELSE COLOR b_colors(col)
292.     LINE (x(0), y(0))-(x(1), y(1)): LINE (x(3), y(3))-(x(1), y(1)): LINE (x(2), y(2))-(x(3), y(3)): LINE (x(0), y(0))-(x(2), y(2))
293.     IF col = -1 THEN PAINT ((x(0) + x(3)) / 2, (y(0) + y(3)) / 2)
294.  
295. END SUB
296.  
297.  
298. SUB point_3d (x, y, z)
299.     x = x - me(0): y = y - me(2): z = z - me(1): rotate_2d x, z, -(me(3) + 180) * pip180: rotate_2d y, z, (me(4) + 180) * pip180
300.     x = x * 100: y = y * 100: z = z * 100
301. END SUB
302.  
303. SUB draw_brick_3d (x, y, text, relsize)
304.     DIM p(3, 2), pc(7, 2), sq(3)
305.     size = size_wall * .5 * relsize
306.     FOR t = 0 TO 7
307.         pc(t, 0) = size * (SGN(t AND 1) * 2 - 1) + x: pc(t, 2) = size * (SGN(t AND 2) * 2 - 1) + y: pc(t, 1) = size * SGN(t AND 4) * 2
308.         point_3d pc(t, 0), pc(t, 1), pc(t, 2)
309.     NEXT t
310.  
311.     FOR t = 0 TO 3
312.         FOR t2 = 0 TO 3: side = VAL(MID$("-0246-2367-3175-1054", 2 + t * 5 + t2, 1))
313.         FOR t3 = 0 TO 2: p(t2, t3) = pc(side, t3): NEXT t3, t2
314.         draw_square p(), text_mb(text, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
315.     NEXT t
316. END SUB
317.  
318. SUB tile_3d (x, y)
319.     DIM p(3, 2)
320.     FOR t = 0 TO 3
321.         p(t, 0) = x + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = y + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = 0
322.         point_3d p(t, 0), p(t, 1), p(t, 2)
323.     NEXT t
324.     draw_square p(), text_mb(0, shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
325. END SUB
326.  
327. SUB money_3d (x, y)
328.     DIM p(3, 2): ang = TIMER * 2
329.     FOR t = 0 TO 3
330.         ang = (TIMER * 2 + _PI * (t AND 1) + x + y) * (((x + y) AND 1) * 2 - 1)
331.         p(t, 0) = SIN(ang) * .5 + x: p(t, 2) = COS(ang) * .5 + y: p(t, 1) = SGN(t AND 2)
332.         point_3d p(t, 0), p(t, 1), p(t, 2)
333.     NEXT t
334.     draw_square p(), text_money(INT(10 * RND(1)))
335. END SUB
336.  
337. SUB draw_square (p(), text)
338.     wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
339.     _MAPTRIANGLE (0, 0)-(wtext, 0)-(0, htext), text TO(p(0, 0), p(0, 1), p(0, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
340.     _MAPTRIANGLE (wtext, htext)-(wtext, 0)-(0, htext), text TO(p(3, 0), p(3, 1), p(3, 2))-(p(1, 0), p(1, 1), p(1, 2))-(p(2, 0), p(2, 1), p(2, 2)), , _SMOOTH
341. END SUB
342.  
343.  
344.