Subversion Repositories HelenOS

/*	$OpenBSD: tetris.c,v 1.21 2006/04/20 03:24:12 ray Exp $	*/

/*	$NetBSD: tetris.c,v 1.2 1995/04/22 07:42:47 cgd Exp $	*/

/*-

 * Copyright (c) 1992, 1993

 *	The Regents of the University of California.  All rights reserved.

 *

 * This code is derived from software contributed to Berkeley by

 * Chris Torek and Darren F. Provine.

 *

 * Redistribution and use in source and binary forms, with or without

 * modification, are permitted provided that the following conditions

 * are met:

 * 1. Redistributions of source code must retain the above copyright

 *    notice, this list of conditions and the following disclaimer.

 * 2. Redistributions in binary form must reproduce the above copyright

 *    notice, this list of conditions and the following disclaimer in the

 *    documentation and/or other materials provided with the distribution.

 * 3. Neither the name of the University nor the names of its contributors

 *    may be used to endorse or promote products derived from this software

 *    without specific prior written permission.

 *

 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND

 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE

 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE

 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE

 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL

 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS

 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)

 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT

 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY

 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF

 * SUCH DAMAGE.

 *

 *	@(#)tetris.c	8.1 (Berkeley) 5/31/93

 */

#ifndef lint

static const char copyright[] =

"@(#) Copyright (c) 1992, 1993\n\

	The Regents of the University of California.  All rights reserved.\n";

#endif /* not lint */

/*

 * Tetris (or however it is spelled).

 */

#include <sys/time.h>

#include <sys/types.h>

#include <err.h>

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <unistd.h>

#include "input.h"

#include "scores.h"

#include "screen.h"

#include "tetris.h"

cell	board[B_SIZE];

int	Rows, Cols;

const struct shape *curshape;

const struct shape *nextshape;

long	fallrate;

int	score;

//gid_t	gid, egid;

char	key_msg[100];

int	showpreview, classic;

static void	elide(void);

static void	setup_board(void);

const struct shape *randshape(void);

void	onintr(int);

void	usage(void);

/*

 * Set up the initial board.  The bottom display row is completely set,

 * along with another (hidden) row underneath that.  Also, the left and

 * right edges are set.

 */

static void

setup_board(void)

{

	int i;

	cell *p;

	p = board;

	for (i = B_SIZE; i; i--)

		*p++ = i <= (2 * B_COLS) || (i % B_COLS) < 2;

}

/*

 * Elide any full active rows.

 */

static void

elide(void)

{

	int rows = 0;

	int i, j, base;

	cell *p;

	for (i = A_FIRST; i < A_LAST; i++) {

		base = i * B_COLS + 1;

		p = &board[base];

		for (j = B_COLS - 2; *p++ != 0;) {

			if (--j <= 0) {

				/* this row is to be elided */

				rows++;

				memset(&board[base], 0, B_COLS - 2);

				scr_update();

				tsleep();

				while (--base != 0)

					board[base + B_COLS] = board[base];

				scr_update();

				tsleep();

				break;

			}

		}

	}

	switch (rows) {

	case 1:

		score += 10;

		break;

	case 2:

		score += 30;

		break;

	case 3:

		score += 70;

		break;

	case 4:

		score += 150;

		break;

	default:

		break;

	}

}

const struct shape *

randshape(void)

{

	const struct shape *tmp;

	int i, j;

	tmp = &shapes[random() % 7];

	j = random() % 4;

	for (i = 0; i < j; i++)

		tmp = &shapes[classic? tmp->rotc : tmp->rot];

	return (tmp);

}

static void srandomdev(void)

{

	struct timeval tv;

	gettimeofday(&tv, NULL);

	srandom(tv.tv_sec + tv.tv_usec / 100000);

}

int

main(int argc, char *argv[])

