[unix-history] / usr / othersrc / games / sail / pl_3.c

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *	This product includes software developed by the University of
 *	California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#ifndef lint
static char sccsid[] = "@(#)pl_3.c	5.4 (Berkeley) 6/1/90";
#endif /* not lint */

#include "player.h"

acceptcombat()
{
	int men = 0;
	int target, temp;
	int n, r;
	int index, rakehim, sternrake;
	int hhits = 0, ghits = 0, rhits = 0, chits = 0;
	int crew[3];
	int load;
	int guns, car, ready, shootat, hit;
	int roll;
	struct ship *closest;

	crew[0] = mc->crew1;
	crew[1] = mc->crew2;
	crew[2] = mc->crew3;
	for (n = 0; n < 3; n++) {
		if (mf->OBP[n].turnsent)
			men += mf->OBP[n].mensent;
	}
	for (n = 0; n < 3; n++) {
		if (mf->DBP[n].turnsent)
			men += mf->DBP[n].mensent;
	}
	if (men) {
		crew[0] = men/100 ? 0 : crew[0] != 0;
		crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
		crew[2] = men%10 ? 0 : crew[2] != 0;
	}
	for (r = 0; r < 2; r++) {
		if (r) {
			ready = mf->readyR;
			load = mf->loadR;
			guns = mc->gunR;
			car = mc->carR;
		} else {
			ready = mf->readyL;
			load = mf->loadL;
			guns = mc->gunL;
			car = mc->carL;
		}
		if (!guns && !car || load == L_EMPTY || (ready & R_LOADED) == 0)
			goto cant;
		if (mf->struck || !crew[2])
			goto cant;
		closest = closestenemy(ms, (r ? 'r' : 'l'), 1);
		if (closest == 0)
			goto cant;
		if (closest->file->struck)
			goto cant;
		target = range(ms, closest);
		if (target > rangeofshot[load] || !guns && target >= 3)
			goto cant;
		Signal("%s (%c%c) within range of %s broadside.",
			closest, r ? "right" : "left");
		if (load > L_CHAIN && target < 6) {
			switch (sgetch("Aim for hull or rigging? ",
				(struct ship *)0, 1)) {
			case 'r':
				shootat = RIGGING;
				break;
			case 'h':
				shootat = HULL;
				break;
			default:
				shootat = -1;
				Signal("'Avast there! Hold your fire.'",
					(struct ship *)0);
			}
		} else {
			if (sgetch("Fire? ", (struct ship *)0, 1) == 'n') {
				shootat = -1;
				Signal("Belay that! Hold your fire.",
					(struct ship *)0);
			} else
				shootat = RIGGING;
		}
		if (shootat == -1)
			continue;
		fired = 1;
		rakehim = gunsbear(ms, closest) && !gunsbear(closest, ms);
		temp = portside(closest, ms, 1) - closest->file->dir + 1;
		if (temp < 1)
			temp += 8;
		else if (temp > 8)
			temp -= 8;
		sternrake = temp > 4 && temp < 6;
		if (rakehim)
			if (!sternrake)
				Signal("Raking the %s!", closest);
			else
				Signal("Stern Rake! %s splintering!", closest);
		index = guns;
		if (target < 3)
			index += car;
		index = (index - 1)/3;
		index = index > 8 ? 8 : index;
		if (!rakehim)
			hit = HDT[index][target-1];
		else
			hit = HDTrake[index][target-1];
		if (rakehim && sternrake)
			hit++;
		hit += QUAL[index][mc->qual-1];
		for (n = 0; n < 3 && mf->captured == 0; n++)
			if (!crew[n])
				if (index <= 5)
					hit--;
				else
					hit -= 2;
		if (ready & R_INITIAL)
			if (index <= 3)
				hit++;
			else
				hit += 2;
		if (mf->captured != 0)
			if (index <= 1)
				hit--;
			else
				hit -= 2;
		hit += AMMO[index][load - 1];
		if (((temp = mc->class) >= 5 || temp == 1) && windspeed == 5)
			hit--;
		if (windspeed == 6 && temp == 4)
			hit -= 2;
		if (windspeed == 6 && temp <= 3)
			hit--;
		if (hit >= 0) {
			roll = die();
			if (load == L_GRAPE)
				chits = hit;
			else {
				struct Tables *t;
				if (hit > 10)
					hit = 10;
				t = &(shootat == RIGGING ? RigTable : HullTable)
					[hit][roll-1];
				chits = t->C;
				rhits = t->R;
				hhits = t->H;
				ghits = t->G;
				if (closest->file->FS)
					rhits *= 2;
				if (load == L_CHAIN) {
					ghits = 0;
					hhits = 0;
				}
			}
			table(shootat, load, hit, closest, ms, roll);
		}
		Signal("Damage inflicted on the %s:",
			(struct ship *)0, closest->shipname);
		Signal("\t%d HULL, %d GUNS, %d CREW, %d RIGGING",
			(struct ship *)0, hhits, ghits, chits, rhits);
		if (!r) {
			mf->loadL = L_EMPTY;
			mf->readyL = R_EMPTY;
		} else {
			mf->loadR = L_EMPTY;
			mf->readyR = R_EMPTY;
		}
		continue;
	cant:
		Signal("Unable to fire %s broadside",
			(struct ship *)0, r ? "right" : "left");
	}
	blockalarm();
	draw_stat();
	unblockalarm();
}

