386BSD 0.1 development
[unix-history] / usr / othersrc / games / sail / dr_5.c
CommitLineData
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
35static char sccsid[] = "@(#)dr_5.c 5.4 (Berkeley) 6/1/90";
36#endif /* not lint */
37
38#include "externs.h"
39
40subtract(from, totalfrom, crewfrom, fromcap, pcfrom)
41struct ship *from, *fromcap;
42int pcfrom;
43register int totalfrom, crewfrom[3];
44{
45 register int n;
46
47 if (fromcap == from && totalfrom) { /* if not captured */
48 for (n = 0; n < 3; n++) {
49 if (totalfrom > crewfrom[n]) {
50 totalfrom -= crewfrom[n];
51 crewfrom[n] = 0;
52 } else {
53 crewfrom[n] -= totalfrom;
54 totalfrom = 0;
55 }
56 }
57 Write(W_CREW, from, 0, crewfrom[0], crewfrom[1], crewfrom[2], 0);
58 } else if (totalfrom) {
59 pcfrom -= totalfrom;
60 pcfrom = pcfrom < 0 ? 0 : pcfrom;
61 Write(W_PCREW, from, 0, pcfrom, 0, 0, 0);
62 }
63}
64
65mensent(from, to, crew, captured, pc, isdefense)
66struct ship *from, *to, **captured;
67int crew[3], *pc;
68char isdefense;
69{ /* returns # of crew squares sent */
70 int men = 0;
71 register int n;
72 int c1, c2, c3;
73 register struct BP *bp;
74
75 *pc = from->file->pcrew;
76 *captured = from->file->captured;
77 crew[0] = from->specs->crew1;
78 crew[1] = from->specs->crew2;
79 crew[2] = from->specs->crew3;
80 bp = isdefense ? from->file->DBP : from->file->OBP;
81 for (n=0; n < NBP; n++, bp++) {
82 if (bp->turnsent && bp->toship == to)
83 men += bp->mensent;
84 }
85 if (men) {
86 c1 = men/100 ? crew[0] : 0;
87 c2 = (men%100)/10 ? crew[1] : 0;
88 c3 = men/10 ? crew[2] : 0;
89 c3 = *captured == 0 ? crew[2] : *pc;
90 } else
91 c1 = c2 = c3 = 0;
92 return(c1 + c2 + c3);
93}