projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
no more moveship(), plus small bug in killing a ship in check().
[unix-history] / usr / src / games / sail / pl_4.c
diff --git a/usr/src/games/sail/pl_4.c b/usr/src/games/sail/pl_4.c
index fa1bc6f..ff6dc2b 100644 (file)
--- a/usr/src/games/sail/pl_4.c
+++ b/usr/src/games/sail/pl_4.c
@@ -1,5 +1,5 @@
 #ifndef lint
 #ifndef lint
-static char *sccsid = "@(#)pl_4.c      1.1 83/07/20";
+static char *sccsid = "@(#)pl_4.c      2.2 83/11/14";
 #endif
 
 #include "player.h"
 #endif
 
 #include "player.h"
@@ -14,14 +14,14 @@ changesail()
                rig = 0;
        if (mc->crew3 && rig) {
                if (!full) {
                rig = 0;
        if (mc->crew3 && rig) {
                if (!full) {
-                       Signal("Increase to Full sails? ", (struct ship *)0);
-                       if (sgetch(1) == 'y') {
+                       if (sgetch("Increase to Full sails? ",
+                               (struct ship *)0, 1) == 'y') {
                                changed = 1;
                                Write(W_FS, ms, 0, 1, 0, 0, 0);
                        }
                } else {
                                changed = 1;
                                Write(W_FS, ms, 0, 1, 0, 0, 0);
                        }
                } else {
-                       Signal("Reduce to Battle sails? ", (struct ship *)0);
-                       if (sgetch(1) == 'y') {
+                       if (sgetch("Reduce to Battle sails? ",
+                               (struct ship *)0, 1) == 'y') {
                                Write(W_FS, ms, 0, 0, 0, 0, 0);
                                changed = 1;
                        }
                                Write(W_FS, ms, 0, 0, 0, 0, 0);
                                changed = 1;
                        }
@@ -30,394 +30,67 @@ changesail()
                Signal("Sails rent to pieces", (struct ship *)0);
 }
 
                Signal("Sails rent to pieces", (struct ship *)0);
 }
 
-signalflags()
-{
-       register struct ship *sp;
-
-       foreachship(sp) {
-               if (*sp->file->signal) {
-                       (void) putchar('\7');
-                       Signal("%s (%c%c): %s", sp, sp->file->signal);
-                       *sp->file->signal = '\0';
-               }
-       }
-}
-
 acceptsignal()
 {
        char buf[60];
        register char *p = buf;
 
 acceptsignal()
 {
        char buf[60];
        register char *p = buf;
 
-       Signal("Message? ", (struct ship *)0);
        *p++ = '"';
        *p++ = '"';
-       sgetstr(p, sizeof buf - 2);
+       sgetstr("Mesage? ", p, sizeof buf - 2);
        while (*p++)
                ;
        p[-1] = '"';
        while (*p++)
                ;
        p[-1] = '"';
+       *p = 0;
        Write(W_SIGNAL, ms, 1, (int)buf, 0, 0, 0);
 }
 
        Write(W_SIGNAL, ms, 1, (int)buf, 0, 0, 0);
 }
 
-/*VARARGS2*/
-Signal(fmt, ship, a, b, c, d)
-char *fmt;
-register struct ship *ship;
-int a, b, c, d;
-{
-       Scroll();
-       if (ship == 0)
-               (void) wprintw(scroll_w, fmt, a, b, c, d);
-       else
-               (void) wprintw(scroll_w, fmt, ship->shipname, colours(ship),
-                       sterncolour(ship), a, b, c, d);
-       (void) wrefresh(scroll_w);
-}
-
-static int sline = 0;
-
-Scroll()
-{
-       (void) wmove(scroll_w, sline++, 0);
-       (void) wclrtoeol(scroll_w);
-       if (sline >= SCROLL_Y)
-               sline = 0;
-}
-
-/* make sure we have two consecutive lines */
-Scroll2()
-{
-       Scroll();
-       if (sline > SCROLL_Y - 2)
-               Scroll();
-}
-
-lastline()
-{
-       (void) wmove(scroll_w, SCROLL_Y-1, 0);
-       (void) wclrtoeol(scroll_w);
-       (void) wrefresh(scroll_w);
-}
-
-prompt()
-{
-       (void) wmove(scroll_w, sline, 0);
-       (void) wclrtoeol(scroll_w);
-       (void) addch('~');
-       (void) wmove(scroll_w, sline, 0);
-       (void) wrefresh(scroll_w);
-}
-
-sgetch(flag)
-char flag;
-{
-       register c;
-
-       while ((c = wgetch(scroll_w)) == EOF)
-               ;
-       if (flag)
-               (void) waddch(scroll_w, c);
-       return c;
-}
-
-sgetstr(buf, n)
-char *buf;
-{
-       register c;
-       register char *p = buf;
-
-       for (;;) {
-               while ((c = wgetch(scroll_w)) == EOF)
-                       ;
-               switch (c) {
-               case '\n':
-               case '\r':
-                       *p = 0;
-                       return;
-               case '\b':
-                       if (p > buf)
-                               p--;
-                       break;
-               default:
-                       if (p < &buf[n] - 1) {
-                               *p++ = c;
-                               (void) waddch(scroll_w, c);
-                               (void) wrefresh(scroll_w);
-                       } else {
-                               (void) putchar(CTRL(g));
-                               (void) fflush(stdout);
-                       }
-               }
-       }
-}
-
-newturn()
-{
-       repaired = loaded = fired = changed = 0;
-
-       (void) alarm(0);
-       if (mf->readyL & R_LOADING)
-               if (mf->readyL & R_DOUBLE)
-                       mf->readyL = R_LOADING;
-               else
-                       mf->readyL = R_LOADED;
-       if (mf->readyR & R_LOADING)
-               if (mf->readyR & R_DOUBLE)
-                       mf->readyR = R_LOADING;
-               else
-                       mf->readyR = R_LOADED;
-       movebuf[0] = '\0';
-       Sync();
-       if (turn % 50 == 0)             /* still playing */
-               Write(W_TIME, SHIP(0), 0, 1, 0, 0, 0); /* XXX */
-       windspeed = cc->windspeed;
-       winddir = cc->winddir;
-       turn = cc->turn;
-       if (mf->FS == 1)
-               Write(W_FS, ms, 0, 2, 0, 0, 0);
-       readpos();
-       adjustview();
-
-       screen();
-
-       (void) signal(SIGALRM, newturn);
-       (void) alarm(7);
-}
-
-screen()
-{
-       draw_view();
-       draw_turn();
-       draw_stat();
-       draw_slot();
-       (void) wrefresh(scroll_w);
-}
-
-draw_view()
+lookout()
 {
        register struct ship *sp;
 {
        register struct ship *sp;
+       char buf[3];
+       register char c;
 
 
-       (void) werase(view_w);
+       sgetstr("What ship? ", buf, sizeof buf);
        foreachship(sp) {
        foreachship(sp) {
-               if (sp->file->dir
-                   && sp->file->row > viewrow
-                   && sp->file->row < viewrow + VIEW_Y
-                   && sp->file->col > viewcol
-                   && sp->file->col < viewcol + VIEW_X) {
-                       (void) wmove(view_w, sp->file->row - viewrow,
-                               sp->file->col - viewcol);
-                       (void) waddch(view_w, colours(sp));
-                       (void) wmove(view_w,
-                               sternrow(sp) - viewrow,
-                               sterncol(sp) - viewcol);
-                       (void) waddch(view_w, sterncolour(sp));
+               c = *countryname[sp->nationality];
+               if ((c == *buf || tolower(c) == *buf || colours(sp) == *buf)
+                   && (sp->file->stern == buf[1] || sterncolour(sp) == buf[1]
+                       || buf[1] == '?')) {
+                       eyeball(sp);
                }
        }
                }
        }
-       (void) wrefresh(view_w);
-}
-
-draw_turn()
-{
-       (void) wmove(turn_w, 0, 0);
-       (void) wprintw(turn_w, "Turn %d", turn);
-       (void) wrefresh(turn_w);
 }
 
 }
 
-draw_stat()
-{
-       (void) wmove(stat_w, STAT_1, 0);
-       (void) wprintw(stat_w, "Points  %3d\n", mf->points);
-       (void) wprintw(stat_w, "Fouls    %2d\n", fouled(ms));
-       (void) wprintw(stat_w, "Grapples %2d\n", grappled(ms));
-
-       (void) wmove(stat_w, STAT_2, 0);
-       (void) wprintw(stat_w, "    0 %c(%c)\n",
-               maxmove(ms, winddir + 3, -1) + '0',
-               maxmove(ms, winddir + 3, 1) + '0');
-       (void) waddstr(stat_w, "   \\|/\n");
-       (void) wprintw(stat_w, "   -^-%c(%c)\n",
-               maxmove(ms, winddir + 2, -1) + '0',
-               maxmove(ms, winddir + 2, 1) + '0');
-       (void) waddstr(stat_w, "   /|\\\n");
-       (void) wprintw(stat_w, "    | %c(%c)\n",
-               maxmove(ms, winddir + 1, -1) + '0',
-               maxmove(ms, winddir + 1, 1) + '0');
-       (void) wprintw(stat_w, "   %c(%c)\n",
-               maxmove(ms, winddir, -1) + '0',
-               maxmove(ms, winddir, 1) + '0');
-
-       (void) wmove(stat_w, STAT_3, 0);
-       (void) wprintw(stat_w, "Load  %c%c %c%c\n",
-               loadname[mf->loadL], readyname(mf->readyL),
-               loadname[mf->loadR], readyname(mf->readyR));
-       (void) wprintw(stat_w, "Hull %2d\n", mc->hull);
-       (void) wprintw(stat_w, "Crew %2d %2d %2d\n",
-               mc->crew1, mc->crew2, mc->crew3);
-       (void) wprintw(stat_w, "Guns %2d %2d\n", mc->gunL, mc->gunR);
-       (void) wprintw(stat_w, "Carr %2d %2d\n", mc->carR, mc->carL);
-       (void) wprintw(stat_w, "Rigg %d %d %d ", mc->rig1, mc->rig2, mc->rig3);
-       if (mc->rig4 < 0)
-               (void) waddch(stat_w, '-');
-       else
-               (void) wprintw(stat_w, "%d", mc->rig4);
-       (void) wrefresh(stat_w);
-}
-
-draw_slot()
+char *
+saywhat(sp, flag)
+register struct ship *sp;
+char flag;
 {
 {
-       if (!boarding(ms, 0)) {
-               (void) mvwaddstr(slot_w, 0, 0, "   ");
-               (void) mvwaddstr(slot_w, 1, 0, "   ");
-       } else
-               (void) mvwaddstr(slot_w, 1, 0, "OBP");
-       if (!boarding(ms, 1)) {
-               (void) mvwaddstr(slot_w, 2, 0, "   ");
-               (void) mvwaddstr(slot_w, 3, 0, "   ");
-       } else
-               (void) mvwaddstr(slot_w, 3, 0, "DBP");
-
-       (void) wmove(slot_w, SLOT_Y-4, 0);
-       if (mf->RH)
-               (void) wprintw(slot_w, "%dRH", mf->RH);
+       if (sp->file->captain[0])
+               return sp->file->captain;
+       else if (sp->file->struck)
+               return "(struck)";
+       else if (sp->file->captured != 0)
+               return "(captured)";
+       else if (flag)
+               return "(available)";
        else
        else
-               (void) waddstr(slot_w, "   ");
-       (void) wmove(slot_w, SLOT_Y-3, 0);
-       if (mf->RG)
-               (void) wprintw(slot_w, "%dRG", mf->RG);
-       else
-               (void) waddstr(slot_w, "   ");
-       (void) wmove(slot_w, SLOT_Y-2, 0);
-       if (mf->RR)
-               (void) wprintw(slot_w, "%dRR", mf->RR);
-       else
-               (void) waddstr(slot_w, "   ");
-
-#define Y      (SLOT_Y/2)
-       (void) wmove(slot_w, 7, 1);
-       (void) wprintw(slot_w,"%d", windspeed);
-       (void) mvwaddch(slot_w, Y, 0, ' ');
-       (void) mvwaddch(slot_w, Y, 2, ' ');
-       (void) mvwaddch(slot_w, Y-1, 0, ' ');
-       (void) mvwaddch(slot_w, Y-1, 1, ' ');
-       (void) mvwaddch(slot_w, Y-1, 2, ' ');
-       (void) mvwaddch(slot_w, Y+1, 0, ' ');
-       (void) mvwaddch(slot_w, Y+1, 1, ' ');
-       (void) mvwaddch(slot_w, Y+1, 2, ' ');
-       (void) wmove(slot_w, Y - dr[winddir], 1 - dc[winddir]);
-       switch (winddir) {
-       case 1:
-       case 5:
-               (void) waddch(slot_w, '|');
-               break;
-       case 2:
-       case 6:
-               (void) waddch(slot_w, '/');
-               break;
-       case 3:
-       case 7:
-               (void) waddch(slot_w, '-');
-               break;
-       case 4:
-       case 8:
-               (void) waddch(slot_w, '\\');
-               break;
-       }
-       (void) mvwaddch(slot_w, Y + dr[winddir], 1 + dc[winddir], '+');
-       (void) wrefresh(slot_w);
+               return "(computer)";
 }
 
 }
 
-board()
+eyeball(ship)
+register struct ship *ship;
 {
 {
-       register int n;
-
-       (void) clear();
-       (void) werase(view_w);
-       (void) werase(slot_w);
-       (void) werase(scroll_w);
-       (void) werase(stat_w);
-       (void) werase(turn_w);
-
-       (void) move(BOX_T, BOX_L);
-       for (n = 0; n < BOX_X; n++)
-               (void) addch('-');
-       (void) move(BOX_B, BOX_L);
-       for (n = 0; n < BOX_X; n++)
-               (void) addch('-');
-       for (n = BOX_T+1; n < BOX_B; n++) {
-               (void) mvaddch(n, BOX_L, '|');
-               (void) mvaddch(n, BOX_R, '|');
+       int i;
+
+       if (ship->file->dir != 0) {
+               Signal("Sail ho! (range %d, %s)",
+                       (struct ship *)0, range(ms, ship), saywhat(ship, 0));
+               i = portside(ms, ship, 1) - mf->dir;
+               if (i <= 0)
+                       i += 8;
+               Signal("%s (%c%c) %s %s %s.",
+                       ship, countryname[ship->nationality],
+                       classname[ship->specs->class], directionname[i]);
        }
        }
-       (void) mvaddch(BOX_T, BOX_L, '+');
-       (void) mvaddch(BOX_T, BOX_R, '+');
-       (void) mvaddch(BOX_B, BOX_L, '+');
-       (void) mvaddch(BOX_B, BOX_R, '+');
-       (void) refresh();
-
-#define WSaIM "Wooden Ships & Iron Men"
-       (void) wmove(view_w, 2, (VIEW_X - sizeof WSaIM - 1) / 2);
-       (void) waddstr(view_w, WSaIM);
-       (void) wmove(view_w, 4, (VIEW_X - strlen(cc->name)) / 2);
-       (void) waddstr(view_w, cc->name);
-       (void) wrefresh(view_w);
-
-       (void) move(LINE_T, LINE_L);
-       (void) printw("Class %d %s (%d guns) '%s' (%c%c)",
-               mc->class,
-               classname[mc->class],
-               mc->guns,
-               ms->shipname,
-               colours(ms),
-               sterncolour(ms));
-       (void) refresh();
-}
-
-initscreen()
-{
-       (void) initscr();
-       view_w = newwin(VIEW_Y, VIEW_X, VIEW_T, VIEW_L);
-       slot_w = newwin(SLOT_Y, SLOT_X, SLOT_T, SLOT_L);
-       scroll_w = newwin(SCROLL_Y, SCROLL_X, SCROLL_T, SCROLL_L);
-       stat_w = newwin(STAT_Y, STAT_X, STAT_T, STAT_L);
-       turn_w = newwin(TURN_Y, TURN_X, TURN_T, TURN_L);
-       done_curses++;
-       noecho();
-       crmode();
-}
-
-centerview()
-{
-       viewrow = mf->row - VIEW_Y / 2;
-       viewcol = mf->col - VIEW_X / 2;
-}
-
-upview()
-{
-       viewrow -= VIEW_Y / 3;
-}
-
-downview()
-{
-       viewrow += VIEW_Y / 3;
-}
-
-leftview()
-{
-       viewcol -= VIEW_X / 5;
-}
-
-rightview()
-{
-       viewcol += VIEW_X / 5;
-}
-
-adjustview()
-{
-       if (dont_adjust)
-               return;                 /* don't adjust if out of sight */
-       if (mf->row < viewrow + VIEW_Y/4)
-               viewrow = mf->row - (VIEW_Y - VIEW_Y/4);
-       else if (mf->row > viewrow + (VIEW_Y - VIEW_Y/4))
-               viewrow = mf->row - VIEW_Y/4;
-       if (mf->col < viewcol + VIEW_X/8)
-               viewcol = mf->col - (VIEW_X - VIEW_X/8);
-       else if (mf->col > viewcol + (VIEW_X - VIEW_X/8))
-               viewcol = mf->col - VIEW_X/8;
 }
 }
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.