Sync usage with man page.
[netbsd-mini2440.git] / games / trek / initquad.c
blob547cad478bfa96d1ddc2f01f70227b2bcf92977e
1 /* $NetBSD: initquad.c,v 1.6 2009/05/24 19:18:44 dholland Exp $ */
3 /*
4 * Copyright (c) 1980, 1993
5 * The Regents of the University of California. All rights reserved.
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.
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.
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.6 2009/05/24 19:18:44 dholland Exp $");
38 #endif
39 #endif /* not lint */
41 #include <stdio.h>
42 #include "trek.h"
45 ** Paramize Quadrant Upon Entering
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.
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.
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().
61 void
62 initquad(int f)
64 int i, j;
65 int rx, ry;
66 int nbases, nstars;
67 struct quad *q;
68 int nholes;
70 q = &Quad[Ship.quadx][Ship.quady];
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;
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);
88 /* clear out the quadrant */
89 for (i = 0; i < NSECTS; i++)
90 for (j = 0; j < NSECTS; j++)
91 Sect[i][j] = EMPTY;
93 /* initialize Enterprise */
94 Sect[Ship.sectx][Ship.secty] = Ship.ship;
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;
105 compkldist(1);
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;
115 /* initialize inhabited starsystem */
116 if (q->qsystemname != 0) {
117 sector(&rx, &ry);
118 Sect[rx][ry] = INHABIT;
119 nstars -= 1;
122 /* initialize black holes */
123 for (i = 0; i < nholes; i++) {
124 sector(&rx, &ry);
125 Sect[rx][ry] = HOLE;
128 /* initialize stars */
129 for (i = 0; i < nstars; i++) {
130 sector(&rx, &ry);
131 Sect[rx][ry] = STAR;
133 Move.newquad = 1;
137 void
138 sector(int *x, int *y)
140 int i, j;
142 do {
143 i = ranf(NSECTS);
144 j = ranf(NSECTS);
145 } while (Sect[i][j] != EMPTY);
146 *x = i;
147 *y = j;
148 return;