#include <curses.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <term.h>
#include <stdio.h>
#include <unistd.h>
#include <time.h>
#define  MAXx 200
#define  MAXy 50
char gfx1[]="|";
char gfx2[]="|||";
char gfx3[]="[ ||| ]";
struct stat statb;
FILE *fpw;

main()
{
int i,j,y;
long x;
int lamps[20][4];
FILE *fp;
void usleep();
char word[80];
char screen[MAXy][MAXx];
char oneline[MAXx];

initscr(); /*Always the first function called */
cbreak();  /*Do not store chars into tty driver buffer*/
echo();  /*do not echo chars read with getch*/
nodelay(stdscr,TRUE);
intrflush(stdscr, FALSE); /*Flush buffers on onint */
keypad(stdscr, TRUE);     /*Enable key pad (arrow keys)*/
clear();

if ((fp=fopen("typegame.dat","r"))==0){perror("typegame.dat");exit(-1);}
if ((fpw=fopen("lala","w"))==0){perror("lala");exit(-1);}
fstat(fp->_file,&statb);
for (y=0;y<MAXy;y++)
   for (x=0;x<MAXx;x++) screen[y][x]=' ';
srand(time(0));
  for(;;){

    for (y=0;y<LINES-4;y++)
       for (x=0;x<COLS;x++) mvprintw(y,x,"%c",screen[y][x]);

    for (y=LINES;y>0;y--) {
       for (x=0;x<COLS;x++) screen[y][x]=screen[y-1][x];
    }
    for (x=0;x<MAXx;x++) screen[0][x]=' ';
    
    if (rand()%100 < 75 ) strcpy(word," ") ;
    else
     getword(fp,word);
    strcpy(&screen[0][rand()%(COLS-strlen(word))],word);
    printbase();
    refresh();


    usleep(500000);
    while(readword()!=ERR);
  }

}


printbase()
{ int x,y;

    move(LINES-1,0);
    attrset(A_STANDOUT);
    for (x=0;x<COLS;x++) printw(" ");
    move(LINES-2,0);
    for (x=0;x<COLS;x++) printw(" ");
    move(LINES-3,0);
    for (x=0;x<COLS;x++) printw(" ");

    move(LINES-4,0);
    for (x=0;x<COLS/2-strlen(gfx1);x++) printw(" ");
    addstr(gfx1);
    for (x=0;x<COLS/2-strlen(gfx1)/2;x++) printw(" ");

    move(LINES-3,0);
    for (x=0;x<COLS/2-strlen(gfx2)+1;x++) printw(" ");
    addstr(gfx2);
    for (x=0;x<COLS/2-strlen(gfx2)/2;x++) printw(" ");

    move(LINES-2,0);
    for (x=0;x<COLS/2-strlen(gfx3)+3;x++) printw(" ");
    addstr(gfx3);
    for (x=0;x<COLS/2-strlen(gfx3)/2;x++) printw(" ");
    attroff(A_STANDOUT);



}
void usleep(x) {
	struct timeval	time;

	time.tv_sec= x/1000000;
	time.tv_usec=x%1000000;
	select(0, NULL, NULL, NULL, &time);
}

getword(fp,word)
FILE *fp;
char word[80];
{
static lett=0;

  srandom(time(0));
  do{
    fseek(fp,(long)(random()%(statb.st_size-100)),SEEK_SET);
    while (getc(fp)!='\n');
    fscanf(fp,"%s",word);
    } while (word[0]==lett || strlen(word)<=3 || feof(fp));
  lett=word[0];
}

readword()
{
static char ch[80];
static pos=0;
char c;

if ((c=getch())!=ERR) {ch[pos++]=c;ch[pos]='\0';}
if (c=='\n' && pos<3) pos=0;
if (c=='\n') {ch[pos]='\0';pos=0;fprintf(fpw,"%s",ch);fflush(fpw);};

return c;

}