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