[unix-history] / usr / othersrc / games / sail / dr_1.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[] = "@(#)dr_1.c	5.4 (Berkeley) 6/1/90";
#endif /* not lint */

#include "driver.h"

unfoul()
{
	register struct ship *sp;
	struct ship *to;
	register int nat;
	register i;

	foreachship(sp) {
		if (sp->file->captain[0])
			continue;
		nat = capship(sp)->nationality;
		foreachship(to) {
			if (nat != capship(to)->nationality &&
			    !toughmelee(sp, to, 0, 0))
				continue;
			for (i = fouled2(sp, to); --i >= 0;)
				if (die() <= 2)
					cleanfoul(sp, to, 0);
		}
	}
}

boardcomp()
{
	int crew[3];
	register struct ship *sp, *sq;

	foreachship(sp) {
		if (*sp->file->captain)
			continue;
		if (sp->file->dir == 0)
			continue;
		if (sp->file->struck || sp->file->captured != 0)
			continue;
		if (!snagged(sp))
			continue;
		crew[0] = sp->specs->crew1 != 0;
		crew[1] = sp->specs->crew2 != 0;
		crew[2] = sp->specs->crew3 != 0;
		foreachship(sq) {
			if (!Xsnagged2(sp, sq))
				continue;
			if (meleeing(sp, sq))
				continue;
			if (!sq->file->dir
				|| sp->nationality == capship(sq)->nationality)
				continue;
			switch (sp->specs->class - sq->specs->class) {
			case -3: case -4: case -5:
				if (crew[0]) {
					/* OBP */
					sendbp(sp, sq, crew[0]*100, 0);
					crew[0] = 0;
				} else if (crew[1]){
					/* OBP */
					sendbp(sp, sq, crew[1]*10, 0);
					crew[1] = 0;
				}
				break;
			case -2:
				if (crew[0] || crew[1]) {
					/* OBP */
					sendbp(sp, sq, crew[0]*100+crew[1]*10,
						0);
					crew[0] = crew[1] = 0;
				}
				break;
			case -1: case 0: case 1:
				if (crew[0]) {
					/* OBP */
					sendbp(sp, sq, crew[0]*100+crew[1]*10,
						0);
					crew[0] = crew[1] = 0;
				}
				break;
			case 2: case 3: case 4: case 5:
				/* OBP */
				sendbp(sp, sq, crew[0]*100+crew[1]*10+crew[2],
					0);
				crew[0] = crew[1] = crew[2] = 0;
				break;
			}
		}
	}
}

