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