game.c

//#include <stdio.h>
//#include <stdlib.h>
//#include <time.h>
#include <ncursesw/curses.h>
#include "macros.h"

//#include <stdio.h>
#include <stdlib.h>
//#include <string.h>
//#include <locale.h>
//#include <time.h>

// View area
static WINDOW *life = NULL;
// Info window
static WINDOW *info = NULL;
// Marks window
static WINDOW *marks = NULL;


/* A helper function for creating new windows */
WINDOW *createwin(int height, int width, int begy, int begx);

int tik=0;
int cho=0;
int fskip=1, fskipc=0;

int wlines=200, wcols=200; 
int tout=200, dtout=50, touti=15000;

int vwposy=1, vwposx=1;
static int vlines=0, vcols=0;

int pause=1, age=0;

int lcell='#', dcell='.'; 

int *cells, *cells_buf;

void init_curses();

void init_world();
void finish_game();

void clear_cworld();

void info_status();

bool kbd();

void evolv();
void u_pop();

void draw_vmap();
void draw_mmap();
void draw_popmap();



main()
{
	
	int k;
	init_world();
	
	init_curses();

	draw_vmap();

//	fskipc=0;

	do
	{ //Keyboard loop
		if(pause==0)
		{	

			evolv();

			//k=fskipc/fskip;

			if ((fskipc%fskip)==0)	
			{
				//fskipc=0;
				info_status();
				draw_vmap();
			}

			fskipc++;
			age++;

		}


		cho=getch();
	}
	while(kbd()); 


	finish_game();

	return(0);
}




void init_curses()
{

	initscr();
	noecho();
	timeout(touti);
	//raw();
	
	
	/* Refresh standart screen */
	refresh();

	// Creating windows
	life = createwin(MLMAX, MCMAX, MLMIN, MCMIN);
	info = createwin(PLINES, PCOLS, 0, COLS-PCOLS);

	box(info, 0, 0); // default box around info-window

	box(life, 0, 0); // default box around life-window

	
	/* Move cursor to info-window at 1,1 position and 
	 * write header. */
	mvwprintw(info, 1, 1, "INFO");

		/* Move cursor back to view area */
	wmove(life, 2,2);

	// refresh windows
	wrefresh(info);
	wrefresh(life);

	info_status(0);

}

void finish_game()
{
	free (cells);
	free (cells_buf);

	delwin(life);
	delwin(info);
	delwin(marks);
	endwin();

}


void clear_cworld()
{

	memset (cells, 0, SIZEWI);


}


WINDOW *createwin(int height, int width, int begy, int begx)
{
    /* Hold the window */
    WINDOW *local_win = NULL;

    /* Create the window */
    local_win = newwin(height, width, begy, begx);
    if(local_win == NULL) /* Check that it succeeded */
        exit(EXIT_FAILURE);

    wmove(local_win, 1, 1); /* Looks better if the cursor is not on
                               top of lines */

    wrefresh(local_win); /* And refresh */

    return local_win;
}

void evolv()
{

	int i,j,pop;
	
	// copy data to buffer
	memcpy (cells_buf, cells, SIZEWI);


	for (i=1; i<=wlines; i++)
		for (j=1; j<=wcols; j++)
		{
			pop=0;

			// NW 
			if (CBDATA((i-1),(j-1))==1)
				pop++;
			// N
			if (CBDATA((i-1),j)==1)
				pop++;
			// NE
			if (CBDATA((i-1),j+1)==1)
				pop++;
			// E
			if (CBDATA(i,j+1)==1)
				pop++;
			// SE
			if (CBDATA((i+1),j+1)==1)
				pop++;
			// S
			if (CBDATA((i+1),j)==1)
				pop++;
			// SW
			if (CBDATA((i+1),j-1)==1)
				pop++;
			// W
			if (CBDATA(i,j-1)==1)
				pop++;


			switch (pop)
			{
			case 0: case 1: case 4: case 5:
			case 6: case 7: case 8:
				CDATA(i,j)=0;
				break;
			case 3:
				CDATA(i,j)=1;
				break;
			}
		}

	


}

