#include "wand_head.h"

extern int debug_disp;
extern int edit_mode;
extern char screen_name[61];
extern char *edit_memory, *memory_end;

void map(row_ptr)
char (*row_ptr)[ROWLEN+1];
{
    int  x, y;
    char ch;

    move(0,0);
    addch('+');
    for (x = 0; x < ROWLEN; x++)
	addch('-');
    addch('+');
    for (y = 0; y < NOOFROWS; y++) {
	move(y+1,0);
	addch('|');
	for (x = 0; x < ROWLEN; x++) {
	    ch = (*row_ptr)[x];
	    if (!debug_disp) {
		if ((ch == 'M') || (ch == 'S'))
		    ch = ' ';
		addch(ch);
	    } else if (ch != '\0')
		addch(ch);
	    else
		addch('"');
	}
	addch('|');
	row_ptr++;
    }
    move(y+1,0);
    addch('+');
    for (x = 0; x < ROWLEN; x++)
	addch('-');
    addch('+');
    if (!debug_disp) {
	move(18,0);
	addstr("Press any key to return to the game.");
	refresh();
	getchar();
	move(18,0);
	addstr("                                    ");
	refresh();
	for (y = 0; y <= (NOOFROWS+1); y++) {
	    move(y,0);
	    for (x = 0; x <= (ROWLEN+2); x++)
		addch(' ');
	}
    } else
	refresh();
}

void display(cx, cy, row_ptr)
char (*row_ptr)[ROWLEN+1];
int  cx, cy;
{
    int  x, y = 0,
	 x_coord, y_coord;
    char ch;

    while (y < (cy-3)) {
	y++;
	row_ptr++;
    }
    move(0,0);
    addstr("+---------------------------------+");
    move(15,0);
    addstr("+---------------------------------+");
    for (y = (cy-3); y <= (cy+3); y++) {
	y_coord = (y+3-cy)*2;
	if ((y < 0) || (y >= NOOFROWS)) {
	    move(y_coord+1,0);
	    addstr("|#################################|");
	    move(y_coord+2,0);
	    addstr("|#################################|");
	} else {
	    move(y_coord+1,0);
	    addch('|');
	    move(y_coord+1,34);
	    addch('|');
	    move(y_coord+2,0);
	    addch('|');
	    move(y_coord+2,34);
	    addch('|');
	    for (x = (cx-5); x <= (cx+5); x++) {
		x_coord = (x+5-cx)*3;
		if ((x < 0) || (x > ROWLEN-1))
		    draw_symbol(x_coord,y_coord,'#');
		else {
		    ch = (*row_ptr)[x];
		    draw_symbol(x_coord,y_coord,ch);
		}
	    }
	    row_ptr++;
	}	/* end if */
    }	/* end y loop */
    move(16,0);
    refresh();
}

void showname()
{
    move(19,0);
    if ((screen_name[0] == '#') || (screen_name[0] == '\0'))
	addstr("Unnamed screen.                                             ");
    else
	addstr(screen_name);
    if (edit_memory) {
	move(7,45);
	addstr("MEMORY: ( Start, ) End,");
	move(8,53);
	addstr("* Play, & Extend.");
	move(9,53);
	addstr("- Chkpt, + Cont.");
	move(10,53);
	if (memory_end == edit_memory)
	    addstr("--Empty--");
	else
	    addstr("-Occupied-");
    }
}

void redraw_screen(bell, maxmoves, num, score, nf, diamonds, mx, sx, sy, frow)
int *bell, maxmoves, num, nf, diamonds, mx, sx, sy;
long score;
char (*frow)[ROWLEN+1];
{
char buffer[50];

    clear();
    move(0,48);
    addstr("Score\t   Diamonds");
    move(1,48);
    addstr("\tFound\tTotal");
    move(3,48);
    sprintf(buffer,"%ld\t %d\t %d  ",score,nf,diamonds);
    addstr(buffer);
    if (!edit_mode) {
	move(6,48);
	sprintf(buffer,"Current screen %d",num);
	addstr(buffer);
    }
    if (maxmoves != -1)
	sprintf(buffer,"Moves remaining = %d   ",maxmoves);
    else
	strcpy(buffer,"     Unlimited moves     ");
    move(15,48);
    addstr(buffer);
    move(17,56);
    if (*bell)
	addstr("Bell ON ");
    else
	addstr("Bell OFF");
    if (mx != -1)  {	/* tell player if monster exists */
	draw_symbol(50,11,'M');
	move(12,56); addstr("Monster on the");
	move(13,56); addstr("loose!        ");
    } else {
	draw_symbol(50,11,' ');
	move(12,56); addstr("              ");
	move(13,56); addstr("              ");
    }

    showname();

    if (!debug_disp)
	display(sx,sy,frow);
    else
	map(frow);

}

int inform_me(s, qable)
char *s;
int qable;
{
    int retval = 0;

    move(20,0);
#ifdef TVI
    addstr(TVI);
#endif
    standout();
    addstr(s);
#ifdef NOTVI
    addstr(NOTVI);
#endif
    standend();
    addstr(" <MORE>");
    if (qable)
	addstr(" (q stops)");
    refresh();
    if (getch() == 'q')
	retval = 1;
    move(20,0); addstr("                                                                             ");
    refresh();
    return (retval);
}