Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - MasterGy

Pages: [1] 2 3 4
1
Programs / Garland of pearls
« on: March 21, 2022, 08:12:03 pm »
in principle, if I create a cobweb of points and connections, it will be a real cobweb in 3d that takes over all the vibrations of the spider


Code: QB64: [Select]
  1.  
  3. CONST pip180 = 3.141592 / 180
  4. monx = 800: mony = 800: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon
  5.  
  6. gravity = 1
  7. obj_c = 15 'number objects
  8. DIM obj(obj_c - 1, 9) '0,1 posX,Y 3fix/mover
  9.  
  10.  
  11.  
  12. cent_x = monx / 2: cent_y = 20: zoom = 2
  13.  
  14. 'install "garland of pearls"
  15.  
  16.  
  17. 'garland
  18. min_weight = 6
  19. FOR a = 0 TO obj_c - 1
  20.     obj(a, 0) = (RND(1) - .5) * 100
  21.     obj(a, 1) = (RND(1) - .5) * 100
  22.     obj(a, 2) = min_weight + min_weight / 2 * RND(1)
  23.     obj(a, 3) = 1 '<---- 0 if fix, 1 if fly
  24.  
  26. obj(0, 0) = -64.5: obj(0, 1) = 5: obj(0, 3) = 0
  27. obj(obj_c - 1, 0) = 183.5: obj(obj_c - 1, 1) = -.5: obj(obj_c - 1, 3) = 0
  28.  
  29. 'connections
  30. conn_c = 100: DIM conn(conn_c - 1, 4)
  31. FOR a = 0 TO obj_c - 2
  32.     conn(a, 0) = a
  33.     conn(a, 1) = a + 1
  34.     conn(a, 2) = 20 'rope width
  35.     conn(a, 3) = 1
  37.  
  38.  
  39.  
  40.  
  41.  
  42. DO: _LIMIT 100
  43.  
  44.     'show info
  45.     wch = -1: FOR a = 0 TO obj_c - 1
  46.         IF _MOUSEX < 200 AND INT(_MOUSEY / 16) = a THEN wch = a: COLOR _RGB32(255, 255, 255) ELSE COLOR _RGB32(100, 100, 100)
  47.         LOCATE a + 1, 1: PRINT a; "# weight:"; INT(obj(a, 2) * 10) / 10;: IF obj(a, 3) = 0 THEN PRINT "FIX";
  48.         IF wch = a THEN PRINT "<--- using mousewheel !"
  49.         IF wch <> -1 THEN obj(wch, 2) = obj(wch, 2) + mw / 10: IF obj(wch, 2) < min_weight THEN obj(wch, 2) = min_weight
  50.     NEXT a
  51.     LOCATE mony / 16 - 1, 1: IF moving THEN PRINT "press SPACE to FIX/FLY"; ELSE PRINT "grab the ball with the mouse and move it!";
  52.  
  53.     'draw objects
  54.     FOR a = 0 TO obj_c - 1
  55.         x = cent_x + obj(a, 0) * zoom
  56.         y = cent_y + obj(a, 1) * zoom
  57.         IF mouse_near = a THEN COLOR _RGB32(255, 0, 0) ELSE COLOR _RGB32(200, 200, 200)
  58.         CIRCLE (x, y), obj(a, 2) * zoom
  59.         _PRINTSTRING (x, y), LTRIM$(STR$(a))
  60.     NEXT a
  61.  
  62.     'draw connections
  63.  
  64.     COLOR _RGB32(150, 150, 150)
  65.     FOR a = 0 TO conn_c - 1: IF conn(a, 3) = 0 THEN _CONTINUE
  66.         x1 = obj(conn(a, 0), 0) * zoom + cent_x
  67.         y1 = obj(conn(a, 0), 1) * zoom + cent_y
  68.         x2 = obj(conn(a, 1), 0) * zoom + cent_x
  69.         y2 = obj(conn(a, 1), 1) * zoom + cent_y
  70.     LINE (x1, y1)-(x2, y2): NEXT a
  71.  
  72.     'calculate moving
  73.  
  74.  
  75.     FOR a = 0 TO obj_c - 1: IF obj(a, 3) = 0 OR (mouse_near = a AND _MOUSEBUTTON(1)) THEN _CONTINUE
  76.  
  77.         'connections vector
  78.         vec_x = 0: vec_y = 0: vec_c = 0
  79.         FOR t = 0 TO conn_c - 1: IF conn(t, 3) = 0 THEN _CONTINUE
  80.             x = -1: FOR t2 = 0 TO 1: IF conn(t, t2) = a THEN x = conn(t, t2 XOR 1)
  81.             NEXT t2
  82.             IF x <> -1 THEN
  83.                 disx = obj(a, 0) - obj(x, 0)
  84.                 disy = obj(a, 1) - obj(x, 1)
  85.                 ang = (-degree(disx, disy) + 0) * pip180
  86.                 dis = SQR(disx * disx + disy * disy)
  87.                 power = dis / obj(a, 2) / 5
  88.                 '  IF dis < (obj(a, 2) + obj(x, 2)) THEN power = -power / 10000
  89.                 vec_x = vec_x + SIN(ang) * power
  90.                 vec_y = vec_y - COS(ang) * power
  91.                 vec_c = vec_c + 1
  92.             END IF
  93.         NEXT t
  94.  
  95.         gravity = .1
  96.         lass = .98
  97.  
  98.         obj(a, 4) = (obj(a, 4) + vec_x / vec_c) * lass
  99.         obj(a, 5) = (obj(a, 5) + vec_y / vec_c) * lass + gravity
  100.  
  101.         lx = obj(a, 0) + obj(a, 4)
  102.         ly = obj(a, 1) + obj(a, 5)
  103.  
  104.         obj(a, 0) = obj(a, 0) + obj(a, 4)
  105.         obj(a, 1) = obj(a, 1) + obj(a, 5)
  106.  
  107.  
  108.  
  109.     NEXT a
  110.  
  111.     mw = 0: WHILE _MOUSEINPUT: mw = mw + _MOUSEWHEEL: WEND
  112.  
  113.     'mouse moving activing
  114.     IF moving = 0 THEN
  115.         mouse_near = -1
  116.         FOR a = 0 TO obj_c - 1
  117.             disx = (cent_x + obj(a, 0) * zoom) - _MOUSEX
  118.             disy = (cent_y + obj(a, 1) * zoom) - _MOUSEY
  119.             dis = SQR(disx * disx + disy * disy)
  120.             IF dis < 10 THEN mouse_near = a
  121.         NEXT a
  122.     END IF
  123.  
  124.     IF (_MOUSEBUTTON(1) AND mouse_near <> -1) OR moving THEN
  125.         moving = 1
  126.         obj(mouse_near, 0) = (_MOUSEX - cent_x) / zoom
  127.         obj(mouse_near, 1) = (_MOUSEY - cent_y) / zoom
  128.     END IF
  129.  
  130.     moving = moving AND _MOUSEBUTTON(1)
  131.  
  132.  
  133.     'change weights with mousewheel
  134.  
  135.  
  136.  
  137.     _DISPLAY: CLS
  138.  
  139.     'commands
  140.     inkey2$ = INKEY$: IF inkey2$ = CHR$(27) THEN END
  141.     IF inkey2$ = " " AND _MOUSEBUTTON(1) AND moving THEN obj(mouse_near, 3) = obj(mouse_near, 3) XOR 1
  142.  
  143.  
  145.  
  146.  
  147.  
  148.  
  149. FUNCTION degree (a, b): degreex = ATN(a / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0): degree = degreex: END FUNCTION
  150.  

2
Programs / EVIL SPIDERS <--- only for the nervous system!
« on: March 11, 2022, 02:33:40 pm »
It's done!
I opened a new post because the game is ready from now on.
I intentionally didn’t put out either a video or a picture because I’m curious about the first reactions.
I didn't write the "strong" nervous system one out of a joke. Anyone unfamiliar with games like this can be scary at first.
The mood of the game is depressing, dark, depressing, and EVIL! :)

Thanks to Johnno56, the forum member for the newsprint idea !!!

3
Programs / Spider animation
« on: March 07, 2022, 10:04:17 am »
i want spiders in the game but not 2d gifs but i want my legs to move in 3d. I searched the internet and found good animations to move my legs.

https://in.pinterest.com/joysonvaz/animated-spider/

I downloaded the images and determined the position of the joints with an image editing program and built them into a system. Of course, the values went through a lot of transformations before I could store them in fairly well-compressed ASCII. Some samples, combined with linear interpolation, return very meticulous motion.

Code: QB64: [Select]
  1. DIM SHARED spani$
  2. spani$ = "LNKOJKGJDKMNMNQLROSQNNOOPKSMSPPNPNUMWOYRLNKOJKGKDMMNMONJNNNPNNOOOKPMPPPNQNTKXNZPLNKOJLHNFQMNMOLKKNLPNNOOOKNONQPNQOSLXMZPLNKOILGOGRMNMNLJILIO"
  3. spani$ = spani$ + "NNOOOLPOPRPNQNQKUNUQLNKOJKHOIRMNMNMKJMHPNNOORKUNURPNPOQKTNSQLNKOILHOIRMNMOLKKOJQNNPORLUOVRPNQOQKRNRRLNLOJMIOKRMNMOLKLOMRNNNOLMKPMRPNQORLRORR"
  4. spani$ = spani$ + "LNLOLKHMHOMNMNOJPNOQNNNONLJMJPPNPNSLUOTRLNLOKLGKFNMNMNPKQNQRNNPOQKTMTPPNPNTLWNXQ"
  5.  
  6.  
  7.  
  8. monx = 800: mony = 800: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon
  9.  
  10. DIM xy(1)
  11. zoom = 12
  13.     FOR leg = 0 TO 3
  14.         FOR bre = 0 TO 3
  15.             sl_read xy(), ani, leg, bre
  16.             x1 = xy(0) * zoom + monx / 2
  17.             y1 = xy(1) * zoom + mony / 2
  18.             sl_read xy(), ani, leg, bre + 1
  19.             x2 = xy(0) * zoom + monx / 2
  20.             y2 = xy(1) * zoom + mony / 2
  21.             LINE (x1, y1)-(x2, y2)
  22.         NEXT bre
  23.     NEXT leg
  24.  
  25.     _DISPLAY: CLS
  26.     ani = ani + .1
  28.  
  29. SUB sl_read (xy(), ani, leg, bre): n1 = INT(ani) MOD 9: n2 = (n1 + 1) MOD 9: n3 = ani - INT(ani): pre = 1 + bre * 2 + leg * 10
  30. FOR t = 0 TO 1: a = ASC(MID$(spani$, t + pre + n1 * 40, 1)) - 78: b = ASC(MID$(spani$, t + pre + n2 * 40, 1)) - 78: xy(t) = a + (b - a) * n3: NEXT t: END SUB
  31.  
  32.  

