1 /* $NetBSD: klmove.c,v 1.4 1997/10/12 21:24:57 christos 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. All advertising materials mentioning features or use of this software 16 * must display the following acknowledgement: 17 * This product includes software developed by the University of 18 * California, Berkeley and its contributors. 19 * 4. Neither the name of the University nor the names of its contributors 20 * may be used to endorse or promote products derived from this software 21 * without specific prior written permission. 22 * 23 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 24 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 25 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 26 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 27 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 28 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 29 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 30 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 31 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 32 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 33 * SUCH DAMAGE. 34 */ 35 36 #include <sys/cdefs.h> 37 #ifndef lint 38 #if 0 39 static char sccsid[] = "@(#)klmove.c 8.1 (Berkeley) 5/31/93"; 40 #else 41 __RCSID("$NetBSD: klmove.c,v 1.4 1997/10/12 21:24:57 christos Exp $"); 42 #endif 43 #endif /* not lint */ 44 45 #include <stdio.h> 46 #include "trek.h" 47 48 /* 49 ** Move Klingons Around 50 ** 51 ** This is a largely incomprehensible block of code that moves 52 ** Klingons around in a quadrant. It was written in a very 53 ** "program as you go" fashion, and is a prime candidate for 54 ** rewriting. 55 ** 56 ** The flag `fl' is zero before an attack, one after an attack, 57 ** and two if you are leaving a quadrant. This serves to 58 ** change the probability and distance that it moves. 59 ** 60 ** Basically, what it will try to do is to move a certain number 61 ** of steps either toward you or away from you. It will avoid 62 ** stars whenever possible. Nextx and nexty are the next 63 ** sector to move to on a per-Klingon basis; they are roughly 64 ** equivalent to Ship.sectx and Ship.secty for the starship. Lookx and 65 ** looky are the sector that you are going to look at to see 66 ** if you can move their. Dx and dy are the increment. Fudgex 67 ** and fudgey are the things you change around to change your 68 ** course around stars. 69 */ 70 71 void 72 klmove(fl) 73 int fl; 74 { 75 int n; 76 struct kling *k; 77 double dx, dy; 78 int nextx, nexty; 79 int lookx, looky; 80 int motion; 81 int fudgex, fudgey; 82 int qx, qy; 83 double bigger; 84 int i; 85 86 # ifdef xTRACE 87 if (Trace) 88 printf("klmove: fl = %d, Etc.nkling = %d\n", fl, Etc.nkling); 89 # endif 90 for (n = 0; n < Etc.nkling; n++) 91 { 92 k = &Etc.klingon[n]; 93 i = 100; 94 if (fl) 95 i = 100.0 * k->power / Param.klingpwr; 96 if (ranf(i) >= Param.moveprob[2 * Move.newquad + fl]) 97 continue; 98 /* compute distance to move */ 99 motion = ranf(75) - 25; 100 motion *= k->avgdist * Param.movefac[2 * Move.newquad + fl]; 101 /* compute direction */ 102 dx = Ship.sectx - k->x + ranf(3) - 1; 103 dy = Ship.secty - k->y + ranf(3) - 1; 104 bigger = dx; 105 if (dy > bigger) 106 bigger = dy; 107 if (bigger == 0.0) 108 bigger = 1.0; 109 dx = dx / bigger + 0.5; 110 dy = dy / bigger + 0.5; 111 if (motion < 0) 112 { 113 motion = -motion; 114 dx = -dx; 115 dy = -dy; 116 } 117 fudgex = fudgey = 1; 118 /* try to move the klingon */ 119 nextx = k->x; 120 nexty = k->y; 121 for (; motion > 0; motion--) 122 { 123 lookx = nextx + dx; 124 looky = nexty + dy; 125 if (lookx < 0 || lookx >= NSECTS || looky < 0 || looky >= NSECTS) 126 { 127 /* new quadrant */ 128 qx = Ship.quadx; 129 qy = Ship.quady; 130 if (lookx < 0) 131 qx -= 1; 132 else 133 if (lookx >= NSECTS) 134 qx += 1; 135 if (looky < 0) 136 qy -= 1; 137 else 138 if (looky >= NSECTS) 139 qy += 1; 140 if (qx < 0 || qx >= NQUADS || qy < 0 || qy >= NQUADS || 141 Quad[qx][qy].stars < 0 || Quad[qx][qy].klings > MAXKLQUAD - 1) 142 break; 143 if (!damaged(SRSCAN)) 144 { 145 printf("Klingon at %d,%d escapes to quadrant %d,%d\n", 146 k->x, k->y, qx, qy); 147 motion = Quad[qx][qy].scanned; 148 if (motion >= 0 && motion < 1000) 149 Quad[qx][qy].scanned += 100; 150 motion = Quad[Ship.quadx][Ship.quady].scanned; 151 if (motion >= 0 && motion < 1000) 152 Quad[Ship.quadx][Ship.quady].scanned -= 100; 153 } 154 Sect[k->x][k->y] = EMPTY; 155 Quad[qx][qy].klings += 1; 156 Etc.nkling -= 1; 157 *k = Etc.klingon[Etc.nkling]; 158 Quad[Ship.quadx][Ship.quady].klings -= 1; 159 k = 0; 160 break; 161 } 162 if (Sect[lookx][looky] != EMPTY) 163 { 164 lookx = nextx + fudgex; 165 if (lookx < 0 || lookx >= NSECTS) 166 lookx = nextx + dx; 167 if (Sect[lookx][looky] != EMPTY) 168 { 169 fudgex = -fudgex; 170 looky = nexty + fudgey; 171 if (looky < 0 || looky >= NSECTS || Sect[lookx][looky] != EMPTY) 172 { 173 fudgey = -fudgey; 174 break; 175 } 176 } 177 } 178 nextx = lookx; 179 nexty = looky; 180 } 181 if (k && (k->x != nextx || k->y != nexty)) 182 { 183 if (!damaged(SRSCAN)) 184 printf("Klingon at %d,%d moves to %d,%d\n", 185 k->x, k->y, nextx, nexty); 186 Sect[k->x][k->y] = EMPTY; 187 Sect[k->x = nextx][k->y = nexty] = KLINGON; 188 } 189 } 190 compkldist(0); 191 } 192