fightitout(from, to, key)
struct ship *from, *to;
int key;
{
	struct ship *fromcap, *tocap;
	int crewfrom[3], crewto[3], menfrom, mento;
	int pcto, pcfrom, fromstrength, strengthto, frominjured, toinjured;
	int topoints;
	int index, totalfrom = 0, totalto = 0;
	int count;
	char message[60];

	menfrom = mensent(from, to, crewfrom, &fromcap, &pcfrom, key);
	mento = mensent(to, from, crewto, &tocap, &pcto, 0);
	if (fromcap == 0)
		fromcap = from;
	if (tocap == 0)
		tocap = to;
	if (key) {
		if (!menfrom) {		 /* if crew surprised */
			if (fromcap == from)
				menfrom = from->specs->crew1
					+ from->specs->crew2
					+ from->specs->crew3;
			else
				menfrom = from->file->pcrew;
		} else {
			menfrom *= 2;	/* DBP's fight at an advantage */
		}
	}
	fromstrength = menfrom * fromcap->specs->qual;
	strengthto = mento * tocap->specs->qual;
	for (count = 0;
	     (fromstrength < strengthto * 3 && strengthto < fromstrength * 3
	      || fromstrength == -1) && count < 4;
	     count++) {
		index = fromstrength/10;
		if (index > 8)
			index = 8;
		toinjured = MT[index][2 - die() / 3];
		totalto += toinjured;
		index = strengthto/10;
		if (index > 8)
			index = 8;
		frominjured = MT[index][2 - die() / 3];
		totalfrom += frominjured;
		menfrom -= frominjured;
		mento -= toinjured;
		fromstrength = menfrom * fromcap->specs->qual;
		strengthto = mento * tocap->specs->qual;
	}
	if (fromstrength >= strengthto * 3 || count == 4) {
		unboard(to, from, 0);
		subtract(from, totalfrom, crewfrom, fromcap, pcfrom);
		subtract(to, totalto, crewto, tocap, pcto);
		makesignal(from, "boarders from %s repelled", to);
		(void) sprintf(message, "killed in melee: %d.  %s: %d",
			totalto, from->shipname, totalfrom);
		Write(W_SIGNAL, to, 1, (int) message, 0, 0, 0);
		if (key)
			return 1;
	} else if (strengthto >= fromstrength * 3) {
		unboard(from, to, 0);
		subtract(from, totalfrom, crewfrom, fromcap, pcfrom);
		subtract(to, totalto, crewto, tocap, pcto);
		if (key) {
			if (fromcap != from)
				Write(W_POINTS, fromcap, 0,
					fromcap->file->points -
						from->file->struck
						? from->specs->pts
						: 2 * from->specs->pts,
					0, 0, 0);

/* ptr1 points to the shipspec for the ship that was just unboarded.
   I guess that what is going on here is that the pointer is multiplied
   or something. */

			Write(W_CAPTURED, from, 0, to->file->index, 0, 0, 0);
			topoints = 2 * from->specs->pts + to->file->points;
			if (from->file->struck)
				topoints -= from->specs->pts;
			Write(W_POINTS, to, 0, topoints, 0, 0, 0);
			mento = crewto[0] ? crewto[0] : crewto[1];
			if (mento) {
				subtract(to, mento, crewto, tocap, pcto);
				subtract(from, - mento, crewfrom, to, 0);
			}
			(void) sprintf(message, "captured by the %s!",
				to->shipname);
			Write(W_SIGNAL, from, 1, (int) message, 0, 0, 0);
			(void) sprintf(message, "killed in melee: %d.  %s: %d",
				totalto, from->shipname, totalfrom);
			Write(W_SIGNAL, to, 1, (int) message, 0, 0, 0);
			mento = 0;
			return 0;
		}
	}
	return 0;
}

resolve()
{
	int thwart;
	register struct ship *sp, *sq;

	foreachship(sp) {
		if (sp->file->dir == 0)
			continue;
		for (sq = sp + 1; sq < ls; sq++)
			if (sq->file->dir && meleeing(sp, sq) && meleeing(sq, sp))
				(void) fightitout(sp, sq, 0);
		thwart = 2;
		foreachship(sq) {
			if (sq->file->dir && meleeing(sq, sp))
				thwart = fightitout(sp, sq, 1);
			if (!thwart)
				break;
		}
		if (!thwart) {
			foreachship(sq) {
				if (sq->file->dir && meleeing(sq, sp))
					unboard(sq, sp, 0);
				unboard(sp, sq, 0);
			}
			unboard(sp, sp, 1);
		} else if (thwart == 2)
			unboard(sp, sp, 1);
	}
}

