1 /* $NetBSD: initquad.c,v 1.7 2009/05/24 21:44:56 dholland 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. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33 #ifndef lint
34 #if 0
35 static char sccsid[] = "@(#)initquad.c 8.1 (Berkeley) 5/31/93";
36 #else
37 __RCSID("$NetBSD: initquad.c,v 1.7 2009/05/24 21:44:56 dholland Exp $");
38 #endif
39 #endif /* not lint */
40
41 #include <stdio.h>
42 #include "trek.h"
43
44 /*
45 ** Paramize Quadrant Upon Entering
46 **
47 ** A quadrant is initialized from the information held in the
48 ** Quad matrix. Basically, everything is just initialized
49 ** randomly, except for the starship, which goes into a fixed
50 ** sector.
51 **
52 ** If there are Klingons in the quadrant, the captain is informed
53 ** that the condition is RED, and he is given a chance to put
54 ** his shields up if the computer is working.
55 **
56 ** The flag `f' is set to disable the check for condition red.
57 ** This mode is used in situations where you know you are going
58 ** to be docked, i.e., abandon() and help().
59 */
60
61 void
initquad(int f)62 initquad(int f)
63 {
64 int i, j;
65 int rx, ry;
66 int nbases, nstars;
67 struct quad *q;
68 int nholes;
69
70 q = &Quad[Ship.quadx][Ship.quady];
71
72 /* ignored supernova'ed quadrants (this is checked again later anyway */
73 if (q->stars < 0)
74 return;
75 Etc.nkling = q->klings;
76 nbases = q->bases;
77 nstars = q->stars;
78 nholes = q->holes;
79
80 /* have we blundered into a battle zone w/ shields down? */
81 if (Etc.nkling > 0 && !f) {
82 printf("Condition RED\n");
83 Ship.cond = RED;
84 if (!damaged(COMPUTER))
85 shield(1);
86 }
87
88 /* clear out the quadrant */
89 for (i = 0; i < NSECTS; i++)
90 for (j = 0; j < NSECTS; j++)
91 Sect[i][j] = EMPTY;
92
93 /* initialize Enterprise */
94 Sect[Ship.sectx][Ship.secty] = Ship.ship;
95
96 /* initialize Klingons */
97 for (i = 0; i < Etc.nkling; i++) {
98 sector(&rx, &ry);
99 Sect[rx][ry] = KLINGON;
100 Etc.klingon[i].x = rx;
101 Etc.klingon[i].y = ry;
102 Etc.klingon[i].power = Param.klingpwr;
103 Etc.klingon[i].srndreq = 0;
104 }
105 compkldist(1);
106
107 /* initialize star base */
108 if (nbases > 0) {
109 sector(&rx, &ry);
110 Sect[rx][ry] = BASE;
111 Etc.starbase.x = rx;
112 Etc.starbase.y = ry;
113 }
114
115 /* initialize inhabited starsystem */
116 if (q->qsystemname != 0) {
117 sector(&rx, &ry);
118 Sect[rx][ry] = INHABIT;
119 nstars -= 1;
120 }
121
122 /* initialize black holes */
123 for (i = 0; i < nholes; i++) {
124 sector(&rx, &ry);
125 Sect[rx][ry] = HOLE;
126 }
127
128 /* initialize stars */
129 for (i = 0; i < nstars; i++) {
130 sector(&rx, &ry);
131 Sect[rx][ry] = STAR;
132 }
133 Move.newquad = 1;
134 }
135
136
137 void
sector(int * x,int * y)138 sector(int *x, int *y)
139 {
140 int i, j;
141
142 do {
143 i = ranf(NSECTS);
144 j = ranf(NSECTS);
145 } while (Sect[i][j] != EMPTY);
146 *x = i;
147 *y = j;
148 return;
149 }
150