Pipes Puzzle by Dav & bplus

[Junior Librarian]

Pipes Puzzle

Author: @Dav
Source: qb64.org Forum
URL: https://www.qb64.org/forum/index.php?topic=4232.0
Version: 1

Description:
This is a Maze puzzler.  To play you click on the pipes to rotate them and connect them to the flow, making the pipes all connected and one color.

Source Code (for reference only: use the zip file):

Code: QB64: [Select]

1.     '================
2.     'PIPES.BAS v1.0
3.     '================
4.     'Connect the pipes puzzle game
5.     'Coded by Dav for QB64-GL 1.5 in SEP/2021
6.      
7.     'NOTE: Formally called MazeConnect Prototype on the forum.
8.      
9.     '============
10.     'HOW TO PLAY:
11.     '============
12.      
13.     'Click on pipes to rotate them and connect them as one.
14.     'Object is to make all pipes on board connected to leader.
15.     'Top left pipe is always on, the leader, so start from it.
16.     'When pipes are all connected, you advance to next level.
17.     'There are currently 20 levels.  ESC key exits game.
18.      
19.     'SPACE  = restarts level
20.     'RIGHT ARROW = goto next level
21.     'LEFT ARROW = go back a level
22.     'ESC = Quits game
23.      
24.     '         VVVVVVV     blus fixed next line to work from his downloaded zip
25.     $ExeIcon:'.\icon.ico'
26.     _Icon
27.      
28.      
29.     Randomize Timer
30.      
31.     Dim Shared GridSize, Level, MaxLevel, LD$, LU$, RD$, RU$, HZ$, VT$, BM$
32.      
33.     Level = 1: MaxLevel = 13
34.      
35.     GridSize = 3 'default starting GridSize is 3x3 (its level 1)
36.     MaxGridSize = 15 'The last GridSize level so far (13 levels right now)
37.      
38.     'Declare image names: angle characters, right up, left up, etc
39.     LD$ = "ld": LU$ = "lu"
40.     RD$ = "rd": RU$ = "ru"
41.     HZ$ = "hz": VT$ = "vt"
42.     BM$ = "bm"
43.      
44.     'Sound files
45.     new& = _SndOpen("sfx_magic.ogg")
46.     move& = _SndOpen("sfx_click1.mp3"):
47.     click& = _SndOpen("sfx_click2.mp3"):
48.     clap& = _SndOpen("sfx_clap.ogg")
49.      
50.     'image file
51.     Dim Shared Solved&
52.     Solved& = _LoadImage("solved.png", 32) '<  thank bplus for this
53.      
54.     'For game state saving...to be added later
55.     loaded = 0: fil$ = "pipe.dat"
56.     If _FileExists(fil$) Then
57.         loaded = 1
58.     End If
59.      
60.     '=======
61.     newlevel:
62.     '=======
63.      
64.     Screen _NewImage(640, 640, 32)
65.     'Do: Loop Until _ScreenExists ' <<<<<<<<<< sorry Dav this aint working on my system
66.     _Delay .25 ' <<<<<<<<<<<<<<<<<<<<<<<<<<<<< does this work for you?
67.     '            No? increase delay time really nice to have centered on screen
68.     _ScreenMove _Middle ' <  thank bplus for this , ahhhh that's better
69.     Cls ', _RGB(32, 32, 77)
70.      
71.     If Level = 1 Then
72.         back& = _LoadImage("hz-grn.png")
73.         _PutImage (0, 0)-(640, 640), back&
74.         _FreeImage back&
75.         title& = _LoadImage("title.png")
76.         _PutImage (84, 140), title&
77.         _FreeImage title&
78.         w$ = Input$(1)
79.         For a = 0 To 64
80.             Line (0, 0)-(640, 640), _RGBA(0, 0, 0, a), BF
81.             _Delay .02
82.         Next
83.     End If
84.      
85.     PPRINT 100, 300, 30, _RGB(200, 200, 200), 0, "Level:" + Str$(Level) + " of" + Str$(MaxLevel)
86.     _Delay 2
87.      
88.     _SndPlay new&
89.      
90.     Title$ = "Pipes: Level " + Str$(Level) + " of" + Str$(MaxLevel)
91.     _Title Title$
92.      
93.     'Make space for variables
94.     ReDim Shared TileVal$(GridSize * GridSize)
95.     ReDim Shared TileX(GridSize * GridSize), TileY(GridSize * GridSize)
96.     ReDim Shared TileClr(GridSize * GridSize), TileClr2(GridSize * GridSize)
97.      
98.     TileSize = Int(640 / GridSize) 'The width/height of tiles, in pixels
99.      
100.     'set tile values, and generate x/y values...
101.     bb = 1
102.     For r = 1 To GridSize
103.         For c = 1 To GridSize
104.             x = (r * TileSize): y = (c * TileSize)
105.             If Rnd(GridSize * 2) = GridSize Then br = 0
106.             TileX(bb) = x - TileSize: TileY(bb) = y - TileSize
107.             TileVal$(bb) = RD$
108.             TileClr(bb) = 0
109.             TileClr2(bb) = 0
110.             bb = bb + 1
111.         Next c
112.     Next r
113.      
114.     TileClr(1) = 1 'turn on top left leader tile
115.     TileClr2(1) = 1 'make a copy
116.      
117.     setmaze 'Load level maze data, it's already scrambled up
118.      
119.     firstdraw = 1
120.     GoSub updatebuttons
121.      
122.     Do
123.      
124.         _Limit 300
125.      
126.         'wait until mouse button up to continue
127.         While _MouseButton(1) <> 0: n = _MouseInput: Wend
128.      
129.         trap = _MouseInput
130.         If _MouseButton(1) Then
131.             mx = _MouseX: my = _MouseY
132.      
133.             For b = 1 To (GridSize * GridSize)
134.      
135.                 tx = TileX(b): tx2 = TileX(b) + TileSize
136.                 ty = TileY(b): ty2 = TileY(b) + TileSize
137.      
138.                 If mx >= tx And mx <= tx2 Then
139.                     If my >= ty And my <= ty2 Then
140.                         'skip any black blocks clicked on
141.                         If TileVal$(b) = BM$ Then GoTo skip
142.      
143.                         _SndPlay move&
144.      
145.                         bv2$ = TileVal$(b) 'see what tile it is
146.      
147.                         'rotate right angle tiles
148.                         If bv2$ = RD$ Then TileVal$(b) = LD$
149.                         If bv2$ = LD$ Then TileVal$(b) = LU$
150.                         If bv2$ = LU$ Then TileVal$(b) = RU$
151.                         If bv2$ = RU$ Then TileVal$(b) = RD$
152.      
153.                         'rotate horiz/vert lines
154.                         If bv2$ = HZ$ Then TileVal$(b) = VT$
155.                         If bv2$ = VT$ Then TileVal$(b) = HZ$
156.      
157.                         'show tile
158.                         If TileClr(b) = 1 Then
159.                             tag$ = "-grn.png"
160.                         Else
161.                             tag$ = "-wht.png"
162.                         End If
163.      
164.                         SHOW TileVal$(b) + tag$, TileX(b), TileY(b), TileX(b) + TileSize, TileY(b) + TileSize
165.      
166.                         GoSub updatebuttons
167.                         GoSub checkforwin
168.      
169.                     End If
170.                 End If
171.             Next b
172.         End If
173.         skip:
174.      
175.         ink$ = UCase$(InKey$)
176.      
177.         If ink$ = Chr$(32) Then GoTo newlevel
178.      
179.         'Right arrows advance to next level
180.         If ink$ = Chr$(0) + Chr$(77) Then
181.             GridSize = GridSize + 1
182.             Level = Level + 1
183.             If Level > MaxLevel Then Level = 1
184.             If GridSize > MaxGridSize Then
185.                 GridSize = 3 'MaxGridSize  'restart
186.             End If
187.             GoTo newlevel
188.         End If
189.      
190.         'Left Arrows go back a level
191.         If ink$ = Chr$(0) + Chr$(75) Then
192.             GridSize = GridSize - 1
193.             If GridSize < 3 Then GridSize = MaxGridSize
194.             Level = Level - 1
195.             If Level < 1 Then Level = MaxLevel
196.             GoTo newlevel
197.         End If
198.      
199.     Loop Until ink$ = Chr$(27)
200.      
201.     System
202.      
203.     '============
204.     updatebuttons:
205.     '============
206.      
207.     'first tile always on, draw it green
208.     SHOW TileVal$(1) + "-grn.png", TileX(1), TileY(1), TileX(1) + TileSize, TileY(1) + TileSize
209.      
210.      
211.     'turn all off tile colors first, except 1st
212.     For g = 2 To GridSize * GridSize
213.         TileClr(g) = 0
214.     Next g
215.      
216.      
217.     'set leader tile flow direction
218.     If TileVal$(1) = HZ$ Then direction = 1 'going right
219.     If TileVal$(1) = VT$ Then direction = 2 'going down
220.      
221.     cur = 1 'start with 1st tile always
222.      
223.     'do until can't flow anymore (direction blocked)
224.     Do
225.      
226.         If direction = 1 Then 'heading right
227.             'see if already on the right edge of board
228.             'if so, it can't go right anymore, so end flow...
229.             For j = (GridSize * GridSize) - GridSize + 1 To GridSize * GridSize
230.                 If cur = j Then GoTo flowdone
231.             Next j
232.             'now see if one to the right can connect with it.
233.             'if not connectable, end flow here.
234.             con = 0 'default is not connectable
235.             nv$ = TileVal$(cur + GridSize)
236.             If nv$ = HZ$ Then con = 1
237.             If nv$ = LU$ Then con = 1
238.             If nv$ = LD$ Then con = 1
239.             'if not, end flow here
240.             If con = 0 Then GoTo flowdone
241.             'looks like it is connectable, so turn it on
242.             TileClr(cur + GridSize) = 1 'turn piece to the right on.
243.             'Make new pieve the new current flow position
244.             tc = (cur + GridSize): cur = tc
245.             'find/set new direction based on that character
246.             If nv$ = HZ$ Then direction = 1 'right
247.             If nv$ = LU$ Then direction = 4 'up
248.             If nv$ = LD$ Then direction = 2 'down
249.         End If
250.      
251.         If direction = 2 Then 'heading down
252.             'see if this one is on the bottom edge
253.             For j = GridSize To (GridSize * GridSize) Step GridSize
254.                 If cur = j Then GoTo flowdone
255.             Next j
256.             'now see if new one can connect with this one.
257.             'if not, end flow here.
258.             con = 0 'default is not connectable
259.             nv$ = TileVal$(cur + 1)
260.             If nv$ = VT$ Then con = 1
261.             If nv$ = LU$ Then con = 1
262.             If nv$ = RU$ Then con = 1
263.             'if not, end flow here
264.             If con = 0 Then GoTo flowdone
265.             'looks like it must be connectable
266.             TileClr(cur + 1) = 1 'turn the next piece on too
267.             'Make it the new current char position
268.             tc = (cur + 1): cur = tc
269.             'find/set new direction based on character
270.             If nv$ = LU$ Then direction = 3 'left
271.             If nv$ = RU$ Then direction = 1 'right
272.             If nv$ = VT$ Then direction = 2 'down
273.         End If
274.      
275.         If direction = 3 Then 'heading left
276.             'see if this one is on the bottom edge
277.             For j = 1 To GridSize
278.                 If cur = j Then GoTo flowdone
279.             Next j
280.      
281.             'now see if new one can connect with this one.
282.             'if not, end flow here.
283.             con = 0 'default is not connectable
284.             nv$ = TileVal$(cur - GridSize)
285.             If nv$ = HZ$ Then con = 1
286.             If nv$ = RU$ Then con = 1
287.             If nv$ = RD$ Then con = 1
288.             'if not, end flow here
289.             If con = 0 Then GoTo flowdone
290.             'looks like it must be connectable
291.             TileClr(cur - GridSize) = 1 'turn the next piece on too
292.             'Make it the new current char position
293.             tc = (cur - GridSize): cur = tc
294.             'find/set new direction based on character
295.             If nv$ = HZ$ Then direction = 3 'left
296.             If nv$ = RU$ Then direction = 4 'up
297.             If nv$ = RD$ Then direction = 2 'down
298.         End If
299.      
300.         If direction = 4 Then 'going up
301.             'see if this one is on the edge of board
302.             'if so, it can't go up, so end flow...
303.             For j = 1 To (GridSize * GridSize) Step GridSize
304.                 If cur = j Then GoTo flowdone
305.             Next j
306.             'now see if new one can connect with this one.
307.             'if not, end flow here.
308.             con = 0 'default is not connectable
309.             nv$ = TileVal$(cur - 1)
310.             If nv$ = VT$ Then con = 1
311.             If nv$ = LD$ Then con = 1
312.             If nv$ = RD$ Then con = 1
313.             'if not, end flow here
314.             If con = 0 Then GoTo flowdone
315.             'looks like it must be connectable
316.             TileClr(cur - 1) = 1 'turn the next piece on too
317.             'Make it the new current char position
318.             tc = (cur - 1): cur = tc
319.             'find/set new direction based on character
320.             If nv$ = VT$ Then direction = 4 'up
321.             If nv$ = LD$ Then direction = 3 'left
322.             If nv$ = RD$ Then direction = 1 'right
323.         End If
324.      
325.     Loop
326.      
327.     flowdone:
328.      
329.     If firstdraw = 0 Then
330.      
331.         'draw/colorize board
332.         For t = 2 To (GridSize * GridSize)
333.             If TileClr(t) = 1 And TileClr2(t) = 0 Then
334.                 'show green...
335.                 SHOW TileVal$(t) + "-grn.png", TileX(t), TileY(t), TileX(t) + TileSize, TileY(t) + TileSize
336.             End If
337.             If TileClr(t) = 0 And TileClr2(t) = 1 Then
338.                 'show white...
339.                 SHOW TileVal$(t) + "-wht.png", TileX(t), TileY(t), TileX(t) + TileSize, TileY(t) + TileSize
340.             End If
341.         Next t
342.      
343.     Else
344.      
345.         'draw/colorize board
346.         For t = 2 To (GridSize * GridSize)
347.             If TileClr(t) = 1 Then
348.                 tag$ = "-grn.png"
349.             Else
350.                 tag$ = "-wht.png"
351.             End If
352.             SHOW TileVal$(t) + tag$, TileX(t), TileY(t), TileX(t) + TileSize, TileY(t) + TileSize
353.         Next t
354.      
355.         firstdraw = 0
356.      
357.     End If
358.      
359.      
360.     'copy current color values
361.     For t = 1 To GridSize * GridSize
362.         TileClr2(t) = TileClr(t)
363.     Next t
364.      
365.      
366.     '===========
367.     checkforwin:
368.     '===========
369.      
370.     all = 0
371.     For w = 1 To (GridSize * GridSize)
372.         If TileClr(w) = 1 Then all = all + 1
373.         If TileVal$(w) = BM$ Then all = all + 1 'add any blocks
374.     Next w
375.      
376.     If all = (GridSize * GridSize) Then
377.      
378.         ' bplus rewrote this section to fade in the You did it! sign over the gameboard =======================
379.         ' Solved& has already been loaded after sounds at start of program
380.         _SndPlay clap&
381.         snap& = _NewImage(_Width, _Height, 32)
382.         _PutImage , 0, snap&
383.         For alph = 0 To 255
384.             Cls
385.             _PutImage , snap&, 0 'background
386.             _SetAlpha alph, , Solved&
387.             _PutImage (166, 258), Solved&
388.             _Limit 40 ' 255 frames in 2 secs
389.             _Display ' damn blinking!!! without this
390.         Next
391.         _AutoDisplay '<<<<<< back to not needing _display
392.         _FreeImage snap&
393.         ' end of bplus meddling ================================================================================
394.      
395.         Level = Level + 1
396.      
397.         GridSize = GridSize + 1
398.      
399.         If Level > MaxLevel Then Level = 1
400.      
401.         If GridSize > MaxGridSize Then
402.             GridSize = 3 'MaxGridSize  'restart
403.         End If
404.      
405.         GoTo newlevel
406.      
407.     End If
408.      
409.     Return
410.      
411.      
412.     Sub setmaze ()
413.      
414.         If Level = 1 Then
415.             GridSize = 3
416.             a$ = "" '3x3 MazeConnect GridSize
417.             a$ = a$ + "hzrdru"
418.             a$ = a$ + "hzhzhz"
419.             a$ = a$ + "ldluld"
420.         End If
421.      
422.         If Level = 2 Then
423.             GridSize = 4
424.             a$ = "" '4x4 MazeConnect GridSize
425.             a$ = a$ + "vtvtruru"
426.             a$ = a$ + "rdvtluhz"
427.             a$ = a$ + "hzrdruhz"
428.             a$ = a$ + "ldluldlu"
429.         End If
430.      
431.         If Level = 3 Then
432.             GridSize = 5
433.             a$ = "" '5x5 MazeConnect GridSize
434.             a$ = a$ + "hzrdvtvtld"
435.             a$ = a$ + "hzhzrdrdhz"
436.             a$ = a$ + "hzhzldhzhz"
437.             a$ = a$ + "hzldvtluhz"
438.             a$ = a$ + "ldvtvtvtlu"
439.         End If
440.      
441.         If Level = 4 Then
442.             GridSize = 6
443.             a$ = "" '6x6 MazeConnect GridSize
444.             a$ = a$ + "hzrdrurdvtru"
445.             a$ = a$ + "hzhzhzhzrdlu"
446.             a$ = a$ + "ldluhzhzldru"
447.             a$ = a$ + "rdvtluhzbmhz"
448.             a$ = a$ + "hzrdruldruhz"
449.             a$ = a$ + "ldluldvtlulu"
450.         End If
451.      
452.         If Level = 5 Then
453.             GridSize = 7
454.             a$ = "" '7x7 MazeConnect GridSize
455.             a$ = "vtruvtvtrurdru"
456.             a$ = a$ + "rdlurdruldluhz"
457.             a$ = a$ + "ldvtluldrurdlu"
458.             a$ = a$ + "rdvtrurdluldru"
459.             a$ = a$ + "ldruldlurdvtlu"
460.             a$ = a$ + "rdlurdruldvtru"
461.             a$ = a$ + "ldvtluldvtvtlu"
462.         End If
463.      
464.         If Level = 6 Then
465.             GridSize = 8
466.             a$ = "" '8x8 MazeConnect GridSize
467.             a$ = a$ + "hzvtrurdrurdrubm"
468.             a$ = a$ + "hzbmldluhzhzldru"
469.             a$ = a$ + "ldvtrurdluhzrdlu"
470.             a$ = a$ + "rdvtluldvtluldru"
471.             a$ = a$ + "ldrurdvtrurdvtlu"
472.             a$ = a$ + "bmhzhzbmldlurdru"
473.             a$ = a$ + "rdluldvtvtvtluhz"
474.             a$ = a$ + "ldvtvtvtvtvtvtlu"
475.         End If
476.      
477.         If Level = 7 Then
478.             GridSize = 9
479.             a$ = "" '9x9 MazeConnect GridSize
480.             a$ = a$ + "hzrdvtvtrurdrurdru"
481.             a$ = a$ + "hzldvtruldluldluhz"
482.             a$ = a$ + "ldvtruldrubmrdvtlu"
483.             a$ = a$ + "rdruldruldruldrubm"
484.             a$ = a$ + "hzldruldruldruldru"
485.             a$ = a$ + "ldruhzbmldruhzbmhz"
486.             a$ = a$ + "rdluldvtvtluldruhz"
487.             a$ = a$ + "hzrdrurdvtrurdluhz"
488.             a$ = a$ + "ldluldlubmldluvtlu"
489.         End If
490.      
491.         If Level = 8 Then
492.             GridSize = 10
493.             a$ = "" '10x10 MazeConnect GridSize
494.             a$ = a$ + "vtvtvtrurdrurdvtrubm"
495.             a$ = a$ + "hzrdvtluhzhzldruldru"
496.             a$ = a$ + "hzldvtvtluldruhzrdlu"
497.             a$ = a$ + "hzbmrdvtvtruldluldru"
498.             a$ = a$ + "hzrdlurdruhzrdvtvtlu"
499.             a$ = a$ + "hzhzrdluhzldlurdrubm"
500.             a$ = a$ + "hzhzhzbmldrubmhzldru"
501.             a$ = a$ + "hzldlurdruldvtlurdlu"
502.             a$ = a$ + "hzrdruhzldrurdruldru"
503.             a$ = a$ + "ldluldlubmldluldvtlu"
504.         End If
505.      
506.         If Level = 9 Then
507.             GridSize = 11
508.             a$ = "" '11x11 MazeConnect GridSize
509.             a$ = a$ + "hzvtrubmrdvtrubmrdvtru"
510.             a$ = a$ + "ldruldruldruldruldruhz"
511.             a$ = a$ + "bmldruldruldruldruhzhz"
512.             a$ = a$ + "rdruldruldruldruldluhz"
513.             a$ = a$ + "hzldruldruldruldrurdlu"
514.             a$ = a$ + "ldruldruldruldruhzldru"
515.             a$ = a$ + "bmldruldruldruldlurdlu"
516.             a$ = a$ + "rdruldruldruldrurdlubm"
517.             a$ = a$ + "hzldruldruldvtluldvtru"
518.             a$ = a$ + "ldruldvtlurdrurdrurdlu"
519.             a$ = a$ + "bmldvtvtvtluldluldlubm"
520.         End If
521.      
522.         If Level = 10 Then
523.             GridSize = 12
524.             a$ = "" '12x12 MazeConnect GridSize
525.             a$ = a$ + "vtvtrubmbmrdrurdrurdvtru"
526.             a$ = a$ + "bmbmhzbmrdluldluhzhzrdlu"
527.             a$ = a$ + "bmrdlurdlurdrurdluhzldru"
528.             a$ = a$ + "rdlurdlurdluhzhzrdlurdlu"
529.             a$ = a$ + "ldruldvtlurdluhzhzbmldru"
530.             a$ = a$ + "bmldvtvtruhzbmldlurdvtlu"
531.             a$ = a$ + "rdvtvtvtluhzrdvtvtlurdru"
532.             a$ = a$ + "ldrurdvtvtluhzrdvtvtluhz"
533.             a$ = a$ + "rdluhzbmbmbmldlurdrurdlu"
534.             a$ = a$ + "hzrdlurdrurdrubmhzhzhzbm"
535.             a$ = a$ + "ldlurdluhzhzhzrdluhzldru"
536.             a$ = a$ + "vtvtlubmldluldlubmldvtlu"
537.         End If
538.      
539.         If Level = 11 Then
540.             GridSize = 13
541.             a$ = "" '13x13 MazeConnect GridSize
542.             a$ = a$ + "hzvtvtvtvtvtrurdrurdrurdru"
543.             a$ = a$ + "hzrdrurdvtruldluhzhzldluhz"
544.             a$ = a$ + "hzhzhzhzspldvtruhzhzrdruhz"
545.             a$ = a$ + "hzhzhzldrubmrdluldluhzhzhz"
546.             a$ = a$ + "hzhzldvtlurdlurdvtvtluldlu"
547.             a$ = a$ + "hzldrubmrdlubmldvtvtrurdru"
548.             a$ = a$ + "ldruldruhzbmbmbmrdruhzhzhz"
549.             a$ = a$ + "rdlurdluldrubmrdluhzldluhz"
550.             a$ = a$ + "hzrdlurdruldvtlurdlubmrdlu"
551.             a$ = a$ + "hzldruhzldrurdvtlurdruldru"
552.             a$ = a$ + "hzrdluhzbmldlurdvtluhzrdlu"
553.             a$ = a$ + "hzhzrdlurdvtruhzrdvtluldru"
554.             a$ = a$ + "ldluldvtlubmldluldvtvtvtlu"
555.         End If
556.      
557.         If Level = 12 Then
558.             GridSize = 14
559.             a$ = "" '14x14 MazeConnect GridSize
560.             a$ = a$ + "hzrdrurdvtvtrurdrurdvtvtrubm"
561.             a$ = a$ + "hzhzhzldvtruhzhzhzhzrdruhzbm"
562.             a$ = a$ + "ldluhzrdruhzldluldluhzhzhzbm"
563.             a$ = a$ + "rdruhzhzhzldvtvtvtruhzldlubm"
564.             a$ = a$ + "hzhzhzhzhzrdrurdruhzldvtrubm"
565.             a$ = a$ + "hzhzhzhzhzhzhzhzhzhzrdruldru"
566.             a$ = a$ + "hzhzldluhzhzhzhzhzhzhzldvtlu"
567.             a$ = a$ + "hzldvtruhzhzhzhzhzhzldrurdru"
568.             a$ = a$ + "hzrdruhzldluhzhzhzhzbmldluhz"
569.             a$ = a$ + "ldluhzldvtruhzhzhzhzrdrurdlu"
570.             a$ = a$ + "rdruhzrdvtluhzhzldluhzhzhzbm"
571.             a$ = a$ + "hzldluldvtvtluhzrdvtluhzhzbm"
572.             a$ = a$ + "hzvtvtvtvtvtvtluldrurdluhzbm"
573.             a$ = a$ + "ldvtvtvtvtvtvtvtvtluldvtlubm"
574.         End If
575.      
576.         If Level = 13 Then
577.             GridSize = 15
578.             a$ = "" '15x15 MazeConnect GridSize
579.             a$ = a$ + "vtvtrurdrurdrurdrubmrdvtvtvtru"
580.             a$ = a$ + "vtruldluhzhzldluldvtlurdvtruhz"
581.             a$ = a$ + "rdlubmbmhzldvtvtrurdvtlubmldlu"
582.             a$ = a$ + "ldrurdruhzbmrdruhzldrurdvtvtru"
583.             a$ = a$ + "bmhzhzldlurdluhzldruldlurdvtlu"
584.             a$ = a$ + "rdluldrurdlubmhzrdlurdruldrubm"
585.             a$ = a$ + "ldrubmldlurdruldlubmhzhzbmldru"
586.             a$ = a$ + "rdlurdvtvtluldrurdruhzhzrdvtlu"
587.             a$ = a$ + "ldvtlurdvtvtvtluhzldluhzldvtru"
588.             a$ = a$ + "rdvtvtlurdvtvtruldrurdlurdruhz"
589.             a$ = a$ + "ldvtrurdlubmrdlurdluhzrdluldlu"
590.             a$ = a$ + "rdvtluldrurdlurdlurdluhzbmrdru"
591.             a$ = a$ + "ldvtrurdluhzbmldruldruldvtluhz"
592.             a$ = a$ + "rdvtluldruhzrdruldruldvtrurdlu"
593.             a$ = a$ + "ldvtvtvtluldluldvtlubmbmldlubm"
594.         End If
595.      
596.         dd = 1
597.         For s = 1 To Len(a$) Step 2
598.             b$ = Mid$(a$, s, 2)
599.             If b$ = "vt" Then rotate dd, 1
600.             If b$ = "hz" Then rotate dd, 1
601.             If b$ = "ld" Then rotate dd, 2
602.             If b$ = "lu" Then rotate dd, 2
603.             If b$ = "rd" Then rotate dd, 2
604.             If b$ = "ru" Then rotate dd, 2
605.             If b$ = "bm" Then TileVal$(dd) = BM$
606.      
607.             dd = dd + 1
608.         Next s
609.      
610.     End Sub
611.      
612.     Sub rotate (num, typ)
613.      
614.         'there are only two types of rotating characters,
615.         'straight lines, or right angles...
616.      
617.         'randomly rotate straight character
618.         If typ = 1 Then
619.             If Int(Rnd * 2) = 0 Then
620.                 TileVal$(num) = VT$
621.             Else
622.                 TileVal$(num) = HZ$
623.             End If
624.         End If
625.      
626.         'randomly rotate right angles...
627.         If typ = 2 Then
628.             rn = Int(Rnd * 4) + 1
629.             If rn = 1 Then TileVal$(num) = LD$
630.             If rn = 2 Then TileVal$(num) = LU$
631.             If rn = 3 Then TileVal$(num) = RD$
632.             If rn = 4 Then TileVal$(num) = RU$
633.         End If
634.      
635.     End Sub
636.      
637.     Sub SHOW (i$, x1, y1, x2, y2)
638.         'Just a little sub to load & put an image at x1/y1
639.         ttmp = _LoadImage(i$)
640.         _PutImage (x1, y1)-(x2, y2), ttmp
641.         _FreeImage ttmp
642.     End Sub
643.      
644.     Sub PPRINT (x, y, size, clr&, trans&, text$)
645.         'This sub outputs to the current _DEST set
646.         'It makes trans& the transparent color
647.      
648.         'x/y is where to print text
649.         'size is the font size to use
650.         'clr& is the color of your text
651.         'trans& is the background transparent color
652.         'text$ is the string to print
653.      
654.         '=== get users current write screen
655.         orig& = _Dest
656.      
657.         '=== if you are using an 8 or 32 bit screen
658.         bit = 32: If _PixelSize(0) = 1 Then bit = 256
659.      
660.         '=== step through your text
661.         For t = 0 To Len(text$) - 1
662.             '=== make a temp screen to use
663.             pprintimg& = _NewImage(16, 16, bit)
664.             _Dest pprintimg&
665.             '=== set colors and print text
666.             Cls , trans&: Color clr&
667.             Print Mid$(text$, t + 1, 1);
668.             '== make background color the transprent one
669.             _ClearColor _RGB(0, 0, 0), pprintimg&
670.             '=== go back to original screen  to output
671.             _Dest orig&
672.             '=== set it and forget it
673.             x1 = x + (t * size): x2 = x1 + size
674.             y1 = y: y2 = y + size
675.             _PutImage (x1 - (size / 2), y1)-(x2, y2 + (size / 3)), pprintimg&
676.             _FreeImage pprintimg&
677.         Next
678.     End Sub
679.  
680.  

Attachments:

 

PipesPuzzle-v1.0.zip

Author's previous version for rerefence:https://www.qb64.org/foru/index.php?topic=2094.msg113243#msg113243