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 portable freeware ncurses(3) library. On non-Intel
14 * machines, SVr4 curses is just as good.
16 * $Id: blue.c,v 1.15 1997/03/09 00:47:41 tom Exp $
19 #include <test.priv.h>
31 #define SUIT_LENGTH 13
39 #define GRID_WIDTH 14 /* 13+1 */
40 #define GRID_LENGTH 56 /* 4*(13+1) */
46 #define RED_ON_WHITE 1
47 #define BLACK_ON_WHITE 2
48 #define BLUE_ON_WHITE 3
50 static RETSIGTYPE die(int onsig) GCC_NORETURN;
52 static int deck_size = PACK_SIZE; /* initial deck */
53 static int deck[PACK_SIZE];
55 static int grid[GRID_LENGTH]; /* card layout grid */
56 static int freeptr[4]; /* free card space pointers */
58 static int deal_number=0;
60 static chtype ranks[SUIT_LENGTH][2] =
77 /* Please note, that this is a bad example.
78 Color values should not be or'ed in. This
79 only works, because the characters used here
80 are plain and have no color attribute themselves. */
81 static chtype letters[4] =
84 'h' | COLOR_PAIR(RED_ON_WHITE), /* hearts */
85 's' | COLOR_PAIR(BLACK_ON_WHITE), /* spades */
86 'd' | COLOR_PAIR(RED_ON_WHITE), /* diamonds */
87 'c' | COLOR_PAIR(BLACK_ON_WHITE), /* clubs */
92 static chtype glyphs[] =
95 '\003' | A_ALTCHARSET | COLOR_PAIR(RED_ON_WHITE), /* hearts */
96 '\006' | A_ALTCHARSET | COLOR_PAIR(BLACK_ON_WHITE), /* spades */
97 '\004' | A_ALTCHARSET | COLOR_PAIR(RED_ON_WHITE), /* diamonds */
98 '\005' | A_ALTCHARSET | COLOR_PAIR(BLACK_ON_WHITE), /* clubs */
101 #endif /* __i386__ */
103 static chtype *suits = letters; /* this may change to glyphs below */
105 static RETSIGTYPE die(int onsig)
107 (void) signal(onsig, SIG_IGN);
112 static void init_vars(void)
116 deck_size = PACK_SIZE;
117 for (i=0; i < PACK_SIZE; i++)
119 for (i = 0; i < 4; i++)
120 freeptr[i]=i * GRID_WIDTH;
123 static void shuffle(int size)
125 int i,j,numswaps,swapnum,temp;
127 numswaps=size*10; /* an arbitrary figure */
129 for (swapnum=0;swapnum<numswaps;swapnum++)
139 static void deal_cards(void)
141 int ptr, card=0, value, csuit, crank, suit, aces[4];
143 for (suit=HEARTS;suit<=CLUBS;suit++)
146 grid[ptr++]=NOCARD; /* 1st card space is blank */
147 while ((ptr % GRID_WIDTH) != 0)
150 crank=value % SUIT_LENGTH;
151 csuit=value / SUIT_LENGTH;
158 if (deal_number==1) /* shift the aces down to the 1st column */
159 for (suit=HEARTS;suit<=CLUBS;suit++)
161 grid[suit * GRID_WIDTH] = suit * SUIT_LENGTH;
162 grid[aces[suit]]=NOCARD;
163 freeptr[suit]=aces[suit];
167 static void printcard(int value)
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]);
181 static void display_cards(int deal)
187 "Blue Moon 2.1 - by Tim Lister & Eric Raymond - Deal %d.\n",
189 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); refresh();
197 #define P(x) (void)printw("%s\n", x)
198 P(" This 52-card solitaire starts with the entire deck shuffled and dealt");
199 P("out in four rows. The aces are then moved to the left end of the layout,");
200 P("making 4 initial free spaces. You may move to a space only the card that");
201 P("matches the left neighbor in suit, and is one greater in rank. Kings are");
202 P("high, so no cards may be placed to their right (they create dead spaces).");
203 P(" When no moves can be made, cards still out of sequence are reshuffled");
204 P("and dealt face up after the ends of the partial sequences, leaving a card");
205 P("space after each sequence, so that each row looks like a partial sequence");
206 P("followed by a space, followed by enough cards to make a row of 14. ");
207 P(" A moment's reflection will show that this game cannot take more than 13");
208 P("deals. A good score is 1-3 deals, 4-7 is average, 8 or more is poor. ");
213 static int find(int card)
217 if ((card<0) || (card>=PACK_SIZE))
219 for(i = 0; i < GRID_LENGTH; i++)
225 static void movecard(int src, int dst)
230 move( BASEROW + (dst / GRID_WIDTH)*2+2, (dst % GRID_WIDTH)*5 + 1);
231 printcard(grid[dst]);
233 move( BASEROW + (src / GRID_WIDTH)*2+2, (src % GRID_WIDTH)*5 + 1);
234 printcard(grid[src]);
239 static void play_game(void)
243 int selection[4], card;
250 card=grid[freeptr[i]-1];
252 if ( ((card % SUIT_LENGTH)==KING)
257 selection[i]=find(card+1);
259 if (selection[i]==NOCARD)
265 char live[NSUITS+1], *lp = live;
269 if (selection[i] != NOCARD)
271 move(BASEROW + (selection[i] / GRID_WIDTH)*2+3,
272 (selection[i] % GRID_WIDTH)*5);
273 (void)printw(" %c ", *lp++ = 'a' + i);
278 if (strlen(live) == 1)
282 "Making forced moves... ");
292 "Type [%s] to move, r to redraw, q or INTR to quit: ",
298 move(PROMPTROW, (int)strlen(buf));
302 (((c = getch())<'a' || c>'d') && (c!='r') && (c!='q'));
305 for (j = 0; j < 4; j++)
306 if (selection[j]!=NOCARD)
308 move(BASEROW + (selection[j] / GRID_WIDTH)*2+3,
309 (selection[j] % GRID_WIDTH)*5);
314 display_cards(deal_number);
320 if (selection[i] == NOCARD)
324 movecard(selection[i], freeptr[i]);
325 freeptr[i]=selection[i];
333 (void)printw("Finished deal %d - type any character to continue...", deal_number);
338 static int collect_discards(void)
340 int row, col, cardno=0, finish, gridno;
342 for (row=HEARTS;row<=CLUBS;row++)
345 for (col=1;col<GRID_WIDTH;col++)
347 gridno=row * GRID_WIDTH + col;
349 if ((grid[gridno]!=(grid[gridno-1]+1))&&(finish==0))
355 if ((finish!=0)&&(grid[gridno]!=NOCARD))
356 deck[cardno++]=grid[gridno];
362 static void game_finished(int deal)
365 (void)printw("You finished the game in %d deals. This is ",deal);
368 (void)addstr("excellent");
370 (void)addstr("good");
372 (void)addstr("average");
374 (void)addstr("poor");
380 int main(int argc, char *argv[])
382 (void) signal(SIGINT, die);
386 * We use COLOR_GREEN because COLOR_BLACK is wired to the wrong thing.
389 init_pair(RED_ON_WHITE, COLOR_RED, COLOR_WHITE);
390 init_pair(BLUE_ON_WHITE, COLOR_BLUE, COLOR_WHITE);
391 init_pair(BLACK_ON_WHITE, COLOR_BLACK, COLOR_WHITE);
394 letters[0] = 'h' | COLOR_PAIR(RED_ON_WHITE); /* hearts */
395 letters[1] = 's' | COLOR_PAIR(BLACK_ON_WHITE); /* spades */
396 letters[2] = 'd' | COLOR_PAIR(RED_ON_WHITE); /* diamonds */
397 letters[3] = 'c' | COLOR_PAIR(BLACK_ON_WHITE); /* clubs */
398 #if defined(__i386__) && defined(A_ALTCHARSET)
399 glyphs[0] = '\003' | A_ALTCHARSET | COLOR_PAIR(RED_ON_WHITE); /* hearts */
400 glyphs[1] = '\006' | A_ALTCHARSET | COLOR_PAIR(BLACK_ON_WHITE); /* spades */
401 glyphs[2] = '\004' | A_ALTCHARSET | COLOR_PAIR(RED_ON_WHITE); /* diamonds */
402 glyphs[3] = '\005' | A_ALTCHARSET | COLOR_PAIR(BLACK_ON_WHITE); /* clubs */
406 #if defined(__i386__) && defined(A_ALTCHARSET)
407 if (tigetstr("smpch"))
409 #endif /* __i386__ && A_ALTCHARSET */
414 srand((unsigned)atoi(argv[1]));
416 srand((unsigned)time((time_t *)0));
424 display_cards(deal_number);
428 ((deck_size=collect_discards()) != 0);
430 game_finished(deal_number);
436 /* blue.c ends here */