globals.c revision 1.11 1 1.11 jwise /* $NetBSD: globals.c,v 1.11 2001/01/04 03:51:24 jwise Exp $ */
2 1.4 cgd
3 1.1 cgd /*
4 1.4 cgd * Copyright (c) 1983, 1993
5 1.4 cgd * The Regents of the University of California. All rights reserved.
6 1.1 cgd *
7 1.1 cgd * Redistribution and use in source and binary forms, with or without
8 1.1 cgd * modification, are permitted provided that the following conditions
9 1.1 cgd * are met:
10 1.1 cgd * 1. Redistributions of source code must retain the above copyright
11 1.1 cgd * notice, this list of conditions and the following disclaimer.
12 1.1 cgd * 2. Redistributions in binary form must reproduce the above copyright
13 1.1 cgd * notice, this list of conditions and the following disclaimer in the
14 1.1 cgd * documentation and/or other materials provided with the distribution.
15 1.1 cgd * 3. All advertising materials mentioning features or use of this software
16 1.1 cgd * must display the following acknowledgement:
17 1.1 cgd * This product includes software developed by the University of
18 1.1 cgd * California, Berkeley and its contributors.
19 1.1 cgd * 4. Neither the name of the University nor the names of its contributors
20 1.1 cgd * may be used to endorse or promote products derived from this software
21 1.1 cgd * without specific prior written permission.
22 1.1 cgd *
23 1.1 cgd * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24 1.1 cgd * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25 1.1 cgd * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26 1.1 cgd * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27 1.1 cgd * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28 1.1 cgd * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29 1.1 cgd * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30 1.1 cgd * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31 1.1 cgd * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32 1.1 cgd * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33 1.1 cgd * SUCH DAMAGE.
34 1.1 cgd */
35 1.1 cgd
36 1.6 christos #include <sys/cdefs.h>
37 1.1 cgd #ifndef lint
38 1.4 cgd #if 0
39 1.5 tls static char sccsid[] = "@(#)globals.c 8.2 (Berkeley) 4/28/95";
40 1.4 cgd #else
41 1.11 jwise __RCSID("$NetBSD: globals.c,v 1.11 2001/01/04 03:51:24 jwise Exp $");
42 1.4 cgd #endif
43 1.1 cgd #endif /* not lint */
44 1.1 cgd
45 1.11 jwise #include <sys/types.h>
46 1.11 jwise #include <setjmp.h>
47 1.5 tls #include "extern.h"
48 1.1 cgd
49 1.1 cgd struct scenario scene[] = {
50 1.1 cgd /*
51 1.1 cgd * int winddir;
52 1.1 cgd * int windspeed;
53 1.1 cgd * int windchange;
54 1.1 cgd * int vessels;
55 1.1 cgd * char *name;
56 1.1 cgd * struct ship ship[NSHIP];
57 1.1 cgd */
58 1.6 christos { 5, 3, 5, 2, "Ranger vs. Drake",
59 1.6 christos {
60 1.6 christos { "Ranger", specs+0, N_A, 7, 20, 4, 0 },
61 1.6 christos { "Drake", specs+1, N_B, 7, 31, 5, 0 }
62 1.6 christos }
63 1.6 christos },
64 1.6 christos { 1, 3, 6, 2, "The Battle of Flamborough Head",
65 1.6 christos {
66 1.6 christos { "Bonhomme Rich", specs+2, N_A, 13, 40, 2, 0 },
67 1.6 christos { "Serapis", specs+3, N_B, 2, 42, 2, 0 }
68 1.6 christos }
69 1.6 christos },
70 1.6 christos { 5, 5, 5, 10, "Arbuthnot and Des Touches",
71 1.6 christos {
72 1.6 christos { "America", specs+4, N_B, 7, 37, 4, 0 },
73 1.6 christos { "Befford", specs+5, N_B, 5, 35, 4, 0 },
74 1.6 christos { "Adamant", specs+6, N_B, 3, 33, 4, 0 },
75 1.6 christos { "London", specs+7, N_B, 1, 31, 4, 0 },
76 1.6 christos { "Royal Oak", specs+8, N_B, -1, 29, 4, 0 },
77 1.6 christos { "Neptune", specs+9, N_F, 6, 44, 4, 0 },
78 1.6 christos { "Duc Bougogne", specs+10, N_F, 8, 46, 4, 0 },
79 1.6 christos { "Conquerant", specs+48, N_F, 10, 48, 4, 0 },
80 1.6 christos { "Provence", specs+11, N_F, 12, 50, 4, 0 },
81 1.6 christos { "Romulus", specs+12, N_F, 20, 58, 4, 0 }
82 1.6 christos }
83 1.6 christos },
84 1.6 christos { 1, 3, 5, 10, "Suffren and Hughes",
85 1.6 christos {
86 1.6 christos { "Monmouth", specs+52, N_B, 9, 45, 2, 0 },
87 1.6 christos { "Hero", specs+5, N_B, 13, 49, 2, 0 },
88 1.6 christos { "Isis", specs+6, N_B, 12, 48, 2, 0 },
89 1.6 christos { "Superb", specs+50, N_B, 10, 46, 2, 0 },
90 1.6 christos { "Burford", specs+48, N_B, 11, 47, 2, 0 },
91 1.6 christos { "Flamband", specs+13, N_F, 7, 59, 4, 0 },
92 1.6 christos { "Annibal", specs+9, N_F, 4, 56, 4, 0 },
93 1.6 christos { "Severe", specs+11, N_F, 2, 54, 4, 0 },
94 1.6 christos { "Brilliant", specs+49, N_F, -1, 51, 4, 0 },
95 1.6 christos { "Sphinx", specs+51, N_F, -5, 47, 4, 0 }
96 1.6 christos }
97 1.6 christos },
98 1.6 christos { 1, 3, 4, 2, "Nymphe vs. Cleopatre",
99 1.6 christos {
100 1.6 christos { "Nymphe", specs+14, N_B, 13, 30, 2, 0 },
101 1.6 christos { "Cleopatre", specs+15, N_F, 3, 41, 2, 0 }
102 1.6 christos }
103 1.6 christos },
104 1.6 christos { 1, 3, 5, 2, "Mars vs. Hercule",
105 1.6 christos {
106 1.6 christos { "Mars", specs+16, N_B, 13, 30, 2, 0 },
107 1.6 christos { "Hercule", specs+17, N_F, 3, 41, 2, 0 }
108 1.6 christos }
109 1.6 christos },
110 1.6 christos { 5, 3, 5, 2, "Ambuscade vs. Baionnaise",
111 1.6 christos {
112 1.6 christos { "Ambuscade", specs+18, N_B, 13, 30, 2, 0 },
113 1.6 christos { "Baionnaise", specs+19, N_F, 3, 41, 2, 0 }
114 1.6 christos }
115 1.6 christos },
116 1.6 christos { 1, 5, 6, 2, "Constellation vs. Insurgent",
117 1.6 christos {
118 1.6 christos { "Constellation", specs+20, N_A, 9, 50, 8, 0 },
119 1.6 christos { "Insurgent", specs+22, N_F, 4, 24, 2, 0 }
120 1.6 christos }
121 1.6 christos },
122 1.6 christos { 1, 3, 5, 2, "Constellation vs. Vengeance",
123 1.6 christos {
124 1.6 christos { "Constellation", specs+20, N_A, 12, 40, 2, 0 },
125 1.6 christos { "Vengeance", specs+21, N_F, 1, 43, 2, 0 }
126 1.6 christos }
127 1.6 christos },
128 1.6 christos { 1, 3, 6, 10, "The Battle of Lissa",
129 1.6 christos {
130 1.6 christos { "Amphion", specs+23, N_B, 8, 50, 4, 0 },
131 1.6 christos { "Active", specs+24, N_B, 6, 48, 4, 0 },
132 1.6 christos { "Volage", specs+25, N_B, 4, 46, 4, 0 },
133 1.6 christos { "Cerberus", specs+26, N_B, 2, 44, 4, 0 },
134 1.6 christos { "Favorite", specs+27, N_F, 9, 34, 2, 0 },
135 1.6 christos { "Flore", specs+21, N_F, 13, 39, 2, 0 },
136 1.6 christos { "Danae", specs+64, N_F, 15, 37, 2, 0 },
137 1.6 christos { "Bellona", specs+28, N_F, 17, 35, 2, 0 },
138 1.6 christos { "Corona", specs+29, N_F, 12, 31, 2, 0 },
139 1.6 christos { "Carolina", specs+30, N_F, 15, 28, 2, 0 }
140 1.6 christos }
141 1.6 christos },
142 1.6 christos { 2, 5, 6, 2, "Constitution vs. Guerriere",
143 1.6 christos {
144 1.6 christos { "Constitution", specs+31, N_A, 7, 35, 1, 0 },
145 1.6 christos { "Guerriere", specs+32, N_B, 7, 47, 4, 0 }
146 1.6 christos }
147 1.6 christos },
148 1.6 christos { 1, 3, 5, 2, "United States vs. Macedonian",
149 1.6 christos {
150 1.6 christos { "United States", specs+33, N_A, 1, 52, 6, 0 },
151 1.6 christos { "Macedonian", specs+34, N_B, 14, 40, 1, 0 }
152 1.6 christos }
153 1.6 christos },
154 1.6 christos { 1, 3, 6, 2, "Constitution vs. Java",
155 1.6 christos {
156 1.6 christos { "Constitution", specs+31, N_A, 1, 40, 2, 0 },
157 1.6 christos { "Java", specs+35, N_B, 11, 40, 2, 0 }
158 1.6 christos }
159 1.6 christos },
160 1.6 christos { 1, 3, 5, 2, "Chesapeake vs. Shannon",
161 1.6 christos {
162 1.6 christos { "Chesapeake", specs+36, N_A, 13, 40, 2, 0 },
163 1.6 christos { "Shannon", specs+37, N_B, 1, 42, 2, 0 }
164 1.6 christos }
165 1.6 christos },
166 1.6 christos { 1, 1, 6, 5, "The Battle of Lake Erie",
167 1.6 christos {
168 1.6 christos { "Lawrence", specs+38, N_A, 4, 55, 8, 0 },
169 1.6 christos { "Niagara", specs+42, N_A, 7, 61, 8, 0 },
170 1.6 christos { "Lady Prevost", specs+39, N_B, 4, 25, 2, 0 },
171 1.6 christos { "Detroit", specs+40, N_B, 7, 22, 2, 0 },
172 1.6 christos { "Q. Charlotte", specs+41, N_B, 10, 19, 2, 0 }
173 1.6 christos }
174 1.6 christos },
175 1.6 christos { 1, 1, 5, 2, "Wasp vs. Reindeer",
176 1.6 christos {
177 1.6 christos { "Wasp", specs+42, N_A, 3, 41, 2, 0 },
178 1.6 christos { "Reindeer", specs+43, N_B, 10, 48, 2, 0 }
179 1.6 christos }
180 1.6 christos },
181 1.6 christos { 1, 2, 5, 3, "Constitution vs. Cyane and Levant",
182 1.6 christos {
183 1.6 christos { "Constitution", specs+31, N_A, 10, 45, 2, 0 },
184 1.6 christos { "Cyane", specs+44, N_B, 3, 37, 2, 0 },
185 1.6 christos { "Levant", specs+45, N_B, 5, 35, 2, 0 }
186 1.6 christos }
187 1.6 christos },
188 1.6 christos { 5, 5, 5, 3, "Pellew vs. Droits de L'Homme",
189 1.6 christos {
190 1.6 christos { "Indefatigable", specs+46, N_B, 12, 45, 6, 0 },
191 1.6 christos { "Amazon", specs+47, N_B, 9, 48, 6, 0 },
192 1.6 christos { "Droits L'Hom", specs+48, N_F, 3, 28, 5, 0 }
193 1.6 christos }
194 1.6 christos },
195 1.6 christos { 2, 2, 3, 10, "Algeciras",
196 1.6 christos {
197 1.6 christos { "Caesar", specs+49, N_B, 7, 70, 6, 0 },
198 1.6 christos { "Pompee", specs+50, N_B, 5, 72, 6, 0 },
199 1.6 christos { "Spencer", specs+5, N_B, 3, 74, 6, 0 },
200 1.6 christos { "Hannibal", specs+7, N_B, 1, 76, 6, 0 },
201 1.6 christos { "Real-Carlos", specs+53, N_S, 9, 20, 3, 0 },
202 1.6 christos { "San Fernando", specs+54, N_S, 11, 16, 3, 0 },
203 1.6 christos { "Argonauta", specs+55, N_S, 10, 14, 4, 0 },
204 1.6 christos { "San Augustine", specs+56, N_S, 6, 22, 4, 0 },
205 1.6 christos { "Indomptable", specs+51, N_F, 7, 23, 5, 0 },
206 1.6 christos { "Desaix", specs+52, N_F, 7, 27, 7, 0 }
207 1.6 christos }
208 1.6 christos },
209 1.6 christos { 5, 3, 6, 7, "Lake Champlain",
210 1.6 christos {
211 1.6 christos { "Saratoga", specs+60, N_A, 8, 10, 1, 0 },
212 1.6 christos { "Eagle", specs+61, N_A, 9, 13, 2, 0 },
213 1.6 christos { "Ticonderoga", specs+62, N_A, 12, 17, 3, 0 },
214 1.6 christos { "Preble", specs+63, N_A, 14, 20, 2, 0 },
215 1.6 christos { "Confiance", specs+57, N_B, 4, 70, 6, 0 },
216 1.6 christos { "Linnet", specs+58, N_B, 7, 68, 6, 0 },
217 1.6 christos { "Chubb", specs+59, N_B, 10, 65, 6, 0 }
218 1.6 christos }
219 1.6 christos },
220 1.6 christos { 5, 3, 6, 4, "Last Voyage of the USS President",
221 1.6 christos {
222 1.6 christos { "President", specs+67, N_A, 12, 42, 5, 0 },
223 1.6 christos { "Endymion", specs+64, N_B, 5, 42, 5, 0 },
224 1.6 christos { "Pomone", specs+65, N_B, 7, 82, 6, 0 },
225 1.6 christos { "Tenedos", specs+66, N_B, 7, -1, 4, 0 }
226 1.6 christos }
227 1.6 christos },
228 1.6 christos { 7, 5, 5, 2, "Hornblower and the Natividad",
229 1.6 christos {
230 1.6 christos { "Lydia", specs+68, N_B, 12, 40, 2, 0 },
231 1.6 christos { "Natividad", specs+69, N_S, 2, 40, 4, 0 }
232 1.6 christos }
233 1.6 christos },
234 1.6 christos { 1, 3, 6, 2, "Curse of the Flying Dutchman",
235 1.6 christos {
236 1.6 christos { "Piece of Cake", specs+19, N_S, 7, 40, 2, 0 },
237 1.6 christos { "Flying Dutchy", specs+71, N_F, 7, 41, 1, 0 }
238 1.6 christos }
239 1.6 christos },
240 1.6 christos { 1, 4, 1, 4, "The South Pacific",
241 1.6 christos {
242 1.6 christos { "USS Scurvy", specs+70, N_A, 7, 40, 1, 0 },
243 1.6 christos { "HMS Tahiti", specs+71, N_B, 12, 60, 1, 0 },
244 1.6 christos { "Australian", specs+18, N_S, 5, 20, 8, 0 },
245 1.6 christos { "Bikini Atoll", specs+63, N_F, 2, 60, 4, 0 }
246 1.6 christos }
247 1.6 christos },
248 1.6 christos { 7, 3, 6, 5, "Hornblower and the battle of Rosas bay",
249 1.6 christos {
250 1.6 christos { "Sutherland", specs+5, N_B, 13, 30, 2, 0 },
251 1.6 christos { "Turenne", specs+10, N_F, 9, 35, 6, 0 },
252 1.6 christos { "Nightmare", specs+9, N_F, 7, 37, 6, 0 },
253 1.6 christos { "Paris", specs+53, N_F, 3, 45, 4, 0 },
254 1.6 christos { "Napoleon", specs+56, N_F, 1, 40, 6, 0 }
255 1.6 christos }
256 1.6 christos },
257 1.6 christos { 6, 4, 7, 5, "Cape Horn",
258 1.6 christos {
259 1.6 christos { "Concord", specs+51, N_A, 3, 20, 4, 0 },
260 1.6 christos { "Berkeley", specs+7, N_A, 5, 50, 5, 0 },
261 1.6 christos { "Thames", specs+71, N_B, 10, 40, 1, 0 },
262 1.6 christos { "Madrid", specs+53, N_S, 13, 60, 8, 0 },
263 1.6 christos { "Musket", specs+10, N_F, 10, 60, 7, 0 }
264 1.6 christos }
265 1.6 christos },
266 1.6 christos { 8, 3, 7, 3, "New Orleans",
267 1.6 christos {
268 1.6 christos { "Alligator", specs+71, N_A, 13, 5, 1, 0 },
269 1.6 christos { "Firefly", specs+50, N_B, 10, 20, 8, 0 },
270 1.6 christos { "Cypress", specs+46, N_B, 5, 10, 6, 0 }
271 1.6 christos }
272 1.6 christos },
273 1.6 christos { 5, 3, 7, 3, "Botany Bay",
274 1.6 christos {
275 1.6 christos { "Shark", specs+11, N_B, 6, 15, 4, 0 },
276 1.6 christos { "Coral Snake", specs+31, N_F, 3, 30, 6, 0 },
277 1.6 christos { "Sea Lion", specs+33, N_F, 13, 50, 8, 0 }
278 1.6 christos }
279 1.6 christos },
280 1.6 christos { 4, 3, 6, 4, "Voyage to the Bottom of the Sea",
281 1.6 christos {
282 1.6 christos { "Seaview", specs+71, N_A, 6, 3, 3, 0 },
283 1.6 christos { "Flying Sub", specs+64, N_A, 8, 3, 3, 0 },
284 1.6 christos { "Mermaid", specs+70, N_B, 2, 5, 5, 0 },
285 1.6 christos { "Giant Squid", specs+53, N_S, 10, 30, 8, 0 }
286 1.6 christos }
287 1.6 christos },
288 1.6 christos { 7, 3, 6, 3, "Frigate Action",
289 1.6 christos {
290 1.6 christos { "Killdeer", specs+21, N_A, 7, 20, 8, 0 },
291 1.6 christos { "Sandpiper", specs+27, N_B, 5, 40, 8, 0 },
292 1.6 christos { "Curlew", specs+34, N_S, 10, 60, 8, 0 }
293 1.6 christos }
294 1.6 christos },
295 1.6 christos { 7, 2, 5, 6, "The Battle of Midway",
296 1.6 christos {
297 1.6 christos { "Enterprise", specs+49, N_A, 10, 70, 8, 0 },
298 1.6 christos { "Yorktown", specs+51, N_A, 3, 70, 7, 0 },
299 1.6 christos { "Hornet", specs+52, N_A, 6, 70, 7, 0 },
300 1.6 christos { "Akagi", specs+53, N_J, 6, 10, 4, 0 },
301 1.6 christos { "Kaga", specs+54, N_J, 4, 12, 4, 0 },
302 1.6 christos { "Soryu", specs+55, N_J, 2, 14, 4, 0 }
303 1.6 christos }
304 1.6 christos },
305 1.6 christos { 1, 3, 4, 8, "Star Trek",
306 1.6 christos {
307 1.6 christos { "Enterprise", specs+76, N_D,-10, 60, 7, 0 },
308 1.6 christos { "Yorktown", specs+77, N_D, 0, 70, 7, 0 },
309 1.6 christos { "Reliant", specs+78, N_D, 10, 70, 7, 0 },
310 1.6 christos { "Galileo", specs+79, N_D, 20, 60, 7, 0 },
311 1.6 christos { "Kobayashi Maru", specs+80, N_K, 0,120, 7, 0 },
312 1.6 christos { "Klingon II", specs+81, N_K, 10,120, 7, 0 },
313 1.6 christos { "Red Orion", specs+82, N_O, 0, 0, 3, 0 },
314 1.6 christos { "Blue Orion", specs+83, N_O, 10, 0, 3, 0 }
315 1.6 christos }
316 1.1 cgd }
317 1.1 cgd };
318 1.1 cgd int nscene = sizeof scene / sizeof (struct scenario);
319 1.1 cgd
320 1.1 cgd struct shipspecs specs[] = {
321 1.1 cgd /* bs fs ta guns hull crew1 crew3 gunR carR rig2 rig4 pts */
322 1.1 cgd /* class qual crew2 gunL carL rig1 rig3 */
323 1.6 christos /*00*/{ 4, 7, 3, 19, 5, 5, 4, 2, 2, 2, 2, 2, 0, 0, 4, 4, 4, 4, 7 },
324 1.6 christos /*01*/{ 4, 7, 3, 17, 5, 5, 4, 2, 2, 2, 0, 0, 4, 4, 3, 3, 3, 3, 6 },
325 1.6 christos /*02*/{ 3, 5, 2, 42, 4, 7, 4, 2, 2, 2, 2, 2, 0, 0, 5, 5, 5, -1, 11 },
326 1.6 christos /*03*/{ 4, 6, 3, 44, 3, 7, 4, 2, 2, 2, 3, 3, 0, 0, 5, 5, 5, 5, 12 },
327 1.6 christos /*04*/{ 3, 5, 2, 64, 2, 17, 4, 8, 6, 6, 12, 12, 2, 2, 7, 7, 7, -1, 20 },
328 1.6 christos /*05*/{ 3, 5, 2, 74, 2, 20, 4, 8, 8, 8, 16, 16, 2, 2, 7, 7, 7, -1, 26 },
329 1.6 christos /*06*/{ 3, 5, 2, 50, 2, 12, 4, 6, 4, 4, 8, 8, 2, 2, 6, 6, 6, -1, 17 },
330 1.6 christos /*07*/{ 3, 5, 1, 98, 1, 23, 4, 10, 10, 10, 18, 18, 2, 2, 8, 8, 8, -1, 28 },
331 1.6 christos /*08*/{ 3, 5, 2, 74, 2, 20, 4, 8, 8, 8, 16, 16, 2, 2, 7, 7, 7, -1, 26 },
332 1.6 christos /*09*/{ 3, 5, 2, 74, 2, 21, 3, 10, 10, 8, 20, 20, 0, 0, 7, 7, 7, -1, 24 },
333 1.6 christos /*10*/{ 3, 5, 1, 80, 1, 23, 3, 12, 12, 10, 22, 22, 0, 0, 7, 7, 7, -1, 27 },
334 1.6 christos /*11*/{ 3, 5, 2, 64, 2, 18, 3, 8, 8, 6, 12, 12, 0, 0, 7, 7, 7, -1, 18 },
335 1.6 christos /*12*/{ 3, 5, 2, 44, 2, 11, 3, 4, 4, 4, 6, 6, 2, 2, 5, 5, 5, -1, 10 },
336 1.6 christos /*13*/{ 3, 5, 2, 50, 2, 14, 3, 6, 6, 4, 8, 8, 0, 0, 6, 6, 6, -1, 14 },
337 1.6 christos /*14*/{ 4, 6, 3, 36, 3, 11, 4, 4, 4, 2, 4, 4, 2, 2, 5, 5, 5, 5, 11 },
338 1.6 christos /*15*/{ 4, 6, 3, 36, 3, 11, 3, 4, 4, 4, 4, 4, 2, 2, 5, 5, 5, 5, 10 },
339 1.6 christos /*16*/{ 3, 5, 2, 74, 2, 21, 4, 10, 8, 8, 18, 18, 2, 2, 7, 7, 7, -1, 26 },
340 1.6 christos /*17*/{ 3, 5, 2, 74, 2, 21, 3, 10, 10, 8, 20, 20, 2, 2, 7, 7, 7, -1, 23 },
341 1.6 christos /*18*/{ 4, 6, 3, 32, 3, 8, 3, 4, 2, 2, 4, 4, 2, 2, 5, 5, 5, 5, 9 },
342 1.6 christos /*19*/{ 4, 6, 3, 24, 4, 6, 3, 4, 4, 4, 2, 2, 0, 0, 4, 4, 4, 4, 9 },
343 1.6 christos /*20*/{ 4, 7, 3, 38, 4, 14, 5, 6, 4, 4, 4, 4, 6, 6, 5, 5, 5, 5, 17 },
344 1.6 christos /*21*/{ 4, 6, 3, 40, 3, 15, 3, 8, 6, 6, 6, 6, 4, 4, 5, 5, 5, 5, 15 },
345 1.6 christos /*22*/{ 4, 7, 3, 36, 4, 11, 3, 6, 6, 4, 4, 4, 2, 2, 5, 5, 5, 5, 11 },
346 1.6 christos /*23*/{ 4, 6, 3, 32, 3, 11, 5, 4, 4, 2, 4, 4, 2, 2, 5, 5, 5, 5, 13 },
347 1.6 christos /*24*/{ 4, 6, 3, 38, 3, 14, 5, 4, 4, 4, 6, 6, 4, 4, 5, 5, 5, 5, 18 },
348 1.6 christos /*25*/{ 4, 6, 3, 22, 3, 6, 5, 2, 2, 2, 0, 0, 8, 8, 4, 4, 4, 4, 11 },
349 1.6 christos /*26*/{ 4, 6, 3, 32, 3, 11, 5, 4, 4, 2, 4, 4, 2, 2, 5, 5, 5, 5, 13 },
350 1.6 christos /*27*/{ 4, 6, 3, 40, 3, 14, 3, 6, 6, 4, 6, 6, 4, 4, 5, 5, 5, 5, 15 },
351 1.6 christos /*28*/{ 4, 6, 3, 32, 3, 11, 2, 4, 4, 4, 4, 4, 0, 0, 5, 5, 5, 5, 9 },
352 1.6 christos /*29*/{ 4, 6, 3, 40, 3, 14, 2, 6, 6, 4, 6, 6, 4, 4, 5, 5, 5, 5, 12 },
353 1.6 christos /*30*/{ 4, 6, 3, 32, 3, 8, 2, 4, 4, 1, 2, 2, 0, 0, 4, 4, 4, 4, 7 },
354 1.6 christos /*31*/{ 4, 7, 3, 44, 4, 18, 5, 6, 6, 6, 8, 8, 6, 6, 6, 6, 6, 6, 24 },
355 1.6 christos /*32*/{ 4, 6, 3, 38, 3, 14, 4, 4, 4, 2, 6, 6, 4, 4, 5, 5, 5, 5, 15 },
356 1.6 christos /*33*/{ 4, 5, 3, 44, 3, 18, 5, 8, 6, 6, 8, 8, 8, 8, 6, 6, 6, 6, 24 },
357 1.6 christos /*34*/{ 4, 6, 3, 38, 3, 14, 4, 4, 4, 4, 6, 6, 4, 4, 5, 5, 5, 5, 16 },
358 1.6 christos /*35*/{ 4, 7, 3, 38, 4, 14, 4, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5, 5, 19 },
359 1.6 christos /*36*/{ 4, 6, 3, 38, 3, 14, 3, 6, 6, 4, 6, 6, 6, 6, 5, 5, 5, 5, 14 },
360 1.6 christos /*37*/{ 4, 6, 3, 38, 3, 14, 5, 6, 4, 4, 6, 6, 6, 6, 5, 5, 5, 5, 17 },
361 1.6 christos /*38*/{ 4, 7, 3, 20, 5, 6, 4, 4, 2, 2, 0, 0, 6, 6, 4, 4, 4, 4, 9 },
362 1.6 christos /*39*/{ 4, 7, 3, 13, 6, 3, 4, 0, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2, 5 },
363 1.6 christos /*40*/{ 4, 7, 3, 19, 5, 5, 4, 2, 2, 2, 2, 2, 0, 0, 4, 4, 4, 4, 7 },
364 1.6 christos /*41*/{ 4, 7, 3, 17, 5, 5, 4, 2, 2, 2, 2, 2, 0, 0, 3, 3, 3, 3, 6 },
365 1.6 christos /*42*/{ 4, 7, 3, 20, 5, 6, 5, 4, 2, 2, 0, 0, 6, 6, 4, 4, 4, 4, 12 },
366 1.6 christos /*43*/{ 4, 7, 3, 18, 5, 5, 5, 2, 2, 2, 0, 0, 6, 6, 4, 4, 4, 4, 9 },
367 1.6 christos /*44*/{ 4, 7, 3, 24, 5, 6, 4, 4, 2, 2, 0, 0,10,10, 4, 4, 4, 4, 11 },
368 1.6 christos /*45*/{ 4, 7, 3, 20, 5, 6, 4, 2, 2, 2, 0, 0, 8, 8, 4, 4, 4, 4, 10 },
369 1.6 christos /*46*/{ 4, 6, 3, 44, 3, 11, 5, 4, 4, 4, 4, 4, 2, 2, 5, 5, 5, 5, 14 },
370 1.6 christos /*47*/{ 4, 6, 3, 36, 3, 12, 4, 4, 4, 4, 6, 6, 2, 2, 5, 5, 5, 5, 14 },
371 1.6 christos /*48*/{ 3, 5, 2, 74, 2, 21, 3, 10, 8, 8, 20, 20, 2, 2, 4, 4, 7, -1, 24 },
372 1.6 christos /*49*/{ 3, 5, 2, 80, 2, 24, 4, 10, 8, 8, 20, 20, 2, 2, 8, 8, 8, -1, 31 },
373 1.6 christos /*50*/{ 3, 5, 2, 74, 2, 21, 4, 8, 8, 6, 16, 16, 4, 4, 7, 7, 7, -1, 27 },
374 1.6 christos /*51*/{ 3, 5, 2, 80, 2, 24, 3, 12, 12, 10, 22, 22, 2, 2, 7, 7, 7, -1, 27 },
375 1.6 christos /*52*/{ 3, 5, 2, 74, 2, 21, 3, 10, 10, 8, 20, 20, 2, 2, 7, 7, 7, -1, 24 },
376 1.6 christos /*53*/{ 3, 5, 1, 112, 1, 27, 2, 12, 12, 12, 24, 24, 0, 0, 9, 9, 9, -1, 27 },
377 1.6 christos /*54*/{ 3, 5, 1, 96, 1, 24, 2, 12, 12, 10, 20, 20, 0, 0, 8, 8, 8, -1, 24 },
378 1.6 christos /*55*/{ 3, 5, 2, 80, 2, 23, 2, 10, 10, 8, 20, 20, 0, 0, 7, 7, 7, -1, 23 },
379 1.6 christos /*56*/{ 3, 5, 2, 74, 2, 21, 2, 10, 8, 8, 16, 16, 4, 4, 7, 7, 7, -1, 20 },
380 1.6 christos /*57*/{ 4, 6, 3, 37, 3, 12, 4, 4, 4, 2, 6, 6, 4, 4, 5, 5, 5, 5, 14 },
381 1.6 christos /*58*/{ 4, 7, 3, 16, 5, 5, 5, 2, 2, 2, 0, 0, 4, 4, 4, 4, 4, 4, 10 },
382 1.6 christos /*59*/{ 4, 7, 3, 11, 6, 3, 4, 2, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2, 5 },
383 1.6 christos /*60*/{ 4, 7, 3, 26, 5, 6, 4, 4, 2, 2, 2, 2, 6, 6, 4, 4, 4, 4, 12 },
384 1.6 christos /*61*/{ 4, 7, 3, 20, 5, 6, 4, 4, 2, 2, 0, 0, 6, 6, 4, 4, 4, 4, 11 },
385 1.6 christos /*62*/{ 4, 7, 3, 17, 5, 5, 4, 2, 2, 2, 0, 0, 6, 6, 4, 4, 4, 4, 9 },
386 1.6 christos /*63*/{ 4, 7, 3, 7, 6, 3, 4, 0, 2, 2, 0, 0, 2, 2, 2, 2, 2, 2, 4 },
387 1.6 christos /*64*/{ 4, 6, 3, 40, 3, 15, 4, 4, 4, 4, 8, 8, 6, 6, 5, 5, 5, 5, 17 },
388 1.6 christos /*65*/{ 4, 6, 3, 44, 3, 15, 4, 8, 8, 6, 10, 10, 2, 2, 6, 6, 6, 6, 20 },
389 1.6 christos /*66*/{ 4, 6, 3, 38, 3, 14, 4, 4, 4, 4, 6, 6, 6, 6, 5, 5, 5, 5, 15 },
390 1.6 christos /*67*/{ 4, 5, 3, 44, 3, 18, 5, 8, 6, 6, 8, 8, 8, 8, 6, 6, 6, 6, 24 },
391 1.6 christos /*68*/{ 4, 6, 3, 36, 3, 9, 5, 4, 4, 2, 4, 4, 2, 2, 5, 5, 5, 5, 13 },
392 1.6 christos /*69*/{ 3, 5, 2, 50, 2, 14, 2, 6, 6, 6, 8, 8, 0, 0, 6, 6, 6, -1, 14 },
393 1.6 christos /*70*/{ 3, 5, 1, 136, 1, 30, 1, 8, 14, 14, 28, 28, 0, 0, 9, 9, 9, -1, 27 },
394 1.6 christos /*71*/{ 3, 5, 1, 120, 1, 27, 5, 16, 14, 14, 28, 28, 2, 2, 9, 9, 9, -1, 43 },
395 1.6 christos /*72*/{ 3, 5, 1, 120, 2, 21, 5, 15, 17, 15, 25, 25, 7, 7, 9, 9, 9, -1, 36 },
396 1.6 christos /*73*/{ 3, 5, 1, 90, 3, 18, 4, 13, 15, 13, 20, 20, 6, 6, 5, 5, 5, 5, 28 },
397 1.6 christos /*74*/{ 4, 7, 3, 6, 6, 3, 4, 2, 2, 2, 20, 20, 6, 6, 2, 2, 3, 3, 5 },
398 1.6 christos /*75*/{ 3, 5, 1, 110, 2, 20, 4, 14, 15, 11, 26, 26, 8, 8, 7, 8, 9, -1, 34 },
399 1.6 christos /*76*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
400 1.6 christos /*77*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
401 1.6 christos /*78*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
402 1.6 christos /*79*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
403 1.6 christos /*80*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
404 1.6 christos /*81*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
405 1.6 christos /*82*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 },
406 1.6 christos /*83*/{ 4, 7, 3, 450, 1, 99, 5, 50, 40, 40, 50, 50,25,25, 9, 9, 9, -1, 75 }
407 1.1 cgd /* bs fs ta guns hull crew1 crew3 gunR carR rig2 rig4 pts */
408 1.1 cgd /* class qual crew2 gunL carL rig1 rig3 */
409 1.1 cgd };
410 1.1 cgd
411 1.7 jsm const struct windeffects WET[7][6] = {
412 1.1 cgd { {9,9,9,9}, {9,9,9,9}, {9,9,9,9}, {9,9,9,9}, {9,9,9,9}, {9,9,9,9} },
413 1.1 cgd { {3,2,2,0}, {3,2,1,0}, {3,2,1,0}, {3,2,1,0}, {2,1,0,0}, {2,1,0,0} },
414 1.1 cgd { {1,1,1,0}, {1,1,0,0}, {1,0,0,0}, {1,0,0,0}, {1,0,0,0}, {1,0,0,0} },
415 1.1 cgd { {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0} },
416 1.1 cgd { {0,0,0,0}, {1,0,0,0}, {1,1,0,0}, {1,1,0,0}, {2,2,1,0}, {2,2,1,0} },
417 1.1 cgd { {1,0,0,0}, {1,1,0,0}, {1,1,1,0}, {1,1,1,0}, {3,2,2,0}, {3,2,2,0} },
418 1.1 cgd { {2,1,1,0}, {3,2,1,0}, {3,2,1,0}, {3,2,1,0}, {3,3,2,0}, {3,3,2,0} }
419 1.1 cgd };
420 1.1 cgd
421 1.7 jsm const struct Tables RigTable[11][6] = {
422 1.1 cgd { {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,1}, {0,0,1,0} },
423 1.1 cgd { {0,0,0,0}, {0,0,0,0}, {0,0,0,1}, {0,0,1,0}, {1,0,0,1}, {0,1,1,1} },
424 1.1 cgd { {0,0,0,0}, {0,0,0,1}, {0,0,1,1}, {0,1,0,1}, {0,1,0,1}, {1,0,1,2} },
425 1.1 cgd { {0,0,0,0}, {0,0,1,1}, {0,1,0,1}, {0,0,0,2}, {0,1,0,2}, {1,0,1,2} },
426 1.1 cgd { {0,1,0,1}, {1,0,0,1}, {0,1,1,2}, {0,1,0,2}, {0,0,1,3}, {1,0,1,4} },
427 1.1 cgd { {0,0,1,1}, {0,1,0,2}, {1,0,0,3}, {0,1,1,3}, {1,0,0,4}, {1,1,1,4} },
428 1.1 cgd { {0,0,1,2}, {0,1,1,2}, {1,1,0,3}, {0,1,0,4}, {1,0,0,4}, {1,0,1,5} },
429 1.1 cgd { {0,0,1,2}, {0,1,0,3}, {1,1,0,3}, {1,0,2,4}, {0,2,1,5}, {2,1,0,5} },
430 1.1 cgd { {0,2,1,3}, {1,0,0,3}, {2,1,0,4}, {0,1,1,4}, {0,1,0,5}, {1,0,2,6} },
431 1.1 cgd { {1,1,0,4}, {1,0,1,4}, {2,0,0,5}, {0,2,1,5}, {0,1,2,6}, {0,2,0,7} },
432 1.1 cgd { {1,0,1,5}, {0,2,0,6}, {1,2,0,6}, {1,1,1,6}, {2,0,2,6}, {1,1,2,7} }
433 1.1 cgd };
434 1.7 jsm const struct Tables HullTable[11][6] = {
435 1.1 cgd { {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {0,0,0,0}, {1,0,0,0}, {0,1,0,0} },
436 1.1 cgd { {0,0,0,0}, {0,0,0,0}, {0,1,0,0}, {1,1,0,0}, {1,0,1,0}, {1,0,1,1} },
437 1.1 cgd { {0,1,0,0}, {1,0,0,0}, {1,1,0,0}, {1,0,1,0}, {1,0,1,1}, {2,1,0,0} },
438 1.1 cgd { {0,1,1,0}, {1,0,0,0}, {1,1,1,0}, {2,0,0,1}, {2,0,1,0}, {2,2,0,0} },
439 1.1 cgd { {0,1,1,0}, {1,0,0,1}, {2,1,0,1}, {2,2,1,0}, {3,0,1,0}, {3,1,0,0} },
440 1.1 cgd { {1,1,1,0}, {2,0,2,1}, {2,1,1,0}, {2,2,0,0}, {3,1,0,1}, {3,1,1,0} },
441 1.1 cgd { {1,2,2,0}, {2,0,2,1}, {2,1,0,1}, {2,2,0,0}, {3,1,1,0}, {4,2,1,0} },
442 1.1 cgd { {2,1,1,0}, {2,0,1,1}, {3,2,2,0}, {3,2,0,0}, {4,2,1,0}, {4,2,1,1} },
443 1.1 cgd { {2,1,2,0}, {3,1,1,1}, {3,2,2,0}, {4,2,1,0}, {4,1,0,2}, {4,2,2,0} },
444 1.1 cgd { {2,3,1,0}, {3,2,2,0}, {3,2,2,1}, {4,2,2,0}, {4,1,0,3}, {5,1,2,0} },
445 1.1 cgd { {2,2,4,0}, {3,3,1,1}, {4,2,1,1}, {5,1,0,2}, {5,1,2,1}, {6,2,2,0} },
446 1.1 cgd };
447 1.1 cgd
448 1.7 jsm const char AMMO[9][4] = {
449 1.1 cgd { -1, 1, 0, 1 },
450 1.1 cgd { -1, 1, 0, 1 },
451 1.1 cgd { -1, 1, 0, 1 },
452 1.1 cgd { -2, 1, 0, 2 },
453 1.1 cgd { -2, 2, 0, 2 },
454 1.1 cgd { -2, 2, 0, 2 },
455 1.1 cgd { -3, 2, 0, 2 },
456 1.1 cgd { -3, 2, 0, 3 },
457 1.1 cgd { -3, 2, 0, 3 }
458 1.1 cgd };
459 1.1 cgd
460 1.7 jsm const char HDT[9][10] = {
461 1.1 cgd { 1, 0,-1,-2,-3,-3,-4,-4,-4,-4 },
462 1.1 cgd { 1, 1, 0,-1,-2,-2,-3,-3,-3,-3 },
463 1.1 cgd { 2, 1, 0,-1,-2,-2,-3,-3,-3,-3 },
464 1.1 cgd { 2, 2, 1, 0,-1,-1,-2,-2,-2,-2 },
465 1.1 cgd { 3, 2, 1, 0,-1,-1,-2,-2,-2,-2 },
466 1.1 cgd { 3, 3, 2, 1, 0, 0,-1,-1,-1,-1 },
467 1.1 cgd { 4, 3, 2, 1, 0, 0,-1,-1,-1,-1 },
468 1.1 cgd { 4, 4, 3, 2, 1, 1, 0, 0, 0, 0 },
469 1.1 cgd { 5, 4, 3, 2, 1, 1, 0, 0, 0, 0 }
470 1.1 cgd };
471 1.1 cgd
472 1.7 jsm const char HDTrake[9][10] = {
473 1.1 cgd { 2, 1, 0,-1,-2,-2,-3,-3,-3,-3 },
474 1.1 cgd { 2, 2, 1, 0,-1,-1,-2,-2,-2,-2 },
475 1.1 cgd { 3, 2, 1, 0,-1,-1,-2,-2,-2,-2 },
476 1.1 cgd { 4, 3, 2, 1, 0, 0,-1,-1,-1,-1 },
477 1.1 cgd { 5, 4, 3, 2, 1, 1, 0, 0, 0, 0 },
478 1.1 cgd { 6, 5, 4, 3, 2, 2, 1, 1, 1, 1 },
479 1.1 cgd { 7, 6, 5, 4, 3, 3, 2, 2, 2, 2 },
480 1.1 cgd { 8, 7, 6, 5, 4, 4, 3, 3, 3, 3 },
481 1.1 cgd { 9, 8, 7, 6, 5, 5, 4, 4, 4, 4 }
482 1.1 cgd };
483 1.1 cgd
484 1.7 jsm const char QUAL[9][5] = {
485 1.1 cgd { -1, 0, 0, 1, 1 },
486 1.1 cgd { -1, 0, 0, 1, 1 },
487 1.1 cgd { -1, 0, 0, 1, 2 },
488 1.1 cgd { -1, 0, 0, 1, 2 },
489 1.1 cgd { -1, 0, 0, 2, 2 },
490 1.1 cgd { -1,-1, 0, 2, 2 },
491 1.1 cgd { -2,-1, 0, 2, 2 },
492 1.1 cgd { -2,-1, 0, 2, 2 },
493 1.1 cgd { -2,-1, 0, 2, 3 }
494 1.1 cgd };
495 1.1 cgd
496 1.7 jsm const char MT[9][3] = {
497 1.1 cgd { 1, 0, 0 },
498 1.1 cgd { 1, 1, 0 },
499 1.1 cgd { 2, 1, 0 },
500 1.1 cgd { 2, 1, 1 },
501 1.1 cgd { 2, 2, 1 },
502 1.1 cgd { 3, 2, 1 },
503 1.1 cgd { 3, 2, 2 },
504 1.1 cgd { 4, 3, 2 },
505 1.1 cgd { 4, 4, 2 }
506 1.1 cgd };
507 1.1 cgd
508 1.7 jsm const char rangeofshot[] = {
509 1.1 cgd 0,
510 1.1 cgd 1, /* grape */
511 1.1 cgd 3, /* chain */
512 1.1 cgd 10, /* round */
513 1.1 cgd 1 /* double */
514 1.1 cgd };
515 1.1 cgd
516 1.7 jsm const char *const countryname[] = {
517 1.1 cgd "American", "British", "Spanish", "French", "Japanese",
518 1.1 cgd "Federation", "Klingon", "Orion"
519 1.1 cgd };
520 1.1 cgd
521 1.7 jsm const char *const classname[] = {
522 1.1 cgd "Drift wood",
523 1.1 cgd "Ship of the Line",
524 1.1 cgd "Ship of the Line",
525 1.1 cgd "Frigate",
526 1.1 cgd "Corvette",
527 1.1 cgd "Sloop",
528 1.1 cgd "Brig"
529 1.1 cgd };
530 1.1 cgd
531 1.7 jsm const char *const directionname[] = {
532 1.1 cgd "dead ahead",
533 1.1 cgd "off the starboard bow",
534 1.1 cgd "off the starboard beam",
535 1.1 cgd "off the starboard quarter",
536 1.1 cgd "dead astern",
537 1.1 cgd "off the port quarter",
538 1.1 cgd "off the port beam",
539 1.1 cgd "off the port bow",
540 1.1 cgd "dead ahead"
541 1.1 cgd };
542 1.1 cgd
543 1.7 jsm const char *const qualname[] = { "dead", "mutinous", "green", "mundane", "crack", "elite" };
544 1.1 cgd
545 1.7 jsm const char loadname[] = { '-', 'G', 'C', 'R', 'D', 'E' };
546 1.1 cgd
547 1.7 jsm const char dr[] = { 0, 1, 1, 0, -1, -1, -1, 0, 1 };
548 1.7 jsm const char dc[] = { 0, 0, -1, -1, -1, 0, 1, 1, 1 };
549 1.8 jsm
550 1.8 jsm int mode;
551 1.8 jsm jmp_buf restart;
552 1.8 jsm
553 1.8 jsm char randomize; /* -x, give first available ship */
554 1.8 jsm char longfmt; /* -l, print score in long format */
555 1.8 jsm char nobells; /* -b, don't ring bell before Signal */
556 1.8 jsm
557 1.9 jsm gid_t gid;
558 1.9 jsm gid_t egid;
559 1.8 jsm
560 1.8 jsm struct scenario *cc; /* the current scenario */
561 1.8 jsm struct ship *ls; /* &cc->ship[cc->vessels] */
562 1.8 jsm
563 1.8 jsm int winddir;
564 1.8 jsm int windspeed;
565 1.8 jsm int turn;
566 1.8 jsm int game;
567 1.8 jsm int alive;
568 1.8 jsm int people;
569 1.8 jsm char hasdriver;
570