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

 */

/** @addtogroup tetris Tetris

 * @brief   Tetris ported from OpenBSD

 * @{

 */

/** @file

 */

#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);

}

static void tetris_menu_draw(int level)

{

        clear_screen();

        moveto(5,10);

        puts("Tetris\n\n");

        moveto(8,10);

        printf("Level = %d (press keys 1 - 9 to change)",level);

        moveto(9,10);

        printf("Preview is %s (press 'p' to change)", (showpreview?"on ":"off"));

        moveto(12,10);

        printf("Press 'h' to show hiscore table.");

        moveto(13,10);

        printf("Press 's' to start game.");

        moveto(14,10);

        printf("Press 'q' to quit game.");

        moveto(20,10);

        printf("In game controls:");

        moveto(21,0);

        puts(key_msg);

}

static int tetris_menu(int *level)

{

    static int firstgame = 1;

    int i;

/*  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");

*/

    tetris_menu_draw(*level);

    while (1) {

        i = getchar();

        switch(i) {

            case 'p':

                showpreview = !showpreview;

                moveto(9,21);

                if (showpreview)

                    printf("on ");

                else

                    printf("off");

                break;

            case 'h':

                *(int *)0 = 0; /* generate a page fault */

                showscores(firstgame);

                tetris_menu_draw(*level);

                break;

            case 's':

                firstgame = 0;

                return 1;

            case 'q':

                return 0;

            case '1':

            case '2':

            case '3':

            case '4':

            case '5':

            case '6':      

            case '7':

            case '8':

            case '9':

                *level = i - '0';

                moveto(8,18);

                printf("%d", *level);

                break;

        }

    }

}

int

main(int argc, char *argv[])

{

    int pos, c;

    char *keys;

    int level = 2;

    char key_write[6][10];

    int i, j;

    keys = "jkl pq";

//  gid = getgid();

//  egid = getegid();

//  setegid(gid);

    classic = 0;

    showpreview = 1;

/*  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(); */

    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]);

    scr_init();

    initscores();

    while (tetris_menu(&level)) {

        fallrate = 1000000 / level;

        scr_clear();

        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();

        insertscore(score, level);

        score=0;

    }

    scr_clear();

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

/* 

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

        if (i == EOF)

            break

*/

    scr_end();

    return 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);

}

/** @}

 */