Author Topic: 'Written In Stone' - Word puzzle game, Revisited  (Read 5872 times)

0 Members and 1 Guest are viewing this topic.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
'Written In Stone' - Word puzzle game, Revisited
« on: March 31, 2020, 10:01:40 pm »
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.jpg


 

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #1 on: March 31, 2020, 10:45:19 pm »
Ha! tremendous layout for simple game! Love the scrolling stone and music!

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #2 on: April 01, 2020, 06:29:52 am »
@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).

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #3 on: April 01, 2020, 11:46:00 am »
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!
« Last Edit: April 01, 2020, 11:57:00 am by bplus »

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #4 on: April 01, 2020, 05:55:26 pm »
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
« Last Edit: April 01, 2020, 06:12:06 pm by Dav »

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #5 on: April 02, 2020, 10:01:37 pm »
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!
Logic is the beginning of wisdom.

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #6 on: April 02, 2020, 10:14:33 pm »
I loved the "groove" that it had going. That was amazing.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #7 on: April 02, 2020, 10:45:27 pm »
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

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #8 on: April 04, 2020, 05:56:23 pm »
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.
Programming isn't difficult, only it's  consuming time and coffee

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: 'Written In Stone' - Word puzzle game, Revisited
« Reply #9 on: April 04, 2020, 06:29:25 pm »
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.  
  15.  
  16. '=== load image to use
  17.  
  18. pic& = _LOADIMAGE(source$ + "img\paper-title.jpg")
  19. help& = _LOADIMAGE(source$ + "img\helpscreen.jpg")
  20. _PUTIMAGE , pic&, 0: _DISPLAY
  21.  
  22.  
  23. ScreenSwap "LEFT", pic&, help&, 60: _DELAY 1
  24. ScreenSwap "RIGHT", help&, pic&, 60: _DELAY 1
  25. ScreenSwap "DOWN", pic&, help&, 60: _DELAY 1
  26. ScreenSwap "UP", help&, pic&, 60: _DELAY 1
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33. '========================================================================================
  34. '
  35. '========================================================================================
  36.  
  37.  
  38.  
  39.  
  40. SUB ScreenSwap (way$, image1&, image2&, speed!)
  41.  
  42.     SELECT CASE UCASE$(way$)
  43.         CASE "LEFT"
  44.             x2 = 0
  45.             FOR x = 0 TO 1023 / 2 STEP 15
  46.                 _PUTIMAGE (x2, 0), image2&, 0
  47.                 _PUTIMAGE (x, 0), image1&, 0
  48.                 x2 = x2 - 15
  49.                 _DISPLAY
  50.                 _LIMIT speed!
  51.             NEXT
  52.             x2 = 0 - (1023 / 2)
  53.             FOR x = 1023 / 2 TO 0 STEP -15
  54.                 'underneath one first (now image1)
  55.                 _PUTIMAGE (x, 0), image1&, 0
  56.                 _PUTIMAGE (x2, 0), image2&, 0
  57.                 x2 = x2 + 15
  58.                 _DISPLAY
  59.                 _LIMIT speed!
  60.             NEXT
  61.         CASE "RIGHT"
  62.             x2 = 0
  63.             FOR x = 0 TO -(1023 / 2) STEP -15
  64.                 _PUTIMAGE (x2, 0), image2&, 0
  65.                 _PUTIMAGE (x, 0), image1&, 0
  66.                 x2 = x2 + 15
  67.                 _DISPLAY
  68.                 _LIMIT speed!
  69.             NEXT
  70.             x2 = 1023 / 2
  71.             FOR x = 0 - (1023 / 2) TO 0 STEP 15
  72.                 'underneath one first (now image1)
  73.                 _PUTIMAGE (x, 0), image1&, 0
  74.                 _PUTIMAGE (x2, 0), image2&, 0
  75.                 x2 = x2 - 15
  76.                 _DISPLAY
  77.                 _LIMIT speed!
  78.             NEXT
  79.         CASE "DOWN"
  80.             y2 = 0
  81.             FOR y = 0 TO (767 / 2) STEP 15
  82.                 _PUTIMAGE (0, y2), image2&, 0
  83.                 _PUTIMAGE (0, y), image1&, 0
  84.                 y2 = y2 - 15
  85.                 _DISPLAY
  86.                 _LIMIT speed!
  87.             NEXT
  88.             y2 = 0 - (767 / 2)
  89.             FOR y = (767 / 2) TO 0 STEP -15
  90.                 'underneath one first (now image1)
  91.                 _PUTIMAGE (0, y), image1&, 0
  92.                 _PUTIMAGE (0, y2), image2&, 0
  93.                 y2 = y2 + 15
  94.                 _DISPLAY
  95.                 _LIMIT speed!
  96.             NEXT
  97.         CASE "UP"
  98.             y2 = 0
  99.             FOR y = 0 TO 0 - (767 / 2) STEP -15
  100.                 _PUTIMAGE (0, y2), image2&, 0
  101.                 _PUTIMAGE (0, y), image1&, 0
  102.                 y2 = y2 + 15
  103.                 _DISPLAY
  104.                 _LIMIT speed!
  105.             NEXT
  106.             y2 = (767 / 2)
  107.             FOR y = 0 - (767 / 2) TO 0 STEP 15
  108.                 'underneath one first (now image1)
  109.                 _PUTIMAGE (0, y), image1&, 0
  110.                 _PUTIMAGE (0, y2), image2&, 0
  111.                 y2 = y2 - 15
  112.                 _DISPLAY
  113.                 _LIMIT speed!
  114.             NEXT
  115.  
  116.     END SELECT
  117.  
  118.     _PUTIMAGE , image2&, 0: _DISPLAY
  119.  
  120.  
  121.  
« Last Edit: April 04, 2020, 06:32:57 pm by Dav »