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