1/*	$NetBSD: lrscan.c,v 1.9 2009/05/24 21:44:56 dholland Exp $	*/
2
3/*
4 * Copyright (c) 1980, 1993
5 *	The Regents of the University of California.  All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 *    notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 *    notice, this list of conditions and the following disclaimer in the
14 *    documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 *    may be used to endorse or promote products derived from this software
17 *    without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32#include <sys/cdefs.h>
33#ifndef lint
34#if 0
35static char sccsid[] = "@(#)lrscan.c	8.1 (Berkeley) 5/31/93";
36#else
37__RCSID("$NetBSD: lrscan.c,v 1.9 2009/05/24 21:44:56 dholland Exp $");
38#endif
39#endif /* not lint */
40
41#include <stdio.h>
42#include "trek.h"
43
44/*
45**  LONG RANGE OF SCANNERS
46**
47**	A summary of the quadrants that surround you is printed.  The
48**	hundreds digit is the number of Klingons in the quadrant,
49**	the tens digit is the number of starbases, and the units digit
50**	is the number of stars.  If the printout is "///" it means
51**	that that quadrant is rendered uninhabitable by a supernova.
52**	It also updates the "scanned" field of the quadrants it scans,
53**	for future use by the "chart" option of the computer.
54*/
55
56/*ARGSUSED*/
57void
58lrscan(int v __unused)
59{
60	int		i, j;
61	struct quad	*q;
62
63	if (check_out(LRSCAN)) {
64		return;
65	}
66	printf("Long range scan for quadrant %d,%d\n\n",
67		Ship.quadx, Ship.quady);
68
69	/* print the header on top */
70	for (j = Ship.quady - 1; j <= Ship.quady + 1; j++) {
71		if (j < 0 || j >= NQUADS)
72			printf("      ");
73		else
74			printf("     %1d", j);
75	}
76
77	/* scan the quadrants */
78	for (i = Ship.quadx - 1; i <= Ship.quadx + 1; i++) {
79		printf("\n  -------------------\n");
80		if (i < 0 || i >= NQUADS) {
81			/* negative energy barrier */
82			printf("  !  *  !  *  !  *  !");
83			continue;
84		}
85
86		/* print the left hand margin */
87		printf("%1d !", i);
88		for (j = Ship.quady - 1; j <= Ship.quady + 1; j++) {
89			if (j < 0 || j >= NQUADS) {
90				/* negative energy barrier again */
91				printf("  *  !");
92				continue;
93			}
94			q = &Quad[i][j];
95			if (q->stars < 0) {
96				/* supernova */
97				printf(" /// !");
98				q->scanned = 1000;
99				continue;
100			}
101			q->scanned = q->klings * 100 + q->bases * 10 + q->stars;
102			printf(" %3d !", q->scanned);
103		}
104	}
105	printf("\n  -------------------\n");
106	return;
107}
108