![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pl_3.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / games / sail|
Return to pl_3.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / games / sail |
1.1 root 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 are permitted
6: * provided that the above copyright notice and this paragraph are
7: * duplicated in all such forms and that any documentation,
8: * advertising materials, and other materials related to such
9: * distribution and use acknowledge that the software was developed
10: * by the University of California, Berkeley. The name of the
11: * University may not be used to endorse or promote products derived
12: * from this software without specific prior written permission.
13: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
14: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
15: * WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
16: */
17:
18: #ifndef lint
19: static char sccsid[] = "@(#)pl_3.c 5.3 (Berkeley) 6/18/88";
20: #endif /* not lint */
21:
22: #include "player.h"
23:
24: acceptcombat()
25: {
26: int men = 0;
27: int target, temp;
28: int n, r;
29: int index, rakehim, sternrake;
30: int hhits = 0, ghits = 0, rhits = 0, chits = 0;
31: int crew[3];
32: int load;
33: int guns, car, ready, shootat, hit;
34: int roll;
35: struct ship *closest;
36:
37: crew[0] = mc->crew1;
38: crew[1] = mc->crew2;
39: crew[2] = mc->crew3;
40: for (n = 0; n < 3; n++) {
41: if (mf->OBP[n].turnsent)
42: men += mf->OBP[n].mensent;
43: }
44: for (n = 0; n < 3; n++) {
45: if (mf->DBP[n].turnsent)
46: men += mf->DBP[n].mensent;
47: }
48: if (men) {
49: crew[0] = men/100 ? 0 : crew[0] != 0;
50: crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
51: crew[2] = men%10 ? 0 : crew[2] != 0;
52: }
53: for (r = 0; r < 2; r++) {
54: if (r) {
55: ready = mf->readyR;
56: load = mf->loadR;
57: guns = mc->gunR;
58: car = mc->carR;
59: } else {
60: ready = mf->readyL;
61: load = mf->loadL;
62: guns = mc->gunL;
63: car = mc->carL;
64: }
65: if (!guns && !car || load == L_EMPTY || (ready & R_LOADED) == 0)
66: goto cant;
67: if (mf->struck || !crew[2])
68: goto cant;
69: closest = closestenemy(ms, (r ? 'r' : 'l'), 1);
70: if (closest == 0)
71: goto cant;
72: if (closest->file->struck)
73: goto cant;
74: target = range(ms, closest);
75: if (target > rangeofshot[load] || !guns && target >= 3)
76: goto cant;
77: Signal("%s (%c%c) within range of %s broadside.",
78: closest, r ? "right" : "left");
79: if (load > L_CHAIN && target < 6) {
80: switch (sgetch("Aim for hull or rigging? ",
81: (struct ship *)0, 1)) {
82: case 'r':
83: shootat = RIGGING;
84: break;
85: case 'h':
86: shootat = HULL;
87: break;
88: default:
89: shootat = -1;
90: Signal("'Avast there! Hold your fire.'",
91: (struct ship *)0);
92: }
93: } else {
94: if (sgetch("Fire? ", (struct ship *)0, 1) == 'n') {
95: shootat = -1;
96: Signal("Belay that! Hold your fire.",
97: (struct ship *)0);
98: } else
99: shootat = RIGGING;
100: }
101: if (shootat == -1)
102: continue;
103: fired = 1;
104: rakehim = gunsbear(ms, closest) && !gunsbear(closest, ms);
105: temp = portside(closest, ms, 1) - closest->file->dir + 1;
106: if (temp < 1)
107: temp += 8;
108: else if (temp > 8)
109: temp -= 8;
110: sternrake = temp > 4 && temp < 6;
111: if (rakehim)
112: if (!sternrake)
113: Signal("Raking the %s!", closest);
114: else
115: Signal("Stern Rake! %s splintering!", closest);
116: index = guns;
117: if (target < 3)
118: index += car;
119: index = (index - 1)/3;
120: index = index > 8 ? 8 : index;
121: if (!rakehim)
122: hit = HDT[index][target-1];
123: else
124: hit = HDTrake[index][target-1];
125: if (rakehim && sternrake)
126: hit++;
127: hit += QUAL[index][mc->qual-1];
128: for (n = 0; n < 3 && mf->captured == 0; n++)
129: if (!crew[n])
130: if (index <= 5)
131: hit--;
132: else
133: hit -= 2;
134: if (ready & R_INITIAL)
135: if (index <= 3)
136: hit++;
137: else
138: hit += 2;
139: if (mf->captured != 0)
140: if (index <= 1)
141: hit--;
142: else
143: hit -= 2;
144: hit += AMMO[index][load - 1];
145: if (((temp = mc->class) >= 5 || temp == 1) && windspeed == 5)
146: hit--;
147: if (windspeed == 6 && temp == 4)
148: hit -= 2;
149: if (windspeed == 6 && temp <= 3)
150: hit--;
151: if (hit >= 0) {
152: roll = die();
153: if (load == L_GRAPE)
154: chits = hit;
155: else {
156: struct Tables *t;
157: if (hit > 10)
158: hit = 10;
159: t = &(shootat == RIGGING ? RigTable : HullTable)
160: [hit][roll-1];
161: chits = t->C;
162: rhits = t->R;
163: hhits = t->H;
164: ghits = t->G;
165: if (closest->file->FS)
166: rhits *= 2;
167: if (load == L_CHAIN) {
168: ghits = 0;
169: hhits = 0;
170: }
171: }
172: table(shootat, load, hit, closest, ms, roll);
173: }
174: Signal("Damage inflicted on the %s:",
175: (struct ship *)0, closest->shipname);
176: Signal("\t%d HULL, %d GUNS, %d CREW, %d RIGGING",
177: (struct ship *)0, hhits, ghits, chits, rhits);
178: if (!r) {
179: mf->loadL = L_EMPTY;
180: mf->readyL = R_EMPTY;
181: } else {
182: mf->loadR = L_EMPTY;
183: mf->readyR = R_EMPTY;
184: }
185: continue;
186: cant:
187: Signal("Unable to fire %s broadside",
188: (struct ship *)0, r ? "right" : "left");
189: }
190: blockalarm();
191: draw_stat();
192: unblockalarm();
193: }
194:
195: grapungrap()
196: {
197: register struct ship *sp;
198: register int i;
199:
200: foreachship(sp) {
201: if (sp == ms || sp->file->dir == 0)
202: continue;
203: if (range(ms, sp) > 1 && !grappled2(ms, sp))
204: continue;
205: switch (sgetch("Attempt to grapple or ungrapple %s (%c%c): ",
206: sp, 1)) {
207: case 'g':
208: if (die() < 3
209: || ms->nationality == capship(sp)->nationality) {
210: Write(W_GRAP, ms, 0, sp->file->index, 0, 0, 0);
211: Write(W_GRAP, sp, 0, player, 0, 0, 0);
212: Signal("Attempt succeeds!", (struct ship *)0);
213: makesignal(ms, "grappled with %s (%c%c)", sp);
214: } else
215: Signal("Attempt fails.", (struct ship *)0);
216: break;
217: case 'u':
218: for (i = grappled2(ms, sp); --i >= 0;) {
219: if (ms->nationality
220: == capship(sp)->nationality
221: || die() < 3) {
222: cleangrapple(ms, sp, 0);
223: Signal("Attempt succeeds!",
224: (struct ship *)0);
225: makesignal(ms,
226: "ungrappling with %s (%c%c)",
227: sp);
228: } else
229: Signal("Attempt fails.",
230: (struct ship *)0);
231: }
232: break;
233: }
234: }
235: }
236:
237: unfoulplayer()
238: {
239: register struct ship *to;
240: register i;
241:
242: foreachship(to) {
243: if (fouled2(ms, to) == 0)
244: continue;
245: if (sgetch("Attempt to unfoul with the %s (%c%c)? ", to, 1) != 'y')
246: continue;
247: for (i = fouled2(ms, to); --i >= 0;) {
248: if (die() <= 2) {
249: cleanfoul(ms, to, 0);
250: Signal("Attempt succeeds!", (struct ship *)0);
251: makesignal(ms, "Unfouling %s (%c%c)", to);
252: } else
253: Signal("Attempt fails.", (struct ship *)0);
254: }
255: }
256: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.