pl_3.c revision 1.14 1 1.14 jwise /* $NetBSD: pl_3.c,v 1.14 2001/01/04 04:41:41 jwise Exp $ */
2 1.3 cgd
3 1.1 cgd /*
4 1.3 cgd * Copyright (c) 1983, 1993
5 1.3 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.4 christos #include <sys/cdefs.h>
37 1.1 cgd #ifndef lint
38 1.3 cgd #if 0
39 1.3 cgd static char sccsid[] = "@(#)pl_3.c 8.1 (Berkeley) 5/31/93";
40 1.3 cgd #else
41 1.14 jwise __RCSID("$NetBSD: pl_3.c,v 1.14 2001/01/04 04:41:41 jwise Exp $");
42 1.3 cgd #endif
43 1.1 cgd #endif /* not lint */
44 1.1 cgd
45 1.13 jwise #include <signal.h>
46 1.12 jwise #include <stdlib.h>
47 1.14 jwise #include "extern.h"
48 1.1 cgd #include "player.h"
49 1.11 jwise
50 1.11 jwise void acceptcombat(void);
51 1.11 jwise void grapungrap(void);
52 1.11 jwise void unfoulplayer(void);
53 1.1 cgd
54 1.4 christos void
55 1.10 jwise acceptcombat(void)
56 1.1 cgd {
57 1.1 cgd int men = 0;
58 1.1 cgd int target, temp;
59 1.1 cgd int n, r;
60 1.1 cgd int index, rakehim, sternrake;
61 1.1 cgd int hhits = 0, ghits = 0, rhits = 0, chits = 0;
62 1.1 cgd int crew[3];
63 1.1 cgd int load;
64 1.1 cgd int guns, car, ready, shootat, hit;
65 1.1 cgd int roll;
66 1.1 cgd struct ship *closest;
67 1.1 cgd
68 1.1 cgd crew[0] = mc->crew1;
69 1.1 cgd crew[1] = mc->crew2;
70 1.1 cgd crew[2] = mc->crew3;
71 1.1 cgd for (n = 0; n < 3; n++) {
72 1.1 cgd if (mf->OBP[n].turnsent)
73 1.1 cgd men += mf->OBP[n].mensent;
74 1.1 cgd }
75 1.1 cgd for (n = 0; n < 3; n++) {
76 1.1 cgd if (mf->DBP[n].turnsent)
77 1.1 cgd men += mf->DBP[n].mensent;
78 1.1 cgd }
79 1.1 cgd if (men) {
80 1.1 cgd crew[0] = men/100 ? 0 : crew[0] != 0;
81 1.1 cgd crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
82 1.1 cgd crew[2] = men%10 ? 0 : crew[2] != 0;
83 1.1 cgd }
84 1.1 cgd for (r = 0; r < 2; r++) {
85 1.1 cgd if (r) {
86 1.1 cgd ready = mf->readyR;
87 1.1 cgd load = mf->loadR;
88 1.1 cgd guns = mc->gunR;
89 1.1 cgd car = mc->carR;
90 1.1 cgd } else {
91 1.1 cgd ready = mf->readyL;
92 1.1 cgd load = mf->loadL;
93 1.1 cgd guns = mc->gunL;
94 1.1 cgd car = mc->carL;
95 1.1 cgd }
96 1.4 christos if ((!guns && !car) || load == L_EMPTY || (ready & R_LOADED) == 0)
97 1.1 cgd goto cant;
98 1.1 cgd if (mf->struck || !crew[2])
99 1.1 cgd goto cant;
100 1.1 cgd closest = closestenemy(ms, (r ? 'r' : 'l'), 1);
101 1.1 cgd if (closest == 0)
102 1.1 cgd goto cant;
103 1.1 cgd if (closest->file->struck)
104 1.1 cgd goto cant;
105 1.1 cgd target = range(ms, closest);
106 1.4 christos if (target > rangeofshot[load] || (!guns && target >= 3))
107 1.1 cgd goto cant;
108 1.5 christos Signal("$$ within range of %s broadside.",
109 1.1 cgd closest, r ? "right" : "left");
110 1.1 cgd if (load > L_CHAIN && target < 6) {
111 1.1 cgd switch (sgetch("Aim for hull or rigging? ",
112 1.1 cgd (struct ship *)0, 1)) {
113 1.1 cgd case 'r':
114 1.1 cgd shootat = RIGGING;
115 1.1 cgd break;
116 1.1 cgd case 'h':
117 1.1 cgd shootat = HULL;
118 1.1 cgd break;
119 1.1 cgd default:
120 1.1 cgd shootat = -1;
121 1.4 christos Msg("'Avast there! Hold your fire.'");
122 1.1 cgd }
123 1.1 cgd } else {
124 1.1 cgd if (sgetch("Fire? ", (struct ship *)0, 1) == 'n') {
125 1.1 cgd shootat = -1;
126 1.4 christos Msg("Belay that! Hold your fire.");
127 1.1 cgd } else
128 1.1 cgd shootat = RIGGING;
129 1.1 cgd }
130 1.1 cgd if (shootat == -1)
131 1.1 cgd continue;
132 1.1 cgd fired = 1;
133 1.1 cgd rakehim = gunsbear(ms, closest) && !gunsbear(closest, ms);
134 1.1 cgd temp = portside(closest, ms, 1) - closest->file->dir + 1;
135 1.1 cgd if (temp < 1)
136 1.1 cgd temp += 8;
137 1.1 cgd else if (temp > 8)
138 1.1 cgd temp -= 8;
139 1.1 cgd sternrake = temp > 4 && temp < 6;
140 1.6 veego if (rakehim) {
141 1.1 cgd if (!sternrake)
142 1.5 christos Msg("Raking the %s!", closest->shipname);
143 1.1 cgd else
144 1.5 christos Msg("Stern Rake! %s splintering!",
145 1.5 christos closest->shipname);
146 1.6 veego }
147 1.1 cgd index = guns;
148 1.1 cgd if (target < 3)
149 1.1 cgd index += car;
150 1.1 cgd index = (index - 1)/3;
151 1.1 cgd index = index > 8 ? 8 : index;
152 1.1 cgd if (!rakehim)
153 1.1 cgd hit = HDT[index][target-1];
154 1.1 cgd else
155 1.1 cgd hit = HDTrake[index][target-1];
156 1.1 cgd if (rakehim && sternrake)
157 1.1 cgd hit++;
158 1.1 cgd hit += QUAL[index][mc->qual-1];
159 1.1 cgd for (n = 0; n < 3 && mf->captured == 0; n++)
160 1.6 veego if (!crew[n]) {
161 1.1 cgd if (index <= 5)
162 1.1 cgd hit--;
163 1.1 cgd else
164 1.1 cgd hit -= 2;
165 1.6 veego }
166 1.6 veego if (ready & R_INITIAL) {
167 1.1 cgd if (index <= 3)
168 1.1 cgd hit++;
169 1.1 cgd else
170 1.1 cgd hit += 2;
171 1.6 veego }
172 1.6 veego if (mf->captured != 0) {
173 1.1 cgd if (index <= 1)
174 1.1 cgd hit--;
175 1.1 cgd else
176 1.1 cgd hit -= 2;
177 1.6 veego }
178 1.1 cgd hit += AMMO[index][load - 1];
179 1.1 cgd if (((temp = mc->class) >= 5 || temp == 1) && windspeed == 5)
180 1.1 cgd hit--;
181 1.1 cgd if (windspeed == 6 && temp == 4)
182 1.1 cgd hit -= 2;
183 1.1 cgd if (windspeed == 6 && temp <= 3)
184 1.1 cgd hit--;
185 1.1 cgd if (hit >= 0) {
186 1.9 jwise roll = dieroll();
187 1.1 cgd if (load == L_GRAPE)
188 1.1 cgd chits = hit;
189 1.1 cgd else {
190 1.8 jsm const struct Tables *t;
191 1.1 cgd if (hit > 10)
192 1.1 cgd hit = 10;
193 1.1 cgd t = &(shootat == RIGGING ? RigTable : HullTable)
194 1.1 cgd [hit][roll-1];
195 1.1 cgd chits = t->C;
196 1.1 cgd rhits = t->R;
197 1.1 cgd hhits = t->H;
198 1.1 cgd ghits = t->G;
199 1.1 cgd if (closest->file->FS)
200 1.1 cgd rhits *= 2;
201 1.1 cgd if (load == L_CHAIN) {
202 1.1 cgd ghits = 0;
203 1.1 cgd hhits = 0;
204 1.1 cgd }
205 1.1 cgd }
206 1.1 cgd table(shootat, load, hit, closest, ms, roll);
207 1.1 cgd }
208 1.4 christos Msg("Damage inflicted on the %s:", closest->shipname);
209 1.4 christos Msg("\t%d HULL, %d GUNS, %d CREW, %d RIGGING",
210 1.4 christos hhits, ghits, chits, rhits);
211 1.1 cgd if (!r) {
212 1.1 cgd mf->loadL = L_EMPTY;
213 1.1 cgd mf->readyL = R_EMPTY;
214 1.1 cgd } else {
215 1.1 cgd mf->loadR = L_EMPTY;
216 1.1 cgd mf->readyR = R_EMPTY;
217 1.1 cgd }
218 1.1 cgd continue;
219 1.1 cgd cant:
220 1.4 christos Msg("Unable to fire %s broadside", r ? "right" : "left");
221 1.1 cgd }
222 1.1 cgd blockalarm();
223 1.1 cgd draw_stat();
224 1.1 cgd unblockalarm();
225 1.1 cgd }
226 1.1 cgd
227 1.4 christos void
228 1.10 jwise grapungrap(void)
229 1.1 cgd {
230 1.4 christos struct ship *sp;
231 1.4 christos int i;
232 1.1 cgd
233 1.1 cgd foreachship(sp) {
234 1.1 cgd if (sp == ms || sp->file->dir == 0)
235 1.1 cgd continue;
236 1.1 cgd if (range(ms, sp) > 1 && !grappled2(ms, sp))
237 1.1 cgd continue;
238 1.5 christos switch (sgetch("Attempt to grapple or ungrapple $$: ",
239 1.1 cgd sp, 1)) {
240 1.1 cgd case 'g':
241 1.9 jwise if (dieroll() < 3
242 1.1 cgd || ms->nationality == capship(sp)->nationality) {
243 1.7 hubertf Write(W_GRAP, ms, sp->file->index, 0, 0, 0);
244 1.7 hubertf Write(W_GRAP, sp, player, 0, 0, 0);
245 1.4 christos Msg("Attempt succeeds!");
246 1.5 christos makesignal(ms, "grappled with $$", sp);
247 1.1 cgd } else
248 1.4 christos Msg("Attempt fails.");
249 1.1 cgd break;
250 1.1 cgd case 'u':
251 1.1 cgd for (i = grappled2(ms, sp); --i >= 0;) {
252 1.1 cgd if (ms->nationality
253 1.1 cgd == capship(sp)->nationality
254 1.9 jwise || dieroll() < 3) {
255 1.1 cgd cleangrapple(ms, sp, 0);
256 1.4 christos Msg("Attempt succeeds!");
257 1.5 christos makesignal(ms, "ungrappling with $$",
258 1.1 cgd sp);
259 1.1 cgd } else
260 1.4 christos Msg("Attempt fails.");
261 1.1 cgd }
262 1.1 cgd break;
263 1.1 cgd }
264 1.1 cgd }
265 1.1 cgd }
266 1.1 cgd
267 1.4 christos void
268 1.10 jwise unfoulplayer(void)
269 1.1 cgd {
270 1.4 christos struct ship *to;
271 1.4 christos int i;
272 1.1 cgd
273 1.1 cgd foreachship(to) {
274 1.1 cgd if (fouled2(ms, to) == 0)
275 1.1 cgd continue;
276 1.5 christos if (sgetch("Attempt to unfoul with the $$? ", to, 1) != 'y')
277 1.1 cgd continue;
278 1.1 cgd for (i = fouled2(ms, to); --i >= 0;) {
279 1.9 jwise if (dieroll() <= 2) {
280 1.1 cgd cleanfoul(ms, to, 0);
281 1.4 christos Msg("Attempt succeeds!");
282 1.5 christos makesignal(ms, "Unfouling $$", to);
283 1.1 cgd } else
284 1.4 christos Msg("Attempt fails.");
285 1.1 cgd }
286 1.1 cgd }
287 1.1 cgd }
288