date and time created 84/11/18 18:59:01 by edward

SCCS-vsn: games/battlestar/fly.c 1.1

diff --git a/usr/src/games/battlestar/fly.c b/usr/src/games/battlestar/fly.c
new file mode 100644 (file)
index 0000000..b4eda2e
--- /dev/null
+++ b/usr/src/games/battlestar/fly.c
@@ -0,0 +1,243 @@
+#ifndef lint
+static char sccsid[] = "@(#)fly.c      1.1 %G%";
+#endif
+
+#include "externs.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 clock = 120;               /* time for all the flights in the game */
+char cross = 0;
+int (*oldsig)();
+
+succumb()
+{
+       endfly();
+       die();
+}
+
+visual()
+{
+       int moveenemy();
+
+       destroyed = 0;
+       savetty();
+       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();
+       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 (clock <= 0){
+                       endfly();
+                       die();
+               }
+       }
+}
+
+screen()
+{
+       register 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();
+}
+
+target()
+{
+       register int n;
+
+       move(MIDR,MIDC-10);
+       addstr("-------   +   -------");
+       for (n = MIDR-4; n < MIDR-1; n++){
+               mvaddch(n,MIDC,'|');
+               mvaddch(n+6,MIDC,'|');
+       }
+}
+
+notarget()
+{
+       register int n;
+
+       move(MIDR,MIDC-10);
+       addstr("                     ");
+       for (n = MIDR-4; n < MIDR-1; n++){
+               mvaddch(n,MIDC,' ');
+               mvaddch(n+6,MIDC,' ');
+       }
+}
+
+blast()
+{
+       register 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);
+}
+
+moveenemy()
+{
+       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));
+       }
+       clock--;
+       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", clock);
+       refresh();
+       signal(SIGALRM, moveenemy);
+       alarm(1);
+}
+
+endfly()
+{
+       alarm(0);
+       signal(SIGALRM, SIG_DFL);
+       mvcur(0,COLS-1,LINES-1,0);
+       endwin();
+       signal(SIGTSTP, SIG_DFL);
+       signal(SIGINT, oldsig);
+}