/* freecell.c - some routines for doing MS style freecell games */
/* Jon Mayo - PUBLIC DOMAIN - October 24, 2006 */
/* information from: http://www.solitairelaboratory.com/mshuffle.txt */

/* example games:
 * :: game #11982
 * -- -- -- -- -- -- -- --
 * AH AS 4H AC 2D 6S TS JS
 * 3D 3H QS QC 8S 7H AD KS
 * KD 6H 5S 4D 9H JH 9S 3C
 * JC 5D 5C 8C 9D TD KH 7C
 * 6C 2C TH QH 6D TC 4S 7S
 * JD 7D 8H 9C 2H QD 4C 5H
 * KC 8D 2S 3S -- -- -- --
 * 
 * :: game #5
 * -- -- -- -- -- -- -- --
 * AH 8S 2D QS 4C 9H 2S 3D
 * 5C AS 9C KH 4D 2C 3C 4S
 * 3S 5D KC 3H KD 5H 6S 8D
 * TD 7S JD 7H 8H JH JC 7D
 * 5S QH 8C 9D KS QD 4H AC
 * 2H TC TH 6D 6H 6C QC JS
 * 9S AD 7C TS -- -- -- --
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>

#define EMPTY 127 /* special value we use for empty cells */
#define ROWS 21
#define COLS 8

void get_card(unsigned n, char *suit, char *value) {
	if(n==EMPTY) {
		*value='-';
		*suit='-';
	} else {
		*value="A23456789TJQK"[n/4];
		*suit="CDHS"[n%4];
	}
}

unsigned max_row(unsigned char board[ROWS][COLS]) {
	int y, x;
	for(y=ROWS;--y;) {
		for(x=0;x<COLS;x++) {
			if(board[y][x]!=EMPTY) return y+1;
		}
	}
	return 0;
}

void show_board(unsigned char board[ROWS][COLS]) {
	int x, y, max_y;
	max_y=max_row(board);
	for(y=0;y<max_y;y++) {
		for(x=0;x<COLS;x++) {
			char suit;
			char value;
			get_card(board[y][x], &suit, &value);
			fputc(value, stdout);
			fputc(suit, stdout);
			fputc((x==(COLS-1))?'\n':' ', stdout);
		}
	}
}

void show_deck(unsigned char deck[52]) {
	int i;
	for(i=0;i<52;i++) {
		char suit;
		char value;
		get_card(deck[i], &suit, &value);
		printf("%c%c\n", value, suit);
	}
}

void do_game(unsigned game_number) {
	unsigned char board[ROWS][COLS];
	unsigned char deck[52];
	unsigned deck_left, i;

	/* create the deck */
	for(i=0;i<52;i++) {
		deck[i]=i;
	}
	
	/* clear the board */
	memset(board, EMPTY, sizeof board);

	/* start the seed */
	ms_srand(game_number);

	/* shuffle deck into board */
	for(i=0,deck_left=52;i<52;i++) {
		unsigned deck_index;
		deck_index=ms_rand() % deck_left; /* pick a card */
		board[i/8+1][i%8]=deck[deck_index]; /* move to board */
		deck[deck_index]=deck[--deck_left]; /* fill in the hole */
	}

	printf(":: game #%u\n", game_number);
	show_board(board);
}

int main(int argc, char **argv) {
	unsigned g=11982; /* the famous impossible game */
	if(argc>1) {
		g=strtoul(argv[1], NULL, 0);
	}
	do_game(g);
}