161914588Smckusick /*
2*e8c4bdd9Sbostic * Copyright (c) 1980, 1993
3*e8c4bdd9Sbostic * The Regents of the University of California. All rights reserved.
4afcc7e22Sbostic *
5a748a06eSbostic * %sccs.include.redist.c%
661914588Smckusick */
761914588Smckusick
835bddc3bSmckusick #ifndef lint
9*e8c4bdd9Sbostic static char sccsid[] = "@(#)klmove.c 8.1 (Berkeley) 05/31/93";
10afcc7e22Sbostic #endif /* not lint */
1135bddc3bSmckusick
1235bddc3bSmckusick # include "trek.h"
1335bddc3bSmckusick
1435bddc3bSmckusick /*
1535bddc3bSmckusick ** Move Klingons Around
1635bddc3bSmckusick **
1735bddc3bSmckusick ** This is a largely incomprehensible block of code that moves
1835bddc3bSmckusick ** Klingons around in a quadrant. It was written in a very
1935bddc3bSmckusick ** "program as you go" fashion, and is a prime candidate for
2035bddc3bSmckusick ** rewriting.
2135bddc3bSmckusick **
2235bddc3bSmckusick ** The flag `fl' is zero before an attack, one after an attack,
2335bddc3bSmckusick ** and two if you are leaving a quadrant. This serves to
2435bddc3bSmckusick ** change the probability and distance that it moves.
2535bddc3bSmckusick **
2635bddc3bSmckusick ** Basically, what it will try to do is to move a certain number
2735bddc3bSmckusick ** of steps either toward you or away from you. It will avoid
2835bddc3bSmckusick ** stars whenever possible. Nextx and nexty are the next
2935bddc3bSmckusick ** sector to move to on a per-Klingon basis; they are roughly
3035bddc3bSmckusick ** equivalent to Ship.sectx and Ship.secty for the starship. Lookx and
3135bddc3bSmckusick ** looky are the sector that you are going to look at to see
3235bddc3bSmckusick ** if you can move their. Dx and dy are the increment. Fudgex
3335bddc3bSmckusick ** and fudgey are the things you change around to change your
3435bddc3bSmckusick ** course around stars.
3535bddc3bSmckusick */
3635bddc3bSmckusick
klmove(fl)3735bddc3bSmckusick klmove(fl)
3835bddc3bSmckusick int fl;
3935bddc3bSmckusick {
4035bddc3bSmckusick int n;
4135bddc3bSmckusick register struct kling *k;
4235bddc3bSmckusick double dx, dy;
4335bddc3bSmckusick int nextx, nexty;
4435bddc3bSmckusick register int lookx, looky;
4535bddc3bSmckusick int motion;
4635bddc3bSmckusick int fudgex, fudgey;
4735bddc3bSmckusick int qx, qy;
4835bddc3bSmckusick double bigger;
4935bddc3bSmckusick int i;
5035bddc3bSmckusick
5135bddc3bSmckusick # ifdef xTRACE
5235bddc3bSmckusick if (Trace)
5335bddc3bSmckusick printf("klmove: fl = %d, Etc.nkling = %d\n", fl, Etc.nkling);
5435bddc3bSmckusick # endif
5535bddc3bSmckusick for (n = 0; n < Etc.nkling; k && n++)
5635bddc3bSmckusick {
5735bddc3bSmckusick k = &Etc.klingon[n];
5835bddc3bSmckusick i = 100;
5935bddc3bSmckusick if (fl)
6035bddc3bSmckusick i = 100.0 * k->power / Param.klingpwr;
6135bddc3bSmckusick if (ranf(i) >= Param.moveprob[2 * Move.newquad + fl])
6235bddc3bSmckusick continue;
6335bddc3bSmckusick /* compute distance to move */
6435bddc3bSmckusick motion = ranf(75) - 25;
65da23d31aSlayer motion *= k->avgdist * Param.movefac[2 * Move.newquad + fl];
6635bddc3bSmckusick /* compute direction */
6735bddc3bSmckusick dx = Ship.sectx - k->x + ranf(3) - 1;
6835bddc3bSmckusick dy = Ship.secty - k->y + ranf(3) - 1;
6935bddc3bSmckusick bigger = dx;
7035bddc3bSmckusick if (dy > bigger)
7135bddc3bSmckusick bigger = dy;
7235bddc3bSmckusick if (bigger == 0.0)
7335bddc3bSmckusick bigger = 1.0;
7435bddc3bSmckusick dx = dx / bigger + 0.5;
7535bddc3bSmckusick dy = dy / bigger + 0.5;
7635bddc3bSmckusick if (motion < 0)
7735bddc3bSmckusick {
7835bddc3bSmckusick motion = -motion;
7935bddc3bSmckusick dx = -dx;
8035bddc3bSmckusick dy = -dy;
8135bddc3bSmckusick }
8235bddc3bSmckusick fudgex = fudgey = 1;
8335bddc3bSmckusick /* try to move the klingon */
8435bddc3bSmckusick nextx = k->x;
8535bddc3bSmckusick nexty = k->y;
8635bddc3bSmckusick for (; motion > 0; motion--)
8735bddc3bSmckusick {
8835bddc3bSmckusick lookx = nextx + dx;
8935bddc3bSmckusick looky = nexty + dy;
9035bddc3bSmckusick if (lookx < 0 || lookx >= NSECTS || looky < 0 || looky >= NSECTS)
9135bddc3bSmckusick {
9235bddc3bSmckusick /* new quadrant */
9335bddc3bSmckusick qx = Ship.quadx;
9435bddc3bSmckusick qy = Ship.quady;
9535bddc3bSmckusick if (lookx < 0)
96da23d31aSlayer qx -= 1;
9735bddc3bSmckusick else
9835bddc3bSmckusick if (lookx >= NSECTS)
99da23d31aSlayer qx += 1;
10035bddc3bSmckusick if (looky < 0)
101da23d31aSlayer qy -= 1;
10235bddc3bSmckusick else
10335bddc3bSmckusick if (looky >= NSECTS)
104da23d31aSlayer qy += 1;
10535bddc3bSmckusick if (qx < 0 || qx >= NQUADS || qy < 0 || qy >= NQUADS ||
10635bddc3bSmckusick Quad[qx][qy].stars < 0 || Quad[qx][qy].klings > MAXKLQUAD - 1)
10735bddc3bSmckusick break;
10835bddc3bSmckusick if (!damaged(SRSCAN))
10935bddc3bSmckusick {
11035bddc3bSmckusick printf("Klingon at %d,%d escapes to quadrant %d,%d\n",
11135bddc3bSmckusick k->x, k->y, qx, qy);
11235bddc3bSmckusick motion = Quad[qx][qy].scanned;
11335bddc3bSmckusick if (motion >= 0 && motion < 1000)
114da23d31aSlayer Quad[qx][qy].scanned += 100;
11535bddc3bSmckusick motion = Quad[Ship.quadx][Ship.quady].scanned;
11635bddc3bSmckusick if (motion >= 0 && motion < 1000)
117da23d31aSlayer Quad[Ship.quadx][Ship.quady].scanned -= 100;
11835bddc3bSmckusick }
11935bddc3bSmckusick Sect[k->x][k->y] = EMPTY;
120da23d31aSlayer Quad[qx][qy].klings += 1;
121da23d31aSlayer Etc.nkling -= 1;
12235bddc3bSmckusick bmove(&Etc.klingon[Etc.nkling], k, sizeof *k);
123da23d31aSlayer Quad[Ship.quadx][Ship.quady].klings -= 1;
12435bddc3bSmckusick k = 0;
12535bddc3bSmckusick break;
12635bddc3bSmckusick }
12735bddc3bSmckusick if (Sect[lookx][looky] != EMPTY)
12835bddc3bSmckusick {
12935bddc3bSmckusick lookx = nextx + fudgex;
13035bddc3bSmckusick if (lookx < 0 || lookx >= NSECTS)
13135bddc3bSmckusick lookx = nextx + dx;
13235bddc3bSmckusick if (Sect[lookx][looky] != EMPTY)
13335bddc3bSmckusick {
13435bddc3bSmckusick fudgex = -fudgex;
13535bddc3bSmckusick looky = nexty + fudgey;
13635bddc3bSmckusick if (looky < 0 || looky >= NSECTS || Sect[lookx][looky] != EMPTY)
13735bddc3bSmckusick {
13835bddc3bSmckusick fudgey = -fudgey;
13935bddc3bSmckusick break;
14035bddc3bSmckusick }
14135bddc3bSmckusick }
14235bddc3bSmckusick }
14335bddc3bSmckusick nextx = lookx;
14435bddc3bSmckusick nexty = looky;
14535bddc3bSmckusick }
14635bddc3bSmckusick if (k && (k->x != nextx || k->y != nexty))
14735bddc3bSmckusick {
14835bddc3bSmckusick if (!damaged(SRSCAN))
14935bddc3bSmckusick printf("Klingon at %d,%d moves to %d,%d\n",
15035bddc3bSmckusick k->x, k->y, nextx, nexty);
15135bddc3bSmckusick Sect[k->x][k->y] = EMPTY;
15235bddc3bSmckusick Sect[k->x = nextx][k->y = nexty] = KLINGON;
15335bddc3bSmckusick }
15435bddc3bSmckusick }
15535bddc3bSmckusick compkldist(0);
15635bddc3bSmckusick }
157