{

	int pos, c;

	char *keys;

	int level = 2;

	char key_write[6][10];

	const char *errstr;

	int ch, i, j;

	keys = "jkl pq";

//	gid = getgid();

//	egid = getegid();

//	setegid(gid);

	classic = showpreview = 0;

/* 	while ((ch = getopt(argc, argv, "ck:l:ps")) != -1) */

/* 		switch(ch) { */

/* 		case 'c': */

/* 			/\* */

/* 			 * this means: */

/* 			 *	- rotate the other way; */

/* 			 *	- no reverse video. */

/* 			 *\/ */

/* 			classic = 1; */

/* 			break; */

/* 		case 'k': */

/* 			if (strlen(keys = optarg) != 6) */

/* 				usage(); */

/* 			break; */

/* 		case 'l': */

/* 			level = (int)strtonum(optarg, MINLEVEL, MAXLEVEL, */

/* 			    &errstr); */

/* 			if (errstr) */

/* 				errx(1, "level must be from %d to %d", */

/* 				    MINLEVEL, MAXLEVEL); */

/* 			break; */

/* 		case 'p': */

/* 			showpreview = 1; */

/* 			break; */

/* 		case 's': */

/* 			showscores(0); */

/* 			exit(0); */

/* 		default: */

/* 			usage(); */

/* 		} */

/* 	argc -= optind; */

/* 	argv += optind; */

/* 	if (argc) */

/* 		usage(); */

	fallrate = 1000000 / level;

	for (i = 0; i <= 5; i++) {

		for (j = i+1; j <= 5; j++) {

			if (keys[i] == keys[j])

				errx(1, "duplicate command keys specified.");

		}

		if (keys[i] == ' ')

			strncpy(key_write[i], "<space>", sizeof key_write[i]);

		else {

			key_write[i][0] = keys[i];

			key_write[i][1] = '\0';

		}

	}

	snprintf(key_msg, sizeof key_msg,

"%s - left   %s - rotate   %s - right   %s - drop   %s - pause   %s - quit",

		key_write[0], key_write[1], key_write[2], key_write[3],

		key_write[4], key_write[5]);

newgame:

	scr_init();

	setup_board();

	srandomdev();

	scr_set();

	pos = A_FIRST*B_COLS + (B_COLS/2)-1;

	nextshape = randshape();

	curshape = randshape();

	scr_msg(key_msg, 1);

	for (;;) {

		place(curshape, pos, 1);

		scr_update();

		place(curshape, pos, 0);

		c = tgetchar();

		if (c < 0) {

			/*

			 * Timeout.  Move down if possible.

			 */

			if (fits_in(curshape, pos + B_COLS)) {

				pos += B_COLS;

				continue;

			}

			/*

			 * Put up the current shape `permanently',

			 * bump score, and elide any full rows.

			 */

			place(curshape, pos, 1);

			score++;

			elide();

			/*

			 * Choose a new shape.  If it does not fit,

			 * the game is over.

			 */

			curshape = nextshape;

			nextshape = randshape();

			pos = A_FIRST*B_COLS + (B_COLS/2)-1;

			if (!fits_in(curshape, pos))

				break;

			continue;

		}

		/*

		 * Handle command keys.

		 */

		if (c == keys[5]) {

			/* quit */

			break;

		}

		if (c == keys[4]) {

			static char msg[] =

			    "paused - press RETURN to continue";

			place(curshape, pos, 1);

			do {

				scr_update();

				scr_msg(key_msg, 0);

				scr_msg(msg, 1);

//				(void) fflush(stdout);

			} while (rwait((struct timeval *)NULL) == -1);

			scr_msg(msg, 0);

			scr_msg(key_msg, 1);

			place(curshape, pos, 0);

			continue;

		}

		if (c == keys[0]) {

			/* move left */

			if (fits_in(curshape, pos - 1))

				pos--;

			continue;

		}

		if (c == keys[1]) {

			/* turn */

			const struct shape *new = &shapes[

			    classic? curshape->rotc : curshape->rot];

			if (fits_in(new, pos))

				curshape = new;

			continue;

		}

		if (c == keys[2]) {

			/* move right */

			if (fits_in(curshape, pos + 1))

				pos++;

			continue;

		}

		if (c == keys[3]) {

			/* move to bottom */

			while (fits_in(curshape, pos + B_COLS)) {

				pos += B_COLS;

				score++;

			}

			continue;

		}

		if (c == '\f') {

			scr_clear();

			scr_msg(key_msg, 1);

		}

	}

	scr_clear();

	scr_end();

	if (showpreview == 0)

		(void)printf("Your score:  %d point%s  x  level %d  =  %d\n",

		    score, score == 1 ? "" : "s", level, score * level);

	else {

/* 		(void)printf("Your score:  %d point%s x level %d x preview penalty %0.3f = %d\n", */

/* 		    score, score == 1 ? "" : "s", level, (double)PRE_PENALTY, */

/* 		    (int)(score * level * PRE_PENALTY)); */

/* 		score = score * PRE_PENALTY; */

	}

	savescore(level);

	showscores(level);

	printf("\nHit 's' to new game, 'q' to quit.\n");

	while (i = getchar()) {

		if (i == 's')

			goto newgame;

		if (i == 'q')

			break;

	}

	scr_clear();

	printf("\n\n\n\t\tGame over.\n");

/*	

	while ((i = getchar()) != '\n')

		if (i == EOF)

			break

*/

	exit(0);

}

/* void */

/* onintr(int signo) */

/* { */

/* 	scr_clear();		/\* XXX signal race *\/ */

/* 	scr_end();		/\* XXX signal race *\/ */

/* 	_exit(0); */

/* } */

void

usage(void)

{

	(void)fprintf(stderr, "usage: tetris [-ps] [-k keys] [-l level]\n");

	exit(1);

}