4
Programs / Mystical rooms, collect the diamonds!
« on: March 06, 2022, 02:11:14 pm »
I made a game.
There are rooms. The rooms have doors. There is only 1 door in 1 room, which takes you to the next room! Find the right way! Get to the last room and collect all the diamonds!
The engine of the game is from Mover Bricks. The challenge here was how I connected the doors. There is only one way up.
The number of rooms and doors can be set at the beginning of the source code. It is very chaotic to raise these values, but whoever has a good memory and a good location recognizer can easily find the right doors!

No file accessories.

 
ss.jpg


Code: QB64: [Select]
  1. monx = 800: DIM SHARED rm(9, 1): DIM SHARED p(3, 2): RANDOMIZE TIMER
  2.  
  3. '---------------------- settings -----------------------------------
  4.  
  5.  
  6. room_c = 4 'how many rooms should be in the game?
  7. diamant_c = 10 'average number of diamonds / room
  8. room_doormin = 2 'there must be at least as many doors in a room
  9. room_doormax = 3 'there should be a maximum of this number of doors in a room
  10. me_speed = .15 'my speed
  11. mouse_sens = .5
  12.  
  13.  
  14.  
  15.  
  16.  
  17. '-----ADVANCED SETTINGS ----------------------------------------------------------------------------------------------------------------
  18. diamant_speed_min = .05 'diamant speed 1. room
  19. diamant_speed_max = .15 'diamant speed last room
  20. room_buffsize = 100
  21. room_relsize = 20
  22. room_boxmin_c = 4
  23. room_boxmax_c = 6
  24. shdw_c = 40
  25.  
  27. CONST pip180 = 3.141592 / 180
  28. cheat_active = 0
  29.  
  30. 'make colors
  31. DIM SHARED b_colors(room_c - 1) AS _INTEGER64: FOR t = 0 TO room_c - 1: b_colors(t) = _RGB32(30 + 180 * RND(1), 30 + 180 * RND(1), 30 + 180 * RND(1)): NEXT t
  32. DIM temp_color(9) AS _INTEGER64
  33. DIM SHARED crash_active
  34.  
  35. 'shadows
  36. 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
  37. shdw(t) = ashdw: NEXT t
  38.  
  39. 'make textures
  40. dia_text_c = 20: DIM dia_text(dia_text_c - 1, shdw_c - 1)
  41. dt_c = 10
  42. marg = .12: DIM SHARED text_tile(room_c - 1, shdw_c - 1) AS _INTEGER64: DIM door_text(dt_c - 1, shdw_c - 1)
  43. FOR t = 0 TO shdw_c - 1: tmax = 40: tmin = 40: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t): dark = 1 - 1 / (shdw_c - 1) * t
  44.     stand_temp = _NEWIMAGE(size, size, 32): _DEST stand_temp: CLS , _RGB32(50, 50, 50) 'frame color
  45.     LINE (size * marg, size * marg)-(size - size * marg, size - size * marg), _RGB32(180, 180, 180), BF: _SOURCE stand_temp
  46.     noise = 5 + 5 * (1 / (shdw_c - 1) * t) ^ 1.2: FOR tx = 0 TO size - 1: FOR ty = 0 TO size - 1: temp_color(0) = POINT(tx, ty)
  47.             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)
  48.     NEXT ty, tx
  49.  
  50.     'make wall
  51.     FOR t2 = 0 TO room_c - 1: temp = _COPYIMAGE(stand_temp, 32): _DEST temp
  52.         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)
  53.         _SOURCE trans: _DEST temp: _BLEND temp: _PUTIMAGE: _FREEIMAGE trans: 'tile coloring
  54.         trans = _NEWIMAGE(5, 5, 32): _DEST trans: CLS , _RGBA32(0, 0, 0, (1 - dark) * 255)
  55.         _SOURCE trans: _DEST temp: _PUTIMAGE: _FREEIMAGE trans 'tile darking
  56.     text_tile(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2: _FREEIMAGE stand_temp
  57.  
  58.     'make door-flash
  59.     temp_color(0) = _RGB32(255, 100, 100): temp_color(1) = _RGB32(100, 100, 255) 'door 2 colors
  60.     FOR t2 = 0 TO dt_c - 1: a = 1 / (dt_c - 1) * t2: temp = _NEWIMAGE(3, 3, 32): _DEST temp: m = .5 * dark
  61.         cr = (_RED32(temp_color(0)) * a + _RED32(temp_color(1)) * (1 - a)) * m: cg = (_GREEN32(temp_color(0)) * a + _GREEN32(temp_color(1)) * (1 - a)) * m
  62.         cb = (_BLUE32(temp_color(0)) * a + _BLUE32(temp_color(1)) * (1 - a)) * m: CLS , _RGB32(cr, cg, cb)
  63.     door_text(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2
  64.  
  65.     'make diamants
  66.     tmax = 100: tmin = 40: size = INT(tmax - (tmax - tmin) / (shdw_c - 1) * t)
  67.     FOR t2 = 0 TO dia_text_c - 1: temp = _NEWIMAGE(size, size, 32): _DEST temp: _SOURCE temp
  68.         temp_color(0) = _RGB32(2 + dark * 186 * RND(1), 2 + dark * 186 * RND(1), 2 + dark * 186 * RND(1))
  69.         COLOR temp_color(0): CIRCLE (size / 2, size / 2), size / 2 * .95: PAINT (size / 2, size / 2), temp_color(0), temp_color(0)
  70.     _CLEARCOLOR POINT(0, 0): dia_text(t2, t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t2
  72.  
  73. 'white flash
  74. wf_c = 20: DIM wf_text(wf_c - 1): sizex = INT(monx * .3): sizey = INT(mony * .3)
  75. FOR t = 0 TO wf_c - 1: temp = _NEWIMAGE(sizex, sizey, 32): _DEST temp: FOR tx = 0 TO sizex - 1: FOR ty = 0 TO sizey - 1
  76.             PSET (tx, ty), _RGBA32(255, 255, 255, ((255 / (sizex / 2) * SQR((sizex / 2 - tx) ^ 2 + (sizey / 2 - ty) ^ 2) + 200) * (1 / (wf_c - 1) * t)) * .6)
  77. NEXT ty, tx: wf_text(t) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT t
  78.  
  79.  
  80. DIM d(7, 1) AS _BYTE 'directions array
  81. d(0, 1) = -1: d(1, 0) = 1: d(1, 1) = -1: d(2, 0) = 1: d(3, 0) = 1: d(3, 1) = 1
  82. d(4, 1) = 1: d(5, 0) = -1: d(5, 1) = 1: d(6, 0) = -1: d(7, 0) = -1: d(7, 1) = -1
  83.  
  84. 'ROOM array
  85. '0,1,2,3 x1,y1,x2,y2 position in room_map array
  86. '4 number of doors
  87. '20+ ,21+  door coordinates (step5)
  88. '22+ door exit direction
  89.  
  90. 'ROOM_MAP array  (room,x,y)
  91. 'nothing
  92. 'bit 0-walking area
  93. 'bit 1,2,3,4-wall
  94. 'bit 5 door
  95. DIM SHARED me(9), cam(9) '0,1,2 XYZ 3,4 angAB , 5 room
  96.  
  97. 'make rooms
  98. DIM SHARED room(room_c - 1, 99), room_map(room_c - 1, room_buffsize - 1, room_buffsize - 1) AS _UNSIGNED _BYTE
  99.  
  100. mapsize0 = 20: room(0, 1) = mapsize0: room(0, 3) = mapsize0: FOR tx = 0 TO mapsize0 - 1: FOR ty = 0 TO mapsize0 - 1
  101. room_map(0, tx, ty) = 1 + ABS(tx = 0 OR tx = mapsize0 - 1 OR ty = 0 OR ty = mapsize0 - 1) * 3: NEXT ty, tx
  102.  
  103. FOR ar = 0 TO room_c - 1
  104.     IF ar THEN
  105.         room_map(ar, INT(room_buffsize / 2), INT(room_buffsize / 2)) = 1: reg_minmax_reset 0: reg_minmax_reset 1
  106.         FOR t = 0 TO INT(randscale(room_boxmin_c, room_boxmax_c)) - 1
  107.             FOR t2 = 0 TO 1: box(t2) = INT(randscale(INT(room_relsize * (.4 + .2 * t2)), INT(room_relsize * (.5 + .2 * t2)))): NEXT t2
  108.             IF INT(2 * RND(1)) THEN SWAP box(0), box(1)
  109.             DO: px = INT(room_buffsize * RND(1)): py = INT(room_buffsize * RND(1)): LOOP UNTIL room_map(ar, px, py)
  110.             px2 = INT(box(0) * RND(1) / 2): py2 = INT(box(1) * RND(1) / 2): FOR tx = 0 TO box(0) - 1: FOR ty = 0 TO box(1) - 1
  111.         wx = tx + px - px2: wy = ty + py - py2: room_map(ar, wx, wy) = 1: reg_minmax 0, wx: reg_minmax 1, wy: NEXT ty, tx, t
  112.         room(ar, 0) = rm(0, 0) - 2: room(ar, 1) = rm(0, 1) + 2: room(ar, 2) = rm(1, 0) - 2: room(ar, 3) = rm(1, 1) + 2
  113.         'make doors
  114.         room(ar, 4) = INT(randscale(room_doormin, room_doormax)): FOR ad = 0 TO room(ar, 4) - 1: agent = 0
  115.             DO: px = INT((room_buffsize - 2) * RND(1)) + 1: py = INT((room_buffsize - 2) * RND(1)) + 1: REDIM cnt(1, 1): dis_nook = 0
  116.                 FOR t2 = 0 TO 1: FOR t = 0 TO 7 STEP 2 - t2: c = room_map(ar, px + d(t, 0), py + d(t, 1)): cnt(t2, c) = cnt(t2, c) + 1: NEXT t, t2
  117.                 FOR ad2 = 0 TO ad: dis_nook = dis_nook OR (SQR((room(ar, 20 + ad2 * 5) - px) ^ 2 + (room(ar, 21 + ad2 * 5) - py) ^ 2) < 5 AND (ad2 <> ad))
  118.                     agent = agent + 1: IF agent > 100000 THEN room(ar, 4) = ad + 0: agent2 = 1: GOTO exitroom
  119.             NEXT ad2: LOOP UNTIL cnt(0, 0) = 3 AND cnt(0, 1) = 1 AND cnt(1, 0) = 5 AND cnt(1, 1) = 3 AND dis_nook = 0
  120.             room(ar, 20 + ad * 5) = px: room(ar, 21 + ad * 5) = py
  121.         FOR t = 0 TO 7 STEP 2: room(ar, 22 + ad * 5) = room(ar, 22 + ad * 5) OR room_map(ar, px + d(t, 0), py + d(t, 1)) * t: NEXT t, ad 'door exit dir
  122.         exitroom:
  123.         'make wall type
  124.         FOR tx = room(ar, 0) TO room(ar, 1): FOR ty = room(ar, 2) TO room(ar, 3): IF room_map(ar, tx, ty) = 1 THEN _CONTINUE
  125.                 FOR t = 0 TO 7 STEP 2: room_map(ar, tx, ty) = room_map(ar, tx, ty) OR (2 ^ (t / 2) * 2) * ABS(room_map(ar, tx + d(t, 0), ty + d(t, 1)) = 1)
  126.         NEXT t, ty, tx
  127.     END IF
  128.  
  129.     'add door to the room interior
  130.     IF ar THEN add_room_c = INT(3 * RND(1)): ELSE add_room_c = 1
  131.     IF add_room_c THEN
  132.         FOR t = 0 TO add_room_c - 1: agent = 0
  133.             DO: FOR t2 = 0 TO 1: box(t2) = randscale(room(ar, t2 * 2), room(ar, 1 + t2 * 2) - 1): NEXT t2: room_ok = 1
  134.                 FOR tx = 0 TO 4: FOR ty = 0 TO 4: IF room_map(ar, tx + box(0), ty + box(1)) <> 1 THEN room_ok = 0
  135.                 NEXT ty, tx: agent = agent + 1: IF agent > 500000 THEN GOTO exitroom2
  136.             LOOP UNTIL room_ok: FOR tx = 1 TO 3: FOR ty = 1 TO 3: room_map(ar, tx + box(0), ty + box(1)) = 2: NEXT ty, tx
  137.             FOR t2 = 0 TO 1: room(ar, 20 + room(ar, 4) * 5 + t2) = box(t2) + 2: NEXT t2: room(ar, 22 + room(ar, 4) * 5) = INT(4 * RND(1)) * 2
  138.             room_map(ar, box(0) + 2 + d(room(ar, 22 + room(ar, 4) * 5), 0), box(1) + 2 + d(room(ar, 22 + room(ar, 4) * 5), 1)) = 1
  139.         room(ar, 4) = room(ar, 4) + 1: NEXT t
  140.     END IF
  141.     exitroom2:
  142.  
  143.     'doors to map
  144.     FOR ad = 0 TO room(ar, 4) - 1: room_map(ar, room(ar, 20 + ad * 5), room(ar, 21 + ad * 5)) = 2 ^ 5: NEXT ad
  145. NEXT ar
  146.  
  147.  
  148. 'diamants location
  149. dia_c = diamant_c * (room_c - 1): DIM dia(dia_c - 1, 9): FOR ad = 0 TO dia_c - 1: dia(ad, 3) = INT((room_c - 1) * RND(1)) + 1
  150.     DO: FOR t = 0 TO 1: dia(ad, t) = randscale(room(dia(ad, 3), t * 2), room(dia(ad, 3), 1 + t * 2)): NEXT t
  151.     LOOP UNTIL room_map(dia(ad, 3), dia(ad, 0), dia(ad, 1)) = 1: dia(ad, 2) = .5
  152.     dv = (1 + RND(1)) * (diamant_speed_min + (diamant_speed_max - diamant_speed_min) / (room_c - 1) * dia(ad, 3))
  153.     dega = 360 * RND(1) * pip180: degb = 360 * RND(1) * pip180: dia(ad, 8) = 1
  154. dia(ad, 4) = SIN(degb) * COS(dega) * dv: dia(ad, 5) = SIN(degb) * SIN(dega) * dv: dia(ad, 6) = COS(degb) * dv / 2: NEXT ad
  155.  
  156.  
  157. 'my start position
  158. DO: FOR t = 0 TO 1: me(t) = randscale(room(me(5), t * 2), room(me(5), 1 + t * 2)): NEXT t: LOOP UNTIL room_map(me(5), me(0), me(1)) = 1
  159.  
  160. 'allocation of doors
  161. DIM adoor(room_c - 1, room_doormax + 10, 9) '9-present 0-trans to room 1-trans to door,8 -the only route
  162. FOR ar = 0 TO room_c - 2 'create only route
  163.     DO: door1 = INT(room(ar, 4) * RND(1)): LOOP WHILE adoor(ar, door1, 9)
  164.     DO: door2 = INT(room(ar + 1, 4) * RND(1)): LOOP WHILE adoor(ar + 1, door2, 9)
  165.     adoor(ar, door1, 0) = ar + 1: adoor(ar, door1, 1) = door2: adoor(ar, door1, 8) = 1: adoor(ar, door1, 9) = 1
  166. adoor(ar + 1, door2, 0) = ar: adoor(ar + 1, door2, 1) = door1: adoor(ar + 1, door2, 9) = 1: NEXT ar
  167.  
  168. FOR ar = 1 TO room_c - 1: FOR ad = 0 TO room(ar, 4) - 1: IF adoor(ar, ad, 9) THEN _CONTINUE
  169. adoor(ar, ad, 0) = INT(ar * RND(1)): adoor(ar, ad, 1) = INT(room(adoor(ar, ad, 0), 4) * RND(1)): adoor(ar, ad, 9) = 1: NEXT ad, ar
  170.  
  171. mon2 = _NEWIMAGE(800, 800, 32): SCREEN mon2: PRINT "DOORS ALLOCATION ": FOR ar = 0 TO room_c - 1: FOR ad = 0 TO room(ar, 4) - 1
  172.         IF adoor(ar, ad, 8) THEN COLOR _RGB32(255, 255, 255) ELSE COLOR _RGB32(100, 100, 100)
  173. PRINT ar; ".room,"; ad; ".door   TRANS TO  room:"; adoor(ar, ad, 0); ",door:"; adoor(ar, ad, 1): NEXT ad: PRINT: NEXT ar
  174. COLOR _RGB32(50, 50, 50): PRINT "Press any key !": DO: _LIMIT 30: LOOP WHILE INKEY$ = ""
  175.  
  176.  
  177.  
  178.  
  180. door_clip_d = 1: crash_active = 1: me(2) = .2 'my height in the game 0-1
  181. '----------------------------------------- BOSS CYCLE -------------------------------------------------------------------------
  182. DO: IF boss_limit = 0 THEN _LIMIT 50
  183.     inkey2$ = INKEY$
  184.     'cheat keys
  185.     boss_limit = boss_limit XOR ABS(cheat_active AND inkey2$ = "l"): crash_active = crash_active XOR ABS(cheat_active AND inkey2$ = "c")
  186.     me(2) = me(2) + (_KEYDOWN(ASC("+")) - _KEYDOWN(ASC("-"))) * .05 * cheat_active
  187.  
  188.     'control me
  189.     mousex = 0: mousey = 0: mw = 0: WHILE _MOUSEINPUT: mousex = mousex + _MOUSEMOVEMENTX: mousey = mousey + _MOUSEMOVEMENTY: mw = mw + _MOUSEWHEEL: WEND
  190.     k_left = _KEYDOWN(19200) OR _KEYDOWN(ASC("a")): k_right = _KEYDOWN(19712) OR _KEYDOWN(ASC("d"))
  191.     k_up = _KEYDOWN(18432) OR _KEYDOWN(ASC("w")) OR _MOUSEBUTTON(1): k_down = _KEYDOWN(20480) OR _KEYDOWN(ASC("s")) OR _MOUSEBUTTON(2)
  192.     me(3) = me(3) + mousex * mouse_sens: me(4) = me(4) + mousey * mouse_sens: IF ABS(me(4)) > 80 THEN me(4) = 80 * SGN(me(4))
  193.  
  194.     try_ang_sc = 85: FOR try_ang = 0 TO try_ang_sc STEP 6: FOR try_ang_dir = 0 TO 1
  195.             go = me_speed * ABS((k_left + k_right + k_up + k_down) = -1) * (1 / try_ang_sc * (try_ang_sc - try_ang))
  196.             go_ang = k_down * 180 + 90 * (k_left - k_right) + (me(3) + (try_ang_dir * 2 - 1) * try_ang): kit = .2
  197.             go_xa = SIN(go_ang * pip180) * kit + me(0): go_ya = -COS(go_ang * pip180) * kit + me(1): go_xg = SIN(go_ang * pip180) * go + me(0)
  198.             go_yg = -COS(go_ang * pip180) * go + me(1): IF crash(go_xa, go_ya) = 0 THEN me(0) = go_xg: me(1) = go_yg: GOTO ok
  199.     NEXT try_ang_dir, try_ang
  200.     ok:
  201.  
  202.     FOR t = 0 TO 9: cam(t) = me(t): NEXT t: door_clip = door_clip + door_clip_d: IF INT(door_clip) < 1 OR INT(door_clip) > dt_c - 2 THEN door_clip_d = -door_clip_d
  203.  
  204.     'draw objects
  205.     FOR tx = 0 TO room(me(5), 1) - room(me(5), 0): FOR ty = 0 TO room(me(5), 3) - room(me(5), 2)
  206.             l = room_map(me(5), room(me(5), 0) + tx, room(me(5), 2) + ty)
  207.             IF l = 1 OR l = 32 THEN 'TILE
  208.                 roof = (1 - ABS(me(5) = 0))
  209.                 FOR t2 = 0 TO roof: FOR t = 0 TO 3: p(t, 0) = tx + (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = ty + (SGN(t AND 2) * 2 - 1) * .5: p(t, 1) = t2
  210.                     point_3d p(t, 0), p(t, 1), p(t, 2): NEXT t: draw_square p(), text_tile(me(5), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  211.                 NEXT t2
  212.             END IF
  213.             IF l / 2 AND 15 THEN draw_brick_3d tx, ty 'WALL
  214.             IF l AND 32 THEN 'GATE
  215.                 dt = 0: FOR t2 = 0 TO 7 STEP 2: dt = dt OR (t2 * ABS(room_map(me(5), room(me(5), 0) + tx + d(t2, 0), room(me(5), 2) + ty + d(t2, 1)) = 1))
  216.                     NEXT t2: FOR t = 0 TO 3: p(t, 0) = (SGN(t AND 1) * 2 - 1) * .5: p(t, 2) = 0: p(t, 1) = (SGN(t AND 2) * 2 - 1) * .5 + .5
  217.                     rotate_2d p(t, 0), p(t, 2), 90 * pip180 * SGN(dt AND 2)
  218.                     p(t, 0) = p(t, 0) + tx: p(t, 2) = p(t, 2) + ty: point_3d p(t, 0), p(t, 1), p(t, 2)
  219.                 NEXT t: draw_square p(), door_text(INT(door_clip), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  220.             END IF
  221.     NEXT ty, tx
  222.  
  223.     'white flash
  224.     w_dis = .7: mindis = 999999: FOR ad = 0 TO room(me(5), 4) - 1
  225.         dis = SQR((me(0) - room(me(5), 20 + 5 * ad)) ^ 2 + (me(1) - room(me(5), 21 + 5 * ad)) ^ 2): IF dis < mindis THEN mindis = dis: trans_door = ad
  226.     NEXT ad: IF mindis > w_dis THEN awf_add = -.5
  227.     awf = awf + awf_add: IF INT(awf) < 0 THEN awf = 0 ELSE IF INT(awf) > wf_c - 1 THEN awf = wf_c - 1
  228.     _PUTIMAGE , wf_text(INT(awf))
  229.  
  230.  
  231.     'near door / trans to another room
  232.     IF mindis < .5 AND adoor(me(5), trans_door, 9) THEN
  233.         ndoor = adoor(me(5), trans_door, 1): me(5) = adoor(me(5), trans_door, 0)
  234.         FOR t = 0 TO 1: q(t) = d(room(me(5), 22 + ndoor * 5), t): me(t) = room(me(5), 20 + t + ndoor * 5) + q(t): NEXT t
  235.         me(3) = -degree(q(0), q(1)) + 180: awf = wf_c - 1
  236.     END IF
  237.  
  238.     'draw diamants
  239.     'DIAMANT array
  240.     '0,1,2 XYZ-location
  241.     '3,room-location
  242.     '4,5,6 XYZ vector
  243.     '8 active status 1-active
  244.  
  245.     diar = 10
  246.     FOR ad = 0 TO dia_c - 1: IF dia(ad, 3) <> me(5) OR dia(ad, 8) = 0 THEN _CONTINUE
  247.         'catch
  248.         catch = ABS((k_left + k_right + k_up + k_down) = -1) AND SQR((dia(ad, 0) - me(0)) ^ 2 + (dia(ad, 1) - me(1)) ^ 2) < .5
  249.         IF catch THEN dia(ad, 8) = 0: awf = (wf_c - 1) * .6: _CONTINUE
  250.  
  251.         'diamants move
  252.         newpos = dia(ad, 2) + dia(ad, 6): IF newpos < 0 OR newpos > 1 THEN dia(ad, 6) = -dia(ad, 6)
  253.         newpos = dia(ad, 0) + dia(ad, 4): IF room_map(me(5), newpos, dia(ad, 1)) <> 1 THEN dia(ad, 4) = -dia(ad, 4)
  254.         newpos = dia(ad, 1) + dia(ad, 5): IF room_map(me(5), dia(ad, 0), newpos) <> 1 THEN dia(ad, 5) = -dia(ad, 5)
  255.         FOR t = 0 TO 2: dia(ad, t) = dia(ad, t) + dia(ad, 4 + t): NEXT t
  256.  
  257.         'diamants draw
  258.         x = dia(ad, 0) - room(me(5), 0): z = dia(ad, 1) - room(me(5), 2): y = dia(ad, 2): point_3d x, y, z
  259.         FOR t = 0 TO 3: p(t, 0) = (SGN(t AND 1) * 2 - 1) * diar + x: p(t, 2) = z: p(t, 1) = (SGN(t AND 2) * 2 - 1) * diar + y: NEXT t
  260.         draw_square p(), dia_text(INT(dia_text_c * RND(1)), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  261.     NEXT ad
  262.  
  263.  
  264.     'stroryline
  265.     REDIM sum(room_c - 1): my_dia = 0: FOR ad = 0 TO dia_c - 1: my_dia = my_dia + dia(ad, 8): sum(dia(ad, 3)) = sum(dia(ad, 3)) + dia(ad, 8): NEXT ad
  266.  
  267.     FOR ar = 0 TO room_c - 1: COLOR _RGB32(255, 255, 255), b_colors(ar): LOCATE 2 + ar, 2
  268.         IF ar = 0 THEN PRINT "START ROOM"; ELSE IF sum(ar) THEN PRINT ar; ".room :"; sum(ar); " diamant"; ELSE PRINT ar; ".room is OK !";
  269.         IF ar = me(5) THEN COLOR _RGB32(255, 255, 255), 0: PRINT "    <-- YOU ARE HERE"
  270.     NEXT ar
  271.  
  272.     IF my_dia THEN
  273.         mess$ = "Get all diamant !"
  274.     ELSE
  275.         IF me(5) = 0 THEN mess$ = "CONGRATULATION !" ELSE mess$ = "Go back to the START-ROOM !"
  276.     END IF
  277.     LOCATE mony / 16 - 2, 2: COLOR _RGB32(255, 255, 255), 0: PRINT mess$
  278.  
  279.     _DISPLAY: CLS , 0
  281.  
  282.  
  283. FUNCTION crash (x, y): f = room_map(me(5), INT(x + .5), INT(y + .5)): crash = (f = 0 OR (f / 2 AND 15)) * crash_active: END FUNCTION
  284. FUNCTION randscale (a, b): randscale = a + (b - a) * RND(1): END FUNCTION
  285. SUB reg_minmax_reset (n): rm(n, 0) = 9999999: rm(n, 1) = -rm(n, 0): END SUB
  286. SUB reg_minmax (n, a): IF a < rm(n, 0) THEN rm(n, 0) = a ELSE IF a > rm(n, 1) THEN rm(n, 1) = a
  288. FUNCTION degree (a, b): degreex = ATN(a / (b + .00001)) / pip180: degreex = degreex - 180 * ABS(0 > b): degreex = degreex - 360 * (degreex < 0): degree = degreex: END FUNCTION
  289. 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
  290.  
  291. SUB point_3d (x, y, z): x = (x - cam(0) + room(cam(5), 0)) * 100: y = (y - cam(2)) * 100: z = (z - cam(1) + room(cam(5), 2)) * 100
  292. rotate_2d x, z, -(cam(3) + 180) * pip180: rotate_2d y, z, (cam(4) + 180) * pip180: END SUB
  293.  
  294. SUB draw_square (p(), text)
  295.     wtext = _WIDTH(text) - 1: htext = _HEIGHT(text) - 1
  296.     _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
  297.     _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
  299.  
  300. SUB draw_brick_3d (x, y)
  301.     REDIM pc(7, 2): FOR t = 0 TO 7: pc(t, 0) = .5 * (SGN(t AND 1) * 2 - 1) + x: pc(t, 2) = .5 * (SGN(t AND 2) * 2 - 1) + y: pc(t, 1) = .5 * SGN(t AND 4) * 2
  302.         point_3d pc(t, 0), pc(t, 1), pc(t, 2): NEXT t: FOR t = 0 TO 4: FOR t2 = 0 TO 3: side = VAL(MID$("-0246-2367-3175-1054-4567", 2 + t * 5 + t2, 1))
  303.         FOR t3 = 0 TO 2: p(t2, t3) = pc(side, t3): NEXT t3, t2: draw_square p(), text_tile(me(5), shdw(ABS(INT((p(0, 2) + p(1, 2) + p(2, 2) + p(3, 2)) / 4))))
  304.     NEXT t
  306.  
  307.  
  308.  

5
Programs / Mover Bricks 2D and 3D
« on: February 21, 2022, 03:46:47 pm »
Hello !

The game is complete, it does not use external files. At start-up, the difficulty level can be adjusted (1-5).
I could still increase the design, but it wasn’t my goal with all this to make a design game, so I won’t deal with it anymore.
I was wondering how many of you make games. You make very good 2D games. I especially like walking games.A small change can be made from these games into a 3D game.

The program would ultimately be a demonstration. At the end of the source code, those few lines perform the 3D calculations.
You need a 3D coordinate system, you need to include many points (many points form textures), and you need a point in this space who is an "observer." This is the most important ! The observer! Who looks at the other points. The observer has 5 data. X, Y, Z coordinates and direction to look. This is the angle of 2 planes perpendicular to each other. So X, Y, Z, ALPHA, BETA Knowing this, you can calculate the projected position of all the points on the screen, and _maptriangle can come.
I was thinking of a 3d engine that anyone could easily try based on their own ideas, but since the whole thing would be about 5 lines, I figured out instead that I would try to describe it as simply as possible to make it understandable.
A short, perfectly understandable writing about this. Put 2d theory and 3D projection on one level! It's a lot simpler than it looks.
Next time, I’ll check to see if a lot of people get to deal with it.



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

6
QB64 Discussion / _MAPTRIANGLE 3D ----> 2D ?
« on: February 20, 2022, 02:47:26 pm »
Hello !
Can you know from somewhere what formula _MAPTRIANGLE 3D calculates 2D points for?

The principle is this: 3D point is called X, Y, Z, then in this plane (2D) it will be.

FlatX = X / Z
FlatY = Y / Z

I used this a long time ago when _MAPTRIANGLE 3D didn’t exist and I know I had to enter a scaling value to make a proportional look of an object on the screen.
I should know what proportional value you are using. Specifically, I need the formula.

For example, if I wanted to detect the displayed 3D object with the position of the mouse, I would need to know the position of the FlatX and FlatY points.

7
Programs / courtesy cubes :)
« on: February 15, 2022, 05:01:51 pm »
this should make a game :)

Code: QB64: [Select]
  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
  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
  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.  
  105.  

8
Programs / Terror in the Maze (graphics enhancement + surround sound)
« on: February 14, 2022, 06:51:05 am »
I figured out a quick shading for _MAPTRIANGLE 3d.
After making the car game, I took out Terror in the maze again and was surprised that the 3D rendering was often incomprehensible. When I made the game, I didn’t see it objectively. After looking at it again for a long time, I saw that there was confusion, not seeing what was happening. Galleon's idea of ​​shading the maze is very good! But only the maze became shaded, not the other elements. The enemies, the hundreds, or occasionally thousands of shrapnel, and the fire of the dragon were not shielded. Not because it would have required a lot of distance measurement, and the display would have stalled due to the many SQRs. In fact, for a thousand items, even a simple multiplication means a lot.
I came up with a good solution. Suppose we use 20 shades of 1 texture. The depth of _MAPTRIANGLE 3d Z is between 0 and -16384. I create an array DIM SHADOW (16384) and populate it proportionally from 0 to 20.
00000000111111111222222222 .... and so on.
This allows the shadow to be read without calculation from the Z value of the existing maptriangle.
De! the problem with that is cheating. If the observed object is not in front of us, but a little to the side, the Z-value will be less, so the object will become lighter, even though the distance from us is the same.
I came up with a solution for this:

 
solut01.jpg


Thus, with no calculations, thousands of textures appear shaded in front of us, creating the best 3D effect.
In addition, many changes:
-I also changed the generation of the maze walls. it’s not even programming, it’s more about color theory. I tried a lot to understand why that lot of color isn’t good, and I learned a lot during the making of the car game.
-as a car game, I also made this for surround sound. in principle it's written for a 4.0 sound system, but I can't try it, but the 2.0 stereo works. It is especially advantageous when we do not yet see the dragon but hear its direction.
-Many little things have been added to the program. I added what I needed and took what I didn’t. For example, the compass made no sense in the game.
-I added a multi-style maze texture to the game. Shown in the video. Everyone can choose which one is more enjoyable to play with.
-the gun gets hot in our hands if we shoot a lot. This will prevent the player from shooting recklessly, but not empty the magazine.
The course of the game has not changed.
Get the next round of ammo. Watch out, because if the monster gets close to you, it will take you away and run away with it! Shoot down every monster that approaches! If you have the ammo, the fairy will take you to the box that contains the dragons. Behind the box is the ammunition needed to blow up the next box. We can detonate the box if we have the ammunition and we will fire a 100% shot with the right mouse button!
Convert the 'starter' and 'titm_game' files to exe. The game starts with 'starter'.



comparison with old graphics before repair:
old:


Download:
https://drive.google.com/file/d/19GsqDs2Jt3m2oRWKZMh_C350rEgEp8nv/view?usp=sharing

9
Programs / '5 ball' - logic game AMOEBA?
« on: January 05, 2022, 06:49:29 pm »
Hi !
You must know that there is a logic game where 5 identical balls have to be unloaded by 2 players. Vertically, horizontally, or diagonally. (OX, othello, 5 ball ???) Known as a lot. We called it “amoeba” because when we played it in the booklet at school, it looked like that.
I found a very simple algorithm. Not professional, but persistent and fun. If you know a professional algorithm, send it to me.
I created an interface for it.

Code: QB64: [Select]
  1. '5 ball MasterGy 2022
  2. DIM SHARED colors(9) AS _INTEGER64, map_s
  3.  
  4.  
  5. '-------- SETTINGS
  6. monx = 1000 'windows X size
  7. colors(0) = _RGB32(255, 50, 50) 'player1 color - ME
  8. colors(1) = _RGB32(50, 50, 255) 'player2 color - COMPUTER
  9. tsq_size = 25 '1 square texture size
  10. ball_rad = .6 'ball size
  11. map_s = 100 'XxX map size
  12. pos_z = 5 'zoom map
  13. near = 3 'test field empty field full field distance
  14. text_h = monx * .05
  15. '------------------
  16.  
  17.  
  18.  
  19. 'MAP_MEM array 0 original balls ,1 winner color foggy area, 2 winner-puppet sin signal
  20.  
  21. txt_text(0) = txt_to_text("I WANT TO PLAY !!!-ENTER       exit-ESC")
  22. txt_text(1) = txt_to_text("BOARD ZOOM - mousewheel   BOARD MOVING - mouse right button and moving")
  23. txt_text(2) = txt_to_text("BACK-backspace TIP-T button EMPTY BOARD-E button")
  24.  
  25.  
  26. 'map texture
  27. temp = _NEWIMAGE(tsq_size, tsq_size, 32): _DEST temp: CLS , _RGB32(100, 100, 200)
  28. marg = tsq_size * .07: LINE (marg, marg)-(tsq_size - marg, tsq_size - marg), _RGB32(200, 200, 200), BF: text(0) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
  29. 'balls and foggy texture
  30. FOR ac = 0 TO 1: temp = _NEWIMAGE(tsq_size, tsq_size, 32): _DEST temp: CLS: PAINT (0, 0), _RGB32(10, 10, 10)
  31.     CIRCLE (tsq_size / 2, tsq_size / 2), tsq_size * ball_rad / 2, colors(ac): PAINT (tsq_size / 2, tsq_size / 2), colors(ac), colors(ac)
  32.     _CLEARCOLOR _RGB32(10, 10, 10): text(1 + ac) = _COPYIMAGE(temp, 33)
  33.     IF ac = 0 THEN _SETALPHA 100, colors(ac), temp: text(9) = _COPYIMAGE(temp, 33)
  34.     _FREEIMAGE temp
  35.  
  36.     temp = _NEWIMAGE(20, 20, 32): _DEST temp: PAINT (0, 0), colors(ac), colors(ac): _SETALPHA 100, colors(ac), temp
  37. text(4 + ac) = _COPYIMAGE(temp, 33): _FREEIMAGE temp: NEXT ac
  38. 'map near texture
  39. temp = _NEWIMAGE(tsq_size, tsq_size, 32): _DEST temp: CLS , _RGB32(100, 100, 200)
  40. marg = tsq_size * .05: LINE (marg, marg)-(tsq_size - marg, tsq_size - marg), _RGB32(100, 100, 100), BF: text(3) = _COPYIMAGE(temp, 33): _FREEIMAGE temp
  41.  
  42.  
  43. 'preparation
  44. DIM steps(map_s * map_s - 1, 2) '0- 1 or 2 ,1-x, 2-y
  45. mony = monx / 16 * 9: mon = _NEWIMAGE(monx, mony, 32): SCREEN mon: pos_x = (monx - (pos_z * map_s)) / 2: pos_y = (mony - (pos_z * map_s)) / 2
  46. REDIM SHARED map_mem(map_s - 1, map_s - 1, 9)
  47.  
  48.  
  49.  
  50. DO: _LIMIT 50: winsin = winsin + .2: winsin_n = SIN(winsin) * pos_z * .1 'winner puppets sin
  51.     'moving and zooming map
  52.     mousew = 0: WHILE _MOUSEINPUT: mousew = mousew + _MOUSEWHEEL: WEND: apos_x = (_MOUSEX - pos_x) / (pos_z * map_s): apos_y = (_MOUSEY - pos_y) / (pos_z * map_s)
  53.     on_the_map = apos_x > 0 AND apos_x < 1 AND apos_y > 0 AND apos_y < 1
  54.     IF on_the_map THEN
  55.         pos_x = pos_x - (move_x - _MOUSEX) * ABS(_MOUSEBUTTON(2) AND mb2_last): pos_y = pos_y - (move_y - _MOUSEY) * ABS(_MOUSEBUTTON(2) AND mb2_last)
  56.         IF _MOUSEBUTTON(2) THEN move_x = _MOUSEX: move_y = _MOUSEY
  57.         mb2_last = _MOUSEBUTTON(2): pos_z = pos_z - mousew * 1.5: IF pos_z < 5 THEN pos_z = 5 ELSE IF pos_z > 60 THEN pos_z = 60
  58.         apos_x2 = (_MOUSEX - pos_x) / (pos_z * map_s): apos_y2 = (_MOUSEY - pos_y) / (pos_z * map_s)
  59.         mousew = (pos_z * map_s) * SGN(ABS(mousew)): pos_x = pos_x + (apos_x2 - apos_x) * mousew: pos_y = pos_y + (apos_y2 - apos_y) * mousew
  60.     END IF
  61.     pos_xa = pos_xa + (pos_x - pos_xa) * .1: pos_ya = pos_ya + (pos_y - pos_ya) * .1: pos_za = pos_za + (pos_z - pos_za) * .1: mon_limit = monx * .05
  62.     IF pos_xa + (map_s - 1) * pos_za < mon_limit THEN pos_xa = mon_limit - ((map_s - 1) * pos_za) + mon_re: pos_x = pos_xa
  63.     IF pos_xa > monx - mon_limit THEN pos_xa = monx - mon_limit - mon_re: pos_x = pos_xa
  64.     IF pos_ya + (map_s - 1) * pos_za < mon_limit THEN pos_ya = mon_limit - ((map_s - 1) * pos_za) + mon_re: pos_y = pos_ya
  65.     IF pos_ya > mony - mon_limit THEN pos_ya = mony - mon_limit - mon_re: pos_y = pos_ya
  66.  
  67.  
  68.     'fill map array
  69.     REDIM SHARED map(map_s - 1, map_s - 1, 9): FOR a = 0 TO steps_c - 1: map(steps(a, 1), steps(a, 2), 0) = steps(a, 0): NEXT a
  70.     FOR a = 0 TO steps_c - 1: FOR tx2 = -near TO near: FOR ty2 = -near TO near: IF tx2 = 0 AND ty2 = 0 THEN _CONTINUE
  71.                 px = tx2 + steps(a, 1): py = ty2 + steps(a, 2): IF px < 0 OR px > map_s - 1 OR py < 0 OR py > map_s - 1 THEN _CONTINUE
  72.     map(px, py, 1) = ABS(map(px, py, 0) = 0) AND ABS(map_mem(px, py, 1) = 0): NEXT ty2, tx2, a
  73.  
  74.     'draw map
  75.     FOR tx = 0 TO map_s - 1: FOR ty = 0 TO map_s - 1
  76.             x1 = pos_xa + tx * pos_za: x2 = x1 + pos_za: y1 = pos_ya + ty * pos_za: y2 = y1 + pos_za: atext = text(0): ww = winsin_n * map_mem(tx, ty, 2)
  77.             _PUTIMAGE (x1, y1)-(x2, y2), atext, , , _SMOOTH
  78.             IF steps_c THEN IF steps(steps_c - 1, 1) = tx AND steps(steps_c - 1, 2) = ty AND ls_step > 0 AND step_flash THEN _CONTINUE
  79.             IF map(tx, ty, 0) THEN _PUTIMAGE (x1 - ww, y1 - ww)-(x2 + ww, y2 + ww), text(map(tx, ty, 0)), , , _SMOOTH
  80.             IF map_mem(tx, ty, 0) THEN _PUTIMAGE (x1 - ww, y1 - ww)-(x2 + ww, y2 + ww), text(map_mem(tx, ty, 0)), , , _SMOOTH
  81.             IF map_mem(tx, ty, 1) THEN _PUTIMAGE (x1, y1)-(x2, y2), text(4 + map_mem(tx, ty, 1) - 1), , , _SMOOTH
  82.     NEXT ty, tx
  83.  
  84.     IF on_the_map THEN real_x = INT(map_s * apos_x): real_y = INT(map_s * apos_y) 'which block is the mouse on?
  85.     REDIM c(2): FOR tx = 0 TO map_s - 1: FOR ty = 0 TO map_s - 1: c(map(tx, ty, 0)) = c(map(tx, ty, 0)) + 1: NEXT ty, tx 'how many balls
  86.  
  87.     'draw putty if need
  88.     IF on_the_map AND c(2) >= c(1) AND connect_game AND _MOUSEBUTTON(2) = 0 THEN
  89.         elt = pos_za / 2 + winsin_n
  90.         _PUTIMAGE (_MOUSEX - elt, _MOUSEY - elt)-(_MOUSEX + elt, _MOUSEY + elt), text(9), , , _SMOOTH
  91.     END IF
  92.  
  93.  
  94.     map(0, 0, 8) = 0: calculation 'calculating the best move for both players
  95.  
  96.     'draw tip
  97.     IF (_KEYDOWN(ASC("t")) OR _KEYDOWN(ASC("T"))) AND INT(2 * RND(1)) AND connect_game THEN
  98.         x1 = pos_xa + map(0, 0, 4) * pos_za: x2 = x1 + pos_za: y1 = pos_ya + map(0, 0, 5) * pos_za: y2 = y1 + pos_za
  99.         _PUTIMAGE (x1, y1)-(x2, y2), text(1), , , _SMOOTH
  100.     END IF
  101.  
  102.  
  103.  
  104.  
  105.  
  106.     IF c(1) > c(2) THEN 'who's next?
  107.         steps(steps_c, 0) = 2: steps(steps_c, 1) = map(0, 0, 6): steps(steps_c, 2) = map(0, 0, 7): steps_c = steps_c + 1 'COMPUTER MOVING
  108.     ELSE
  109.         IF connect_game THEN
  110.             IF on_the_map AND _MOUSEBUTTON(1) AND mb1_last = 0 THEN
  111.                 IF map(real_x, real_y, 0) = 0 AND map_mem(real_x, real_y, 1) = 0 THEN
  112.                     steps(steps_c, 0) = 1: steps(steps_c, 1) = real_x: steps(steps_c, 2) = real_y: steps_c = steps_c + 1
  113.                 END IF
  114.             END IF
  115.             mb1_last = _MOUSEBUTTON(1): IF bill$ = CHR$(8) AND steps_c > 3 THEN steps_c = steps_c - 2
  116.         ELSE
  117.             IF steps_c = 0 THEN
  118.                 empty = 5: DO: x = INT(map_s * RND(1)): y = INT(map_s * RND(1)): no_ok = 0: FOR tx = -empty TO empty: FOR ty = -empty TO empty
  119.                             px = x + tx: py = y + ty: IF px < 0 OR px > map_s - 1 OR py < 0 OR py > map_s - 1 THEN no_ok = 1: _CONTINUE
  120.                 no_ok = no_ok OR SGN(map_mem(px, py, 1)): NEXT ty, tx: LOOP WHILE no_ok
  121.                 steps(steps_c, 0) = 1: steps(steps_c, 1) = x: steps(steps_c, 2) = y: steps_c = steps_c + 1
  122.             ELSE
  123.                 steps(steps_c, 0) = 1: steps(steps_c, 1) = map(0, 0, 4): steps(steps_c, 2) = map(0, 0, 5): steps_c = steps_c + 1
  124.             END IF
  125.         END IF
  126.     END IF
  127.  
  128.  
  129.     'text control
  130.     th = text_h / _HEIGHT(txt_text(1)) * _WIDTH(txt_text(1)): x1 = (monx - th) / 2: x2 = x1 + th: y1 = mony - text_h: y2 = mony
  131.     _PUTIMAGE (x1, y1)-(x2, y2), txt_text(1), , , _SMOOTH
  132.  
  133.     IF connect_game THEN
  134.         th = text_h / _HEIGHT(txt_text(2)) * _WIDTH(txt_text(2)): x1 = (monx - th) / 2: x2 = x1 + th: y1 = 0: y2 = text_h
  135.         _PUTIMAGE (x1, y1)-(x2, y2), txt_text(2), , , _SMOOTH
  136.     ELSE
  137.         th = text_h / _HEIGHT(txt_text(0)) * _WIDTH(txt_text(0)): x1 = (monx - th) / 2: x2 = x1 + th: y1 = 0: y2 = text_h
  138.         _PUTIMAGE (x1, y1)-(x2, y2), txt_text(0), , , _SMOOTH
  139.     END IF
  140.  
  141.  
  142.     _DISPLAY: CLS , _RGB32(30, 0, 0)
  143.  
  144.  
  145.  
  146.     IF map(0, 0, 8) THEN 'one player won!
  147.         fill = 2: FOR tx = 0 TO map_s - 1: FOR ty = 0 TO map_s - 1: IF map(tx, ty, 0) = 0 THEN _CONTINUE
  148.                 map_mem(tx, ty, 0) = map(tx, ty, 0): FOR tx2 = -fill TO fill: FOR ty2 = -fill TO fill
  149.                         px = tx2 + tx: py = ty2 + ty: IF px < 0 OR px > map_s - 1 OR py < 0 OR py > map_s - 1 THEN _CONTINUE
  150.         map_mem(px, py, 1) = map(0, 0, 8): NEXT ty2, tx2, ty, tx: steps_c = 0
  151.         winner_table = winner_table + 1: IF winner_table = 10 THEN winner_table = 0: REDIM SHARED map_mem(map_s - 1, map_s - 1, 9)
  152.     END IF
  153.  
  154.  
  155.     bill$ = LCASE$(INKEY$)
  156.     IF bill$ = CHR$(13) AND connect_game = 0 THEN connect_game = 1: steps_c = 0
  157.     IF bill$ = CHR$(27) THEN IF connect_game THEN connect_game = 0: pos_z = 5: pos_x = (monx - (pos_z * map_s)) / 2: pos_y = (mony - (pos_z * map_s)) / 2 ELSE SYSTEM
  158.     IF bill$ = "e" THEN REDIM SHARED map_mem(map_s - 1, map_s - 1, 9)
  159.  
  160.     'last step flash
  161.     IF steps_c <> l_steps_c THEN ls_step = 10
  162.     l_steps_c = steps_c: ls_step = ls_step - 1: step_flash = step_flash XOR 1
  163.  
  164.  
  165.  
  166.  
  167.  
  168.  
  170.  
  171.  
  172.  
  173.  
  174. SUB calculation
  175.     REDIM d(3, 1), xval(4), p(1, 4): d(0, 0) = 0: d(0, 1) = 1: d(1, 0) = 1: d(1, 1) = 1: d(2, 0) = 1: d(2, 1) = 0: d(3, 0) = -1: d(3, 1) = 1
  176.     xval(1) = 565: xval(2) = 2130: xval(3) = 7483: xval(4) = 43848
  177.  
  178.     'winning search
  179.     FOR tx = 0 TO map_s - 1: FOR ty = 0 TO map_s - 1: IF map(tx, ty, 0) = 0 THEN _CONTINUE
  180.             FOR ad = 0 TO 3: FOR av = 0 TO 4: REDIM c(2) AS _BYTE: FOR av2 = -4 TO 0
  181.                         p(0, ABS(av2)) = d(ad, 0) * (av + av2) + tx: p(1, ABS(av2)) = d(ad, 1) * (av + av2) + ty
  182.                         IF p(0, ABS(av2)) < 0 OR p(0, ABS(av2)) > map_s - 1 OR p(1, ABS(av2)) < 0 OR p(1, ABS(av2)) > map_s - 1 THEN _CONTINUE
  183.                     c(map(p(0, ABS(av2)), p(1, ABS(av2)), 0)) = c(map(p(0, ABS(av2)), p(1, ABS(av2)), 0)) + 1: NEXT av2: winner = ABS(c(1) = 5) + ABS(c(2) = 5) * 2
  184.                     IF winner THEN FOR ax = 0 TO 4: map_mem(p(0, ax), p(1, ax), 2) = 1: NEXT ax: map(0, 0, 8) = winner: EXIT SUB
  185.     NEXT av, ad, ty, tx
  186.  
  187.     'most effective steps
  188.     REDIM max(1): FOR tx = 0 TO map_s - 1: FOR ty = 0 TO map_s - 1: IF map(tx, ty, 1) = 0 OR map_mem(tx, ty, 1) THEN _CONTINUE
  189.             REDIM line_val(1), lv(1): FOR ad = 0 TO 3: FOR av = 0 TO 4: REDIM c(2) AS _BYTE: FOR av2 = -4 TO 0
  190.                         px = d(ad, 0) * (av + av2) + tx: py = d(ad, 1) * (av + av2) + ty: IF px < 0 OR px > map_s - 1 OR py < 0 OR py > map_s - 1 THEN _CONTINUE
  191.                     c(map(px, py, 0)) = c(map(px, py, 0)) + 1: NEXT av2: IF c(2) THEN lv(0) = 0 ELSE lv(0) = xval(c(1))
  192.                     IF c(1) THEN lv(1) = 0 ELSE lv(1) = xval(c(2))
  193.             line_val(0) = line_val(0) + lv(0): line_val(1) = line_val(1) + lv(1): NEXT av, ad
  194.             FOR ax = 0 TO 1: map(tx, ty, 2 + ax) = line_val(ax) * 1.7 + line_val(ax XOR 1) + 3 * RND(1)
  195.                 IF map(tx, ty, 2 + ax) > max(ax) THEN max(ax) = map(tx, ty, 2 + ax): map(0, 0, 4 + ax * 2) = tx: map(0, 0, 5 + ax * 2) = ty
  196.     NEXT ax, ty, tx
  198.  
  199. FUNCTION txt_to_text (x$): _FONT 16: marg = 10: temp = _NEWIMAGE(8 * LEN(x$) + 2 * marg, 16 + marg * 2, 32): _DEST temp: CLS , _RGBA32(0, 0, 0, 150)
  200. COLOR _RGB32(255, 255, 255), 0: _PRINTSTRING (marg, marg), x$: txt_to_text = _COPYIMAGE(temp, 33): _FREEIMAGE temp: END FUNCTION

 
amoba.jpg


10
Programs / The Big Chase (car-flight race game)
« on: December 25, 2021, 05:35:42 pm »
Hi !
The game is done. I have no more ideas about it, I’ll finish the development.
I opened a new topic for him, I think he deserves so much. Here you can see the finished game and play with it.
I gave him a name, "The Big Chase."
The graphics are just _maptriangle and the sound is stereo.
If you find an error, write it down. I also wonder how tolerable the difficulty is. Since I’ve tried a lot, I can’t judge.



11
QB64 Discussion / 4 speaker rehearsals
« on: December 16, 2021, 03:03:21 pm »
Hi !

I want to ask for a little help!
I want to do the car game with good sounds, engine noise, etc.…
I tried adjusting the balance. The rehearsal works with 2 speakers, so in stereo.
Unfortunately I only have a 2 speaker system.
I would like someone to test with 4 speakers to see if it works that way.
Just enter an mp3 music at the beginning of the program and then the position of the mouse in the circle will give the sound.
Does it work this way with 4 speakers?
Thanks for trying!

Code: QB64: [Select]
  1. sn = _SNDOPEN("engine_01.wav")
  2.  
  3.  
  4. monx = 600
  5.  
  6. cent = monx / 2
  7. rad = monx * .9 / 2
  8.  
  9. mon = _NEWIMAGE(monx, monx, 32): SCREEN mon
  11. CIRCLE (cent, cent), rad
  12. CIRCLE (cent, cent), 5
  13.  
  15.  
  17.  
  18.     IF _SNDPLAYING(sn) = 0 THEN _SNDPLAY sn
  19.  
  20.     'volume
  21.     dis = SQR((cent - _MOUSEX) ^ 2 + (cent - _MOUSEY) ^ 2)
  22.     IF dis > rad THEN dis = rad
  23.     volume = 1 - 1 / rad * dis
  24.     _SNDVOL sn, volume
  25.  
  26.     'balance (left-right)
  27.     disx = cent - _MOUSEX
  28.     IF ABS(disx) > rad THEN disx = rad * SGN(disx)
  29.     disx = -1 / rad * disx
  30.  
  31.     'balance (reae-front)
  32.     disy = cent - _MOUSEY
  33.     IF ABS(disy) > rad THEN disy = rad * SGN(disy)
  34.     disy = -1 / rad * disy
  35.  
  36.  
  37.     _SNDBAL sn, disx, disy, , 1 'left
  38.     _SNDBAL sn, disx, disy, , 2 'right
  39.  
  41.  
  42.  

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



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

13
Programs / Flight simulator
« on: November 03, 2021, 09:14:35 pm »
Hello !
I'm thinking of a game. I’ve tried a shooter-like game before, now I want something that shows the speed. I was thinking of a fighter simulator. (I really want a car game, but to this day I can't approach the physics of the car)
Because the plane is fast and a trajectory flies over quickly, I generated the seemingly random ground from a function.
I searched the net for a solution and found a very interesting solution to the real-time endless trajectory: Perlin noise. I used this.
Check it out, it’s interesting, and it can be used for a lot of things.
https://www.arendpeter.com/Perlin_Noise.html
We're just racing for now. By turning the whole thing left and right, we turn and “turn” with the A-D keys. If you become an enemy, it may be interesting to shoot him.
The source code is concise, but whoever cares will disassemble it.

Code: QB64: [Select]
  1. 'mikrolepes
  2.  
  3. Const pip180 = 3.141592 / 180
  4. Const perlin_pers = 7 'amplitudo
  5. Const perlin_level = 5 'level of resolution wave
  6. Const perlin_multiplier = 0.006
  7. Const perlin_smooth_noise_interpolation_type = 0 '0-none '1-standard
  8. Const perlin_flat_soil_limit = .8
  9. monx = _DesktopWidth * .7: mony = monx / 16 * 9 'screen size
  10.  
  11. map_shadow = 18
  12. position_speed = .7
  13. map_resolution = 70
  14.  
  15. map_dimxy = 1200
  16. map_dimz = 250
  17.  
  18. map_zoom_xy = 6
  19. map_zoom_distance = 15
  20. mouse_sens_xy = .01
  21. mouse_sens_z = .01
  22.  
  23. cam(4) = pip180 * 270
  24.  
  25. me(0) = 2000: me(1) = 2000
  26.  
  27. 'create pseudo random buffer
  28. Dim Shared noise_rand_c: noise_rand_c = 10000: Dim Shared noise_rand(noise_rand_c - 1): For t = 0 To noise_rand_c - 1: noise_rand(t) = Rnd(1): Next t
  29.  
  30. 'create texture
  31. Dim color_temp As _Integer64: Dim Shared mapz_min, mapz_max
  32. text_size = 8: text_size_marg = 8: text_deep = 40: text_height_scale = 15: Dim texture(text_height_scale - 1, text_deep - 1)
  33. For t = 0 To text_deep - 1: For t2 = 0 To text_height_scale - 1
  34.     dark = 1 - (1 / text_deep * t)
  35.     color_temp = _RGB32((255 * dark), (100 * dark), ((255 / text_height_scale * t2)) * dark)
  36.     temp = _NewImage(text_size, text_size, 32): _Dest temp: Cls: marg = text_size * text_size_marg / 100
  37. Line (marg, marg)-(text_size - marg, text_size - marg), color_temp, BF: texture(t2, t) = _CopyImage(temp, 33): _FreeImage temp: Next t2, t
  38.  
  39. 'find min/max Z
  40. mapz_min = 9999999: mapz_max = -mapz_min: For t = 0 To 1999: c = Perlin2D(1000 * Rnd(1), 1000 * Rnd(1))
  41.     If mapz_min > c Then mapz_min = c
  42.     If mapz_max < c Then mapz_max = c
  44.  
  45.  
  46. 'fill map-buffer
  47. Dim map(map_resolution - 1, map_resolution - 1, 5): perl_setx = Int(me(0)): perl_sety = Int(me(1))
  48. For map_x = 0 To map_resolution - 1: For map_y = 0 To map_resolution - 1: map_z = Perlin2D(perl_setx + map_x, perl_sety + map_y)
  49. map((map_x + perl_setx) Mod map_resolution, (map_y + perl_sety) Mod map_resolution, 0) = 1 / (mapz_max - mapz_min) * (map_z - mapz_min): Next map_y, map_x
  50.  
  51.  
  52. mon = _NewImage(monx, mony, 32): Screen mon: _FullScreen: _MouseHide
  53.  
  54. 'MAP array
  55. '0-perlin Z-data
  56. '1-maptriangle calculate X
  57. '2-maptriangle calculate Y
  58. '3-maptriangle calculate Z
  59. '4-distance from me (color)
  60.  
  61.  
  62.  
  64.  
  65.     mousex = 0: mousey = 0: While _MouseInput: mousex = mousex + _MouseMovementX: mousey = mousey + _MouseMovementY: Wend
  66.     'cam(3) = cam(3) + mousex * mouse_sens_xy
  67.     cam(4) = cam(4) + mousey * mouse_sens_z
  68.     '    cam(3) = mouse_sens * .1
  69.     rotx = rotx + mousex / 100
  70.     max_incli = 60: If Abs(rotx) > (max_incli * pip180) Then rotx = max_incli * pip180 * Sgn(rotx)
  71.     cam(3) = cam(3) + rotx / 40
  72.  
  73.     'control position
  74.     kw = _KeyDown(119)
  75.     kw = -1
  76.     ks = _KeyDown(115): ka = _KeyDown(97): kd = _KeyDown(100): new_direction = (Abs(ka Or kd Or kw) Or -Abs(ks)) * position_speed
  77.  
  78.     deg_XY = -90 * Abs(ka) + 90 * Abs(kd)
  79.  
  80.     szog_xy = cam(3) + deg_XY * pip180
  81.  
  82.     '   szog_z = cam(4)
  83.  
  84.     me(0) = me(0) - Sin(szog_xy) * Cos(szog_z) * new_direction
  85.     me(1) = me(1) - Cos(szog_xy) * Cos(szog_z) * new_direction
  86.     '    me(2) = me(2) + SIN(szog_z) * new_direction '* ABS(ka = 0 AND kd = 0)
  87.  
  88.     '    cam(2) = me(2)
  89.     '    LOCATE 1, 1: PRINT cam(2)
  90.  
  91.  
  92.  
  93.     'replace the missing row in the buffer line Y
  94.     Do While Int(Int(me(0))) <> perl_setx: dir = -Sgn(Int(me(0)) - perl_setx): perl_setx = perl_setx - dir
  95.         For map_y = 0 To map_resolution - 1: temp = perl_setx + Abs(dir = -1) * (map_resolution - 1): map_z = Perlin2D(temp, perl_sety + map_y)
  96.     map(temp Mod map_resolution, (map_y + perl_sety) Mod map_resolution, 0) = 1 / (mapz_max - mapz_min) * (map_z - mapz_min): Next map_y: Loop
  97.  
  98.     'replace the missing row in the buffer line X
  99.     Do While Int(Int(me(1))) <> perl_sety: dir = -Sgn(Int(me(1)) - perl_sety): perl_sety = perl_sety - dir
  100.         For map_x = 0 To map_resolution - 1: temp = perl_sety + Abs(dir = -1) * (map_resolution - 1): map_z = Perlin2D(perl_setx + map_x, temp)
  101.     map((map_x + perl_setx) Mod map_resolution, temp Mod map_resolution, 0) = 1 / (mapz_max - mapz_min) * (map_z - mapz_min): Next map_x: Loop
  102.  
  103.  
  104.  
  105.     cosrotz = Cos(cam(3)): sinrotz = Sin(cam(3)): cosrotx = Cos(cam(4)): sinrotx = Sin(cam(4))
  106.  
  107.     'calculating position and textures
  108.     '    e1 = perl_setx - INT(perl_setx)
  109.  
  110.     '   e2 = perl_sety - INT(perl_sety)
  111.     For map_x = 0 To map_resolution - 1: px = -map_dimxy / 2 + map_dimxy / map_resolution * (map_x - e1) - cam(0)
  112.         For map_y = 0 To map_resolution - 1: py = -map_dimxy / 2 + map_dimxy / map_resolution * (map_y - e2) - cam(1)
  113.             map_z = map((map_x + perl_setx) Mod map_resolution, (map_y + perl_sety) Mod map_resolution, 0)
  114.             If map_z > perlin_flat_soil_limit Then map_z = perlin_flat_soil_limit
  115.             pz2 = map_dimz * map_z - cam(2)
  116.             px3 = px * cosrotz - py * sinrotz: py2 = px * sinrotz + py * cosrotz: py3 = py2 * cosrotx - pz2 * sinrotx: pz3 = py2 * sinrotx + pz2 * cosrotx
  117.             px4 = (px3 * Cos(rotx)) - (py3 * Sin(rotx)): py4 = (px3 * Sin(rotx)) + (py3 * Cos(rotx))
  118.             map(map_x, map_y, 1) = -px4 * map_zoom_xy: map(map_x, map_y, 2) = -py4 * map_zoom_xy: map(map_x, map_y, 3) = -pz3 * map_zoom_distance
  119.             map(map_x, map_y, 4) = Int(Sqr(px3 * px3 + py3 * py3 + pz3 * pz3) / map_shadow)
  120.             If map(map_x, map_y, 4) > text_deep - 1 Then map(map_x, map_y, 4) = text_deep - 1
  121.             map(map_x, map_y, 5) = Int(text_height_scale * map_z)
  122.             If map(map_x, map_y, 5) > text_height_scale - 1 Then map(map_x, map_y, 5) = text_height_scale - 1
  123.             If map(map_x, map_y, 5) < 0 Then map(map_x, map_y, 5) = 0
  124.     Next map_y, map_x
  125.  
  126.     'do maptriangle from squares !
  127.     For map_x = 0 To map_resolution - 2: For map_y = 0 To map_resolution - 2
  128.         m0x = map(map_x, map_y, 1): m0y = map(map_x, map_y, 2): m0z = map(map_x, map_y, 3)
  129.         m1x = map(map_x + 1, map_y, 1): m1y = map(map_x + 1, map_y, 2): m1z = map(map_x + 1, map_y, 3)
  130.         m2x = map(map_x, map_y + 1, 1): m2y = map(map_x, map_y + 1, 2): m2z = map(map_x, map_y + 1, 3)
  131.         m3x = map(map_x + 1, map_y + 1, 1): m3y = map(map_x + 1, map_y + 1, 2): m3z = map(map_x + 1, map_y + 1, 3)
  132.         atexture = texture(map(map_x, map_y, 5), map(map_x, map_y, 4))
  133.         _MapTriangle (0, 0)-(text_size - 1, 0)-(0, text_size - 1), atexture To(m0x, m0y, m0z)-(m1x, m1y, m1z)-(m2x, m2y, m2z)
  134.         _MapTriangle (0, 0)-(text_size - 1, 0)-(0, text_size - 1), atexture To(m3x, m3y, m3z)-(m1x, m1y, m1z)-(m2x, m2y, m2z)
  135.     Next map_y, map_x
  136.  
  137.     _Display: Cls
  138.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145. Function noise (x, y) 'reading pseudo random buffer
  146.     x2 = Int(x): y2 = Int(y): a = Int(Abs(x2) + Abs(y2)) Mod noise_rand_c: b = Abs(x2) Mod noise_rand_c: c = noise_rand(a) + noise_rand(b): noise = c - Int(c)
  148.  
  149. Function SmoothNoise (x, y)
  150.     Select Case perlin_smooth_noise_interpolation_type
  151.         Case 0: SmoothNoise = noise(x, y)
  152.         Case 1: corners = (noise(x - 1, y - 1) + noise(x + 1, y - 1) + noise(x - 1, y + 1) + noise(x + 1, y + 1)) / 16
  153.             sides = (noise(x - 1, y) + noise(x + 1, y) + noise(x, y - 1) + noise(x, y + 1)) / 8: center = noise(x, y) / 4: SmoothNoise = corners + sides + center
  154.     End Select
  156.  
  157. Function Perlin2D (x, y): total = 0: For t = 0 To perlin_level - 1: frequency = 2 ^ t * perlin_multiplier: amplitude = perlin_pers ^ t
  158.     total = total + InterpolatedNoise(x * frequency, y * frequency) * amplitude: Next t: Perlin2D = total
  160.  
  161. Function InterpolatedNoise (x, y): integer_X = Int(x): fractional_X = x - integer_X: integer_y = Int(y): fractional_Y = y - integer_y
  162.     v1 = SmoothNoise(integer_X, integer_y): v2 = SmoothNoise(integer_X + 1, integer_y)
  163.     v3 = SmoothNoise(integer_X, integer_y + 1): v4 = SmoothNoise(integer_X + 1, integer_y + 1)
  164.     i1 = Interpolate(v1, v2, fractional_X): i2 = Interpolate(v3, v4, fractional_X): InterpolatedNoise = Interpolate(i1, i2, fractional_Y)
  166.  
  167. Function Interpolate (a, b, x): Interpolate = a * (1 - x) + b * x: End Function
  168.  
  169.  

14
QB64 Discussion / computer program
« on: August 21, 2021, 07:22:53 pm »
Hello ! I wrote a computer program! I developed it for 8 years, but it's not ready yet!
I want to give my mother a gift, I do not know her sixth birthday!
I got to the point of saying "hello mother!"
But unfortunately I'm stuck here.
I really want you to write it out in the middle of the screen and the caption will be red. I also want it to flash !!!
I promised my mother to show it! Be let down!
I would like to expand my collective knowledge base with my existing knowledge, I am sure you will appreciate it!
Yeah, the code:
conts one = 1
conts 0 = false ’this is important !!!!!!!!!!!!!!
print "mother"
I can't go on from here! Please help !!!!

15
Programs / Terror in the Maze - folk judgment
« on: July 20, 2021, 02:00:28 pm »
Hello !
I’ve been here on the forum for 2 years, but I don’t seem to have used the forum well. Anyone I’m not unfamiliar with knows that I only wrote in the “discussion” group. I don’t know why, maybe because it was in the first place.
I would like to expose the game “Terror it the Maze” to the “games” group with the kind moderators so that it can be maintained for posterity and new ones can see what technical possibilities there are in QB64.
In order for this to happen, positive feedback is needed here in the “programs” group, because only on the basis of the answers and feedback appearing in the “programs” group can the moderator judge whether the program is suitable for publication. (I do not understand either)
The game is ready for about 1 month. It's free and includes the source code. Many game distributors have been happy to expose you, but here you need it and your feedback.
I’m not asking you to just write positively. If you write, it should be an objective opinion.
Thank you !

-------------------------

It also has strategy in it, but not in the sense of a logic game.
The younger generation, who love FPS games, may find them easier to understand, use, and enjoy.

I intentionally made the video in HARD mode to show who can get out! You have to feel it and you will enjoy it!
In EASY mode, I think the one who doesn't get used to FPS games will get out.

The gameplay shows that in HARD mode it takes up to 10 minutes to complete.



download:
https://drive.google.com/drive/folders/1L34MThy8K6JLdyRd2pchC-COiXnjGbkW?usp=sharing

About half a year of work, I really want as many people as possible to try it!

TERROR IN THE MAZE
The course of the game needs no special explanation, but in short:
This is an FPS-like 3D shooting game.
Main goal: to get out of the maze. From the monsters, you need to get the ammo needed to blow up the next box. Exploding the box if we have the ammunition: with 100% fireball (use the right mouse button to shoot) Behind the box is the key to the next box, but at the same time as the box is detonated, fire-killing dragons are released. They have to be done.
Caution! If we have ammunition, you have to be careful with the monsters, because they can take the key and run away with it. Don't let them get close to you!
During the game, the fairy takes us on the right path.
When we run out of energy, stop for a “first aid” block!

important: no OPENGL in it! what you see is just _MAPTRIANGLE!

Some thoughts about the program:
The game is written in BASIC (under QB64 1.3). GOOGLE helped with the graphics. Animated monster gifs, dragons, maze textures. I used PaintS Shop Pro 5 and Virtualdub to edit the images and animations.
YOUTUBE helped with the sound effects. For example, with the keywords “explosion effect”, “dragon music”, “monster voice” you can find a lot of good sound samples.
I calculate the shortest distance (fairy) between two points in the maze using the Dijkstra algorithm.
No two games are alike. At startup, the program generates a randomly arranged maze with varied textures.
Game history:
3D MAZE
First, I created a simple, random 3D maze-generating program that can be navigated like in a typical FPS game. This can't be called a game, it's just interesting.
Found in the game folder: "archive_and_history / real_3d_maze"
4D MAZE
As I dealt with the geometry of 3D space, a curiosity arose in me. What would happen if the position of 1 point were given by the intersection of 4 planes instead of 3? The representation would of course remain 3-dimensional, but we could see the space from several views as a section of any 3 planes arbitrarily selected from the 4 planes. As well as real-time simultaneously in differently used planes. How can the structure and arrangement of the same 4-dimensional space change if we create it as sections of different 3 planes? The program visualizes this curiosity.
Found in the game folder: "archive_and_history / real_4d_maze_4windows_real_time"
Once I liked the game’s 3D display options, I made this game.

Pages: [1] 2 3 4