dr_1.c revision 1.24
1 /* $NetBSD: dr_1.c,v 1.24 2009/03/09 04:38:39 dholland Exp $ */ 2 3 /* 4 * Copyright (c) 1983, 1993 5 * The Regents of the University of California. All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 3. Neither the name of the University nor the names of its contributors 16 * may be used to endorse or promote products derived from this software 17 * without specific prior written permission. 18 * 19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 29 * SUCH DAMAGE. 30 */ 31 32 #include <sys/cdefs.h> 33 #ifndef lint 34 #if 0 35 static char sccsid[] = "@(#)dr_1.c 8.1 (Berkeley) 5/31/93"; 36 #else 37 __RCSID("$NetBSD: dr_1.c,v 1.24 2009/03/09 04:38:39 dholland Exp $"); 38 #endif 39 #endif /* not lint */ 40 41 #include <ctype.h> 42 #include <stdio.h> 43 #include <stdlib.h> 44 #include <string.h> 45 #include "extern.h" 46 #include "driver.h" 47 48 static int fightitout(struct ship *, struct ship *, int); 49 50 void 51 unfoul(void) 52 { 53 struct ship *sp; 54 struct ship *to; 55 int nat; 56 int i; 57 58 foreachship(sp) { 59 if (sp->file->captain[0]) 60 continue; 61 nat = capship(sp)->nationality; 62 foreachship(to) { 63 if (nat != capship(to)->nationality && 64 !is_toughmelee(sp, to, 0, 0)) 65 continue; 66 for (i = fouled2(sp, to); --i >= 0;) 67 if (dieroll() <= 2) 68 cleanfoul(sp, to, 0); 69 } 70 } 71 } 72 73 void 74 boardcomp(void) 75 { 76 int crew[3]; 77 struct ship *sp, *sq; 78 79 foreachship(sp) { 80 if (*sp->file->captain) 81 continue; 82 if (sp->file->dir == 0) 83 continue; 84 if (sp->file->struck || sp->file->captured != 0) 85 continue; 86 if (!snagged(sp)) 87 continue; 88 crew[0] = sp->specs->crew1 != 0; 89 crew[1] = sp->specs->crew2 != 0; 90 crew[2] = sp->specs->crew3 != 0; 91 foreachship(sq) { 92 if (!Xsnagged2(sp, sq)) 93 continue; 94 if (meleeing(sp, sq)) 95 continue; 96 if (!sq->file->dir 97 || sp->nationality == capship(sq)->nationality) 98 continue; 99 switch (sp->specs->class - sq->specs->class) { 100 case -3: case -4: case -5: 101 if (crew[0]) { 102 /* OBP */ 103 sendbp(sp, sq, crew[0]*100, 0); 104 crew[0] = 0; 105 } else if (crew[1]){ 106 /* OBP */ 107 sendbp(sp, sq, crew[1]*10, 0); 108 crew[1] = 0; 109 } 110 break; 111 case -2: 112 if (crew[0] || crew[1]) { 113 /* OBP */ 114 sendbp(sp, sq, crew[0]*100+crew[1]*10, 115 0); 116 crew[0] = crew[1] = 0; 117 } 118 break; 119 case -1: case 0: case 1: 120 if (crew[0]) { 121 /* OBP */ 122 sendbp(sp, sq, crew[0]*100+crew[1]*10, 123 0); 124 crew[0] = crew[1] = 0; 125 } 126 break; 127 case 2: case 3: case 4: case 5: 128 /* OBP */ 129 sendbp(sp, sq, crew[0]*100+crew[1]*10+crew[2], 130 0); 131 crew[0] = crew[1] = crew[2] = 0; 132 break; 133 } 134 } 135 } 136 } 137 138 static int 139 fightitout(struct ship *from, struct ship *to, int key) 140 { 141 struct ship *fromcap, *tocap; 142 int crewfrom[3], crewto[3], menfrom, mento; 143 int pcto, pcfrom, fromstrength, strengthto, frominjured, toinjured; 144 int topoints; 145 int indx, totalfrom = 0, totalto = 0; 146 int count; 147 char message[60]; 148 149 menfrom = mensent(from, to, crewfrom, &fromcap, &pcfrom, key); 150 mento = mensent(to, from, crewto, &tocap, &pcto, 0); 151 if (fromcap == 0) 152 fromcap = from; 153 if (tocap == 0) 154 tocap = to; 155 if (key) { 156 if (!menfrom) { /* if crew surprised */ 157 if (fromcap == from) 158 menfrom = from->specs->crew1 159 + from->specs->crew2 160 + from->specs->crew3; 161 else 162 menfrom = from->file->pcrew; 163 } else { 164 menfrom *= 2; /* DBP's fight at an advantage */ 165 } 166 } 167 fromstrength = menfrom * fromcap->specs->qual; 168 strengthto = mento * tocap->specs->qual; 169 for (count = 0; 170 ((fromstrength < strengthto * 3 && strengthto < fromstrength * 3) 171 || fromstrength == -1) && count < 4; 172 count++) { 173 indx = fromstrength/10; 174 if (indx > 8) 175 indx = 8; 176 toinjured = MT[indx][2 - dieroll() / 3]; 177 totalto += toinjured; 178 indx = strengthto/10; 179 if (indx > 8) 180 indx = 8; 181 frominjured = MT[indx][2 - dieroll() / 3]; 182 totalfrom += frominjured; 183 menfrom -= frominjured; 184 mento -= toinjured; 185 fromstrength = menfrom * fromcap->specs->qual; 186 strengthto = mento * tocap->specs->qual; 187 } 188 if (fromstrength >= strengthto * 3 || count == 4) { 189 unboard(to, from, 0); 190 subtract(from, fromcap, totalfrom, crewfrom, pcfrom); 191 subtract(to, tocap, totalto, crewto, pcto); 192 makemsg(from, "boarders from %s repelled", to->shipname); 193 snprintf(message, sizeof(message), 194 "killed in melee: %d. %s: %d", 195 totalto, from->shipname, totalfrom); 196 Writestr(W_SIGNAL, to, message); 197 if (key) 198 return 1; 199 } else if (strengthto >= fromstrength * 3) { 200 unboard(from, to, 0); 201 subtract(from, fromcap, totalfrom, crewfrom, pcfrom); 202 subtract(to, tocap, totalto, crewto, pcto); 203 if (key) { 204 if (fromcap != from) 205 Write(W_POINTS, fromcap, 206 fromcap->file->points - 207 from->file->struck 208 ? from->specs->pts 209 : 2 * from->specs->pts, 210 0, 0, 0); 211 212 /* ptr1 points to the shipspec for the ship that was just unboarded. 213 I guess that what is going on here is that the pointer is multiplied 214 or something. */ 215 216 Write(W_CAPTURED, from, to->file->index, 0, 0, 0); 217 topoints = 2 * from->specs->pts + to->file->points; 218 if (from->file->struck) 219 topoints -= from->specs->pts; 220 Write(W_POINTS, to, topoints, 0, 0, 0); 221 mento = crewto[0] ? crewto[0] : crewto[1]; 222 if (mento) { 223 subtract(to, tocap, mento, crewto, pcto); 224 subtract(from, to, - mento, crewfrom, 0); 225 } 226 snprintf(message, sizeof(message), 227 "captured by the %s!", to->shipname); 228 Writestr(W_SIGNAL, from, message); 229 snprintf(message, sizeof(message), 230 "killed in melee: %d. %s: %d", 231 totalto, from->shipname, totalfrom); 232 Writestr(W_SIGNAL, to, message); 233 mento = 0; 234 return 0; 235 } 236 } 237 return 0; 238 } 239 240 void 241 resolve(void) 242 { 243 int thwart; 244 struct ship *sp, *sq; 245 246 foreachship(sp) { 247 if (sp->file->dir == 0) 248 continue; 249 for (sq = sp + 1; sq < ls; sq++) 250 if (sq->file->dir && meleeing(sp, sq) && meleeing(sq, sp)) 251 fightitout(sp, sq, 0); 252 thwart = 2; 253 foreachship(sq) { 254 if (sq->file->dir && meleeing(sq, sp)) 255 thwart = fightitout(sp, sq, 1); 256 if (!thwart) 257 break; 258 } 259 if (!thwart) { 260 foreachship(sq) { 261 if (sq->file->dir && meleeing(sq, sp)) 262 unboard(sq, sp, 0); 263 unboard(sp, sq, 0); 264 } 265 unboard(sp, sp, 1); 266 } else if (thwart == 2) 267 unboard(sp, sp, 1); 268 } 269 } 270 271 void 272 compcombat(void) 273 { 274 int n; 275 struct ship *sp; 276 struct ship *closest; 277 int crew[3], men = 0, target, temp; 278 int r, guns, ready, load, car; 279 int indx, rakehim, sternrake; 280 int shootat, hit; 281 282 foreachship(sp) { 283 if (sp->file->captain[0] || sp->file->dir == 0) 284 continue; 285 crew[0] = sp->specs->crew1; 286 crew[1] = sp->specs->crew2; 287 crew[2] = sp->specs->crew3; 288 for (n = 0; n < 3; n++) { 289 if (sp->file->OBP[n].turnsent) 290 men += sp->file->OBP[n].mensent; 291 } 292 for (n = 0; n < 3; n++) { 293 if (sp->file->DBP[n].turnsent) 294 men += sp->file->DBP[n].mensent; 295 } 296 if (men){ 297 crew[0] = men/100 ? 0 : crew[0] != 0; 298 crew[1] = (men%100)/10 ? 0 : crew[1] != 0; 299 crew[2] = men%10 ? 0 : crew[2] != 0; 300 } 301 for (r = 0; r < 2; r++) { 302 if (!crew[2]) 303 continue; 304 if (sp->file->struck) 305 continue; 306 if (r) { 307 ready = sp->file->readyR; 308 guns = sp->specs->gunR; 309 car = sp->specs->carR; 310 } else { 311 ready = sp->file->readyL; 312 guns = sp->specs->gunL; 313 car = sp->specs->carL; 314 } 315 if (!guns && !car) 316 continue; 317 if ((ready & R_LOADED) == 0) 318 continue; 319 closest = closestenemy(sp, r ? 'r' : 'l', 0); 320 if (closest == 0) 321 continue; 322 if (range(closest, sp) > range(sp, closestenemy(sp, r ? 'r' : 'l', 1))) 323 continue; 324 if (closest->file->struck) 325 continue; 326 target = range(sp, closest); 327 if (target > 10) 328 continue; 329 if (!guns && target >= 3) 330 continue; 331 load = L_ROUND; 332 if (target == 1 && sp->file->loadwith == L_GRAPE) 333 load = L_GRAPE; 334 if (target <= 3 && closest->file->FS) 335 load = L_CHAIN; 336 if (target == 1 && load != L_GRAPE) 337 load = L_DOUBLE; 338 if (load > L_CHAIN && target < 6) 339 shootat = HULL; 340 else 341 shootat = RIGGING; 342 rakehim = gunsbear(sp, closest) 343 && !gunsbear(closest, sp); 344 temp = portside(closest, sp, 1) 345 - closest->file->dir + 1; 346 if (temp < 1) 347 temp += 8; 348 if (temp > 8) 349 temp -= 8; 350 sternrake = temp > 4 && temp < 6; 351 indx = guns; 352 if (target < 3) 353 indx += car; 354 indx = (indx - 1) / 3; 355 indx = indx > 8 ? 8 : indx; 356 if (!rakehim) 357 hit = HDT[indx][target-1]; 358 else 359 hit = HDTrake[indx][target-1]; 360 if (rakehim && sternrake) 361 hit++; 362 hit += QUAL[indx][capship(sp)->specs->qual - 1]; 363 for (n = 0; n < 3 && sp->file->captured == 0; n++) 364 if (!crew[n]) { 365 if (indx <= 5) 366 hit--; 367 else 368 hit -= 2; 369 } 370 if (ready & R_INITIAL) { 371 if (!r) 372 sp->file->readyL &= ~R_INITIAL; 373 else 374 sp->file->readyR &= ~R_INITIAL; 375 if (indx <= 3) 376 hit++; 377 else 378 hit += 2; 379 } 380 if (sp->file->captured != 0) { 381 if (indx <= 1) 382 hit--; 383 else 384 hit -= 2; 385 } 386 hit += AMMO[indx][load - 1]; 387 temp = sp->specs->class; 388 if ((temp >= 5 || temp == 1) && windspeed == 5) 389 hit--; 390 if (windspeed == 6 && temp == 4) 391 hit -= 2; 392 if (windspeed == 6 && temp <= 3) 393 hit--; 394 if (hit >= 0) { 395 if (load != L_GRAPE) 396 hit = hit > 10 ? 10 : hit; 397 table(sp, closest, shootat, load, hit, dieroll()); 398 } 399 } 400 } 401 } 402 403 int 404 next(void) 405 { 406 if (++turn % 55 == 0) { 407 if (alive) 408 alive = 0; 409 else 410 people = 0; 411 } 412 if (people <= 0 || windspeed == 7) { 413 struct ship *s; 414 struct ship *bestship = NULL; 415 float net, best = 0.0; 416 foreachship(s) { 417 if (*s->file->captain) 418 continue; 419 net = (float)s->file->points / s->specs->pts; 420 if (net > best) { 421 best = net; 422 bestship = s; 423 } 424 } 425 if (best > 0.0 && bestship) { 426 char *tp = getenv("WOTD"); 427 const char *p; 428 if (tp == 0) 429 p = "Driver"; 430 else { 431 *tp = toupper((unsigned char)*tp); 432 p = tp; 433 } 434 strlcpy(bestship->file->captain, p, 435 sizeof bestship->file->captain); 436 logger(bestship); 437 } 438 return -1; 439 } 440 Write(W_TURN, SHIP(0), turn, 0, 0, 0); 441 if (turn % 7 == 0 && (dieroll() >= cc->windchange || !windspeed)) { 442 switch (dieroll()) { 443 case 1: 444 winddir = 1; 445 break; 446 case 2: 447 break; 448 case 3: 449 winddir++; 450 break; 451 case 4: 452 winddir--; 453 break; 454 case 5: 455 winddir += 2; 456 break; 457 case 6: 458 winddir -= 2; 459 break; 460 } 461 if (winddir > 8) 462 winddir -= 8; 463 if (winddir < 1) 464 winddir += 8; 465 if (windspeed) 466 switch (dieroll()) { 467 case 1: 468 case 2: 469 windspeed--; 470 break; 471 case 5: 472 case 6: 473 windspeed++; 474 break; 475 } 476 else 477 windspeed++; 478 Write(W_WIND, SHIP(0), winddir, windspeed, 0, 0); 479 } 480 return 0; 481 } 482
Indexes created Sun Nov 02 07:10:05 GMT 2025