DataMuseum.dk

top - metrics - download

    Length: 6859 (0x1acb)
    Types: TextFile
    Names: »scrabble.c«

└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
    └─⟦this⟧ »EUUGD18/General/Scrabble/scrabble.c« 

TextFile

/* RCS Info: $Revision: 1.3 $ on $Date: 89/03/15 16:33:15 $
 *           $Source: /yew3/faustus/src/scrabble/RCS/scrabble.c,v $
 * Copyright (c) 1989 Wayne A. Christopher, U. C. Berkeley CS Dept
 *	 faustus@renoir.berkeley.edu, ucbvax!faustus
 * Permission is granted to modify and re-distribute this code in any manner
 * as long as this notice is preserved.  All standard disclaimers apply.
 *
 */

#ifdef MSDOS
typedef char bool;
#include <stdlib.h>
#endif
#include "scrabble.h"
#include "date.h"
#include <signal.h>

bool debug = false;
bool userpick = false;
bool confirm = false;

#ifdef _STDC_
static bool domove(board_t *board, player_t **players, int which);
#else
static bool domove();
#endif
static void sighandler();

#ifdef MSDOS
static char *dictfile = "dictionary";
#else
static char *dictfile = DICT_FILE;
#endif

#ifdef _STDC_
int
main(int ac, char **av)
#else
int
main(ac, av)
int ac;
char **av;
#endif
{
	board_t *board;
	player_t *players[MAX_PLAYERS];
	bool machine[MAX_PLAYERS];
	int numplayers = 2;
	int whosup = 0;
	int turn = 1;
	char buf[BSIZE];
	char *savedfile = NULL;
	FILE *sfp = NULL;
	int i, j, k;

	/*
	printf("\tScrabble 1.0, by Wayne Christopher\n");	
	printf("Compiled %s by %s@%s\n\n", DATE, USER, HOST);
	*/

#ifdef MSDOS
	srand((unsigned int) time(0));
#else
	srandom(time(0));
#endif		

	for (i = 0; i < MAX_PLAYERS; i++)
		machine[i] = false;

	for (ac--, av++; ac && (**av == '-'); ac--, av++) {
		if (eq(*av, "-d")) {
			debug = true;
		} else if (eq(*av, "-p")) {
			userpick = true;
		} else if (eq(*av, "-c")) {
			confirm = true;
		} else if (eq(*av, "-n")) {
			numplayers = atoi(*++av);
			ac--;
		} else if (eq(*av, "-w")) {
			dictfile = *++av;
			ac--;
		} else if (eq(*av, "-m")) {
			machine[atoi(*++av)] = true;
			ac--;
		} else {
			goto usage;
		}
	}
	if (ac > 0)
		savedfile = *av;

	if (savedfile) {
		if (!(sfp = fopen(savedfile, "r"))) {
			perror(savedfile);
			savedfile = NULL;
		} else {
			unlink(savedfile);
		}
	}

	/* Read the words. */
	readdict(dictfile);

	/* Create the board. */
	if (savedfile) {
		board = restoregame(sfp, &numplayers, &whosup, &turn);
		if (!board) {
			savedfile = NULL;
			board = makeboard();
		}
	} else {
		board = makeboard();
	}

	/* Create the players. */
	for (i = 0; i < numplayers; i++)
		if (savedfile) {
			players[i] = restoreplayer(sfp);
		} else {
			players[i] = makeplayer(board, i);
			players[i]->machine = machine[i];
			if (machine[i])
				sprintf(buf, "Mach %d", i);
			else {
				printf("Enter name of player %d: ", i);
				fgets(buf, BSIZE, stdin);
				buf[strlen(buf) - 1] = '\0';
				if (!*buf)
					sprintf(buf, "Dude %d", i);
			}
			players[i]->name = strsav(buf);
		}

	if (sfp)
		fclose(sfp);

	user_init(DEV_TTY, board, players, numplayers);

#ifndef MSDOS
	signal(SIGINT, sighandler);
#endif	

	/* Now take turns. */
	for (;;) {
		user_drawsummary(board, turn);
		while (whosup < numplayers)
			if (!domove(board, players, whosup) ||
					!players[whosup]->numworking)
				goto endgame;
			else
				whosup++;
		turn++;
		whosup = 0;
	}

endgame:
	if (players[whosup]->numworking > 0)
		whosup = -1;
	for (i = 0; i < numplayers; i++) {
		if (i == whosup)
			continue;
		for (j = 0, k = 0; j < players[i]->numworking; j++) {
assert(players[i]->working[j]);
			k += letterpoints(players[i]->working[j]);
		}
		sprintf(buf, "%s has %d points left.", players[i]->name,
				players[i]->score);
		user_message(buf);
		players[i]->score -= k;
		if (whosup >= 0)
			players[whosup]->score += k;

		user_drawplayer(players[i], i, false);
	}
	if (whosup >= 0)
		user_drawplayer(players[whosup], whosup, true);

	whosup = 0;
	for (i = 1; i < numplayers; i++)
		if (players[i]->score > players[whosup]->score)
			whosup = i;

	sprintf(buf, "%s wins with %d points.  Hit return to exit...",
			players[whosup]->name, players[whosup]->score);
	(void) user_confirm(buf);

	if (user_confirm("Save updated dictionary?"))
		writedict(dictfile);

	user_cleanup();
	exit(0);

usage:
	fprintf(stderr, "Usage: scrabble [ options ] [ saved-game ]\n");
	fprintf(stderr, "\tOptions are: -d       Debug mode\n");
	fprintf(stderr, "\t             -p       Allow user to pick tiles\n");
	fprintf(stderr, "\t             -c       Confirm all words used\n");
	fprintf(stderr, "\t             -n num   Allow nnum players\n");
	fprintf(stderr, "\t             -m pnum  Player pnum is the machine\n");
	fprintf(stderr, "\t             -w words Use words for the dictfile\n");

	exit(1);
}

