* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
static char sccsid
[] = "@(#)klmove.c 5.4 (Berkeley) 6/1/90";
** This is a largely incomprehensible block of code that moves
** Klingons around in a quadrant. It was written in a very
** "program as you go" fashion, and is a prime candidate for
** The flag `fl' is zero before an attack, one after an attack,
** and two if you are leaving a quadrant. This serves to
** change the probability and distance that it moves.
** Basically, what it will try to do is to move a certain number
** of steps either toward you or away from you. It will avoid
** stars whenever possible. Nextx and nexty are the next
** sector to move to on a per-Klingon basis; they are roughly
** equivalent to Ship.sectx and Ship.secty for the starship. Lookx and
** looky are the sector that you are going to look at to see
** if you can move their. Dx and dy are the increment. Fudgex
** and fudgey are the things you change around to change your
register struct kling
*k
;
register int lookx
, looky
;
printf("klmove: fl = %d, Etc.nkling = %d\n", fl
, Etc
.nkling
);
for (n
= 0; n
< Etc
.nkling
; k
&& n
++)
i
= 100.0 * k
->power
/ Param
.klingpwr
;
if (ranf(i
) >= Param
.moveprob
[2 * Move
.newquad
+ fl
])
/* compute distance to move */
motion
*= k
->avgdist
* Param
.movefac
[2 * Move
.newquad
+ fl
];
dx
= Ship
.sectx
- k
->x
+ ranf(3) - 1;
dy
= Ship
.secty
- k
->y
+ ranf(3) - 1;
/* try to move the klingon */
for (; motion
> 0; motion
--)
if (lookx
< 0 || lookx
>= NSECTS
|| looky
< 0 || looky
>= NSECTS
)
if (qx
< 0 || qx
>= NQUADS
|| qy
< 0 || qy
>= NQUADS
||
Quad
[qx
][qy
].stars
< 0 || Quad
[qx
][qy
].klings
> MAXKLQUAD
- 1)
printf("Klingon at %d,%d escapes to quadrant %d,%d\n",
motion
= Quad
[qx
][qy
].scanned
;
if (motion
>= 0 && motion
< 1000)
Quad
[qx
][qy
].scanned
+= 100;
motion
= Quad
[Ship
.quadx
][Ship
.quady
].scanned
;
if (motion
>= 0 && motion
< 1000)
Quad
[Ship
.quadx
][Ship
.quady
].scanned
-= 100;
Sect
[k
->x
][k
->y
] = EMPTY
;
Quad
[qx
][qy
].klings
+= 1;
bmove(&Etc
.klingon
[Etc
.nkling
], k
, sizeof *k
);
Quad
[Ship
.quadx
][Ship
.quady
].klings
-= 1;
if (Sect
[lookx
][looky
] != EMPTY
)
if (lookx
< 0 || lookx
>= NSECTS
)
if (Sect
[lookx
][looky
] != EMPTY
)
if (looky
< 0 || looky
>= NSECTS
|| Sect
[lookx
][looky
] != EMPTY
)
if (k
&& (k
->x
!= nextx
|| k
->y
!= nexty
))
printf("Klingon at %d,%d moves to %d,%d\n",
k
->x
, k
->y
, nextx
, nexty
);
Sect
[k
->x
][k
->y
] = EMPTY
;
Sect
[k
->x
= nextx
][k
->y
= nexty
] = KLINGON
;