'Written In Stone' - Word puzzle game, Revisited

[Dav]

This is my first game, made in QB64 SDL years ago.  It would not run correctly in QB64-GL, so I spent a couple days updating the source to make it work, and fixed a few errors/bugs along the way.  The source is very unorganized and and ugly, as the game was made in haste, but it works.

It's a word puzzle game.  There are 50 well known quotes, scrambled up.  Using the mouse you arrange the letters to make the quote.  Only letters over and under each other can be swapped (same column), not side by side.

- Dav

 

 

WrittenInStone-v1.1-QB64GL.zip

[bplus]

Ha! tremendous layout for simple game! Love the scrolling stone and music!

[Qwerkey]

@Dav Yes.  A really nicely executed piece of programming, and one that shows off QB64's possibilities.  We shall want to curate this in our Games section. (@bplus I'll do this as you're busy elsewhere).

[bplus]

Actually @Qwerkey, I have been eyeing 5 previous puzzles posted by Dav. Two of my personal favorites have least views and comments and labeled v1 so Dav might have more versions in mind for those. This was Monday night.

I was preparing to post something to Dav somewhere probably in Samples Discussion proposing a "Dav's Puzzle Pack" of the 5 but now, as of Tuesday, he's got 6! ;-)) So why not here and now?

@Dav so what do you think about any or all of this? I am puzzled.

