The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Reverse

Source Listing

// // Program: Reverse (a really easy puzzle) // Author: Brucifer // Ultra [Reverse] 640x300 * Common Int game over x = 32 Common Int game over y = 13 Common Int tableau x = 0 Common Int tableau y = 45 Common Int right button = 0 Common Int deck[9] = { 40,41,42,43,44,45,46,47,48 } randomize tab xy (1, 17) Display " Click on the Nth card to reverse the order of the first N cards. The object" Display " is to put the cards in ascending order (ace to 9) from left to right." open deck Do deal @ moves = 0 Do tab xy (36,2); Display "Moves:",,moves,,, If (game over ()) Break reverse (get move ()) @ If (moves < 9999) moves = moves + 1 Loop tab xy (game over x, game over y); Display "Congratulations!" wait for event (right button) @ tab xy (game over x, game over y); Display "",,,,,,,,,,,,,,,,, Loop Int my quit () close deck goodbye Task deal Common Int deck[9] Int2 a,b a = random (2999) * 121L + random (121) Do n = 8, 1 b = a % (n + 1) swap cards (n, b) @ place card (n) @ a = a / (n + 1) Loop place card (0) @ Int game over () Common Int deck[9] Do n = 0, 8 If (deck[n] != n + 40) Return 0 Loop Return 1 Int get move () Common Int tableau x, tableau y Int x, y Do wait for event (right button, x, y) @ If (within (x, y, tableau x + 71, tableau y, 639, 94)) Return ((x - tableau x) / 71) Endif Loop Task reverse (Int n) i = 0 Do swap cards (i, n-i) @ place card (i) @ place card (n-i) @ i = i + 1 If (i*2 >= n) Return Loop Task place card (Int n) Common Int deck[9], tableau x, tableau y show card (n * 71 + tableau x, tableau y, deck[n]) Task swap cards (Int a, Int b) Common Int deck[9] c = deck[a]; deck[a] = deck[b]; deck[b] = c Int within (Int x, Int y, Int l, Int t, Int w, Int h) Return bool (x >= l And x <= l + w-1 And y >= t And y <= t + h-1) Task wait for event (Int right button, Int x, Int y, Int key) Int z b = 1; If (right button) b = 2 n = 4 Do wait (0) x = -1; y= -1 key = read key (); If (key = 27) quit If (key != 0) Return read mouse (x, y, z) If (bit and (z, b) = 0) n = b If (z = n) Return Loop Task wait for event (Int right button, Int x, Int y) Int k wait for event (right button, x, y, k) @ Task wait for event (Int right button) Int k, x, y wait for event (right button, x, y, k) @

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

Or, if you don't have SiMPLE installed on your computer,
click here to run the precompiled version of the program.

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)