mirror of
https://git.hardenedbsd.org/hardenedbsd/HardenedBSD.git
synced 2024-11-19 01:11:05 +01:00
706 lines
14 KiB
C
706 lines
14 KiB
C
/*
|
|
* battle.c - original author: Bruce Holloway
|
|
* mods by: Chuck A DeGaul
|
|
*/
|
|
|
|
#include <unistd.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <time.h>
|
|
#include <signal.h>
|
|
#include <ncurses.h>
|
|
|
|
#define OTHER 1-turn
|
|
|
|
char numbers[] = " 0 1 2 3 4 5 6 7 8 9";
|
|
|
|
char carrier[] = "Aircraft Carrier";
|
|
char battle[] = "Battleship";
|
|
char sub[] = "Submarine";
|
|
char destroy[] = "Destroyer";
|
|
char ptboat[] = "PT Boat";
|
|
|
|
char name[40];
|
|
char dftname[] = "Stranger";
|
|
|
|
struct _ships {
|
|
char *name;
|
|
char symbol;
|
|
char length;
|
|
char start; /* Coordinates - 0,0=0; 10,10=100. */
|
|
char dir; /* Direction - 0 = right; 1 = down. */
|
|
char hits; /* How many times has this ship been hit? (-1==sunk) */
|
|
};
|
|
|
|
struct _ships plyship[] = {
|
|
{ carrier,'A',5,0,0,0 },
|
|
{ battle,'B',4,0,0,0 },
|
|
{ destroy,'D',3,0,0,0 },
|
|
{ sub,'S',3,0,0,0 },
|
|
{ ptboat,'P',2,0,0,0 },
|
|
};
|
|
|
|
struct _ships cpuship[] = {
|
|
{ carrier,'A',5,0,0,0 },
|
|
{ battle,'B',4,0,0,0 },
|
|
{ destroy,'D',3,0,0,0 },
|
|
{ sub,'S',3,0,0,0 },
|
|
{ ptboat,'P',2,0,0,0 },
|
|
};
|
|
|
|
char hits[2][100], board[2][100]; /* "Hits" board, and main board. */
|
|
|
|
int srchstep;
|
|
int cpuhits;
|
|
int cstart, cdir;
|
|
int plywon=0, cpuwon=0; /* How many games has each won? */
|
|
int turn; /* 0=player, 1=computer */
|
|
int huntoffs; /* Offset on search strategy */
|
|
|
|
int salvo, blitz, ask, seemiss; /* options */
|
|
|
|
void intro(void);
|
|
void initgame(void);
|
|
int rnd(int);
|
|
void plyplace(struct _ships *);
|
|
int getdir(void);
|
|
void placeship(struct _ships *, int, int);
|
|
int checkplace(struct _ships *, int, int);
|
|
void error(char *);
|
|
void prompt(void);
|
|
char getcoord(void);
|
|
void cpuplace(struct _ships *);
|
|
int awinna(void);
|
|
int plyturn(void);
|
|
int hitship(int);
|
|
int cputurn(void);
|
|
int playagain(void);
|
|
void uninitgame();
|
|
int sgetc(char *);
|
|
int do_options(int, char *[]);
|
|
int scount(int);
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
do_options(argc, argv);
|
|
|
|
intro();
|
|
do {
|
|
initgame();
|
|
while(awinna() == -1) {
|
|
if (!blitz) {
|
|
if (!salvo) {
|
|
if (turn)
|
|
cputurn();
|
|
else plyturn();
|
|
} else {
|
|
register int i;
|
|
|
|
i = scount(turn);
|
|
while (i--) {
|
|
if (turn)
|
|
if (cputurn())
|
|
if (awinna() != -1)
|
|
i = 0;
|
|
else
|
|
if(plyturn())
|
|
if (awinna() != -1)
|
|
i = 0;
|
|
}
|
|
}
|
|
} else {
|
|
while((turn) ? cputurn() : plyturn());
|
|
}
|
|
turn = OTHER;
|
|
}
|
|
} while(playagain());
|
|
uninitgame();
|
|
exit(0);
|
|
}
|
|
|
|
#define PR addstr
|
|
|
|
void
|
|
intro()
|
|
{
|
|
char *tmpname;
|
|
|
|
srand(time(0L)); /* Kick the random number generator */
|
|
|
|
signal(SIGINT,uninitgame);
|
|
if(signal(SIGQUIT,SIG_IGN) != SIG_IGN) signal(SIGQUIT,uninitgame);
|
|
#if 1
|
|
/* for some bizzare reason, getlogin or cuserid cause havoc with the terminal */
|
|
if ((tmpname = getlogin()) != NULL) {
|
|
strcpy(name, tmpname);
|
|
} else
|
|
#endif
|
|
strcpy(name,dftname);
|
|
name[0] = toupper(name[0]);
|
|
|
|
initscr();
|
|
savetty();
|
|
nonl();
|
|
cbreak();
|
|
noecho();
|
|
clear();
|
|
mvaddstr(4,29,"Welcome to Battleship!");
|
|
move(8,0);
|
|
PR(" \\\n");
|
|
PR(" \\ \\ \\\n");
|
|
PR(" \\ \\ \\ \\ \\_____________\n");
|
|
PR(" \\ \\ \\_____________ \\ \\/ |\n");
|
|
PR(" \\ \\/ \\ \\/ |\n");
|
|
PR(" \\/ \\_____/ |__\n");
|
|
PR(" ________________/ |\n");
|
|
PR(" \\ S.S. Penguin |\n");
|
|
PR(" \\ /\n");
|
|
PR(" \\___________________________________________________/\n");
|
|
mvaddstr(20,27,"Hit any key to continue..."); refresh();
|
|
getch();
|
|
}
|
|
|
|
void
|
|
initgame()
|
|
{
|
|
int i;
|
|
|
|
clear();
|
|
mvaddstr(0,35,"BATTLESHIP");
|
|
mvaddstr(4,12,"Main Board");
|
|
mvaddstr(6,0,numbers);
|
|
move(7,0);
|
|
for(i=0; i<10; ++i){
|
|
printw("%c . . . . . . . . . . %c\n",i+'A',i+'A');
|
|
}
|
|
mvaddstr(17,0,numbers);
|
|
mvaddstr(4,55,"Hit/Miss Board");
|
|
mvaddstr(6,45,numbers);
|
|
for(i=0; i<10; ++i){
|
|
mvprintw(7+i,45,"%c . . . . . . . . . . %c",i+'A',i+'A');
|
|
}
|
|
mvaddstr(17,45,numbers);
|
|
for(turn=0; turn<2; ++turn)
|
|
for(i=0; i<100; ++i){
|
|
hits[turn][i] = board[turn][i] = 0;
|
|
}
|
|
for(turn=0; turn<2; ++turn){
|
|
for(i=0; i<5; ++i)
|
|
if (!turn)
|
|
plyplace(&plyship[i]);
|
|
else
|
|
cpuplace(&cpuship[i]);
|
|
}
|
|
turn = rnd(2);
|
|
cstart = cdir = -1;
|
|
cpuhits = 0;
|
|
srchstep = 3;
|
|
huntoffs = rnd(srchstep);
|
|
}
|
|
|
|
int
|
|
rnd(int n)
|
|
{
|
|
return(((rand() & 0x7FFF) % n));
|
|
}
|
|
|
|
void
|
|
plyplace(ss)
|
|
struct _ships *ss;
|
|
{
|
|
int c, d;
|
|
|
|
do {
|
|
prompt();
|
|
printw("Place your %s (ex.%c%d) ? ",ss->name,rnd(10)+'A',rnd(10));
|
|
c = getcoord();
|
|
d = getdir();
|
|
} while(!checkplace(ss,c,d));
|
|
placeship(ss,c,d);
|
|
}
|
|
|
|
int
|
|
getdir()
|
|
{
|
|
|
|
prompt();
|
|
addstr("What direction (0=right, 1=down) ? ");
|
|
return(sgetc("01")-'0');
|
|
}
|
|
|
|
void
|
|
placeship(ss,c,d)
|
|
struct _ships *ss;
|
|
int c, d;
|
|
{
|
|
int x, y, l, i;
|
|
|
|
for(l=0; l<ss->length; ++l){
|
|
i = c + l * ((d) ? 10 : 1);
|
|
board[turn][i] = ss->symbol;
|
|
x = (i % 10) * 3 + 3;
|
|
y = (i / 10) + 7;
|
|
if(!turn) mvaddch(y,x,ss->symbol);
|
|
}
|
|
ss->start = c;
|
|
ss->dir = d;
|
|
ss->hits = 0;
|
|
}
|
|
|
|
int
|
|
checkplace(ss,c,d)
|
|
struct _ships *ss;
|
|
int c, d;
|
|
{
|
|
int x, y, l;
|
|
|
|
x = c%10; y = c/10;
|
|
if(((x+ss->length) > 10 && !d) || ((y+ss->length) > 10 && d==1)){
|
|
if(!turn)
|
|
switch(rnd(3)){
|
|
case 0:
|
|
error("Ship is hanging from the edge of the world");
|
|
break;
|
|
case 1:
|
|
error("Try fitting it on the board");
|
|
break;
|
|
case 2:
|
|
error("Figure I won't find it if you put it there?");
|
|
break;
|
|
}
|
|
return(0);
|
|
}
|
|
for(l=0; l<ss->length; ++l){
|
|
x = c + l * ((d) ? 10 : 1);
|
|
if(board[turn][x]){
|
|
if(!turn)
|
|
switch(rnd(3)){
|
|
case 0:
|
|
error("There's already a ship there");
|
|
break;
|
|
case 1:
|
|
error("Collision alert! Aaaaaagh!");
|
|
break;
|
|
case 2:
|
|
error("Er, Admiral, what about the other ship?");
|
|
break;
|
|
}
|
|
return(0);
|
|
}
|
|
}
|
|
return(1);
|
|
}
|
|
|
|
void
|
|
error(s)
|
|
char *s;
|
|
{
|
|
prompt();
|
|
beep();
|
|
printw("%s -- hit any key to continue --",s);
|
|
refresh();
|
|
getch();
|
|
}
|
|
|
|
void
|
|
prompt(){
|
|
move(22,0);
|
|
clrtoeol();
|
|
}
|
|
|
|
char
|
|
getcoord()
|
|
{
|
|
int ch, x, y;
|
|
|
|
redo:
|
|
y = sgetc("ABCDEFGHIJ");
|
|
do {
|
|
ch = getch();
|
|
if (ch == 0x7F || ch == 8) {
|
|
addstr("\b \b");
|
|
refresh();
|
|
goto redo;
|
|
}
|
|
} while(ch < '0' || ch > '9');
|
|
addch(x = ch);
|
|
refresh();
|
|
return((y-'A')*10+x-'0');
|
|
}
|
|
|
|
void
|
|
cpuplace(ss)
|
|
struct _ships *ss;
|
|
{
|
|
int c, d;
|
|
|
|
do{
|
|
c = rnd(100);
|
|
d = rnd(2);
|
|
} while(!checkplace(ss,c,d));
|
|
placeship(ss,c,d);
|
|
}
|
|
|
|
int
|
|
awinna()
|
|
{
|
|
int i, j;
|
|
struct _ships *ss;
|
|
|
|
for (i = 0; i < 2; ++i) {
|
|
ss = (i) ? cpuship : plyship;
|
|
for(j=0; j<5; ++j, ++ss)
|
|
if(ss->length != ss->hits)
|
|
break;
|
|
if(j == 5) return(OTHER);
|
|
}
|
|
return(-1);
|
|
}
|
|
|
|
int
|
|
plyturn()
|
|
{
|
|
int c, res;
|
|
char *m;
|
|
|
|
prompt();
|
|
addstr("Where do you want to shoot? ");
|
|
c = getcoord();
|
|
if(!(res = hits[turn][c])){
|
|
hits[turn][c] = res = (board[OTHER][c]) ? 'H' : 'M';
|
|
mvaddch(7+c/10,48+3*(c%10),(res=='H') ? 'H' : 'o');
|
|
if(c = hitship(c)){
|
|
prompt();
|
|
switch(rnd(3)){
|
|
case 0:
|
|
m = "You sank my %s!";
|
|
break;
|
|
case 1:
|
|
m = "I have this sinking feeling about my %s....";
|
|
break;
|
|
case 2:
|
|
m = "Have some mercy for my %s!";
|
|
break;
|
|
}
|
|
move(23,0);
|
|
clrtoeol();
|
|
beep();
|
|
printw(m,cpuship[c-1].name); refresh();
|
|
return(awinna() == -1);
|
|
}
|
|
}
|
|
prompt();
|
|
move(23,0); clrtoeol();
|
|
printw("You %s.",(res=='M')?"missed":"scored a hit"); refresh();
|
|
return(res == 'H');
|
|
}
|
|
|
|
int
|
|
hitship(c)
|
|
int c;
|
|
{
|
|
struct _ships *ss;
|
|
int sym, i, j;
|
|
|
|
ss = (turn) ? plyship : cpuship;
|
|
if (!(sym = board[OTHER][c])) return(0);
|
|
for (i = 0; i < 5; ++i, ++ss)
|
|
if (ss->symbol == sym) {
|
|
j = ss->hits;
|
|
++j;
|
|
ss->hits = j;
|
|
if (j == ss->length)
|
|
return(i+1);
|
|
return(0);
|
|
}
|
|
}
|
|
|
|
int
|
|
cputurn()
|
|
{
|
|
int c, res, x, y, i, d;
|
|
|
|
redo:
|
|
if (cstart == -1){
|
|
if (cpuhits){
|
|
for(i=0, c=rnd(100); i<100; ++i, c = (c+1) % 100)
|
|
if(hits[turn][c] == 'H')
|
|
break;
|
|
if(i != 100){
|
|
cstart = c;
|
|
cdir = -1;
|
|
goto fndir;
|
|
}
|
|
}
|
|
do {
|
|
i = 0;
|
|
do{
|
|
while(hits[turn][c=rnd(100)]);
|
|
x = c % 10; y = c / 10;
|
|
if(++i == 1000) break;
|
|
} while(((x+huntoffs) % srchstep) != (y % srchstep));
|
|
if(i == 1000) --srchstep;
|
|
} while(i == 1000);
|
|
}
|
|
else if(cdir == -1){
|
|
fndir: for(i=0, d=rnd(4); i++ < 4; d = (d+1) % 4){
|
|
x = cstart%10; y = cstart/10;
|
|
switch(d){
|
|
case 0: ++x; break;
|
|
case 1: ++y; break;
|
|
case 2: --x; break;
|
|
case 3: --y; break;
|
|
}
|
|
if(x<0 || x>9 || y<0 || y>9) continue;
|
|
if(hits[turn][c=y*10+x]) continue;
|
|
cdir = -2;
|
|
break;
|
|
}
|
|
if(i == 4){
|
|
cstart = -1;
|
|
goto redo;
|
|
}
|
|
}
|
|
else{
|
|
x = cstart%10; y = cstart/10;
|
|
switch(cdir){
|
|
case 0: ++x; break;
|
|
case 1: ++y; break;
|
|
case 2: --x; break;
|
|
case 3: --y; break;
|
|
}
|
|
if(x<0 || x>9 || y<0 || y>9 || hits[turn][y*10+x]){
|
|
cdir = (cdir+2) % 4;
|
|
for(;;){
|
|
switch(cdir){
|
|
case 0: ++x; break;
|
|
case 1: ++y; break;
|
|
case 2: --x; break;
|
|
case 3: --y; break;
|
|
}
|
|
if(x<0 || x>9 || y<0 || y>9){ cstart = -1;
|
|
goto redo;
|
|
}
|
|
if(!hits[turn][y*10+x]) break;
|
|
}
|
|
}
|
|
c = y*10 + x;
|
|
}
|
|
|
|
if (!ask) {
|
|
res = (board[OTHER][c]) ? 'H' : 'M';
|
|
move(21,0); clrtoeol();
|
|
printw("I shoot at %c%d. I %s!",c/10+'A',c%10,(res=='H')?"hit":"miss");
|
|
} else {
|
|
for(;;){
|
|
prompt();
|
|
printw("I shoot at %c%d. Do I (H)it or (M)iss? ",c/10+'A',c%10);
|
|
res = sgetc("HM");
|
|
if((res=='H' && !board[OTHER][c]) || (res=='M' && board[OTHER][c])){
|
|
error("You lie!");
|
|
continue;
|
|
}
|
|
break;
|
|
}
|
|
addch(res);
|
|
}
|
|
hits[turn][c] = res;
|
|
if(res == 'H') {
|
|
++cpuhits;
|
|
if(cstart == -1) cdir = -1;
|
|
cstart = c;
|
|
if(cdir == -2) cdir = d;
|
|
mvaddch(7+(c/10),3+3*(c%10),'*');
|
|
if (blitz && !ask) {
|
|
refresh();
|
|
sleep(1);
|
|
}
|
|
}
|
|
else {
|
|
if (seemiss) {
|
|
mvaddch(7+(c/10),3+3*(c%10),' ');
|
|
} else {
|
|
if(cdir == -2) cdir = -1;
|
|
}
|
|
}
|
|
if(c=hitship(c)){
|
|
cstart = -1;
|
|
cpuhits -= plyship[c-1].length;
|
|
x = plyship[c-1].start;
|
|
d = plyship[c-1].dir;
|
|
y = plyship[c-1].length;
|
|
for(i=0; i<y; ++i){
|
|
hits[turn][x] = '*';
|
|
x += (d) ? 10 : 1;
|
|
}
|
|
}
|
|
if (salvo && !ask) {
|
|
refresh();
|
|
sleep(1);
|
|
}
|
|
if(awinna() != -1) return(0);
|
|
return(res == 'H');
|
|
}
|
|
|
|
int
|
|
playagain()
|
|
{
|
|
int i, x, y, dx, dy, j;
|
|
|
|
for(i=0; i<5; ++i){
|
|
x = cpuship[i].start; y = x/10+7; x = (x % 10) * 3 + 48;
|
|
dx = (cpuship[i].dir) ? 0 : 3;
|
|
dy = (cpuship[i].dir) ? 1 : 0;
|
|
for(j=0; j < cpuship[i].length; ++j){
|
|
mvaddch(y,x,cpuship[i].symbol);
|
|
x += dx; y += dy;
|
|
}
|
|
}
|
|
|
|
if(awinna()) ++cpuwon; else ++plywon;
|
|
i = 18 + strlen(name);
|
|
if(plywon >= 10) ++i;
|
|
if(cpuwon >= 10) ++i;
|
|
mvprintw(2,(80-i)/2,"%s: %d Computer: %d",name,plywon,cpuwon);
|
|
|
|
prompt();
|
|
printw((awinna()) ? "Want to be humiliated again, %s? "
|
|
: "Going to give me a chance for revenge, %s? ",name);
|
|
return(sgetc("YN") == 'Y');
|
|
}
|
|
|
|
void
|
|
uninitgame(int sig)
|
|
{
|
|
refresh();
|
|
endwin();
|
|
exit(0);
|
|
}
|
|
|
|
int
|
|
sgetc(s)
|
|
char *s;
|
|
{
|
|
char *s1;
|
|
int ch;
|
|
|
|
refresh();
|
|
for (;;) {
|
|
ch = toupper(getch());
|
|
for (s1 = s; *s1 && ch != *s1; ++s1);
|
|
if (*s1) {
|
|
addch(ch);
|
|
refresh();
|
|
return(ch);
|
|
}
|
|
}
|
|
}
|
|
|
|
/*
|
|
* I should use getopts() from libc.a, but I'm leary that other UNIX
|
|
* systems might not have it, although I'd love to use it.
|
|
*/
|
|
|
|
int
|
|
do_options(c,op)
|
|
int c;
|
|
char *op[];
|
|
{
|
|
register int i;
|
|
|
|
if (c > 1) {
|
|
for (i=1; i<c; i++) {
|
|
switch(op[i][0]) {
|
|
default:
|
|
case '?':
|
|
fprintf(stderr, "Usage: battle [ -s | -b ] [ -a ] [ -m ]\n");
|
|
fprintf(stderr, "\tWhere the options are:\n");
|
|
fprintf(stderr, "\t-s : play a salvo game (mutex with -b)\n");
|
|
fprintf(stderr, "\t-b : play a blitz game (mutex with -s)\n");
|
|
fprintf(stderr, "\t-a : computer asks you for hit/miss\n");
|
|
fprintf(stderr, "\t-m : computer misses are displayed\n");
|
|
exit(1);
|
|
break;
|
|
case '-':
|
|
switch(op[i][1]) {
|
|
case 'b':
|
|
blitz = 1;
|
|
if (salvo == 1) {
|
|
fprintf(stderr,
|
|
"Bad Arg: -b and -s are mutually exclusive\n");
|
|
exit(1);
|
|
}
|
|
break;
|
|
case 's':
|
|
salvo = 1;
|
|
if (blitz == 1) {
|
|
fprintf(stderr,
|
|
"Bad Arg: -s and -b are mutually exclusive\n");
|
|
exit(1);
|
|
}
|
|
break;
|
|
case 'a':
|
|
ask = 1;
|
|
break;
|
|
case 'm':
|
|
seemiss = 1;
|
|
break;
|
|
default:
|
|
fprintf(stderr,
|
|
"Bad Arg: type \"%s ?\" for usage message\n", op[0]);
|
|
exit(1);
|
|
}
|
|
}
|
|
}
|
|
fprintf(stdout, "Playing optional game (");
|
|
if (salvo)
|
|
fprintf(stdout, "salvo, noblitz, ");
|
|
else if (blitz)
|
|
fprintf(stdout, "blitz, nosalvo, ");
|
|
else
|
|
fprintf(stdout, "noblitz, nosalvo, ");
|
|
|
|
if (ask)
|
|
fprintf(stdout, "ask, ");
|
|
else
|
|
fprintf(stdout, "noask, ");
|
|
|
|
if (seemiss)
|
|
fprintf(stdout, "seemiss)\n");
|
|
else
|
|
fprintf(stdout, "noseemiss)\n");
|
|
}
|
|
else
|
|
fprintf(stdout,
|
|
"Playing standard game (no blitz, no slavo, no ask, no seemiss)\n");
|
|
sleep(2);
|
|
return(0);
|
|
}
|
|
|
|
int
|
|
scount(who)
|
|
int who;
|
|
{
|
|
int i, shots;
|
|
struct _ships *sp;
|
|
|
|
if (who) {
|
|
/* count cpu shots */
|
|
sp = cpuship;
|
|
} else {
|
|
/* count player shots */
|
|
sp = plyship;
|
|
}
|
|
for (i=0, shots = 0; i<5; i++, sp++) {
|
|
/* extra test for machines with unsigned chars! */
|
|
if (sp->hits == (char) -1 || sp->hits >= sp->length) {
|
|
continue; /* dead ship */
|
|
} else {
|
|
shots++;
|
|
}
|
|
}
|
|
return(shots);
|
|
}
|
|
|