/*
Program: MINE.C
Author : Kim Moser
Date   : 4/25/89
System : IBM PC / Borland Turbo-C 2.0
Descrip: Mine Field (game)

Usage  : MINE [-t]

SWITCH  MEANING
     t  Display title screen quickly (default when monochrome monitor in use)
*/

#include "kmvid.h"
#include <stdio.h>
#include <dos.h>
#include <stdlib.h>
#include <time.h>
#include <conio.h>
#include <string.h>

int fast=1;  /* @@@ */

#define MS 90
/* How many miliseconds to delay between shades of color */
void fadeatcenter( y, f, b, s )
scrncoord y;
color f, b;
char *s;
{
	struct {
		char line[80];
	} str[20];
	int i=0,k=0,j=0;  /* Indices into s, str, and str[k].line, respectively */

	/* Parse 's' into local array: */
	for ( i=0; s[i]!='\0'; i++ ) {
		if (s[i]=='\n') {  /* New line */
			/* Seal off this string and point to next: */
			str[k++].line[j] = '\0';
			j=0;  /* Start at first char of new string */
			/* Point to next char in 's' [assumed not to be '\n']: */
			i++;
		}
		str[k].line[j++] = s[i];
	}
	str[k].line[j] = '\0';  /* Seal off last string */

	/* 'k' now contains number of menu choices */
	/* Fade: */

	if ( (vidmode()!=7) && !(fast) ) {
	/* Not a monochrome system, or user requested fast title screen */
		set_color( BLUE, BLACK );
		for (i=0; i<=k; i++)
			writeatcenter( y+i, str[i].line );
		delay(MS);

		set_color( LIGHTBLUE, BLACK );
		for (i=0; i<=k; i++)
			writeatcenter( y+i, str[i].line );
		delay(MS);

		set_color( LIGHTCYAN, BLACK );
		for (i=0; i<=k; i++)
			writeatcenter( y+i, str[i].line );
		delay(MS);

		set_color( WHITE, BLACK );
		for (i=0; i<=k; i++)
			writeatcenter( y+i, str[i].line );
		delay(1000);
	}

	set_color( f, b );
	for (i=0; i<=k; i++) {
		writeatcenter( y+i, str[i].line );
	}
}

void intro(void)
{
	clearscr( WHITE, BLACK );

	fadeatcenter( 6, WHITE, BLACK, "MINE FIELD" );
	fadeatcenter( 7, LIGHTGRAY, BLACK, "The computer game" );

	fadeatcenter( 10, BLUE, BLACK, "Based on an earlier program\nby" );
	fadeatcenter( 12, LIGHTBLUE, BLACK, "Kim Moser and Erik Francois" );

	fadeatcenter( 15, CYAN, BLACK, "IBM PC version\nby" );

	fadeatcenter( 17, LIGHTCYAN, BLACK, "Kim Moser" );

	fadeatcenter( 18, LIGHTGREEN, BLACK, "4/25/89 (v1.0)" );
}

#define NORTH 1
#define EAST 2
#define SOUTH 3
#define WEST 4
#define NE 5
#define NW 6
#define SE 7
#define SW 8

#define MINECHAR '*'
#define MINEFORE WHITE
/* @@@ ^^^ change to black when done */
#define MINEBACK BLACK

#define SPACECHAR ' '
#define SPACEFORE BLACK
#define SPACEBACK BLACK

#define BRICKCHAR '\xFE'
#define BRICKFORE RED
#define BRICKBACK BLACK

#define CRATERCHAR 'o'
#define CRATERFORE LIGHTGRAY
#define CRATERBACK BLACK

#define PLAYERCHAR '\x02'
#define PLAYERFORE WHITE
#define PLAYERBACK BLACK

char UNDERCHAR=SPACECHAR;  /* What is "under" player's feet */
color UNDERFORE;
color UNDERBACK;

int LEVEL=9;  /* 0..3 */
scrncoord X1=2, Y1=3, X2, Y2;
scrncoord PX, PY;
int MOVED=0;  /* Set to 1 by walk() */
int GAMEOVER=0;
long int BRICKS=10;  /* How many bricks player is holding */

