NetBSD/games/battlestar/fly.c

296 lines
5.8 KiB
C

/* $NetBSD: fly.c,v 1.6 1997/10/11 02:07:20 lukem Exp $ */
/*
* Copyright (c) 1983, 1993
* The Regents of the University of California. All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#ifndef lint
#if 0
static char sccsid[] = "@(#)fly.c 8.2 (Berkeley) 4/28/95";
#else
__RCSID("$NetBSD: fly.c,v 1.6 1997/10/11 02:07:20 lukem Exp $");
#endif
#endif /* not lint */
#include "extern.h"
#undef UP
#include <curses.h>
#define abs(a) ((a) < 0 ? -(a) : (a))
#define MIDR (LINES/2 - 1)
#define MIDC (COLS/2 - 1)
int row, column;
int dr = 0, dc = 0;
char destroyed;
int ourclock = 120; /* time for all the flights in the game */
char cross = 0;
sig_t oldsig;
void
succumb(dummy)
int dummy;
{
if (oldsig == SIG_DFL) {
endfly();
exit(1);
}
if (oldsig != SIG_IGN) {
endfly();
(*oldsig) (SIGINT);
}
}
int
visual()
{
destroyed = 0;
if (initscr() == ERR) {
puts("Whoops! No more memory...");
return (0);
}
oldsig = signal(SIGINT, succumb);
crmode();
noecho();
screen();
row = rnd(LINES - 3) + 1;
column = rnd(COLS - 2) + 1;
moveenemy(0);
for (;;) {
switch (getchar()) {
case 'h':
case 'r':
dc = -1;
fuel--;
break;
case 'H':
case 'R':
dc = -5;
fuel -= 10;
break;
case 'l':
dc = 1;
fuel--;
break;
case 'L':
dc = 5;
fuel -= 10;
break;
case 'j':
case 'u':
dr = 1;
fuel--;
break;
case 'J':
case 'U':
dr = 5;
fuel -= 10;
break;
case 'k':
case 'd':
dr = -1;
fuel--;
break;
case 'K':
case 'D':
dr = -5;
fuel -= 10;
break;
case '+':
if (cross) {
cross = 0;
notarget();
} else
cross = 1;
break;
case ' ':
case 'f':
if (torps) {
torps -= 2;
blast();
if (row == MIDR && column - MIDC < 2 && MIDC - column < 2) {
destroyed = 1;
alarm(0);
}
} else
mvaddstr(0, 0, "*** Out of torpedoes. ***");
break;
case 'q':
endfly();
return (0);
default:
mvaddstr(0, 26, "Commands = r,R,l,L,u,U,d,D,f,+,q");
continue;
case EOF:
break;
}
if (destroyed) {
endfly();
return (1);
}
if (ourclock <= 0) {
endfly();
die();
}
}
}
void
screen()
{
int r, c, n;
int i;
clear();
i = rnd(100);
for (n = 0; n < i; n++) {
r = rnd(LINES - 3) + 1;
c = rnd(COLS);
mvaddch(r, c, '.');
}
mvaddstr(LINES - 1 - 1, 21, "TORPEDOES FUEL TIME");
refresh();
}
void
target()
{
int n;
move(MIDR, MIDC - 10);
addstr("------- + -------");
for (n = MIDR - 4; n < MIDR - 1; n++) {
mvaddch(n, MIDC, '|');
mvaddch(n + 6, MIDC, '|');
}
}
void
notarget()
{
int n;
move(MIDR, MIDC - 10);
addstr(" ");
for (n = MIDR - 4; n < MIDR - 1; n++) {
mvaddch(n, MIDC, ' ');
mvaddch(n + 6, MIDC, ' ');
}
}
void
blast()
{
int n;
alarm(0);
move(LINES - 1, 24);
printw("%3d", torps);
for (n = LINES - 1 - 2; n >= MIDR + 1; n--) {
mvaddch(n, MIDC + MIDR - n, '/');
mvaddch(n, MIDC - MIDR + n, '\\');
refresh();
}
mvaddch(MIDR, MIDC, '*');
for (n = LINES - 1 - 2; n >= MIDR + 1; n--) {
mvaddch(n, MIDC + MIDR - n, ' ');
mvaddch(n, MIDC - MIDR + n, ' ');
refresh();
}
alarm(1);
}
void
moveenemy(dummy)
int dummy;
{
double d;
int oldr, oldc;
oldr = row;
oldc = column;
if (fuel > 0) {
if (row + dr <= LINES - 3 && row + dr > 0)
row += dr;
if (column + dc < COLS - 1 && column + dc > 0)
column += dc;
} else
if (fuel < 0) {
fuel = 0;
mvaddstr(0, 60, "*** Out of fuel ***");
}
d = (double) ((row - MIDR) * (row - MIDR) + (column - MIDC) * (column - MIDC));
if (d < 16) {
row += (rnd(9) - 4) % (4 - abs(row - MIDR));
column += (rnd(9) - 4) % (4 - abs(column - MIDC));
}
ourclock--;
mvaddstr(oldr, oldc - 1, " ");
if (cross)
target();
mvaddstr(row, column - 1, "/-\\");
move(LINES - 1, 24);
printw("%3d", torps);
move(LINES - 1, 42);
printw("%3d", fuel);
move(LINES - 1, 57);
printw("%3d", ourclock);
refresh();
signal(SIGALRM, moveenemy);
alarm(1);
}
void
endfly()
{
alarm(0);
signal(SIGALRM, SIG_DFL);
mvcur(0, COLS - 1, LINES - 1, 0);
endwin();
signal(SIGTSTP, SIG_DFL);
signal(SIGINT, oldsig);
}