* Copyright (c) 1980 Regents of the University of California.
* All rights reserved. The Berkeley software License Agreement
* specifies the terms and conditions for redistribution.
static char sccsid
[] = "@(#)snova.c 5.1 (Berkeley) 5/30/85";
** CAUSE SUPERNOVA TO OCCUR
** A supernova occurs. If 'ix' < 0, a random quadrant is chosen;
** otherwise, the current quadrant is taken, and (ix, iy) give
** the sector quadrants of the star which is blowing up.
** If the supernova turns out to be in the quadrant you are in,
** you go into "emergency override mode", which tries to get you
** out of the quadrant as fast as possible. However, if you
** don't have enough fuel, or if you by chance run into something,
** or some such thing, you blow up anyway. Oh yeh, if you are
** within two sectors of the star, there is nothing that can
** When a star has gone supernova, the quadrant becomes uninhab-
** itable for the rest of eternity, i.e., the game. If you ever
** try stopping in such a quadrant, you will go into emergency
if (Ship
.quadx
== qx
&& Ship
.quady
== qy
)
/* select a particular star */
for (ix
= 0; ix
< NSECTS
; ix
++)
for (iy
= 0; iy
< NSECTS
; iy
++)
if (Sect
[ix
][iy
] == STAR
|| Sect
[ix
][iy
] == INHABIT
)
/* supernova is in same quadrant as Enterprise */
printf("\a\nRED ALERT: supernova occuring at %d,%d\n", ix
, iy
);
if (dx
* dx
+ dy
* dy
<= 2)
printf("*** Emergency override attem");
printf("\nUhura: Captain, Starfleet Command reports a supernova\n");
printf(" in quadrant %d,%d. Caution is advised\n", qx
, qy
);
/* clear out the supernova'ed quadrant */
/* Enterprise caused supernova */
printf("Lucky devil, that supernova destroyed the last klingon\n");