« previous next »
Pages: [1]   Go Down

Author Topic: courtesy cubes :)  (Read 1424 times)

0 Members and 1 Guest are viewing this topic.

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
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.  
Logged

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
Re: courtesy cubes :)
« Reply #1 on: February 15, 2022, 05:30:20 pm »
wow nice! here is a nice screensaver us newbs here can appreciate.  Now are the momenta and velocities gaussian distributed?
Logged

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #2 on: February 15, 2022, 05:38:25 pm »
I don't understand Gauss :) There is a sorting principle: don't have one
 movement in a row or column of 2 stones. so max stone = x * y
I was just thinking of a minimalist 3D skill game that could be written from a few lines.
Logged

Offline _vince

  • Seasoned Forum Regular
  • Posts: 422
Re: courtesy cubes :)
« Reply #3 on: February 15, 2022, 05:43:09 pm »
Quote from: MasterGy on February 15, 2022, 05:38:25 pm
I was just thinking of a minimalist 3D skill game that could be written from a few lines.

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

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #4 on: February 16, 2022, 02:40:13 pm »
this is a great idea! :)
Logged

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #5 on: February 16, 2022, 04:56:14 pm »
a simple change to make more bricks. So far, there could have been 1 brick in 1 plane, so there could have been a maximum of X x Y bricks on the track. it had to be inserted so that there could be more bricks in 1 plane, but they would not cross each other.
The solution: when a brick moving in parallel meets, it loses direction, it releases a moving brick when it meets perpendicularly.

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

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: courtesy cubes :)
« Reply #6 on: February 17, 2022, 11:42:05 am »
That actually starts to look intelligent like an ant farm.
Logged

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #7 on: February 17, 2022, 06:03:43 pm »
I did control the game tonight.

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

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

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #8 on: February 17, 2022, 06:15:43 pm »
bring the money out of the wall and be careful not to squeeze the stones!

get_the_money.jpg
* get_the_money.jpg (Filesize: 93.68 KB, Dimensions: 795x635, Views: 49)
Logged

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #9 on: February 19, 2022, 01:29:00 pm »
done in 3d. You can set the strength at the beginning of the source code. speeds, number of golds, number of moving cubes.

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

The program does not have a file.

 
xscreenshot_moverbricks.jpg


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

Offline MasterGy

  • Seasoned Forum Regular
  • Posts: 327
  • people lie, math never lies
Re: courtesy cubes :)
« Reply #10 on: February 20, 2022, 05:50:15 am »
lots of small changes to make the graphics and enjoyment better

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