sail/dr_1.c

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