The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Pat Hand Solitaire

The object of Pat Hand solitaire is to form 5 pat hands using 25 cards. There are three types of pat hands:

1. A flush: 5 cards of the same suit

2. A full house: 3 of one rank, and 2 of another rank (e.g. 3 jacks and 2 aces)

3. A straight: 5 cards in sequence (e.g. 2,3,4,5,6)

Note that an ace may be played high or low in a straight (i.e. A,2,3,4,5 and 10,J,Q,K,A are both valid straights).

In this version, 25 cards are dealt one at a time. Click on a empty space in the (5x5) tableau to place the card. Each row represents one hand. Once all 25 cards have been played, you may swap any two cards in the tableau. Click on a card to select it, then click on a second card to swap the first card with the second. To unselect the first card (rather than make a swap), simply click the first card again and it will be unselected.

Almost all games can be won, but there are a few that cannot. For example, if the 25 cards are:

Clubs: 2,3,4,5,6,7,8,9 Diamonds: 2,3,4,5,6,7,8,9 Hearts: 2,3,4,5,6,7,8,9 Spades: J

The jack of spades cannot be part of flush since there is only one spade. It cannot be part of a full house since there is only one jack. It cannot be part of a straight since there are no tens and no queens. Since the jack of spades cannot be a part of any pat hand, this game cannot be won.

This program does not check to see if it is possible to win the game, which is why there is a restart button.

I should point out that with right strategy, most games of Pat Hand Solitaire are not particularly challenging and will require few swaps. So as not to spoil anyone's fun, I will let you figure out a strategy for yourself. (On the other hand, you could play "spot what I learned from last from last time" with the program listing; then again, that isn't very challenging either. )

The rules for Pat Hand solitaire appeared on p.4 of in the February 1983 issue of Games magazine and were the inspiration for this version.

Source Listing

// // Program: Pat Hand Solitaire // Author: Brucifer // Ultra [Pat Hand Solitaire] * Common Int draw x = 400 Common Int draw y = 193 Common Int empty color = 7 Common Int game over x = 50 Common Int game over y = 2 Common Int right button = 0 Common Int select color = 9 Common Int tableau x = 10 Common Int tableau y = 5 Common Text game over = "Congratulations!" Common Int deck[52] = { 1,2,3,4,5,6,7,8,9,10,11,12,13,14, \ 15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33, \ 34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52 } Common Int card randomize open deck tab xy (55, 5); draw button (1, "Restart", 0, -1) Do clear tableau @ card = 52 play @ Loop Int my quit () close deck goodbye Task clear tableau Common Int tableau[5][5] Do r = 0, 4 Do c = 0, 4 tableau[r][c] = 0 show empty (c, r) @ Loop Loop Task play Common Int tableau[5][5], card, draw x, draw y, right button Common Int game over x, game over y Common Text game over Int c1, r1, c2, r2 Do n = 1, 25 draw @ show card (draw x, draw y, deck[card]) Do get move (c1, r1) @ If (c1 < 0) Return If (tableau[c1][r1] = 0) Break Loop tableau[c1][r1] = deck[card] place card (c1, r1) @ Loop erase card (draw x, draw y, 0) Do If (done ()) Break get move (c1, r1) @ If (c1 < 0) Return select (c1, r1) @ get move (c2, r2) @ If (c2 < 0) Return n=tableau[c1][r1]; tableau[c1][r1]=tableau[c2][r2]; tableau[c2][r2]=n place card (c1, r1) @ place card (c2, r2) @ Loop tab xy (game over x, game over y); Display game over wait for event @ tab xy (game over x, game over y) Do n = 1, length (game over) Display " ", Loop Int done () Do r = 0, 4 Loop Do r = 0, 4 If (pat hand (r) = 0) Return 0 Loop Return 1 Task draw Common Int deck[52], card card = card - 1 a = random (card + 1) b = deck[a]; deck[a] = deck[card]; deck[card] = b Int pat hand (Int r) Common Int freq[13] If (flush (r)) Return 1 Do n = 0, 12 freq[n] = 0 Loop Do n = 0, 4 a = rank (tableau[n][r]) freq[a] = freq[a] + 1 Loop Do a = 12, 1 If (freq[a] != 0) Break Loop Do b = a-1, 0 If (freq[b] != 0) Break Loop If full house (freq[a], freq[b]) Return 1 Return straight (a) Int flush (Int r) Common Int tableau[5][5] s = suit (tableau[0][r]) Do n = 1, 4 If (s != suit (tableau[n][r])) Return 0 Loop Return 1 Int full house (Int a, Int b) Return bool ((max i (a,b) = 3) And (min i (a,b) = 2)) Int straight (Int n) Common Int freq[13] If (n < 4) Return 0 Do i = n-3, n If (freq[i] != 1) Return 0 Loop Return bool ((freq[n-4] = 1) Or ((n = 12) And (freq[0] = 1))) Int rank (Int n) Return ((n-1) % 13) Int suit (Int n) Return ((n-1) / 13) Task select (Int c, Int r) Common Int select color Int x,y card xy (x, y, c, r) @ solid color (select color) solid circle (x+35, y+47, 20) Task show empty (Int c, Int r) Common Int empty color Int x,y card xy (x, y, c, r) @ blank card (x, y, empty color) Task place card (Int c, Int r) Common Int tableau[5][5] Int x,y card xy (x, y, c, r) @ show card (x, y, tableau[c][r]) Task card xy (Int x, Int y, Int c, Int r) Common Int tableau x, tableau y x = tableau x + 71 * c y = tableau y + 94 * r Task get move (Int c, Int r) Common Int tableau x, tableau y Int x, y c = -1; r = -1 Do wait for event (x, y) @ If (x < 0) Return If (x < tableau x) Continue If (y < tableau y) Continue If (x >= tableau x + 355) Continue If (y >= tableau y + 470) Continue Break Loop c = (x - tableau x) / 71 r = (y - tableau y) / 94 Task wait for event (Int x, Int y) Common Int right button Int z a = 1; If (right button) a = -1 b = 1; If (right button) b = 2 n = 4 Do wait (0) read quit key (27) read mouse (x, y, z) If (bit and (z, b) = 0) n = b If (z = n) Return If (read buttons (x, y, z) = a) Break Loop x = -1; y = -1 Task wait for event Int x, y wait for event (x, y) @

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.)