For ease of reference (and a plug for Dav's Puzzles) here are links to the others:
Color My Heart  https://www.qb64.org/forum/index.php?topic=542.msg3934#msg3934
RoCoLoco  https://www.qb64.org/forum/index.php?topic=516.msg3700#msg3700
PegSolitare https://www.qb64.org/forum/index.php?topic=602.msg4579#msg4579
Neighbors Math Puzzle https://www.qb64.org/forum/index.php?topic=2106.msg113433#msg113433
Maze Connect https://www.qb64.org/forum/index.php?topic=2094.msg113243#msg113243

As it says in stone now, Great Minds Think Alike!

[Dav]

Thanks!  It was a fun project, kind of an obsession for a week.   

Thanks for putting it in the games section, Qwerkey.  Perhaps I can dig up some more stuff for the samples library. 

I've been browsing the samples library - Fillippe's Interpreter is quite good!  I think it could be made into a byte-code compiler.  Compile an EXE of the interpreter that, when run, will read and run source code attached to it's end.  I'm tempted to play around with that idea (I would ask Fillippe's permission first of course)...

bplus, that sounds good to me, putting them in a pack.  Thanks for the links to those games, I had forgotten a couple of them already.  I haven't made any improvements on them yet, but I suppose I can add some sounds. 

- Dav

[johnno56]

Brilliant game! I think I got to to about level 35 or 32... can't remember... partial brain drain from puzzle solving... lol
Two thumbs way up from me! Well done!

[OldMoses]

I loved the "groove" that it had going. That was amazing.

[Dav]

Glad you enjoyed it.  I thought about showing a short little tidbit of the quote after solving it, what it means, or who said it, etc.  And maybe add a forth line so the quotes can be longer, and scrambled up better. 

- Dav

[TempodiBasic]

Hi DAV
thanks to share your game
I find it cool!

PS if I must search a defect I can say  great graphic, great sound, simple gameplay, fine interaction but in the window of choice of level to challange I must click on previous level completed to go out to quit game.

[Dav]

Thanks, TempodiBasic.  Yes, I should have put a go back to menu on that page.  I forgot to mention that pressing ESC during game play will go back to main menu, and pressing ESC at the main menu will quit the game.

bplus, I found one more puzzle for the puzzle pack HERE, although I really don't consider it mine since I just did a fan remake of someone else's game I really liked.

Here's a ScreenSwap effect I didn't use in the game.  You will need the game package to run this code.

- Dav

Code: QB64: [Select]

1. DEFINT A-Z
2.  
3. DECLARE SUB ScreenSwap (way$, image1&, image2&, speed!)
4.  
5. DIM SHARED source$
6.  
7. '===============================================================
8. source$ = "winstone-data\" '        <<< LOCATION OF DATA FILES!
9. '===============================================================
10.  
11. '=== Set screen
12.  
13. SCREEN _NEWIMAGE(1024, 768, 32)
14. _FULLSCREEN _SQUAREPIXELS
15.  
16. _DELAY .5
17.  
18. '=== load image to use
19.  
20. pic& = _LOADIMAGE(source$ + "img\paper-title.jpg")
21. help& = _LOADIMAGE(source$ + "img\helpscreen.jpg")
22. _PUTIMAGE , pic&, 0: _DISPLAY
23.  
24. _DELAY 1
25.  
26. ScreenSwap "LEFT", pic&, help&, 60: _DELAY 1
27. ScreenSwap "RIGHT", help&, pic&, 60: _DELAY 1
28. ScreenSwap "DOWN", pic&, help&, 60: _DELAY 1
29. ScreenSwap "UP", help&, pic&, 60: _DELAY 1
30.  
31. _FREEIMAGE pic&: _FREEIMAGE help&
32.  
33. END
34.  
35.  
36.  
37.  
38. '========================================================================================
39. '
40. '========================================================================================
41.  
42.  
43.  
44.  
45. SUB ScreenSwap (way$, image1&, image2&, speed!)
46.  
47.     SELECT CASE UCASE$(way$)
48.         CASE "LEFT"
49.             x2 = 0
50.             FOR x = 0 TO 1023 / 2 STEP 15
51.                 _PUTIMAGE (x2, 0), image2&, 0
52.                 _PUTIMAGE (x, 0), image1&, 0
53.                 x2 = x2 - 15
54.                 _DISPLAY
55.                 _LIMIT speed!
56.             NEXT
57.             x2 = 0 - (1023 / 2)
58.             FOR x = 1023 / 2 TO 0 STEP -15
59.                 'underneath one first (now image1)
60.                 _PUTIMAGE (x, 0), image1&, 0
61.                 _PUTIMAGE (x2, 0), image2&, 0
62.                 x2 = x2 + 15
63.                 _DISPLAY
64.                 _LIMIT speed!
65.             NEXT
66.         CASE "RIGHT"
67.             x2 = 0
68.             FOR x = 0 TO -(1023 / 2) STEP -15
69.                 _PUTIMAGE (x2, 0), image2&, 0
70.                 _PUTIMAGE (x, 0), image1&, 0
71.                 x2 = x2 + 15
72.                 _DISPLAY
73.                 _LIMIT speed!
74.             NEXT
75.             x2 = 1023 / 2
76.             FOR x = 0 - (1023 / 2) TO 0 STEP 15
77.                 'underneath one first (now image1)
78.                 _PUTIMAGE (x, 0), image1&, 0
79.                 _PUTIMAGE (x2, 0), image2&, 0
80.                 x2 = x2 - 15
81.                 _DISPLAY
82.                 _LIMIT speed!
83.             NEXT
84.         CASE "DOWN"
85.             y2 = 0
86.             FOR y = 0 TO (767 / 2) STEP 15
87.                 _PUTIMAGE (0, y2), image2&, 0
88.                 _PUTIMAGE (0, y), image1&, 0
89.                 y2 = y2 - 15
90.                 _DISPLAY
91.                 _LIMIT speed!
92.             NEXT
93.             y2 = 0 - (767 / 2)
94.             FOR y = (767 / 2) TO 0 STEP -15
95.                 'underneath one first (now image1)
96.                 _PUTIMAGE (0, y), image1&, 0
97.                 _PUTIMAGE (0, y2), image2&, 0
98.                 y2 = y2 + 15
99.                 _DISPLAY
100.                 _LIMIT speed!
101.             NEXT
102.         CASE "UP"
103.             y2 = 0
104.             FOR y = 0 TO 0 - (767 / 2) STEP -15
105.                 _PUTIMAGE (0, y2), image2&, 0
106.                 _PUTIMAGE (0, y), image1&, 0
107.                 y2 = y2 + 15
108.                 _DISPLAY
109.                 _LIMIT speed!
110.             NEXT
111.             y2 = (767 / 2)
112.             FOR y = 0 - (767 / 2) TO 0 STEP 15
113.                 'underneath one first (now image1)
114.                 _PUTIMAGE (0, y), image1&, 0
115.                 _PUTIMAGE (0, y2), image2&, 0
116.                 y2 = y2 - 15
117.                 _DISPLAY
118.                 _LIMIT speed!
119.             NEXT
120.  
121.     END SELECT
122.  
123.     _PUTIMAGE , image2&, 0: _DISPLAY
124.  
125.     _AUTODISPLAY
126.  
127. END SUB
128.