void draw_vmap()
{

	int i,j,x,y,k,t;

	getyx(life, y, x);

	box(life, 0, 0); // default box around marks-window

	for(i=VLMIN;i<=VLMAX;i++)
		for (j=VCMIN;j<=VCMAX;j++)
			mvwprintw(life, i, j, "%c", (char) (VCDATA(i,j)==0) ? dcell : lcell );

	k=10-(vwposx-1)%10;

	for (j=k; j<MCMAX-3; j=j+10)
		mvwprintw(life, MCMIN, j, "%i", vwposx+j-1);

	for (j=k; j<MCMAX-3; j=j+10)
		mvwprintw(life, MLMAX-1, j, "%i", vwposx+j-1);

	k=10-(vwposy-1)%10;

	
	/* print mark as 1 digit of decades */
	for (i=k; i<MLMAX-1; i+=10)
		mvwprintw(life, i, MCMAX-1, "%i", ((vwposy+i-1)%100)/10);

	/* print mark as 1 digit of decades */
	for (i=k; i<MLMAX-1; i+=10)
		mvwprintw(life, i, MCMIN, "%i", ((vwposy+i-1)%100)/10);

	wmove(life, y, x);

	wrefresh(life);



}

void info_status()
{
	int y,x,i,j;
	getyx(life, y, x);

	

	mvwprintw(info, 2, 1, " Columns: %i", COLS);
	mvwprintw(info, 3, 1, " Lines: %i", LINES);

	//mvwprintw(info, 5, 1, "                   ");

	i=5;

	mvwprintw(info, i++, 1, " Key pressed: %.3c", cho);
	mvwprintw(info, i++, 1, " tik: %i", tik++);
	mvwprintw(info, i++, 1, " age: %i", age);
	mvwprintw(info, i++, 1, " pause: %i", pause);
	mvwprintw(info, i++, 1, " timeout: %i", tout);

	mvwprintw(info, i++, 1, " Key pressed: %i  ", cho);
	mvwprintw(info, i++, 1, " vwposy: %.3i", vwposy);
	mvwprintw(info, i++, 1, " vwposx: %.3i", vwposx);
	mvwprintw(info, i++, 1, " w size: %i x %i", wlines, wcols);
	mvwprintw(info, i++, 1, " fskip: %i  ", fskip);

	wmove(life, y, x);
	wrefresh(info);
	wrefresh(life);
	//refresh();

}


bool kbd()
{
	int y, x;
	int map;
	getyx(life, y, x);

	//timeout(touti);

	switch(cho)
	{
	case -1:
		cho='0';
		return true;
		break;

	case ' ':	/* Activate / Deactivate */

		VCDATA(y,x)=( (VCDATA(y,x) == 0) ? 1 : 0);
		break;

	case 65:	//move up 65=KEY_UP	

		y--;
		y=( (y<VLMIN) ? VLMAX : y);
		break;

	case 66:	//move down 66=KEY_DOWN

		y++;
		y=( (y>VLMAX) ? y-VLMAX : y);
		break;

	case 68:	//move left	

		x--;
		x=( (x<VCMIN) ? VCMAX : x);
		break;

	case 67:	//move right	
		x++;
		x=( (x>VCMAX) ? x-VCMAX : x);
		break;

	case 'p':
		pause=((pause==0) ? 1 : 0);
		timeout((pause==0) ? tout : touti);	
		break;

	case '+':

		if (tout-dtout>=0 && pause == 0)
		{
			tout=tout-dtout;
			timeout(tout);
		}
		break;

	case '-':

		if (tout+dtout<=1500 & pause == 0)
		{
			tout=tout+dtout;
			timeout(tout);

		}
		break;

	case 'w':	//move view up 	

		vwposy-=5;
		vwposy=( (vwposy<0) ? 0 : vwposy);
		break;

	case 's':	//move view down 

		vwposy+=5;
		vwposy=( (vwposy>WLINES-VLMAX-1) ? WLINES-VLMAX-1 : vwposy);
		break;

	case 'a':	//move view left	

		vwposx-=5;
		vwposx=( (vwposx<0) ? 0 : vwposx);
		break;

	case 'd':	//move view right	

		vwposx+=5;
		vwposx=( (vwposx>WCOLS-VCMAX-1) ? WCOLS-VCMAX-1 : vwposx);
		break;

	case 'q':

		return false;
		break;

	// frame skips
	case '*':
		fskip++;
		break;

	case '/':
		fskip--;
		fskip=((fskip<1) ? 1 : fskip );
		break;

	case 126: // "del" button

		clear_cworld();
		break;

	}

	wmove(life, y, x);

	info_status();
	draw_vmap();

	//wmove(life, y, x);

	return true;

}


void init_world()
{
	int i=0, x, y;

	// alloc memory for cells and init in with 0
	cells = calloc(WSIZE, sizeof(int));

	// alloc mem for buffer without initialization
	cells_buf = malloc(SIZEWI);

}