UnscramblePic.bas - Rotate picture pieces puzzle

[Dav]

UNSCRAMBLEPIC.BAS is a relaxing picture puzzle for all ages.  A picture is shown, then broken up into pieces which are randomly rotated in different positions.  Your goal is to rotate each piece back into the correct direction so they will show the correct picture again.  This program uses a built-in image, but you could supply your own image instead (look in the code for that place).

Use the mouse and click on the pieces to rotate them.  Left click will turns them clockwise, right click turns them counter clockwise.  If you get stuck, you can press SPACE to briefly show the solved picture.  The included picture is shown below (picture was made in a QB64 program).

- Dav

EDIT: Code fixed!  Re-download please.  (Thanks Steffan-68!)

  unscramblepic.bas (Size: 51.2 KB / Downloads: 65)

   

[PhilOfPerth]

Hi Dav.
Looks interesting, but I get a message " Line 797: Memory region out of range." Do I need to input an image or something?

[JRace]

Hi Dav.
Looks interesting, but I get a message " Line 797: Memory region out of range." Do I need to input an image or something?

I get that, too.  Looks like it's the _MEMPUT statement.

[CharlieJV]

That's the funniest timing.  I just spent the last 4 hours or so building a very primitive version of what you've posted  tile-sliding puzzle.

[JRace]

It works just fine when I supply an external image...

Code: (Select All)

'====================================================
'Load your own image below, instead of my built-in one.
pic& = _LoadImage("TEST.PNG", 32)
'pic& = BASIMAGE1& 'load my ugly pic
_PutImage (0, 0)-(_Width, _Height), pic&
_FreeImage pic&
'====================================================

...but no luck so far with the internal one.

[PhilOfPerth]

Yes, I got it to work with my own pic; It looks great!

[Dav]

Hmm, dunno why that error happens unless the copy/paste code is messing some characters up.  It's working for me here.  I replaced the code block with a .BAS file to download instead.  Could you try to run that and see if the error still happens?  

Direct link --> unscramblepic.bas

Thanks for trying it out! 

- Dav

[Steffan-68]

Hmm, dunno why that error happens unless the copy/paste code is messing some characters up.  It's working for me here.  I replaced the code block with a .BAS file to download instead.  Could you try to run that and see if the error still happens?  

Direct link --> unscramblepic.bas

Thanks for trying it out! 

- Dav

The error is still present at line 797.
But the culprit is in line 796 ('btemp$ = _Inflate$(btemp$) ') _Inflate$ is responsible for the error.
The error has been known since version 3.7, but has not yet been fixed.

Here I had already asked a question and got the answer from DSMan195276.
https://qb64phoenix.com/forum/showthread...662&page=3

[bplus]

OK I tried the direct link and still get same error. Code looks cleaner without the image creation stuff anyway IMHO.
Nice puzzle! This reminds me of the track you turn tiles until it makes a complete roadway. I did some work on puzzle creations for that.

[Steffan-68]

Hmm, dunno why that error happens unless the copy/paste code is messing some characters up.  It's working for me here.  I replaced the code block with a .BAS file to download instead.  Could you try to run that and see if the error still happens?  

Direct link --> unscramblepic.bas

Thanks for trying it out! 

- Dav

Here I have changed your code so that it works again.
Line 796 is now      "btemp$ = _Inflate$(btemp$, m.SIZE)"