#include <term.h>
#include <fcntl.h>
#include <stdio.h>
#include <string.h>
#include <termios.h>

static const char ttyfn[]="/dev/tty",waz[]="@$##====----.... ";
#define DLW (sizeof(waz)-1)

/* X^31+X^13+1 */
#define RPOLY 0x80002001UL
unsigned long rseed=1;

int rnd(int bits) {
	int i;
	for(i=0; i<bits; i++) {
		if(rseed&1) rseed^=RPOLY;
		rseed>>=1;
	}
	return rseed&((1<<bits)-1);
}

/* #define putp(s) write(1,s,strlen(s)); */
struct termios old_t, wrk_t;

static	char *t_cup;
static	int maxx,maxy;

term_init(char *t_type) {
	int t;
	if((t=open(ttyfn,O_RDWR,0))==-1 || dup2(t,1)==-1 || close(t)!=0)
		{ perror(ttyfn); return -1; }
	setupterm(NULL/*"vt100"*/,1,&t); if(t!=1)
		{ fprintf(stderr,"Nieznany typ terminala\n"); return -1; }
	/* zamiast &t mozna napisac NULL i nie sprawdzac -
	 * blad zakonczy program z odpowiednim komunikatem */
	maxx=tigetnum("cols");
	maxy=tigetnum("lines");
	if(maxx==-2 || maxy==-2)
		{ fprintf(stderr,"Nieznana geometria terminala\n"); return -1; }
	printf("Terminal ma %d linii po %d znakow\n",maxy,maxx);

	memset(&wrk_t,0,sizeof(wrk_t));
	if(tcgetattr(1,&old_t)==-1)
		{ perror("Odczyt atrybutow terminala"); return -1; }
	tcsetattr(1,TCSANOW,&wrk_t);

	t_cup=tigetstr("cup");
	return 0;
}

void term_gotoxy(int x, int y) {
	putp(tparm(t_cup,y,x));	
}

void clearscreen(void) {
	term_gotoxy(0,0);
	putp(tparm(tigetstr("ed")));
}

main(void) {
/*	trzeba jakos opisac kierunki, moze tak: */
	static const int dt[]={0,1,1,1,0,-1,-1,-1,0,1};
/*	zmiana x: dt[d+2]; zmiana y: dt[d];	*/
	int i,mx,x,y,ms,d,r,wx[DLW],wy[DLW]; /* char *s; */

/*	trzeba jakos generowac liczby pseudolosowe... */
	/* srand(12345); */ rseed=1|time(NULL);

/*	inicjalizacja obslugi terminala */
	if(term_init(NULL/*"vt100"*/)<0) return -1;

/*	waz lubi chodzic po pustym ekranie... */
	sleep(1); clearscreen();

/*	ustawienie paramatrow weza */
	mx=maxx/2-1; d=0; x=0; y=0; ms=256;
	memset(wx,0,sizeof(wx)); memset(wy,0,sizeof(wy));

nast:	/* zaczekaj chwile */
	poll(NULL,0,ms);

	/* jesli sa dane z klawiatury to przeczytej */
	r=0; if(read(1,&r,1)==1) {
		if(r=='0') goto stop; /* '0' oznacza koniec */
		/* inne cyfry ustawiaja szybkosc weza */
		if((unsigned)(r-'0')<10) ms=2048>>(r-'1');
	}

	/* losuj czy i jak zmienic kierunek ruchu */
	/* r=rand()>>9; r&=0xf; */ r=rnd(4);
	if(r<4) d=(d+r+6+r/2)%8;

	/* wylicz nowe wspolrzedne glowy weza */
	x+=mx+dt[d+2]; y+=maxy+dt[d]; x%=mx; y%=maxy;

	/* wyswietl weza na ekranie */
	for(i=DLW; ; ) {
		i--; term_gotoxy(2*wx[i],wy[i]);
		putchar(waz[i]); putchar(waz[i]); if(i==0) break;
		wy[i]=wy[i-1]; wx[i]=wx[i-1];
	}
	wy[0]=y; wx[0]=x; fflush(stdout); goto nast;

/*	konczac program odtworz ustawienia terminala */
stop:	clearscreen(); tcsetattr(1,TCSAFLUSH,&old_t); return 0;
}