compcombat()
{
	register n;
	register struct ship *sp;
	struct ship *closest;
	int crew[3], men = 0, target, temp;
	int r, guns, ready, load, car;
	int index, rakehim, sternrake;
	int shootat, hit;

	foreachship(sp) {
		if (sp->file->captain[0] || sp->file->dir == 0)
			continue;
		crew[0] = sp->specs->crew1;
		crew[1] = sp->specs->crew2;
		crew[2] = sp->specs->crew3;
		for (n = 0; n < 3; n++) {
			if (sp->file->OBP[n].turnsent)
				men += sp->file->OBP[n].mensent;
		}
		for (n = 0; n < 3; n++) {
			if (sp->file->DBP[n].turnsent)
				men += sp->file->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 (!crew[2])
				continue;
			if (sp->file->struck)
				continue;
			if (r) {
				ready = sp->file->readyR;
				guns = sp->specs->gunR;
				car = sp->specs->carR;
			} else {
				ready = sp->file->readyL;
				guns = sp->specs->gunL;
				car = sp->specs->carL;
			}
			if (!guns && !car)
				continue;
			if ((ready & R_LOADED) == 0)
				continue;
			closest = closestenemy(sp, r ? 'r' : 'l', 0);
			if (closest == 0)
				continue;
			if (range(closest, sp) > range(sp, closestenemy(sp, r ? 'r' : 'l', 1)))
				continue;
			if (closest->file->struck)
				continue;
			target = range(sp, closest);
			if (target > 10)
				continue;
			if (!guns && target >= 3)
				continue;
			load = L_ROUND;
			if (target == 1 && sp->file->loadwith == L_GRAPE)
				load = L_GRAPE;
			if (target <= 3 && closest->file->FS)
				load = L_CHAIN;
			if (target == 1 && load != L_GRAPE)
				load = L_DOUBLE;
			if (load > L_CHAIN && target < 6)
				shootat = HULL;
			else
				shootat = RIGGING;
			rakehim = gunsbear(sp, closest)
				&& !gunsbear(closest, sp);
			temp = portside(closest, sp, 1)
				- closest->file->dir + 1;
			if (temp < 1)
				temp += 8;
			if (temp > 8)
				temp -= 8;
			sternrake = temp > 4 && temp < 6;
			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][capship(sp)->specs->qual - 1];
			for (n = 0; n < 3 && sp->file->captured == 0; n++)
				if (!crew[n])
					if (index <= 5)
						hit--;
					else
						hit -= 2;
			if (ready & R_INITIAL) {
				if (!r)
					sp->file->readyL &= ~R_INITIAL;
				else
					sp->file->readyR &= ~R_INITIAL;
				if (index <= 3)
					hit++;
				else
					hit += 2;
			}
			if (sp->file->captured != 0)
				if (index <= 1)
					hit--;
				else
					hit -= 2;
			hit += AMMO[index][load - 1];
			temp = sp->specs->class;
			if ((temp >= 5 || temp == 1) && windspeed == 5)
				hit--;
			if (windspeed == 6 && temp == 4)
				hit -= 2;
			if (windspeed == 6 && temp <= 3)
				hit--;
			if (hit >= 0) {
				if (load != L_GRAPE)
					hit = hit > 10 ? 10 : hit;
				table(shootat, load, hit, closest, sp, die());
			}
		}
	}
}

