« previous next »
Pages: [1]   Go Down

Author Topic: MARBLE RING TRINKET  (Read 3003 times)

0 Members and 1 Guest are viewing this topic.

Offline Rubidium

  • Newbie
  • Posts: 10
    • View Profile
MARBLE RING TRINKET
« on: October 29, 2020, 07:11:52 pm »
Just finished making this lil toy~

It's a marble sliding ring puzzle.

 
Capture.PNG


Code: QB64: [Select]
  1. 'RING-PUZZLE-TRINKET
  2. SCREEN _NEWIMAGE(700, 400, 32)
  3. DIM col&(20) 'marble colors
  4. DIM LMAP(30) 'Full marble layout
  5. DIM KMAP(2, 20) 'Solution layout
  6. DIM RINGMAP(2, 20) 'RING layout
  7.  
  8. '///////////SOUNDS////////////////////////////////
  9. snda& = _SNDOPEN("SFX/rotate.wav", "sync")
  10. sndb& = _SNDOPEN("SFX/final.wav", "sync")
  11. sndc& = _SNDOPEN("SFX/correct.wav", "sync")
  12. sndd& = _SNDOPEN("SFX/iMAC.wav", "sync")
  13. snde& = _SNDOPEN("SFX/error.wav", "sync")
  14. _SNDPLAY sndd& 'on initial only
  15.  
  16. '///////////CONSTANTS/////////////////////////////
  17. r = 140 'ring radius
  18. mr = 15 'marble radius
  19. n = 6 'number of marbles PER RING *!make this even
  20. q = (_PI(1) / n) 'half angle between marbles
  21. d = r * COS(q) 'ring center offset from CENTRIX
  22. CENTRIX = 350 'x axis center of RING SYSTEM
  23. CENTRIY = 200 'y axis center of RING SYSTEM
  24. mt = (2 * n) - 2 'marble total
  25. BLK& = _RGB(0, 0, 0)
  26. WHT& = _RGB(255, 255, 255)
  27.  
  28.  
  29. '//////////ASSIGN COLOR TO MARBLES////////////////
  30. FOR i = 1 TO mt
  31.     w = (i / mt) - (1 / mt)
  32.     GOSUB w_rainbow 'Linear Rainbow mixer using "w" input
  33.     col&(i) = colr& 'color of marble ID
  34.     LMAP(i) = i 'Initialize MARBLE ID LOCATIONS
  36.  
  37. GOSUB LOADA
  38. GOSUB LOADB
  39.  
  40. 'SET SOLUTION KMAP AS INITIAL LAYOUT
  41. FOR i = 1 TO n
  42.     KMAP(1, i) = i
  44. FOR i = 1 TO n
  45.     KMAP(2, i) = RINGMAP(2, i)
  47.  
  48.  
  49. '/////////SCRAMBLE via RANDOM OPERATIONS///////
  50. DIFFICULTY = 5 'minimum number of moves needed to solve
  51. 'try 10,20,50,100!!!
  53. FOR k = 1 TO DIFFICULTY 'DIFFICULTY OF SCRAMBLE
  54.     scramble = INT(RND * 2)
  55.     IF scramble = 0 THEN GOSUB ARSWIRL
  56.     IF scramble = 1 THEN GOSUB BRSWIRL
  58.  
  59.  
  60. '//////////////INITIAL DISPLAY///////////////////////
  61. CIRCLE (CENTRIX - d, CENTRIY), r, _RGB(50, 100, 100)
  62. CIRCLE (CENTRIX + d, CENTRIY), r, _RGB(150, 100, 100)
  63. GOSUB LOADA
  64. GOSUB LOADB
  65.  
  66. FOR k = 1 TO 2 'RINGID
  67.     FOR i = 1 TO n 'number of marbles per ring
  68.         u = 0 - (_PI(1) * (i) / (.5 * n)) + q
  69.         marblex = r * COS(u)
  70.         marbley = r * SIN(u)
  71.         IF k = 1 THEN dd = d
  72.         IF k = 2 THEN dd = -d
  73.  
  74.         '////////////////DRAW MARBLES//////////////////////
  75.         CIRCLE (CENTRIX - dd + marblex, CENTRIY + marbley), mr, col&(RINGMAP(k, i))
  76.         PAINT (CENTRIX - dd + marblex, CENTRIY + marbley), col&(RINGMAP(k, i))
  77.         CIRCLE (CENTRIX - dd + marblex, CENTRIY + marbley), mr, WHT&
  78.  
  79.         '////////////////DRAW ARCS/////////////////////////
  80.         FOR s = 1 TO 3
  81.             CIRCLE (CENTRIX - dd + (marblex * .3), CENTRIY + (marbley * .3)), (mr * 3) + s, col&(KMAP(k, i)), ABS(u + .3), ABS(u - .3), 1
  82.         NEXT s
  83.  
  84.         COLOR BLK&, col&(RINGMAP(k, i))
  85.         IF RINGMAP(k, i) < 10 THEN P = 2 ELSE P = 6
  86.         _PRINTSTRING (CENTRIX - dd + marblex - P, CENTRIY + marbley - 5), _TRIM$(STR$(RINGMAP(k, i)))
  87.  
  88.         GOSUB DRAWLEDS
  89.     NEXT i
  91.  
  92. COLOR WHT&, BLK&
  93. LOCATE 1, 1, 1
  95. _SNDPLAY sndb&
  96. PRINT "READING DISCS..."
  97. FOR i = 1 TO 7
  98.     LOCATE 1, 17
  99.     IF (i MOD 2) THEN PRINT "Û" ELSE PRINT " "
  100.     _DELAY .5
  102.  
  103. LOCATE 1, 1
  104. _SNDPLAY snde&
  105. PRINT "ERROR DISC OUT OF SYNC!": _DELAY 2
  106. LOCATE 1, 1
  107. PRINT "MANUAL SYNC REQUIRED!  ": _DELAY 2
  108. LOCATE 1, 1
  109. PRINT "LEFT CLICK : counter-clockwise"
  110. PRINT "RIGHT CLICK: clockwise"
  111.  
  112.  
  113.  
  114.  
  115. 'MOUSE CAPTURE LOOP
  117.     z = _MOUSEINPUT
  118.     IF _MOUSEBUTTON(1) OR _MOUSEBUTTON(2) THEN 'click trigger
  119.         IF _MOUSEBUTTON(1) THEN RSWIRL = 1 'clockwise operation
  120.         IF _MOUSEBUTTON(2) THEN LSWIRL = 1 'counter-clockwise operation
  121.         DO 'clear out inputs
  122.             z = _MOUSEINPUT
  123.         LOOP UNTIL (_MOUSEBUTTON(2) = 0) AND (_MOUSEBUTTON(1) = 0)
  124.  
  125.         IF RSWIRL THEN dir = -.015: A = 0: B = -1
  126.         IF LSWIRL THEN dir = .015: A = 0: B = 1
  127.  
  128.         IF (_MOUSEX - CENTRIX) < 0 THEN RINGID = 1 ELSE RINGID = 2
  129.         GOSUB rotate
  130.  
  131.         GOSUB SHOWMAP 'show LEDS
  132.  
  133.         '//////////////////////ZOLVED///////////////////////////
  134.         win = 0 'count ON LEDS
  135.         FOR i = 1 TO n
  136.             FOR k = 1 TO 2
  137.                 IF RINGMAP(k, i) = KMAP(k, i) THEN win = win + 1
  138.             NEXT
  139.         NEXT
  140.         IF win = (2 * n) THEN GOTO final
  141.  
  142.     END IF
  144.  
  145. LOADA:
  146. FOR i = 1 TO n 'load marbles onto RING A
  147.     RINGMAP(1, i) = LMAP(i)
  150.  
  151. LOADB:
  152. FOR i = 1 TO n - 1 'load marbles onto RING B
  153.     j = i + (n / 2) 'n MUST BE EVEN! for this part to work
  154.     IF j > n THEN j = j - n
  155.     RINGMAP(2, j) = LMAP(n + i - 1)
  157. RINGMAP(2, (n / 2)) = LMAP(1)
  159.  
  160. DRAWLEDS:
  161. IF RINGMAP(k, i) = KMAP(k, i) THEN 'DRAW ON
  162.     CIRCLE (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), mr * .5, col&(KMAP(k, i)), , , 1
  163.     PAINT (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), col&(KMAP(k, i))
  164.     CIRCLE (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), mr * .5, WHT&, , , 1
  165. ELSE 'DRAW OFF
  166.     CIRCLE (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), mr * .5, BLK&, , , 1
  167.     PAINT (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), BLK&
  168.     CIRCLE (CENTRIX - dd + (marblex * .5), CENTRIY + (marbley * .5)), mr * .5, col&(KMAP(k, i)), , , 1
  171.  
  172. SHOWMAP: 'Just shows LEDS actually
  173. GOSUB LOADA
  174. GOSUB LOADB
  175.  
  176. FOR k = 1 TO 2
  177.     FOR i = 1 TO n
  178.         u = 0 - (_PI(1) * (i) / (.5 * n)) + q
  179.         marblex = r * COS(u)
  180.         marbley = r * SIN(u)
  181.  
  182.         IF k = 1 THEN dd = d
  183.         IF k = 2 THEN dd = -d
  184.  
  185.         GOSUB DRAWLEDS
  186.     NEXT i
  189.  
  190.  
  191. '///////////////RING ROTATION ANIMATION////////////////////////////
  192. rotate:
  193. _SNDPLAY snda&
  194.  
  195. IF RINGID = 1 THEN dd = d: GOSUB LOADA
  196. IF RINGID = 2 THEN dd = -d: GOSUB LOADB
  197.  
  198. FOR u = A TO B STEP dir
  199.     FOR i = 1 TO n '// erase former marble positions
  200.         LINE (CENTRIX - dd + marblex(i) - mr - 2, CENTRIY + marbley(i) - mr - 2)-(CENTRIX - dd + marblex(i) + mr + 2, CENTRIY + marbley(i) + mr + 2), BLK&, BF
  201.     NEXT i
  202.  
  203.     t = u * 2 * q 'update radian of rotation
  204.  
  205.     CIRCLE (CENTRIX - dd, CENTRIY), r, _RGB(100 - dd, 100, 100)
  206.     FOR i = 1 TO n '// draw marbles
  207.         marblex(i) = r * COS(t - (_PI(1) * i / (.5 * n)) + q)
  208.         marbley(i) = r * SIN(t - (_PI(1) * i / (.5 * n)) + q)
  209.  
  210.         COLOR BLK&, col&(RINGMAP(RINGID, i))
  211.         CIRCLE (CENTRIX - dd + marblex(i), CENTRIY + marbley(i)), mr, col&(RINGMAP(RINGID, i))
  212.         PAINT (CENTRIX - dd + marblex(i), CENTRIY + marbley(i)), col&(RINGMAP(RINGID, i))
  213.  
  214.         IF RINGMAP(RINGID, i) < 10 THEN P = 2: ELSE P = 6
  215.         _PRINTSTRING (CENTRIX - dd + marblex(i) - P, CENTRIY + marbley(i) - 5), _TRIM$(STR$(RINGMAP(RINGID, i)))
  216.         CIRCLE (CENTRIX - dd + marblex(i), CENTRIY + marbley(i)), mr, WHT&
  217.     NEXT i
  218.     _DELAY .02
  219. NEXT u 'animation complete
  220.  
  221. 'INDEX ROTATION OPERATION SELECTION
  222. IF RSWIRL AND RINGID = 1 THEN GOSUB ARSWIRL
  223. IF LSWIRL AND RINGID = 1 THEN GOSUB ALSWIRL
  224. IF RSWIRL AND RINGID = 2 THEN GOSUB BRSWIRL
  225. IF LSWIRL AND RINGID = 2 THEN GOSUB BLSWIRL
  226.  
  228.  
  229.  
  230. '///////////////FINAL ANIMATION////////////////////////////
  231. final:
  232. _SNDPLAY sndc&
  233. _DELAY 1.3
  234. _SNDPLAY sndb&
  235. CLS: PAINT (1, 1), _RGB(0, 0, 0)
  236. GOSUB LOADA
  237. GOSUB LOADB
  238. FOR u = 0 TO 1 STEP .015
  239.     FOR k = 1 TO 2
  240.         IF k = 1 THEN dd = d: tt = tq: l = 2
  241.         IF k = 2 THEN dd = -d: tt = -tq: l = -2
  242.  
  243.         CIRCLE (CENTRIX - dd - tt, CENTRIY), r, BLK&
  244.         FOR i = 1 TO n '// erase former marble positions
  245.             marblex(i) = r * COS((l * t) - (_PI(1) * i / (.5 * n)) + q)
  246.             marbley(i) = r * SIN((l * t) - (_PI(1) * i / (.5 * n)) + q)
  247.             LINE (CENTRIX - dd + marblex(i) - mr - 2 - tt, CENTRIY + marbley(i) - mr - 2)-(CENTRIX - dd + marblex(i) + mr + 2 - tt, CENTRIY + marbley(i) + mr + 2), BLK&, BF
  248.             LINE (CENTRIX - dd + (marblex(i) * .5) - (mr * .6) - tt, CENTRIY + (marbley(i) * .5) - (mr * .6))-(CENTRIX - dd + (marblex(i) * .5) + (mr * .6) - tt, CENTRIY + (marbley(i) * .5) + (mr * .6)), BLK&, BF
  249.         NEXT i
  250.  
  251.     NEXT k
  252.  
  253.     tq = tq + 1.3 'horizontal motion
  254.     t = -u * 2 * q 'update radian of rotation
  255.  
  256.  
  257.     FOR k = 1 TO 2
  258.         IF k = 1 THEN dd = d: tt = tq: l = 2
  259.         IF k = 2 THEN dd = -d: tt = -tq: l = -2
  260.  
  261.         CIRCLE (CENTRIX - dd - tt, CENTRIY), r, _RGB(100 - dd, 100, 100)
  262.         FOR i = 1 TO n '// draw marbles
  263.             marblex(i) = r * COS((l * t) - (_PI(1) * i / (.5 * n)) + q)
  264.             marbley(i) = r * SIN((l * t) - (_PI(1) * i / (.5 * n)) + q)
  265.  
  266.             COLOR BLK&, col&(KMAP(k, i))
  267.             CIRCLE (CENTRIX - dd + marblex(i) - tt, CENTRIY + marbley(i)), mr, col&(KMAP(k, i))
  268.             PAINT (CENTRIX - dd + marblex(i) - tt, CENTRIY + marbley(i)), col&(KMAP(k, i))
  269.  
  270.             IF RINGMAP(k, i) < 10 THEN P = 2: ELSE P = 6
  271.             _PRINTSTRING (CENTRIX - dd + marblex(i) - P - tt, CENTRIY + marbley(i) - 5), _TRIM$(STR$(KMAP(k, i)))
  272.             CIRCLE (CENTRIX - dd + marblex(i) - tt, CENTRIY + marbley(i)), mr, WHT&
  273.  
  274.             '////LEDS
  275.             CIRCLE (CENTRIX - dd + (marblex(i) * .5) - tt, CENTRIY + (marbley(i) * .5)), mr * .5, col&(KMAP(k, i)), , , 1
  276.             PAINT (CENTRIX - dd + (marblex(i) * .5) - tt, CENTRIY + (marbley(i) * .5)), col&(KMAP(k, i))
  277.             CIRCLE (CENTRIX - dd + (marblex(i) * .5) - tt, CENTRIY + (marbley(i) * .5)), mr * .5, WHT&, , , 1
  278.  
  279.         NEXT i
  280.     NEXT k
  281.     _DELAY .039
  283. COLOR _RGB(0, 200, 250), _RGB(0, 50, 100)
  284. _PRINTSTRING (CENTRIX - (6 * 8) - 3, CENTRIY), "DISCS SYNCED!"
  285.  
  287. '====================================================
  288. '==========-  SOLUTION FOUND END  -==================
  289. '====================================================
  290.  
  291.  
  292. '////////////////////////////////////////////////////
  293. '/////      INDEX ROTATION OPERATIONS           /////
  294. '////////////////////////////////////////////////////
  295. 'ROTATION OPERATION on LMAP SEGMENTS
  296.  
  297. ARSWIRL: 'CLOCKWISE on RING A
  298. temp = LMAP(n)
  299. FOR i = n TO 2 STEP -1
  300.     LMAP(i) = LMAP(i - 1)
  302. LMAP(1) = temp
  303. RSWIRL = 0
  305.  
  306. ALSWIRL: 'COUNTER-CLOCKWISE on RING A
  307. temp = LMAP(1)
  308. FOR i = 1 TO (n - 1) STEP 1
  309.     LMAP(i) = LMAP(i + 1)
  311. LMAP(n) = temp
  312. LSWIRL = 0
  314.  
  315. BRSWIRL: 'CLOCKWISE on RING B
  316. temp = LMAP(mt)
  317. FOR i = mt TO (n + 1) STEP -1
  318.     LMAP(i) = LMAP(i - 1)
  320. LMAP(n) = LMAP(1)
  321. LMAP(1) = temp
  322. RSWIRL = 0
  324.  
  325. BLSWIRL: 'COUNTER-CLOCKWISE on RING B
  326. temp = LMAP(n)
  327. FOR i = n TO (mt - 1) STEP 1
  328.     LMAP(i) = LMAP(i + 1)
  330. LMAP(mt) = LMAP(1)
  331. LMAP(1) = temp
  332. LSWIRL = 0
  334.  
  335.  
  336. '/////////////////////LINEAR RAINBOW////////////////////////////////////////////
  337. w_rainbow: 'converts single variable ru=(0 to 1) into a mixture blending from R to G to B
  338. t.col = INT(w * 1530) ' converts ru=(0,1) TO (0,1530)
  339. colr& = _RGB(0, 0, 0) 'default if ru out of range
  340. IF t.col >= (0 * 255) AND t.col < (1 * 255) THEN colr& = _RGB(255, t.col - (0 * 255), 0) 'R*/G-phase 0   = RED
  341. IF t.col >= (1 * 255) AND t.col < (2 * 255) THEN colr& = _RGB(t.col - (255 * 1), 255, 0) 'G*\R-phase 255 = RG
  342. IF t.col >= (2 * 255) AND t.col < (3 * 255) THEN colr& = _RGB(0, 255, t.col - (2 * 255)) 'G*/B-phase 510 = GREEN
  343. IF t.col >= (3 * 255) AND t.col < (4 * 255) THEN colr& = _RGB(0, (4 * 255) - t.col, 255) 'B*\G-phase 765 = GB
  344. IF t.col >= (4 * 255) AND t.col < (5 * 255) THEN colr& = _RGB(t.col - (4 * 255), 0, 255) 'B*/R-phase 1020= BLUE
  345. IF t.col >= (5 * 255) AND t.col <= (6 * 255) THEN colr& = _RGB(255, 0, (6 * 255) - t.col) 'R*\B-phase 1275= BR
  347.  
  348.  

 
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: MARBLE RING TRINKET
« Reply #1 on: October 29, 2020, 07:56:07 pm »
Nice Puuzzle!

Are the colors supposed to match the inside of the wheels?
Logged

Offline Rubidium

  • Newbie
  • Posts: 10
    • View Profile
Re: MARBLE RING TRINKET
« Reply #2 on: October 29, 2020, 08:29:08 pm »
oops, I should include the purpose huh?
Thanks Bplus, Yes, the colors should match the inner colored LEDs so it can be solved
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: MARBLE RING TRINKET
« Reply #3 on: October 29, 2020, 09:08:08 pm »
;-)) sometimes lack of instructions can be part of the puzzle, this one is probably like that. You left enough visual clues I think.

Logged

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: MARBLE RING TRINKET
« Reply #4 on: October 29, 2020, 10:33:22 pm »
Very nice.   Freaked me out thinking there was a command
I'd never seen (LMAP) until I realized it's an array.

Should keep cats busy for eternity too.

Logged
It works better if you plug it in.
Pages: [1]   Go Up
« previous next »