int rnd(low,high)
int low,high;
/* Returns a random number 'n' such that 'low' <= 'n' <= 'high' */
{
	if (low>high)
		return rnd(high,low);
	else
		return( random(high-low+1)+low );
}

void setupfield(void)
/* Sets up field with mines and bricks */
{
	int i;
	int posX, posY;

	randomize();
	/* Set up field */
	set_color(MINEFORE,MINEBACK);
	for (i=0; i<LEVEL*20; i++) {
		/* Find a spot that contains a space: */
		do {
			/* Pick random x and y coords: */
			posX=rnd(X1+1,X2-1);
			posY=rnd(Y1+1,Y2-1);
		} while (peekvid(posX,posY)!=SPACECHAR);
		writeatch(posX,posY,MINECHAR);
	}
}

int isnearmine(void)
{
	return (
		peekvid(PX-1,PY-1)==MINECHAR ||
		peekvid(PX,PY-1)==MINECHAR ||
		peekvid(PX+1,PY-1)==MINECHAR ||
		peekvid(PX-1,PY)==MINECHAR ||
		peekvid(PX+1,PY)==MINECHAR ||
		peekvid(PX-1,PY+1)==MINECHAR ||
		peekvid(PX,PY+1)==MINECHAR ||
		peekvid(PX+1,PY+1)==MINECHAR
	);
}

void checkformine(void)
{
	if (isnearmine()) {
		set_color(YELLOW,BLACK+8);
		writeat(66,2,"MINE NEAR! ");
	} else {
		set_color(WHITE,BLACK);
		writeat(66,2,"(all clear)");
	}
}

#define MILS 200

void blowup(x,y)
scrncoord x,y;
{
	set_color(RED,YELLOW);
	writeatch(x,y,'\xFA');
	delay(MILS);
	set_color(YELLOW,RED);
	writeatch(x,y,'\xF9');
	delay(MILS);
	set_color(MAGENTA,LIGHTMAGENTA);
	writeatch(x,y,'\xFE');
	delay(MILS);
	writeatch(x,y,'\xDC');
	delay(MILS);
	writeatch(x,y,'\xDB');
	delay(MILS);
	set_color(CRATERFORE,CRATERBACK);
	writeatch(x,y,CRATERCHAR);
}

void killuser(void)
{
	scrncoord x=PX,y=PY;

	blowup(x,y);

	if (y==Y1+1)
		y++;

	set_color(WHITE,BLACK);
	writeatch(x,y,'\xEF');
	writeatch(x,y-1,'\xC5');

	fillarea(2,2,vidcol()-1,Y1-1,WHITE,BLACK,' ');
	writeatcenter(2,"GAME OVER (Hit any key to return to main menu)");

	keyhit();
	GAMEOVER=1;
}

void walk(d)
int d;
/* Attempts to move player in direction; sets MOVED to 1 if moved, else 0 */
{
	int newX=PX, newY=PY;

	MOVED=0;  /* Assume */
	switch(d) {
		case NORTH:
			newY--;
			break;
		case SOUTH:
			newY++;
			break;
		case EAST:
			newX++;
			break;
		case WEST:
			newX--;
			break;
		case NE:
			newX++;
			newY--;
			break;
		case SE:
			newX++;
			newY++;
			break;
		case NW:
			newX--;
			newY--;
			break;
		case SW:
			newX--;
			newY++;
			break;
		default:
			fprintf( stderr, "walk(): unknown direction: %d\n", d );
			exit(1);
	}

	switch (peekvid(newX,newY)) {
		case BRICKCHAR:
			BRICKS++;
			/* no break */
		case SPACECHAR:
		case CRATERCHAR:
		case MINECHAR:  /* @@@ Not necessary when mines are invisible */
			MOVED++;
			break;
	}

	if (MOVED) {
		/* If they were on a brick, make it a space: */
		if (UNDERCHAR==BRICKCHAR) {
			UNDERCHAR=SPACECHAR;
			UNDERFORE=SPACEFORE;
			UNDERBACK=SPACEBACK;
		}

		/* Restore what was there: */
		set_color(UNDERFORE,UNDERBACK);
		writeatch(PX,PY,UNDERCHAR);

		/* Remember what's under new spot: */
		UNDERCHAR = peekvid(newX,newY);
		peekcolor(newX,newY,&UNDERFORE,&UNDERBACK);

		PX=newX;
		PY=newY;

		if (peekvid(newX,newY)==MINECHAR)
			killuser();
	}
}

