+#ifndef lint
+static char sccsid[] = "@(#)visual.c 4.1 (Berkeley) %G%";
+#endif not lint
+
+# include "trek.h"
+
+/*
+** VISUAL SCAN
+**
+** A visual scan is made in a particular direction of three sectors
+** in the general direction specified. This takes time, and
+** Klingons can attack you, so it should be done only when sensors
+** are out.
+*/
+
+/* This struct[] has the delta x, delta y for particular directions */
+struct xy Visdelta[11]
+{
+ -1, -1,
+ -1, 0,
+ -1, 1,
+ 0, 1,
+ 1, 1,
+ 1, 0,
+ 1, -1,
+ 0, -1,
+ -1, -1,
+ -1, 0,
+ -1, 1
+};
+
+visual()
+{
+ register int ix, iy;
+ int co;
+ register struct xy *v;
+
+ co = getintpar("direction");
+ if (co < 0 || co > 360)
+ return;
+ co = (co + 22) / 45;
+ v = &Visdelta[co];
+ ix = Ship.sectx + v->x;
+ iy = Ship.secty + v->y;
+ if (ix < 0 || ix >= NSECTS || iy < 0 || iy >= NSECTS)
+ co = '?';
+ else
+ co = Sect[ix][iy];
+ printf("%d,%d %c ", ix, iy, co);
+ v++;
+ ix = Ship.sectx + v->x;
+ iy = Ship.secty + v->y;
+ if (ix < 0 || ix >= NSECTS || iy < 0 || iy >= NSECTS)
+ co = '?';
+ else
+ co = Sect[ix][iy];
+ printf("%c ", co);
+ v++;
+ ix = Ship.sectx + v->x;
+ iy = Ship.secty + v->y;
+ if (ix < 0 || ix >= NSECTS || iy < 0 || iy >= NSECTS)
+ co = '?';
+ else
+ co = Sect[ix][iy];
+ printf("%c %d,%d\n", co, ix, iy);
+ Move.time = 0.05;
+ Move.free = 0;
+}