source: cacatris/trunk/src/main.c @ 3150 Tweet

/*
 *  $Id: main.c 2981 2008-10-18 21:29:49Z sam $
 *
 *  This program is free software. It comes without any warranty, to
 *  the extent permitted by applicable law. You can redistribute it
 *  and/or modify it under the terms of the Do What The Fuck You Want
 *  To Public License, Version 2, as published by Sam Hocevar. See
 *  http://sam.zoy.org/wtfpl/COPYING for more details.
 */

#include "config.h"
#include "cacatris.h"

int main(int argc, char *argv[])
{
    static caca_display_t *dp;
    signed   int x=(FIELD_WIDTH/2)-1, y=0, rotation=0, old_x=0, old_y=0, old_rotation=0;
    unsigned int current_piece, next_piece, baseTime = 0;
    unsigned char last_has_landed = 1;
    unsigned char left = 0, right = 0, down = 0;
    unsigned long long int curTime = 0;
    unsigned int speed = 16;
    unsigned int fixed_y = 0;
    unsigned char lost = 0;
    unsigned int  score = 0;
    unsigned int lines = 0;
    unsigned char level = 0;
    unsigned char total_lines = 0;

    field = caca_create_canvas(0, 0);
    infos = caca_create_canvas(0, 0);
    screen = caca_create_canvas(0, 0);

    dp = caca_create_display(screen);
    if(!dp)
        return 1;

    caca_set_canvas_size(infos, INFO_WIDTH, caca_get_canvas_height(screen));
    caca_set_canvas_size(field, FIELD_CANVAS_WIDTH, FIELD_CANVAS_HEIGHT);

    caca_set_display_time(dp, 20000);

    /* Our playfied */
    memset(playfield, 0, FIELD_WIDTH*FIELD_HEIGHT);


    /* Set current and next piece to random */
    current_piece = caca_rand(0, 6);
    next_piece = caca_rand(0, 6);


    for(;;)
    {
        caca_event_t ev;
        left = 0; right = 0; down = 0;

        /* Handle events */
        while(caca_get_event(dp, CACA_EVENT_KEY_PRESS
                             | CACA_EVENT_QUIT, &ev, 0))
        {
            if(ev.type == CACA_EVENT_QUIT)
                goto end;
            switch(ev.data.key.ch)
            {
            case CACA_KEY_ESCAPE:
                goto end;
                break;
            case CACA_KEY_UP:
                if(movable(current_piece, x, y, (rotation+1)&0x03))
                {
                    rotation++;
                    rotation = rotation&0x03;
                }
                break;
            case CACA_KEY_DOWN:
                down = 1;
                break;
            case CACA_KEY_LEFT:
                left = 1;
                break;
            case CACA_KEY_RIGHT:
                right = 1;
                break;
            }
        }

        if(lost) continue;


        if(y==0 && has_landed(current_piece, x ,y, rotation)) {
            lost = 1;
            continue;
        }

        if(left)
        {
            if(movable(current_piece, x-1, y, rotation))
                x--;
        }
        if(right)
        {
            if(movable(current_piece, x+1, y, rotation))
                x++;
        }
        if(down)
        {
            while((movable(current_piece, x, y, rotation)) && (!has_landed(current_piece, x, y, rotation)))
            {
                fixed_y+=speed;
                y = fixed_y>>8;
            }
        }

        if(!last_has_landed)
        {
            last_has_landed = 0;
        }
        else
        {
            last_has_landed = 0;
        }


        old_x = x;
        old_y = y;
        old_rotation = rotation;

        fixed_y+=speed; /* Fixed point */
        y = fixed_y>>8;



        /* Populate info canvas */
        infos_populate(infos, score, level, total_lines);
        /* Draw everything on playfield */
        put_piece(current_piece, x ,y, rotation);
        playfield_draw(field);
        remove_piece(current_piece, x ,y, rotation);
        /* blit infos canvas into general one */
        caca_blit(screen, (caca_get_canvas_width(screen))  - INFO_WIDTH, 0, infos, NULL);
        /* blit playfield canvas into general one */
        caca_blit(screen, 18, 0, field, NULL);

        caca_refresh_display(dp);


        if(has_landed(current_piece, x ,y, rotation))
        {
            put_piece(current_piece, x ,y, rotation);
            fixed_y = 0;
            x = (FIELD_WIDTH/2)-1;
            current_piece = next_piece;
            rotation = 0;
            next_piece = caca_rand(0, 6);
            last_has_landed = 1;
            old_x = x;
            old_y = 0;
        }

        lines = maybe_remove_line();
        if(lines)
        {
            score += points[level+(lines-1)*LEVEL_COUNT];
            total_lines += lines;
            if(total_lines >=10 && level<=10)
            {
                level++;
                total_lines = 0;
                speed+=4;
                memset(playfield, 0, FIELD_WIDTH*FIELD_HEIGHT);
            }
        }

        if(!baseTime)
        {
            baseTime = caca_get_display_time(dp);
        }
        curTime+=caca_get_display_time(dp);
    }

 end:
    caca_free_display(dp);
    caca_free_canvas(field);
    caca_free_canvas(infos);
    caca_free_canvas(screen);

    return 0;
}