void printbricks(void)
{
	char str[10];

	set_color(WHITE,BLACK);
	writeat(10,2,inttostr(BRICKS,4,str));
}

void putbrick(x,y)
scrncoord x,y;
{
	char old=peekvid(x,y);  /* Remember what was there */

	set_color(BRICKFORE,BRICKBACK);
	writeatch(x,y,'\xDF');
	delay(MILS);
	writeatch(x,y,'\xDC');
	delay(MILS);
	writeatch(x,y,BRICKCHAR);
	delay(MILS);

	if (old==MINECHAR) {
		blowup(x,y);
		checkformine();
	} else {
		if (old==CRATERCHAR) {
			/* They threw a brick into a crater, so redraw the crater: */
			set_color(CRATERFORE,CRATERBACK);
			writeatch(x,y,CRATERCHAR);
		}
	}
}

void brick(d)
{
	int newX=PX, newY=PY;

	if (!BRICKS) return;  /* Can't throw what you don't have */

	switch(d) {
		case NORTH:
			newY--;
			break;
		case SOUTH:
			newY++;
			break;
		case EAST:
			newX++;
			break;
		case WEST:
			newX--;
			break;
		case NE:
			newX++;
			newY--;
			break;
		case SE:
			newX++;
			newY++;
			break;
		case NW:
			newX--;
			newY--;
			break;
		case SW:
			newX--;
			newY++;
			break;
		default:
			fprintf( stderr, "brick(): unknown direction: %d\n", d );
			exit(1);
	}

	switch (peekvid(newX,newY)) {
		case BRICKCHAR:  /* Can't throw a brick on another brick */
			break;
		case MINECHAR:
		case SPACECHAR:
		case CRATERCHAR:
			putbrick(newX,newY);
			BRICKS--;
			printbricks();
			break;
	}
}

void play(void)
{
	char t[80]={0};
	long int tm;
	char *tmp;

	GAMEOVER=0;
	PX=X1+1, PY=Y1+1;
	clearscr(WHITE, BLACK);
	box(1,1,vidcol(),Y1, SINGLEBOX);
	box(X1,Y1,X2,Y2, SINGLEBOX);
	writeat(3,2,"Bricks:        Time:                            Mine Detector: (no mine)" );
	writeatch(16,2,VERT_LINE);
	writeatch(49,2,VERT_LINE);
	writeatch(16,1,'\xC2');
	writeatch(49,1,'\xC2');

	/* Make edges of field border blend in with status box: */
	if (Y1==3) {
		if (X1==1)
			writeatch( X1, Y1, '\xC3' );
		else
			writeatch( X1, Y1, '\xC2' );

		if (X2==vidcol())
			writeatch( X2, Y1, '\xB4' );
		else
			writeatch( X2, Y1, '\xC2' );
	}

	setupfield();

	MOVED=1;  /* Assume */
	while(!GAMEOVER) {
		if (MOVED) {
			set_color(PLAYERFORE,PLAYERBACK);
			writeatch(PX,PY,PLAYERCHAR);

			checkformine();
			printbricks();
		}

		/* Display the time until player hits a key: */
		while (!kbhit()) {
			time(&tm);
			tmp = asctime(localtime(&tm));
			if (strcmp(tmp,t)) {  /* Has changed */
				strcpy(t,tmp);
				tmp[strlen(tmp)-1]=0;  /* Remove trailing newline */
				set_color(WHITE,BLACK);
				writeat(24,2,tmp);
			}
		}

		MOVED=0;  /* Assume */
		switch(keyhit()) {
			case ESCKEY:
				return;
			case UPKEY:
			case '8':
				walk(NORTH);
				break;
			case DOWNKEY:
			case '2':
				walk(SOUTH);
				break;
			case LEFTKEY:
			case '4':
				walk(WEST);
				break;
			case RIGHTKEY:
			case '6':
				walk(EAST);
				break;
			case HOMEKEY:
			case '7':
				walk(NW);
				break;
			case ENDKEY:
			case '1':
				walk(SW);
				break;
			case PGUPKEY:
			case '9':
				walk(NE);
				break;
			case PGDNKEY:
			case '3':
				walk(SE);
				break;
			case CTRL_LEFTKEY:
				brick(WEST);
				break;
			case CTRL_RIGHTKEY:
				brick(EAST);
				break;
		}
	}
}

