Tutorial: Graphical Puzzle - Put 6 photos at correct places

[Mystery]

This is a short tutorial in PDF format for intermediate users.
The basics (how to import frames, how to create variables, how to create inventory items) are not explained in detail.

The tutorial shows you how to set up a puzzle, in which the player has to put 6 photos correctly on 6 tables. The tables are on the same screen. If the player has placed all 6 photos on the correct place, the puzzle is solved, if not all are at the correct place, the player has to start over.

I hope that this will be helpful for you, if you have any questions, or if anything is unclear, feel free to post in this thread.

Also if anyone knows that certain parts of the script could be done better, let me know
I know that my scripts work, but they often look horrible to our VBScript geeks

www.mysterys-games.ch/am_puzzle_tutorial.pdf

[mercedes]

Nice Tut Mystery..! I'm sure this will be very helpful to Dalton, as well as others....

Adieux~

[Lyberodoggy]

Nice Job (there's nothing wrong about your code )

[Mystery]

Thanks mercedes & Doggy!


Btw, if you want to save time, and want to copy-paste my code & change it for your needs, here it is:

Code: Select all

Action.RemoveItem "Photo1"
Action.LoadAPicture Hotspot(1), "photo1.jpg"
photo1_ok = 1

If HasItem("Photo1")=false and HasItem("Photo2")=false and HasItem("Photo3")=false and HasItem("Photo4")=false and _
HasItem("Photo5")=false and HasItem("Photo6")=false Then
  If photo1_ok + photo2_ok + photo3_ok + photo4_ok + photo5_ok + photo6_ok = 6 Then
    Action.Message "That's correct!"
  Else
    Action.Message "Something is wrong, try again."
    Action.LoadAPicture Hotspot(1), ""
    Action.LoadAPicture Hotspot(2), ""
    Action.LoadAPicture Hotspot(3), ""
    Action.LoadAPicture Hotspot(4), ""
    Action.LoadAPicture Hotspot(5), ""
    Action.LoadAPicture Hotspot(6), ""
    Action.AddItem "Photo1"
    Action.AddItem "Photo2"
    Action.AddItem "Photo3"
    Action.AddItem "Photo4"
    Action.AddItem "Photo5"
    Action.AddItem "Photo6"
    photo1_ok = 0
    photo2_ok = 0
    photo3_ok = 0
    photo4_ok = 0
    photo5_ok = 0
    photo6_ok = 0
  End If
End If