Home | History | Annotate | Line # | Download | only in sail
pl_3.c revision 1.14
      1  1.14     jwise /*	$NetBSD: pl_3.c,v 1.14 2001/01/04 04:41:41 jwise Exp $	*/
      2   1.3       cgd 
      3   1.1       cgd /*
      4   1.3       cgd  * Copyright (c) 1983, 1993
      5   1.3       cgd  *	The Regents of the University of California.  All rights reserved.
      6   1.1       cgd  *
      7   1.1       cgd  * Redistribution and use in source and binary forms, with or without
      8   1.1       cgd  * modification, are permitted provided that the following conditions
      9   1.1       cgd  * are met:
     10   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     11   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     12   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     14   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     15   1.1       cgd  * 3. All advertising materials mentioning features or use of this software
     16   1.1       cgd  *    must display the following acknowledgement:
     17   1.1       cgd  *	This product includes software developed by the University of
     18   1.1       cgd  *	California, Berkeley and its contributors.
     19   1.1       cgd  * 4. Neither the name of the University nor the names of its contributors
     20   1.1       cgd  *    may be used to endorse or promote products derived from this software
     21   1.1       cgd  *    without specific prior written permission.
     22   1.1       cgd  *
     23   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     24   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     25   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     26   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     27   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     28   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     29   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     30   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     31   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     32   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     33   1.1       cgd  * SUCH DAMAGE.
     34   1.1       cgd  */
     35   1.1       cgd 
     36   1.4  christos #include <sys/cdefs.h>
     37   1.1       cgd #ifndef lint
     38   1.3       cgd #if 0
     39   1.3       cgd static char sccsid[] = "@(#)pl_3.c	8.1 (Berkeley) 5/31/93";
     40   1.3       cgd #else
     41  1.14     jwise __RCSID("$NetBSD: pl_3.c,v 1.14 2001/01/04 04:41:41 jwise Exp $");
     42   1.3       cgd #endif
     43   1.1       cgd #endif /* not lint */
     44   1.1       cgd 
     45  1.13     jwise #include <signal.h>
     46  1.12     jwise #include <stdlib.h>
     47  1.14     jwise #include "extern.h"
     48   1.1       cgd #include "player.h"
     49  1.11     jwise 
     50  1.11     jwise void	acceptcombat(void);
     51  1.11     jwise void	grapungrap(void);
     52  1.11     jwise void	unfoulplayer(void);
     53   1.1       cgd 
     54   1.4  christos void
     55  1.10     jwise acceptcombat(void)
     56   1.1       cgd {
     57   1.1       cgd 	int men = 0;
     58   1.1       cgd 	int target, temp;
     59   1.1       cgd 	int n, r;
     60   1.1       cgd 	int index, rakehim, sternrake;
     61   1.1       cgd 	int hhits = 0, ghits = 0, rhits = 0, chits = 0;
     62   1.1       cgd 	int crew[3];
     63   1.1       cgd 	int load;
     64   1.1       cgd 	int guns, car, ready, shootat, hit;
     65   1.1       cgd 	int roll;
     66   1.1       cgd 	struct ship *closest;
     67   1.1       cgd 
     68   1.1       cgd 	crew[0] = mc->crew1;
     69   1.1       cgd 	crew[1] = mc->crew2;
     70   1.1       cgd 	crew[2] = mc->crew3;
     71   1.1       cgd 	for (n = 0; n < 3; n++) {
     72   1.1       cgd 		if (mf->OBP[n].turnsent)
     73   1.1       cgd 			men += mf->OBP[n].mensent;
     74   1.1       cgd 	}
     75   1.1       cgd 	for (n = 0; n < 3; n++) {
     76   1.1       cgd 		if (mf->DBP[n].turnsent)
     77   1.1       cgd 			men += mf->DBP[n].mensent;
     78   1.1       cgd 	}
     79   1.1       cgd 	if (men) {
     80   1.1       cgd 		crew[0] = men/100 ? 0 : crew[0] != 0;
     81   1.1       cgd 		crew[1] = (men%100)/10 ? 0 : crew[1] != 0;
     82   1.1       cgd 		crew[2] = men%10 ? 0 : crew[2] != 0;
     83   1.1       cgd 	}
     84   1.1       cgd 	for (r = 0; r < 2; r++) {
     85   1.1       cgd 		if (r) {
     86   1.1       cgd 			ready = mf->readyR;
     87   1.1       cgd 			load = mf->loadR;
     88   1.1       cgd 			guns = mc->gunR;
     89   1.1       cgd 			car = mc->carR;
     90   1.1       cgd 		} else {
     91   1.1       cgd 			ready = mf->readyL;
     92   1.1       cgd 			load = mf->loadL;
     93   1.1       cgd 			guns = mc->gunL;
     94   1.1       cgd 			car = mc->carL;
     95   1.1       cgd 		}
     96   1.4  christos 		if ((!guns && !car) || load == L_EMPTY || (ready & R_LOADED) == 0)
     97   1.1       cgd 			goto cant;
     98   1.1       cgd 		if (mf->struck || !crew[2])
     99   1.1       cgd 			goto cant;
    100   1.1       cgd 		closest = closestenemy(ms, (r ? 'r' : 'l'), 1);
    101   1.1       cgd 		if (closest == 0)
    102   1.1       cgd 			goto cant;
    103   1.1       cgd 		if (closest->file->struck)
    104   1.1       cgd 			goto cant;
    105   1.1       cgd 		target = range(ms, closest);
    106   1.4  christos 		if (target > rangeofshot[load] || (!guns && target >= 3))
    107   1.1       cgd 			goto cant;
    108   1.5  christos 		Signal("$$ within range of %s broadside.",
    109   1.1       cgd 			closest, r ? "right" : "left");
    110   1.1       cgd 		if (load > L_CHAIN && target < 6) {
    111   1.1       cgd 			switch (sgetch("Aim for hull or rigging? ",
    112   1.1       cgd 				(struct ship *)0, 1)) {
    113   1.1       cgd 			case 'r':
    114   1.1       cgd 				shootat = RIGGING;
    115   1.1       cgd 				break;
    116   1.1       cgd 			case 'h':
    117   1.1       cgd 				shootat = HULL;
    118   1.1       cgd 				break;
    119   1.1       cgd 			default:
    120   1.1       cgd 				shootat = -1;
    121   1.4  christos 				Msg("'Avast there! Hold your fire.'");
    122   1.1       cgd 			}
    123   1.1       cgd 		} else {
    124   1.1       cgd 			if (sgetch("Fire? ", (struct ship *)0, 1) == 'n') {
    125   1.1       cgd 				shootat = -1;
    126   1.4  christos 				Msg("Belay that! Hold your fire.");
    127   1.1       cgd 			} else
    128   1.1       cgd 				shootat = RIGGING;
    129   1.1       cgd 		}
    130   1.1       cgd 		if (shootat == -1)
    131   1.1       cgd 			continue;
    132   1.1       cgd 		fired = 1;
    133   1.1       cgd 		rakehim = gunsbear(ms, closest) && !gunsbear(closest, ms);
    134   1.1       cgd 		temp = portside(closest, ms, 1) - closest->file->dir + 1;
    135   1.1       cgd 		if (temp < 1)
    136   1.1       cgd 			temp += 8;
    137   1.1       cgd 		else if (temp > 8)
    138   1.1       cgd 			temp -= 8;
    139   1.1       cgd 		sternrake = temp > 4 && temp < 6;
    140   1.6     veego 		if (rakehim) {
    141   1.1       cgd 			if (!sternrake)
    142   1.5  christos 				Msg("Raking the %s!", closest->shipname);
    143   1.1       cgd 			else
    144   1.5  christos 				Msg("Stern Rake! %s splintering!",
    145   1.5  christos 				    closest->shipname);
    146   1.6     veego 		}
    147   1.1       cgd 		index = guns;
    148   1.1       cgd 		if (target < 3)
    149   1.1       cgd 			index += car;
    150   1.1       cgd 		index = (index - 1)/3;
    151   1.1       cgd 		index = index > 8 ? 8 : index;
    152   1.1       cgd 		if (!rakehim)
    153   1.1       cgd 			hit = HDT[index][target-1];
    154   1.1       cgd 		else
    155   1.1       cgd 			hit = HDTrake[index][target-1];
    156   1.1       cgd 		if (rakehim && sternrake)
    157   1.1       cgd 			hit++;
    158   1.1       cgd 		hit += QUAL[index][mc->qual-1];
    159   1.1       cgd 		for (n = 0; n < 3 && mf->captured == 0; n++)
    160   1.6     veego 			if (!crew[n]) {
    161   1.1       cgd 				if (index <= 5)
    162   1.1       cgd 					hit--;
    163   1.1       cgd 				else
    164   1.1       cgd 					hit -= 2;
    165   1.6     veego 			}
    166   1.6     veego 		if (ready & R_INITIAL) {
    167   1.1       cgd 			if (index <= 3)
    168   1.1       cgd 				hit++;
    169   1.1       cgd 			else
    170   1.1       cgd 				hit += 2;
    171   1.6     veego 		}
    172   1.6     veego 		if (mf->captured != 0) {
    173   1.1       cgd 			if (index <= 1)
    174   1.1       cgd 				hit--;
    175   1.1       cgd 			else
    176   1.1       cgd 				hit -= 2;
    177   1.6     veego 		}
    178   1.1       cgd 		hit += AMMO[index][load - 1];
    179   1.1       cgd 		if (((temp = mc->class) >= 5 || temp == 1) && windspeed == 5)
    180   1.1       cgd 			hit--;
    181   1.1       cgd 		if (windspeed == 6 && temp == 4)
    182   1.1       cgd 			hit -= 2;
    183   1.1       cgd 		if (windspeed == 6 && temp <= 3)
    184   1.1       cgd 			hit--;
    185   1.1       cgd 		if (hit >= 0) {
    186   1.9     jwise 			roll = dieroll();
    187   1.1       cgd 			if (load == L_GRAPE)
    188   1.1       cgd 				chits = hit;
    189   1.1       cgd 			else {
    190   1.8       jsm 				const struct Tables *t;
    191   1.1       cgd 				if (hit > 10)
    192   1.1       cgd 					hit = 10;
    193   1.1       cgd 				t = &(shootat == RIGGING ? RigTable : HullTable)
    194   1.1       cgd 					[hit][roll-1];
    195   1.1       cgd 				chits = t->C;
    196   1.1       cgd 				rhits = t->R;
    197   1.1       cgd 				hhits = t->H;
    198   1.1       cgd 				ghits = t->G;
    199   1.1       cgd 				if (closest->file->FS)
    200   1.1       cgd 					rhits *= 2;
    201   1.1       cgd 				if (load == L_CHAIN) {
    202   1.1       cgd 					ghits = 0;
    203   1.1       cgd 					hhits = 0;
    204   1.1       cgd 				}
    205   1.1       cgd 			}
    206   1.1       cgd 			table(shootat, load, hit, closest, ms, roll);
    207   1.1       cgd 		}
    208   1.4  christos 		Msg("Damage inflicted on the %s:", closest->shipname);
    209   1.4  christos 		Msg("\t%d HULL, %d GUNS, %d CREW, %d RIGGING",
    210   1.4  christos 		    hhits, ghits, chits, rhits);
    211   1.1       cgd 		if (!r) {
    212   1.1       cgd 			mf->loadL = L_EMPTY;
    213   1.1       cgd 			mf->readyL = R_EMPTY;
    214   1.1       cgd 		} else {
    215   1.1       cgd 			mf->loadR = L_EMPTY;
    216   1.1       cgd 			mf->readyR = R_EMPTY;
    217   1.1       cgd 		}
    218   1.1       cgd 		continue;
    219   1.1       cgd 	cant:
    220   1.4  christos 		Msg("Unable to fire %s broadside", r ? "right" : "left");
    221   1.1       cgd 	}
    222   1.1       cgd 	blockalarm();
    223   1.1       cgd 	draw_stat();
    224   1.1       cgd 	unblockalarm();
    225   1.1       cgd }
    226   1.1       cgd 
    227   1.4  christos void
    228  1.10     jwise grapungrap(void)
    229   1.1       cgd {
    230   1.4  christos 	struct ship *sp;
    231   1.4  christos 	int i;
    232   1.1       cgd 
    233   1.1       cgd 	foreachship(sp) {
    234   1.1       cgd 		if (sp == ms || sp->file->dir == 0)
    235   1.1       cgd 			continue;
    236   1.1       cgd 		if (range(ms, sp) > 1 && !grappled2(ms, sp))
    237   1.1       cgd 			continue;
    238   1.5  christos 		switch (sgetch("Attempt to grapple or ungrapple $$: ",
    239   1.1       cgd 			sp, 1)) {
    240   1.1       cgd 		case 'g':
    241   1.9     jwise 			if (dieroll() < 3
    242   1.1       cgd 			    || ms->nationality == capship(sp)->nationality) {
    243   1.7   hubertf 				Write(W_GRAP, ms, sp->file->index, 0, 0, 0);
    244   1.7   hubertf 				Write(W_GRAP, sp, player, 0, 0, 0);
    245   1.4  christos 				Msg("Attempt succeeds!");
    246   1.5  christos 				makesignal(ms, "grappled with $$", sp);
    247   1.1       cgd 			} else
    248   1.4  christos 				Msg("Attempt fails.");
    249   1.1       cgd 			break;
    250   1.1       cgd 		case 'u':
    251   1.1       cgd 			for (i = grappled2(ms, sp); --i >= 0;) {
    252   1.1       cgd 				if (ms->nationality
    253   1.1       cgd 					== capship(sp)->nationality
    254   1.9     jwise 				    || dieroll() < 3) {
    255   1.1       cgd 					cleangrapple(ms, sp, 0);
    256   1.4  christos 					Msg("Attempt succeeds!");
    257   1.5  christos 					makesignal(ms, "ungrappling with $$",
    258   1.1       cgd 						sp);
    259   1.1       cgd 				} else
    260   1.4  christos 					Msg("Attempt fails.");
    261   1.1       cgd 			}
    262   1.1       cgd 			break;
    263   1.1       cgd 		}
    264   1.1       cgd 	}
    265   1.1       cgd }
    266   1.1       cgd 
    267   1.4  christos void
    268  1.10     jwise unfoulplayer(void)
    269   1.1       cgd {
    270   1.4  christos 	struct ship *to;
    271   1.4  christos 	int i;
    272   1.1       cgd 
    273   1.1       cgd 	foreachship(to) {
    274   1.1       cgd 		if (fouled2(ms, to) == 0)
    275   1.1       cgd 			continue;
    276   1.5  christos 		if (sgetch("Attempt to unfoul with the $$? ", to, 1) != 'y')
    277   1.1       cgd 			continue;
    278   1.1       cgd 		for (i = fouled2(ms, to); --i >= 0;) {
    279   1.9     jwise 			if (dieroll() <= 2) {
    280   1.1       cgd 				cleanfoul(ms, to, 0);
    281   1.4  christos 				Msg("Attempt succeeds!");
    282   1.5  christos 				makesignal(ms, "Unfouling $$", to);
    283   1.1       cgd 			} else
    284   1.4  christos 				Msg("Attempt fails.");
    285   1.1       cgd 		}
    286   1.1       cgd 	}
    287   1.1       cgd }
    288