next()
{
	if (++turn % 55 == 0)
		if (alive)
			alive = 0;
		else
			people = 0;
	if (people <= 0 || windspeed == 7) {
		register struct ship *s;
		struct ship *bestship;
		float net, best = 0.0;
		foreachship(s) {
			if (*s->file->captain)
				continue;
			net = (float)s->file->points / s->specs->pts;
			if (net > best) {
				best = net;
				bestship = s;
			}
		}
		if (best > 0.0) {
			char *p = getenv("WOTD");
			if (p == 0)
				p = "Driver";
			if (islower(*p))
				*p = toupper(*p);
			(void) strncpy(bestship->file->captain, p,
				sizeof bestship->file->captain);
			bestship->file->captain
				[sizeof bestship->file->captain - 1] = 0;
			log(bestship);
		}
		return -1;
	}
	Write(W_TURN, SHIP(0), 0, turn, 0, 0, 0);
	if (turn % 7 == 0 && (die() >= cc->windchange || !windspeed)) {
		switch (die()) {
		case 1:
			winddir = 1;
			break;
		case 2:
			break;
		case 3:
			winddir++;
			break;
		case 4:
			winddir--;
			break;
		case 5:
			winddir += 2;
			break;
		case 6:
			winddir -= 2;
			break;
		}
		if (winddir > 8)
			winddir -= 8;
		if (winddir < 1)
			winddir += 8;
		if (windspeed)
			switch (die()) {
			case 1:
			case 2:
				windspeed--;
				break;
			case 5:
			case 6:
				windspeed++;
				break;
			}
		else
			windspeed++;
		Write(W_WIND, SHIP(0), 0, winddir, windspeed, 0, 0);
	}
	return 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[] = "@(#)dr_1.c 5.4 (Berkeley) 6/1/90";
	36	#endif /* not lint */
	37
	38	#include "driver.h"
	39
	40	unfoul()
	41	{
	42	register struct ship *sp;
	43	struct ship *to;
	44	register int nat;
	45	register i;
	46
	47	foreachship(sp) {
	48	if (sp->file->captain[0])
	49	continue;
	50	nat = capship(sp)->nationality;
	51	foreachship(to) {
	52	if (nat != capship(to)->nationality &&
	53	!toughmelee(sp, to, 0, 0))
	54	continue;
	55	for (i = fouled2(sp, to); --i >= 0;)
	56	if (die() <= 2)
	57	cleanfoul(sp, to, 0);
	58	}
	59	}
	60	}
	61
	62	boardcomp()
	63	{
	64	int crew[3];
65	register struct ship sp, sq;
66
67	foreachship(sp) {
68	if (*sp->file->captain)
69	continue;
70	if (sp->file->dir == 0)
71	continue;
72	if (sp->file->struck \|\| sp->file->captured != 0)
73	continue;
74	if (!snagged(sp))
75	continue;
76	crew[0] = sp->specs->crew1 != 0;
77	crew[1] = sp->specs->crew2 != 0;
78	crew[2] = sp->specs->crew3 != 0;
79	foreachship(sq) {
80	if (!Xsnagged2(sp, sq))
81	continue;
82	if (meleeing(sp, sq))
83	continue;
84	if (!sq->file->dir
85	\|\| sp->nationality == capship(sq)->nationality)
86	continue;
87	switch (sp->specs->class - sq->specs->class) {
88	case -3: case -4: case -5:
89	if (crew[0]) {
90	/* OBP */
91	sendbp(sp, sq, crew[0]*100, 0);
92	crew[0] = 0;
93	} else if (crew[1]){
94	/* OBP */
95	sendbp(sp, sq, crew[1]*10, 0);
96	crew[1] = 0;
97	}
98	break;
99	case -2:
100	if (crew[0] \|\| crew[1]) {
101	/* OBP */
102	sendbp(sp, sq, crew[0]100+crew[1]10,
103	0);
104	crew[0] = crew[1] = 0;
105	}
106	break;
107	case -1: case 0: case 1:
108	if (crew[0]) {
109	/* OBP */
110	sendbp(sp, sq, crew[0]100+crew[1]10,
111	0);
112	crew[0] = crew[1] = 0;
113	}
114	break;
115	case 2: case 3: case 4: case 5:
116	/* OBP */
117	sendbp(sp, sq, crew[0]100+crew[1]10+crew[2],
118	0);
119	crew[0] = crew[1] = crew[2] = 0;
120	break;
121	}
122	}
123	}
124	}
125
126	fightitout(from, to, key)
127	struct ship from, to;
128	int key;
129	{
130	struct ship fromcap, tocap;
131	int crewfrom[3], crewto[3], menfrom, mento;
132	int pcto, pcfrom, fromstrength, strengthto, frominjured, toinjured;
133	int topoints;
134	int index, totalfrom = 0, totalto = 0;
135	int count;
136	char message[60];
137
138	menfrom = mensent(from, to, crewfrom, &fromcap, &pcfrom, key);
139	mento = mensent(to, from, crewto, &tocap, &pcto, 0);
140	if (fromcap == 0)
141	fromcap = from;
142	if (tocap == 0)
143	tocap = to;
144	if (key) {
145	if (!menfrom) { /* if crew surprised */
146	if (fromcap == from)
147	menfrom = from->specs->crew1
148	+ from->specs->crew2
149	+ from->specs->crew3;
150	else
151	menfrom = from->file->pcrew;
152	} else {
153	menfrom = 2; / DBP's fight at an advantage */
154	}
155	}
156	fromstrength = menfrom * fromcap->specs->qual;
157	strengthto = mento * tocap->specs->qual;
158	for (count = 0;
159	(fromstrength < strengthto * 3 && strengthto < fromstrength * 3
160	\|\| fromstrength == -1) && count < 4;
161	count++) {
162	index = fromstrength/10;
163	if (index > 8)
164	index = 8;
165	toinjured = MT[index][2 - die() / 3];
166	totalto += toinjured;
167	index = strengthto/10;
168	if (index > 8)
169	index = 8;
170	frominjured = MT[index][2 - die() / 3];
171	totalfrom += frominjured;
172	menfrom -= frominjured;
173	mento -= toinjured;
174	fromstrength = menfrom * fromcap->specs->qual;
175	strengthto = mento * tocap->specs->qual;
176	}
177	if (fromstrength >= strengthto * 3 \|\| count == 4) {
178	unboard(to, from, 0);
179	subtract(from, totalfrom, crewfrom, fromcap, pcfrom);
180	subtract(to, totalto, crewto, tocap, pcto);
181	makesignal(from, "boarders from %s repelled", to);
182	(void) sprintf(message, "killed in melee: %d. %s: %d",
183	totalto, from->shipname, totalfrom);
184	Write(W_SIGNAL, to, 1, (int) message, 0, 0, 0);
185	if (key)
186	return 1;
187	} else if (strengthto >= fromstrength * 3) {
188	unboard(from, to, 0);
189	subtract(from, totalfrom, crewfrom, fromcap, pcfrom);
190	subtract(to, totalto, crewto, tocap, pcto);
191	if (key) {
192	if (fromcap != from)
193	Write(W_POINTS, fromcap, 0,
194	fromcap->file->points -
195	from->file->struck
196	? from->specs->pts
197	: 2 * from->specs->pts,
198	0, 0, 0);
199
200	/* ptr1 points to the shipspec for the ship that was just unboarded.
201	I guess that what is going on here is that the pointer is multiplied
202	or something. */
203
204	Write(W_CAPTURED, from, 0, to->file->index, 0, 0, 0);
205	topoints = 2 * from->specs->pts + to->file->points;
206	if (from->file->struck)
207	topoints -= from->specs->pts;
208	Write(W_POINTS, to, 0, topoints, 0, 0, 0);
209	mento = crewto[0] ? crewto[0] : crewto[1];
210	if (mento) {
211	subtract(to, mento, crewto, tocap, pcto);
212	subtract(from, - mento, crewfrom, to, 0);
213	}
214	(void) sprintf(message, "captured by the %s!",
215	to->shipname);
216	Write(W_SIGNAL, from, 1, (int) message, 0, 0, 0);
217	(void) sprintf(message, "killed in melee: %d. %s: %d",
218	totalto, from->shipname, totalfrom);
219	Write(W_SIGNAL, to, 1, (int) message, 0, 0, 0);
220	mento = 0;
221	return 0;
222	}
223	}
224	return 0;
225	}
226
227	resolve()
228	{
229	int thwart;
230	register struct ship sp, sq;
231
232	foreachship(sp) {
233	if (sp->file->dir == 0)
234	continue;
235	for (sq = sp + 1; sq < ls; sq++)
236	if (sq->file->dir && meleeing(sp, sq) && meleeing(sq, sp))
237	(void) fightitout(sp, sq, 0);
238	thwart = 2;
239	foreachship(sq) {
240	if (sq->file->dir && meleeing(sq, sp))
241	thwart = fightitout(sp, sq, 1);
242	if (!thwart)
243	break;
244	}
245	if (!thwart) {
246	foreachship(sq) {
247	if (sq->file->dir && meleeing(sq, sp))
248	unboard(sq, sp, 0);
249	unboard(sp, sq, 0);
250	}
251	unboard(sp, sp, 1);
252	} else if (thwart == 2)
253	unboard(sp, sp, 1);
254	}
255	}
256
257	compcombat()
258	{
259	register n;
260	register struct ship *sp;
261	struct ship *closest;
262	int crew[3], men = 0, target, temp;
263	int r, guns, ready, load, car;
264	int index, rakehim, sternrake;
265	int shootat, hit;
266
267	foreachship(sp) {
268	if (sp->file->captain[0] \|\| sp->file->dir == 0)
269	continue;
270	crew[0] = sp->specs->crew1;
271	crew[1] = sp->specs->crew2;
272	crew[2] = sp->specs->crew3;
273	for (n = 0; n < 3; n++) {
274	if (sp->file->OBP[n].turnsent)
275	men += sp->file->OBP[n].mensent;
276	}
277	for (n = 0; n < 3; n++) {
278	if (sp->file->DBP[n].turnsent)
279	men += sp->file->DBP[n].mensent;
280	}
281	if (men){
282	crew[0] = men/100 ? 0 : crew[0] != 0;
283	crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
284	crew[2] = men%10 ? 0 : crew[2] != 0;
285	}
286	for (r = 0; r < 2; r++) {
287	if (!crew[2])
288	continue;
289	if (sp->file->struck)
290	continue;
291	if (r) {
292	ready = sp->file->readyR;
293	guns = sp->specs->gunR;
294	car = sp->specs->carR;
295	} else {
296	ready = sp->file->readyL;
297	guns = sp->specs->gunL;
298	car = sp->specs->carL;
299	}
300	if (!guns && !car)
301	continue;
302	if ((ready & R_LOADED) == 0)
303	continue;
304	closest = closestenemy(sp, r ? 'r' : 'l', 0);
305	if (closest == 0)
306	continue;
307	if (range(closest, sp) > range(sp, closestenemy(sp, r ? 'r' : 'l', 1)))
308	continue;
309	if (closest->file->struck)
310	continue;
311	target = range(sp, closest);
312	if (target > 10)
313	continue;
314	if (!guns && target >= 3)
315	continue;
316	load = L_ROUND;
317	if (target == 1 && sp->file->loadwith == L_GRAPE)
318	load = L_GRAPE;
319	if (target <= 3 && closest->file->FS)
320	load = L_CHAIN;
321	if (target == 1 && load != L_GRAPE)
322	load = L_DOUBLE;
323	if (load > L_CHAIN && target < 6)
324	shootat = HULL;
325	else
326	shootat = RIGGING;
327	rakehim = gunsbear(sp, closest)
328	&& !gunsbear(closest, sp);
329	temp = portside(closest, sp, 1)
330	- closest->file->dir + 1;
331	if (temp < 1)
332	temp += 8;
333	if (temp > 8)
334	temp -= 8;
335	sternrake = temp > 4 && temp < 6;
336	index = guns;
337	if (target < 3)
338	index += car;
339	index = (index - 1) / 3;
340	index = index > 8 ? 8 : index;
341	if (!rakehim)
342	hit = HDT[index][target-1];
343	else
344	hit = HDTrake[index][target-1];
345	if (rakehim && sternrake)
346	hit++;
347	hit += QUAL[index][capship(sp)->specs->qual - 1];
348	for (n = 0; n < 3 && sp->file->captured == 0; n++)
349	if (!crew[n])
350	if (index <= 5)
351	hit--;
352	else
353	hit -= 2;
354	if (ready & R_INITIAL) {
355	if (!r)
356	sp->file->readyL &= ~R_INITIAL;
357	else
358	sp->file->readyR &= ~R_INITIAL;
359	if (index <= 3)
360	hit++;
361	else
362	hit += 2;
363	}
364	if (sp->file->captured != 0)
365	if (index <= 1)
366	hit--;
367	else
368	hit -= 2;
369	hit += AMMO[index][load - 1];
370	temp = sp->specs->class;
371	if ((temp >= 5 \|\| temp == 1) && windspeed == 5)
372	hit--;
373	if (windspeed == 6 && temp == 4)
374	hit -= 2;
375	if (windspeed == 6 && temp <= 3)
376	hit--;
377	if (hit >= 0) {
378	if (load != L_GRAPE)
379	hit = hit > 10 ? 10 : hit;
380	table(shootat, load, hit, closest, sp, die());
381	}
382	}
383	}
384	}
385
386	next()
387	{
388	if (++turn % 55 == 0)
389	if (alive)
390	alive = 0;
391	else
392	people = 0;
393	if (people <= 0 \|\| windspeed == 7) {
394	register struct ship *s;
395	struct ship *bestship;
396	float net, best = 0.0;
397	foreachship(s) {
398	if (*s->file->captain)
399	continue;
400	net = (float)s->file->points / s->specs->pts;
401	if (net > best) {
402	best = net;
403	bestship = s;
404	}
405	}
406	if (best > 0.0) {
407	char *p = getenv("WOTD");
408	if (p == 0)
409	p = "Driver";
410	if (islower(*p))
411	p = toupper(p);
412	(void) strncpy(bestship->file->captain, p,
413	sizeof bestship->file->captain);
414	bestship->file->captain
415	[sizeof bestship->file->captain - 1] = 0;
416	log(bestship);
417	}
418	return -1;
419	}
420	Write(W_TURN, SHIP(0), 0, turn, 0, 0, 0);
421	if (turn % 7 == 0 && (die() >= cc->windchange \|\| !windspeed)) {
422	switch (die()) {
423	case 1:
424	winddir = 1;
425	break;
426	case 2:
427	break;
428	case 3:
429	winddir++;
430	break;
431	case 4:
432	winddir--;
433	break;
434	case 5:
435	winddir += 2;
436	break;
437	case 6:
438	winddir -= 2;
439	break;
440	}
441	if (winddir > 8)
442	winddir -= 8;
443	if (winddir < 1)
444	winddir += 8;
445	if (windspeed)
446	switch (die()) {
447	case 1:
448	case 2:
449	windspeed--;
450	break;
451	case 5:
452	case 6:
453	windspeed++;
454	break;
455	}
456	else
457	windspeed++;
458	Write(W_WIND, SHIP(0), 0, winddir, windspeed, 0, 0);
459	}
460	return 0;
461	}