#include <ncurses.h>

#include <cstdlib>
#include <ctime>

#include <iostream>
#include <string>

class Board {
public:

    Board(int w, int h):
        width(w), height(h),
        pos_x(0), pos_y(0),
        sel_x(0), sel_y(0),
        selected(false),
        count_close(width*height)
    {
        int i;

        cards = new card*[width];
        for( i=0 ; i<width ; i++ )
            cards[i] = new card[height];

        fillBoard();

        refresh();
    }

    /********************************************/

    ~Board()
    {
        int i;

        for( i=0 ; i<width ; i++ )
            delete[] cards[i];
        delete[] cards;
    }

    /********************************************/

    void touchCard()
    {
        if( selected )
        {
            if( !cards[pos_x][pos_y].opened )
            {
                selected = false;
                cards[pos_x][pos_y].opened = true;

                if( cards[pos_x][pos_y].ch==cards[sel_x][sel_y].ch )
                {
                    cards[pos_x][pos_y].opened = true;
                    count_close -= 2;
                    refresh();
                }
                else
                {
                    refresh();
                    cards[pos_x][pos_y].opened = false;
                    cards[sel_x][sel_y].opened = false;
                }
            }
        }
        else
        {
            if( !cards[pos_x][pos_y].opened )
            {
                selected = true;
                sel_x = pos_x;
                sel_y = pos_y;
                cards[sel_x][sel_y].opened = true;
                refresh();
            }
        }
    }

    /********************************************/
    
    inline int countClose()
    { return count_close; }

    /********************************************/

    inline int getPosX()
    { return pos_x; }

    /********************************************/

    inline int getPosY()
    { return pos_y; }

    /********************************************/

    void setPos(int x, int y)
    {
        if( trueCoor(x, y) )
        {
            pos_x = x;
            pos_y = y;

            refresh();
        }
    }

protected: 

    struct card {
        char ch;
        bool opened;

        card():
            ch(' '), opened(false)
        {}
    };

    /********************************************/

    bool trueCoor(int x, int y)
    { return (x>=0) && (x<width) && (y>=0) && (y<height); }

    /********************************************/

    void fillBoard()
    {
        card *free_list[width*height];
        int count_free = 0;

        int x, y;
        for( y=0 ; y<height ; y++ )
            for( x=0 ; x<width ; x++ )
                free_list[count_free++] = &cards[x][y];

        while( count_free!=0 )
        {
            char ch = rand()%('Z'-'A'+1)+'A';

            // первая карта
            int index = rand()%count_free;
            free_list[index]->ch = ch;
            free_list[index] = free_list[--count_free];

            // вторая карта
            index = rand()%count_free;
            free_list[index]->ch = ch;
            free_list[index] = free_list[--count_free];
        }
    }

    /********************************************/

    void refresh()
    {
        int x, y;

        for( y=0 ; y<height ; y++ )
        {
            move(y, 0);
            for( x=0 ; x<width ; x++ )
            {
                char cell[4];
                cell[3] = 0;

                if( (x==pos_x) && (y==pos_y) )
                {
                    cell[0] = '[';
                    cell[2] = ']';
                }
                else
                    if( selected && (x==sel_x) && (y==sel_y) )
                    {
                        cell[0] = '(';
                        cell[2] = ')';
                    }
                    else
                    {
                        cell[0] = ' ';
                        cell[2] = ' ';
                    }

                if( cards[x][y].opened )
                    cell[1] = cards[x][y].ch;
                else
                    cell[1] = '_';

                printw(cell);
            }
        }
    }

    /********************************************/

    int width, height;
    int pos_x, pos_y;
    int sel_x, sel_y;
    bool selected;
    int count_close;

    card **cards;
};

int main()
{
    initscr();
    noecho();
    keypad(stdscr, TRUE);
        bool prog_exit = false;
        Board board(10, 10);

        while( !prog_exit )
        {
            switch( getch() )
            {
                case 'q':
                    prog_exit = true;
                    break;
                case KEY_LEFT:
                    board.setPos( board.getPosX()-1 , board.getPosY() );
                    break;
                case KEY_RIGHT:
                    board.setPos( board.getPosX()+1 , board.getPosY() );
                    break;
                case KEY_UP:
                    board.setPos( board.getPosX() , board.getPosY()-1 );
                    break;
                case KEY_DOWN:
                    board.setPos( board.getPosX() , board.getPosY()+1 );
                    break;
                case ' ':
                    board.touchCard();
                    if( board.countClose()==0 )
                        prog_exit = true;
            }
        }
    endwin();

    std::cout << "Game Over!" << std::endl;

    return 0;
}