void instr(void)
{
	int i, j=0;
	static char *ins[] = {  /* 'static' so it's not on the stack */
"You have captured the war plans of your enemy, Ray D. O'Shack, and must",
"bring them back to your headquarters.  Armed only with some bricks and a",
"simple mine detector, you must cross a mine field which stands in your way.",
" ",
"Each step can take you in one of eight directions:",
" ",
"        2                         \x02 = you",
"   1         3",
"    \xDA   \x18   \xBF                     \xB0 = brick",
"      \\ \xB3 /",
" 4  \x1B \xC4 \x02 \xC4 \x1A  5                  \x7F = headquarters",
"      / \xB3 \\",
"    \xC0   \x19   \xD9                     o = crater",
"   6         8",
"        7",
" ",
"Use the keypad or the arrow keys to move one step in any of the eight",
"directions.  Hold down the CTRL key in conjunction with the arrow keys or",
"the keypad to throw a brick one step in any of the eight directions.",
"To pick up a brick, simply step onto it.  Bricks that are thrown on mines",
"are destroyed, and can not be picked up.",
" ",
"Your mine detector warns you only if a mine is within one step in any",
"direction, but it can not tell the direction in which the mine lies!",
""
};

	while (1) {
		clearscr(WHITE, BLACK);
		box(1,1,vidcol(),MAXROW, SINGLEBOX);

		for (i=2; i<MAXROW-2; i++)
			if (ins[j][0]!=0)
				writeat(3,i,ins[j++]);

		set_color(LIGHTGRAY, BLACK);
		writeatcenter(i+1,"Hit any key to continue, or ESCape to return to main menu." );
		if (keyhit()==ESCKEY) return;
		if (ins[j][0]==0) return;  /* No lines left */
	}
}

void menu(void)
{
	int choice, done=0;

	while (!done) {
		choice = lotus( vidcol()/2-14, 23, LIGHTGRAY, BLACK, WHITE, RED, TRUE,
		" INSTRUCTIONS \t PLAY \t QUIT ");

		pushscrn();
		switch(choice) {
			case 0:  /* Instructions */
				instr();
				break;
			case 1:  /* Play */
				play();
				break;
			case -1:  /* ESCape */
			case 2:  /* Quit */
				done=1;
				break;
			default:
				fprintf( stderr, "Unknown menu choice: %d\n", choice );
				exit(1);
		}
		popscrn();
	}
}

void usage(void)
{
	fprintf( stderr, "MINE  v1.0 (4/25/89)  Copyright (c) Kim Moser  All Rights Reserved\n" );
	exit(1);
}

void doswitches(s)
char *s;
{
	int i;

	for (i=0; s[i]; i++)
		switch (s[i]) {
			case 't':
				fast=1;
				break;
			default:
				usage();
		}
}

void main(argc, argv)
int argc;
char **argv;
{
	int i;

	initkmvid();

	X2=vidcol()-1, Y2=MAXROW;

	/* Parse params: */
	for (i=1; i<argc; i++)
		switch(argv[i][0]) {
			case '-':  /* Switches follow */
				doswitches(&argv[i][1]);
				break;
			default:
				usage();
		}

	intro();
	menu();

	clearscr(WHITE,BLACK);
}