* Copyright (c) 1980 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
static char sccsid
[] = "@(#)initquad.c 5.2 (Berkeley) %G%";
** Paramize Quadrant Upon Entering
** A quadrant is initialized from the information held in the
** Quad matrix. Basically, everything is just initialized
** randomly, except for the starship, which goes into a fixed
** If there are Klingons in the quadrant, the captain is informed
** that the condition is RED, and he is given a chance to put
** his shields up if the computer is working.
** The flag `f' is set to disable the check for condition red.
** This mode is used in situations where you know you are going
** to be docked, i.e., abandon() and help().
q
= &Quad
[Ship
.quadx
][Ship
.quady
];
/* ignored supernova'ed quadrants (this is checked again later anyway */
/* have we blundered into a battle zone w/ shields down? */
if (Etc
.nkling
> 0 && !f
)
printf("Condition RED\n");
/* clear out the quadrant */
for (i
= 0; i
< NSECTS
; i
++)
for (j
= 0; j
< NSECTS
; j
++)
/* initialize Enterprise */
Sect
[Ship
.sectx
][Ship
.secty
] = Ship
.ship
;
/* initialize Klingons */
for (i
= 0; i
< Etc
.nkling
; i
++)
Etc
.klingon
[i
].power
= Param
.klingpwr
;
Etc
.klingon
[i
].srndreq
= 0;
/* initialize star base */
/* initialize inhabited starsystem */
/* initialize black holes */
for (i
= 0; i
< nholes
; i
++)
for (i
= 0; i
< nstars
; i
++)
} while (Sect
[i
][j
] != EMPTY
);