void infos_populate(caca_canvas_t *inf, unsigned int score,
                    unsigned char level, unsigned char total)
{
    char scoreline[256];
    char levelline[256];
    char totalline[256];
    int i;

    sprintf(scoreline, " Score    :   %05d ", score);
    sprintf(levelline, " Level    :   %02d    ", level);
    sprintf(totalline, " Lines    :   %02d    ", total);

    caca_set_color_ansi(inf, CACA_WHITE, CACA_BLUE);
    caca_put_str(inf, 0, 0, "      =Cacatris=    ");
    caca_put_str(inf, 0, 1, "  Arrows  :    move ");
    caca_put_str(inf, 0, 2, "  Space :      pouf ");
    caca_put_str(inf, 0, 3, " __________________ ");
    caca_put_str(inf, 0, 4, "                    ");
    caca_put_str(inf, 0, 5, levelline);
    caca_put_str(inf, 0, 6, scoreline);
    caca_put_str(inf, 0, 7, totalline);
    caca_put_str(inf, 0, 8, " Time     :   XX:XX ");

    for(i = 8; i < caca_get_canvas_height(inf); i++)
    {
        caca_put_str(inf, 0, i,"                     ");
    }
}


void playfield_draw(caca_canvas_t *canvas)
{
    unsigned int x, y;
    float ox=0, oy=0;
    float incx = (float)FIELD_WIDTH / (float)FIELD_CANVAS_WIDTH;
    float incy = (float)FIELD_HEIGHT / (float)FIELD_CANVAS_HEIGHT;

    for(y = 0; y < FIELD_CANVAS_WIDTH; y++)
    {
        for(x = 0; x < FIELD_CANVAS_WIDTH; x++)
        {
            unsigned int oxi = (unsigned int) ox;
            unsigned int oyi = (unsigned int) oy;
            unsigned int c = playfield[oxi+oyi*FIELD_WIDTH];
            caca_set_color_ansi(canvas, CACA_BLACK,
                                c ? blocks_palette[c-1] : CACA_DARKGRAY);
            caca_put_char(canvas, x, y, ' ');
            ox+=incx;
        }
        ox = 0;
        oy+=incy;
    }
}


void put_piece(unsigned int id, unsigned int x, unsigned int y, unsigned int rot)
{
    unsigned int ix, iy;
    piece_t *p = &pieces[(id*4)+rot];

    for(iy = 0; iy < p->h; iy++)
        for(ix = 0; ix < p->w; ix++)
            if(p->data[ix+iy*4])
                playfield[(ix+x)+(iy+y)*FIELD_WIDTH] = p->data[ix+iy*4]*p->color;
}

void remove_piece(unsigned int id, unsigned int x, unsigned int y, unsigned int rot)
{
    unsigned int ix, iy;
    piece_t *p = &pieces[(id*4)+rot];

    for(iy = 0; iy < p->h; iy++)
        for(ix = 0; ix < p->w; ix++)
            if(ix<p->w && iy<p->h)
                if(p->data[ix+iy*4])
                    playfield[(ix+x)+(iy+y)*FIELD_WIDTH] = 0;
}

unsigned char movable(unsigned int id, int x, int y, unsigned int rot)
{
    piece_t *p = &pieces[(id*4)+rot];
    unsigned int ix, iy;
    int w, h;

    w = p->w;
    h = p->h;


    if(y>=(signed)(FIELD_HEIGHT-p->h)) {
        return 0;
    }


    if(x>=0 && (x+w<=FIELD_WIDTH) && y<(FIELD_HEIGHT-(signed)h))
    {
        for(iy = 0; iy < p->h; iy++)
            for(ix = 0; ix < p->w; ix++)
                if((p->data[ix+iy*4]!=0) && (playfield[(ix+x)+(iy+y)*FIELD_WIDTH]!=0)) {
                    return 0;
                }

        return 1;
    }

    return 0;
}

unsigned char has_landed(unsigned int id, unsigned int x, unsigned int y, unsigned int rot)
{
    piece_t *p = &pieces[(id*4)+rot];
    unsigned int ix, iy;
    unsigned int w, h;

    w = p->w;
    h = p->h;

    if(y>=(FIELD_HEIGHT-p->h)) {
        return 1;
    }
    y++;
    if(x>=0 && (x+w<=FIELD_WIDTH) && y<=(FIELD_HEIGHT-h))
    {
        for(iy = 0; iy < p->h && (iy+y<FIELD_HEIGHT) ; iy++)
            for(ix = 0; (ix < p->w) && (ix+x<FIELD_WIDTH); ix++)
                if((p->data[ix+iy*4]!=0) && (playfield[(ix+x)+(iy+y)*FIELD_WIDTH]!=0)) {
                    return 1;
                }

        return 0;
    }
    return 1;
}


unsigned char maybe_remove_line(void)
{
    int y, x, v=0;
    unsigned char *p = playfield;
    int ret = 0;

    for(y = 0; y < FIELD_HEIGHT ; y++)
    {
        for(x = 0; x < FIELD_WIDTH ; x++)
            if(*p++)
                v++;
        if(v==FIELD_WIDTH) {
            memmove(&playfield[FIELD_WIDTH], playfield, (y)*FIELD_WIDTH);
            ret++;
        }
        v=0;
    }

    return ret;
}