grapungrap()
{
	register struct ship *sp;
	register int i;

	foreachship(sp) {
		if (sp == ms || sp->file->dir == 0)
			continue;
		if (range(ms, sp) > 1 && !grappled2(ms, sp))
			continue;
		switch (sgetch("Attempt to grapple or ungrapple %s (%c%c): ",
			sp, 1)) {
		case 'g':
			if (die() < 3
			    || ms->nationality == capship(sp)->nationality) {
				Write(W_GRAP, ms, 0, sp->file->index, 0, 0, 0);
				Write(W_GRAP, sp, 0, player, 0, 0, 0);
				Signal("Attempt succeeds!", (struct ship *)0);
				makesignal(ms, "grappled with %s (%c%c)", sp);
			} else
				Signal("Attempt fails.", (struct ship *)0);
			break;
		case 'u':
			for (i = grappled2(ms, sp); --i >= 0;) {
				if (ms->nationality
					== capship(sp)->nationality
				    || die() < 3) {
					cleangrapple(ms, sp, 0);
					Signal("Attempt succeeds!",
						(struct ship *)0);
					makesignal(ms,
						"ungrappling with %s (%c%c)",
						sp);
				} else
					Signal("Attempt fails.",
						(struct ship *)0);
			}
			break;
		}
	}
}

