/*      $OpenBSD: fly.c,v 1.14 2015/12/31 17:51:19 mestre Exp $ */
/*      $NetBSD: fly.c,v 1.3 1995/03/21 15:07:28 cgd 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. 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 <curses.h>
#include <signal.h>
#include <stdlib.h>
#include <unistd.h>

#include "extern.h"

#undef UP

#define MIDR  (LINES/2 - 1)
#define MIDC  (COLS/2 - 1)

int     ourclock = 120; /* time for all the flights in the game */

static int     row, column;
static int     dr = 0, dc = 0;
static char    destroyed;
static char    cross = 0;
static sig_t   oldsig;

static void blast(void);
static void endfly(void);
static void moveenemy(int);
static void notarget(void);
static void screen(void);
static void succumb(int);
static void target(void);

static void
succumb(int sigraised)
{
        if (oldsig == SIG_DFL) {
                endfly();
                exit(1);
        }
        if (oldsig != SIG_IGN) {
                endfly();
                (*oldsig)(SIGINT);
        }
}

int
visual(void)
{
        destroyed = 0;
        if (initscr() == NULL) {
                puts("Whoops!  No more memory...");
                return (0);
        }
        oldsig = signal(SIGINT, succumb);
        cbreak();
        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(0);
                }
        }
}

static void
screen(void)
{
        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();
}

static void
target(void)
{
        int     n;

        move(MIDR, MIDC - 10);
        addstr("-------   +   -------");
        for (n = MIDR - 4; n < MIDR - 1; n++) {
                mvaddch(n, MIDC, '|');
                mvaddch(n + 6, MIDC, '|');
        }
}

static void
notarget(void)
{
        int     n;

        move(MIDR, MIDC - 10);
        addstr("                     ");
        for (n = MIDR - 4; n < MIDR - 1; n++) {
                mvaddch(n, MIDC, ' ');
                mvaddch(n + 6, MIDC, ' ');
        }
}

static void
blast(void)
{
        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);
}

static void
moveenemy(int sigraised)
{
        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);
}

static void
endfly(void)
{
        alarm(0);
        signal(SIGALRM, SIG_DFL);
        mvcur(0, COLS - 1, LINES - 1, 0);
        endwin();
        setvbuf(stdout, NULL, _IOLBF, BUFSIZ);
        signal(SIGTSTP, SIG_DFL);
        signal(SIGINT, oldsig);
}