date and time created 83/03/23 15:00:16 by mckusick

[unix-history] / usr / src / games / trek / lrscan.c

#ifndef lint
static char sccsid[] = "@(#)lrscan.c    4.1     (Berkeley)      %G%";
#endif not lint

# include       "trek.h"

/*
**  LONG RANGE OF SCANNERS
**
**      A summary of the quadrants that surround you is printed.  The
**      hundreds digit is the number of Klingons in the quadrant,
**      the tens digit is the number of starbases, and the units digit
**      is the number of stars.  If the printout is "///" it means
**      that that quadrant is rendered uninhabitable by a supernova.
**      It also updates the "scanned" field of the quadrants it scans,
**      for future use by the "chart" option of the computer.
*/

lrscan()
{
       register int                    i, j;
       register struct quad            *q;

       if (check_out(LRSCAN))
       {
               return;
       }
       printf("Long range scan for quadrant %d,%d\n\n", Ship.quadx, Ship.quady);

       /* print the header on top */
       for (j = Ship.quady - 1; j <= Ship.quady + 1; j++)
       {
               if (j < 0 || j >= NQUADS)
                       printf("      ");
               else
                       printf("     %1d", j);
       }

       /* scan the quadrants */
       for (i = Ship.quadx - 1; i <= Ship.quadx + 1; i++)
       {
               printf("\n  -------------------\n");
               if (i < 0 || i >= NQUADS)
               {
                       /* negative energy barrier */
                       printf("  !  *  !  *  !  *  !");
                       continue;
               }

               /* print the left hand margin */
               printf("%1d !", i);
               for (j = Ship.quady - 1; j <= Ship.quady + 1; j++)
               {
                       if (j < 0 || j >= NQUADS)
                       {
                               /* negative energy barrier again */
                               printf("  *  !");
                               continue;
                       }
                       q = &Quad[i][j];
                       if (q->stars < 0)
                       {
                               /* supernova */
                               printf(" /// !");
                               q->scanned = 1000;
                               continue;
                       }
                       q->scanned = q->klings * 100 + q->bases * 10 + q->stars;
                       printf(" %3d !", q->scanned);
               }
       }
       printf("\n  -------------------\n");
       return;
}