unfoulplayer()
{
	register struct ship *to;
	register i;

	foreachship(to) {
		if (fouled2(ms, to) == 0)
			continue;
		if (sgetch("Attempt to unfoul with the %s (%c%c)? ", to, 1) != 'y')
			continue;
		for (i = fouled2(ms, to); --i >= 0;) {
			if (die() <= 2) {
				cleanfoul(ms, to, 0);
				Signal("Attempt succeeds!", (struct ship *)0);
				makesignal(ms, "Unfouling %s (%c%c)", to);
			} else
				Signal("Attempt fails.", (struct ship *)0);
		}
	}
}
Commit	Line	Data
65717166 WJ	1	/*
	2	* Copyright (c) 1983 Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* Redistribution and use in source and binary forms, with or without
	6	* modification, are permitted provided that the following conditions
	7	* are met:
	8	* 1. Redistributions of source code must retain the above copyright
	9	* notice, this list of conditions and the following disclaimer.
	10	* 2. Redistributions in binary form must reproduce the above copyright
	11	* notice, this list of conditions and the following disclaimer in the
	12	* documentation and/or other materials provided with the distribution.
	13	* 3. All advertising materials mentioning features or use of this software
	14	* must display the following acknowledgement:
	15	* This product includes software developed by the University of
	16	* California, Berkeley and its contributors.
	17	* 4. Neither the name of the University nor the names of its contributors
	18	* may be used to endorse or promote products derived from this software
	19	* without specific prior written permission.
	20	*
	21	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	22	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	23	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	24	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	25	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	26	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	27	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	28	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	29	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	30	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	31	* SUCH DAMAGE.
	32	*/
	33
	34	#ifndef lint
	35	static char sccsid[] = "@(#)pl_3.c 5.4 (Berkeley) 6/1/90";
	36	#endif /* not lint */
	37
	38	#include "player.h"
	39
	40	acceptcombat()
	41	{
	42	int men = 0;
	43	int target, temp;
	44	int n, r;
	45	int index, rakehim, sternrake;
	46	int hhits = 0, ghits = 0, rhits = 0, chits = 0;
	47	int crew[3];
	48	int load;
	49	int guns, car, ready, shootat, hit;
	50	int roll;
	51	struct ship *closest;
	52
	53	crew[0] = mc->crew1;
	54	crew[1] = mc->crew2;
	55	crew[2] = mc->crew3;
	56	for (n = 0; n < 3; n++) {
	57	if (mf->OBP[n].turnsent)
	58	men += mf->OBP[n].mensent;
	59	}
	60	for (n = 0; n < 3; n++) {
	61	if (mf->DBP[n].turnsent)
	62	men += mf->DBP[n].mensent;
	63	}
	64	if (men) {
65	crew[0] = men/100 ? 0 : crew[0] != 0;
66	crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
67	crew[2] = men%10 ? 0 : crew[2] != 0;
68	}
69	for (r = 0; r < 2; r++) {
70	if (r) {
71	ready = mf->readyR;
72	load = mf->loadR;
73	guns = mc->gunR;
74	car = mc->carR;
75	} else {
76	ready = mf->readyL;
77	load = mf->loadL;
78	guns = mc->gunL;
79	car = mc->carL;
80	}
81	if (!guns && !car \|\| load == L_EMPTY \|\| (ready & R_LOADED) == 0)
82	goto cant;
83	if (mf->struck \|\| !crew[2])
84	goto cant;
85	closest = closestenemy(ms, (r ? 'r' : 'l'), 1);
86	if (closest == 0)
87	goto cant;
88	if (closest->file->struck)
89	goto cant;
90	target = range(ms, closest);
91	if (target > rangeofshot[load] \|\| !guns && target >= 3)
92	goto cant;
93	Signal("%s (%c%c) within range of %s broadside.",
94	closest, r ? "right" : "left");
95	if (load > L_CHAIN && target < 6) {
96	switch (sgetch("Aim for hull or rigging? ",
97	(struct ship *)0, 1)) {
98	case 'r':
99	shootat = RIGGING;
100	break;
101	case 'h':
102	shootat = HULL;
103	break;
104	default:
105	shootat = -1;
106	Signal("'Avast there! Hold your fire.'",
107	(struct ship *)0);
108	}
109	} else {
110	if (sgetch("Fire? ", (struct ship *)0, 1) == 'n') {
111	shootat = -1;
112	Signal("Belay that! Hold your fire.",
113	(struct ship *)0);
114	} else
115	shootat = RIGGING;
116	}
117	if (shootat == -1)
118	continue;
119	fired = 1;
120	rakehim = gunsbear(ms, closest) && !gunsbear(closest, ms);
121	temp = portside(closest, ms, 1) - closest->file->dir + 1;
122	if (temp < 1)
123	temp += 8;
124	else if (temp > 8)
125	temp -= 8;
126	sternrake = temp > 4 && temp < 6;
127	if (rakehim)
128	if (!sternrake)
129	Signal("Raking the %s!", closest);
130	else
131	Signal("Stern Rake! %s splintering!", closest);
132	index = guns;
133	if (target < 3)
134	index += car;
135	index = (index - 1)/3;
136	index = index > 8 ? 8 : index;
137	if (!rakehim)
138	hit = HDT[index][target-1];
139	else
140	hit = HDTrake[index][target-1];
141	if (rakehim && sternrake)
142	hit++;
143	hit += QUAL[index][mc->qual-1];
144	for (n = 0; n < 3 && mf->captured == 0; n++)
145	if (!crew[n])
146	if (index <= 5)
147	hit--;
148	else
149	hit -= 2;
150	if (ready & R_INITIAL)
151	if (index <= 3)
152	hit++;
153	else
154	hit += 2;
155	if (mf->captured != 0)
156	if (index <= 1)
157	hit--;
158	else
159	hit -= 2;
160	hit += AMMO[index][load - 1];
161	if (((temp = mc->class) >= 5 \|\| temp == 1) && windspeed == 5)
162	hit--;
163	if (windspeed == 6 && temp == 4)
164	hit -= 2;
165	if (windspeed == 6 && temp <= 3)
166	hit--;
167	if (hit >= 0) {
168	roll = die();
169	if (load == L_GRAPE)
170	chits = hit;
171	else {
172	struct Tables *t;
173	if (hit > 10)
174	hit = 10;
175	t = &(shootat == RIGGING ? RigTable : HullTable)
176	[hit][roll-1];
177	chits = t->C;
178	rhits = t->R;
179	hhits = t->H;
180	ghits = t->G;
181	if (closest->file->FS)
182	rhits *= 2;
183	if (load == L_CHAIN) {
184	ghits = 0;
185	hhits = 0;
186	}
187	}
188	table(shootat, load, hit, closest, ms, roll);
189	}
190	Signal("Damage inflicted on the %s:",
191	(struct ship *)0, closest->shipname);
192	Signal("\t%d HULL, %d GUNS, %d CREW, %d RIGGING",
193	(struct ship *)0, hhits, ghits, chits, rhits);
194	if (!r) {
195	mf->loadL = L_EMPTY;
196	mf->readyL = R_EMPTY;
197	} else {
198	mf->loadR = L_EMPTY;
199	mf->readyR = R_EMPTY;
200	}
201	continue;
202	cant:
203	Signal("Unable to fire %s broadside",
204	(struct ship *)0, r ? "right" : "left");
205	}
206	blockalarm();
207	draw_stat();
208	unblockalarm();
209	}
210
211	grapungrap()
212	{
213	register struct ship *sp;
214	register int i;
215
216	foreachship(sp) {
217	if (sp == ms \|\| sp->file->dir == 0)
218	continue;
219	if (range(ms, sp) > 1 && !grappled2(ms, sp))
220	continue;
221	switch (sgetch("Attempt to grapple or ungrapple %s (%c%c): ",
222	sp, 1)) {
223	case 'g':
224	if (die() < 3
225	\|\| ms->nationality == capship(sp)->nationality) {
226	Write(W_GRAP, ms, 0, sp->file->index, 0, 0, 0);
227	Write(W_GRAP, sp, 0, player, 0, 0, 0);
228	Signal("Attempt succeeds!", (struct ship *)0);
229	makesignal(ms, "grappled with %s (%c%c)", sp);
230	} else
231	Signal("Attempt fails.", (struct ship *)0);
232	break;
233	case 'u':
234	for (i = grappled2(ms, sp); --i >= 0;) {
235	if (ms->nationality
236	== capship(sp)->nationality
237	\|\| die() < 3) {
238	cleangrapple(ms, sp, 0);
239	Signal("Attempt succeeds!",
240	(struct ship *)0);
241	makesignal(ms,
242	"ungrappling with %s (%c%c)",
243	sp);
244	} else
245	Signal("Attempt fails.",
246	(struct ship *)0);
247	}
248	break;
249	}
250	}
251	}
252
253	unfoulplayer()
254	{
255	register struct ship *to;
256	register i;
257
258	foreachship(to) {
259	if (fouled2(ms, to) == 0)
260	continue;
261	if (sgetch("Attempt to unfoul with the %s (%c%c)? ", to, 1) != 'y')
262	continue;
263	for (i = fouled2(ms, to); --i >= 0;) {
264	if (die() <= 2) {
265	cleanfoul(ms, to, 0);
266	Signal("Attempt succeeds!", (struct ship *)0);
267	makesignal(ms, "Unfouling %s (%c%c)", to);
268	} else
269	Signal("Attempt fails.", (struct ship *)0);
270	}
271	}
272	}