1 /*****************************************************************************
6 * A patience game by T.A.Lister *
7 * Integral screen support by Eric S. Raymond *
9 *****************************************************************************/
12 * Compile this with the command `cc -O blue.c -lcurses -o blue'. For best
13 * results, use the ncurses(3) library. On non-Intel machines, SVr4 curses is
16 * $Id: blue.c,v 1.24 2002/06/29 23:32:18 tom Exp $
21 #include <test.priv.h>
27 #define SUIT_LENGTH 13
35 #define GRID_WIDTH 14 /* 13+1 */
36 #define GRID_LENGTH 56 /* 4*(13+1) */
42 #define RED_ON_WHITE 1
43 #define BLACK_ON_WHITE 2
44 #define BLUE_ON_WHITE 3
46 static RETSIGTYPE die(int onsig) GCC_NORETURN;
48 static int deck_size = PACK_SIZE; /* initial deck */
49 static int deck[PACK_SIZE];
51 static int grid[GRID_LENGTH]; /* card layout grid */
52 static int freeptr[4]; /* free card space pointers */
54 static int deal_number = 0;
56 static chtype ranks[SUIT_LENGTH][2] =
73 /* Please note, that this is a bad example.
74 Color values should not be or'ed in. This
75 only works, because the characters used here
76 are plain and have no color attribute themselves. */
78 #define OR_COLORS(value,pair) ((value) | COLOR_PAIR(pair))
80 #define OR_COLORS(value,pair) (value)
83 #define PC_COLORS(value,pair) (OR_COLORS(value,pair) | A_ALTCHARSET)
85 static chtype letters[4] =
87 OR_COLORS('h', RED_ON_WHITE), /* hearts */
88 OR_COLORS('s', BLACK_ON_WHITE), /* spades */
89 OR_COLORS('d', RED_ON_WHITE), /* diamonds */
90 OR_COLORS('c', BLACK_ON_WHITE), /* clubs */
94 static chtype glyphs[] =
96 PC_COLORS('\003', RED_ON_WHITE), /* hearts */
97 PC_COLORS('\006', BLACK_ON_WHITE), /* spades */
98 PC_COLORS('\004', RED_ON_WHITE), /* diamonds */
99 PC_COLORS('\005', BLACK_ON_WHITE), /* clubs */
101 #endif /* __i386__ */
103 static chtype *suits = letters; /* this may change to glyphs below */
108 (void) signal(onsig, SIG_IGN);
110 ExitProgram(EXIT_SUCCESS);
118 deck_size = PACK_SIZE;
119 for (i = 0; i < PACK_SIZE; i++)
121 for (i = 0; i < 4; i++)
122 freeptr[i] = i * GRID_WIDTH;
128 int i, j, numswaps, swapnum, temp;
130 numswaps = size * 10; /* an arbitrary figure */
132 for (swapnum = 0; swapnum < numswaps; swapnum++) {
144 int ptr, card = 0, value, csuit, crank, suit, aces[4];
146 for (suit = HEARTS; suit <= CLUBS; suit++) {
148 grid[ptr++] = NOCARD; /* 1st card space is blank */
149 while ((ptr % GRID_WIDTH) != 0) {
150 value = deck[card++];
151 crank = value % SUIT_LENGTH;
152 csuit = value / SUIT_LENGTH;
159 if (deal_number == 1) /* shift the aces down to the 1st column */
160 for (suit = HEARTS; suit <= CLUBS; suit++) {
161 grid[suit * GRID_WIDTH] = suit * SUIT_LENGTH;
162 grid[aces[suit]] = NOCARD;
163 freeptr[suit] = aces[suit];
174 addch(ranks[value % SUIT_LENGTH][0] | COLOR_PAIR(BLUE_ON_WHITE));
175 addch(ranks[value % SUIT_LENGTH][1] | COLOR_PAIR(BLUE_ON_WHITE));
176 addch(suits[value / SUIT_LENGTH]);
182 display_cards(int deal)
188 "Blue Moon 2.1 - by Tim Lister & Eric Raymond - Deal %d.\n",
190 for (row = HEARTS; row <= CLUBS; row++) {
191 move(BASEROW + row + row + 2, 1);
192 for (card = 0; card < GRID_WIDTH; card++)
193 printcard(grid[row * GRID_WIDTH + card]);
196 move(PROMPTROW + 2, 0);
198 #define P(x) (void)printw("%s\n", x)
199 P(" This 52-card solitaire starts with the entire deck shuffled and dealt");
200 P("out in four rows. The aces are then moved to the left end of the layout,");
201 P("making 4 initial free spaces. You may move to a space only the card that");
202 P("matches the left neighbor in suit, and is one greater in rank. Kings are");
203 P("high, so no cards may be placed to their right (they create dead spaces).");
204 P(" When no moves can be made, cards still out of sequence are reshuffled");
205 P("and dealt face up after the ends of the partial sequences, leaving a card");
206 P("space after each sequence, so that each row looks like a partial sequence");
207 P("followed by a space, followed by enough cards to make a row of 14. ");
208 P(" A moment's reflection will show that this game cannot take more than 13");
209 P("deals. A good score is 1-3 deals, 4-7 is average, 8 or more is poor. ");
219 if ((card < 0) || (card >= PACK_SIZE))
221 for (i = 0; i < GRID_LENGTH; i++)
228 movecard(int src, int dst)
230 grid[dst] = grid[src];
233 move(BASEROW + (dst / GRID_WIDTH) * 2 + 2, (dst % GRID_WIDTH) * 5 + 1);
234 printcard(grid[dst]);
236 move(BASEROW + (src / GRID_WIDTH) * 2 + 2, (src % GRID_WIDTH) * 5 + 1);
237 printcard(grid[src]);
247 int selection[4], card;
251 for (i = 0; i < 4; i++) {
252 card = grid[freeptr[i] - 1];
254 if (((card % SUIT_LENGTH) == KING)
257 selection[i] = NOCARD;
259 selection[i] = find(card + 1);
261 if (selection[i] == NOCARD)
266 char live[NSUITS + 1], *lp = live;
268 for (i = 0; i < 4; i++) {
269 if (selection[i] != NOCARD) {
270 move(BASEROW + (selection[i] / GRID_WIDTH) * 2 + 3,
271 (selection[i] % GRID_WIDTH) * 5);
272 (void) printw(" %c ", *lp++ = 'a' + i);
277 if (strlen(live) == 1) {
280 "Making forced moves... ");
288 "Type [%s] to move, r to redraw, q or INTR to quit: ",
294 move(PROMPTROW, (int) strlen(buf));
298 (((c = getch()) < 'a' || c > 'd') && (c != 'r') && (c != 'q'));
301 for (j = 0; j < 4; j++)
302 if (selection[j] != NOCARD) {
303 move(BASEROW + (selection[j] / GRID_WIDTH) * 2 + 3,
304 (selection[j] % GRID_WIDTH) * 5);
309 display_cards(deal_number);
314 if (selection[i] == NOCARD)
317 movecard(selection[i], freeptr[i]);
318 freeptr[i] = selection[i];
326 (void) printw("Finished deal %d - type any character to continue...", deal_number);
332 collect_discards(void)
334 int row, col, cardno = 0, finish, gridno;
336 for (row = HEARTS; row <= CLUBS; row++) {
338 for (col = 1; col < GRID_WIDTH; col++) {
339 gridno = row * GRID_WIDTH + col;
341 if ((grid[gridno] != (grid[gridno - 1] + 1)) && (finish == 0)) {
343 freeptr[row] = gridno;
346 if ((finish != 0) && (grid[gridno] != NOCARD))
347 deck[cardno++] = grid[gridno];
354 game_finished(int deal)
357 (void) printw("You finished the game in %d deals. This is ", deal);
360 (void) addstr("excellent");
362 (void) addstr("good");
364 (void) addstr("average");
366 (void) addstr("poor");
373 main(int argc, char *argv[])
375 (void) signal(SIGINT, die);
377 setlocale(LC_ALL, "");
382 * We use COLOR_GREEN because COLOR_BLACK is wired to the wrong thing.
385 init_pair(RED_ON_WHITE, COLOR_RED, COLOR_WHITE);
386 init_pair(BLUE_ON_WHITE, COLOR_BLUE, COLOR_WHITE);
387 init_pair(BLACK_ON_WHITE, COLOR_BLACK, COLOR_WHITE);
390 letters[0] = OR_COLORS('h', RED_ON_WHITE); /* hearts */
391 letters[1] = OR_COLORS('s', BLACK_ON_WHITE); /* spades */
392 letters[2] = OR_COLORS('d', RED_ON_WHITE); /* diamonds */
393 letters[3] = OR_COLORS('c', BLACK_ON_WHITE); /* clubs */
394 #if defined(__i386__) && defined(A_ALTCHARSET)
395 glyphs[0] = PC_COLORS('\003', RED_ON_WHITE); /* hearts */
396 glyphs[1] = PC_COLORS('\006', BLACK_ON_WHITE); /* spades */
397 glyphs[2] = PC_COLORS('\004', RED_ON_WHITE); /* diamonds */
398 glyphs[3] = PC_COLORS('\005', BLACK_ON_WHITE); /* clubs */
402 #if defined(__i386__) && defined(A_ALTCHARSET)
403 if (tigetstr("smpch"))
405 #endif /* __i386__ && A_ALTCHARSET */
410 srand((unsigned) atoi(argv[1]));
412 srand((unsigned) time((time_t *) 0));
420 display_cards(deal_number);
424 ((deck_size = collect_discards()) != 0);
426 game_finished(deal_number);
432 /* blue.c ends here */