#ifdef _STDC_
static bool
domove(board_t *board, player_t **players, int which)
#else
static bool
domove(board, players, which)
board_t *board;
player_t **players;
int which;
#endif
{
	move_t move;
	char buf[BSIZE];
	command_t com;

#ifdef notdef
	if (debug)
		fprintf(stderr, "Moving for player %d...\n", which);
#endif

	user_drawplayer(players[which], which, true);

	if (players[which]->numworking == 0)
		return (false);

	if (players[which]->machine) {
		do {
			bestmove(board, players[which], &move);
			if (confirm)
				trymove(&move, board, players[which], true);
		} while (confirm && (move.points < 0));

		if (move.points < 0)
			return (false);

		user_drawmove(board, &move, players[which]);
		playermove(board, players[which], &move);
		boardmove(board, &move);
		user_drawplayer(players[which], which, false);
	} else {
		for (;;) {
			com = user_command(board, players[which], &move);
			switch (com) {
			    case NOTHING:
				continue;

			    case MOVE:
				trymove(&move, board, players[which], false);

				if (!isaword(move.word)) {
					sprintf(buf,
				"I don't think \"%s\" is a word.  Do you?",
							move.word);
					if (user_confirm(buf)) {
						addword(move.word);
					} else
						continue;
				}

				if (move.points < 0) {
					user_message("You can't do that.");
					continue;
				}

				user_drawmove(board, &move, players[which]);
				playermove(board, players[which], &move);
				boardmove(board, &move);
				user_drawplayer(players[which], which, false);
				break;

			    case ADVICE:
				players[which]->machine = true;
				bestmove(board, players[which], &move);
				players[which]->machine = false;
				sprintf(buf,
			"I'd suggest \"%s\" at (%d, %d) %s for %d points.",
						move.word, move.x, move.y,
						move.horiz ? "horiz" : "vert",
						move.points);
				user_message(buf);
				continue;

			    case TRADEIN:
				user_message("Sorry, can't do that yet.");
				continue;

			    case SAVE:
				user_message("Sorry, can't do that yet.");
				continue;

			    case RESTORE:
				user_message("Sorry, can't do that yet.");
				continue;

			    case HELP:
				user_givehelp();
				continue;

			    case QUIT:
				if (user_confirm("Save updated dictionary?"))
					writedict(dictfile);
				user_cleanup();
				exit(0);
			}

			break;
		}
	}

	return (true);
}

static void
sighandler()
{
	user_cleanup();
	exit(0);
}