/* $Copyright:	$
 * Copyright (c) 1984, 1985, 1986, 1987, 1988, 1989, 1990 
 * Sequent Computer Systems, Inc.   All rights reserved.
 *  
 * This software is furnished under a license and may be used
 * only in accordance with the terms of that license and with the
 * inclusion of the above copyright notice.   This software may not
 * be provided or otherwise made available to, or used by, any
 * other person.  No title to or ownership of the software is
 * hereby transferred.
 */

/* $Header: assorted.c 2.0 86/01/28 $ */

#ifndef lint
static	char *sccsid = "@(#)assorted.c	1.1 83/03/17";
#endif
#define EXPLODE 5
#include "externs.h"

table(rig, shot, hittable, onship, fromship, roll)
int rig, shot, hittable, onship, fromship, roll;
{
	register int hhits = 0, chits = 0, ghits = 0, rhits = 0;
	int Ghit = 0, Hhit = 0, Rhit = 0, Chit = 0;
	int guns, car, pc, hull;
	int crew[3];
	register int n;
	int rigg[4];
	char message[60];
	struct shipspecs *ptr;
	struct File *ptr1;

	ptr = &specs[scene[game].ship[onship].shipnum];
	ptr1 = scene[game].ship[onship].file;
	pc = ptr1 -> pcrew;
	hull = ptr -> hull;
	crew[0] = ptr -> crew1;
	crew[1] = ptr -> crew2;
	crew[2] = ptr -> crew3;
	rigg[0] = ptr -> rig1;
	rigg[1] = ptr -> rig2;
	rigg[2] = ptr -> rig3;
	rigg[3] = ptr -> rig4;
	if (shot == GRAPE)
		Chit = chits = hittable;
	else {
		Chit = chits = rig ? RigTable[hittable][roll-1].C : HullTable[hittable][roll-1].C;
		Rhit = rhits = rig ? RigTable[hittable][roll-1].R : HullTable[hittable][roll-1].R;
		Hhit = hhits = rig ? RigTable[hittable][roll-1].H : HullTable[hittable][roll-1].H;
		Ghit = ghits = rig ? RigTable[hittable][roll-1].G : HullTable[hittable][roll-1].G;
		if (ptr1 -> FS)
			rhits *= 2;
		if (shot == CHAIN){
			Ghit = ghits = 0;
			Hhit = hhits = 0;
		}
	}
	if (ptr1 -> captured > -1){
		pc -= (chits + 1)/2;
		chits /= 2;
	}
	for (n=0; n < 3; n++)
		if (chits > crew[n]){
			chits -= crew[n];
			crew[n] = 0;
		}
		else {
			crew[n] -= chits;
			chits = 0;
		}
	for (n=0; n < 3; n++)
		if (rhits > rigg[n]){
			rhits -= rigg[n];
			rigg[n] = 0;
		}
		else {
			rigg[n] -= rhits;
			rhits = 0;
		}
	if (rigg[3] != -1 && rhits > rigg[3]){
		rhits -= rigg[3];
		rigg[3] = 0;
	} else if (rigg[3] != -1){
		rigg[3] -= rhits;
	}
	if (rig && !rigg[2] && (!rigg[3] || rigg[3] == -1))
		makesignal("dismasted!", 0, onship);
	if (portside(fromship, onship, 0)){
		guns = ptr -> gunL;
		car = ptr -> carL;
	} else {
		guns = ptr -> gunR;
		car = ptr -> carR;
	}
	if (ghits > car){
		ghits -= car;
		car = 0;
	}
	else {
		car -= ghits;
		ghits = 0;
	}
	if (ghits > guns){
		ghits -= guns;
		guns = 0;
	}
	else {
		guns -= ghits;
		ghits = 0;
	}
	hull -= ghits;
	if (portside(fromship, onship, 0) && Ghit){
		Write(SPECS + onship, 0, 20, guns);
		Write(SPECS + onship, 0, 24, car);
	}
	else if (Ghit){
		Write(SPECS + onship, 0, 22, guns);
		Write(SPECS + onship, 0, 26, car);
	}
	hull -= hhits;
	hull = hull < 0 ? 0 : hull;
	if (ptr1 -> captured > -1 && Chit){
		Write(FILES + onship, 0, 70, pc);
	}
	if (Hhit)
		Write(SPECS + onship, 0, 10, hull);
	if (Chit)
		for (n=0; n < 3; n++)
			Write(SPECS + onship, 0, 14 + 2*n, crew[n]);
	if (Rhit)
		for (n=0; n < 4; n++)
			Write(SPECS + onship, 0, 28 + 2*n, rigg[n]);
	switch(shot){
		case ROUND:
			strcpy(message, "firing round");
			break;
		case GRAPE:
			strcpy(message, "firing grape");
			break;
		case CHAIN:
			strcpy(message, "firing chain");
			break;
		case DOUBLE:
			strcpy(message, "firing double");
			break;
		case EXPLODE:
			strcpy(message, "exploding");
	}
	strcat(message, " shot on %s (%c%c)");
	makesignal(message, onship, fromship);
	if (roll == 6 && rig){
		switch(Rhit){
			case 0:
				strcpy(message, "fore topsail sheets parted");
				break;
			case 1:
				strcpy(message, "mizzen shrouds parted");
				break;
			case 2:
				strcpy(message, "main topsail yard shot away");
				break;
			case 4:
				strcpy(message, "fore topmast and foremast shrouds shot away");
				break;
			case 5:
				strcpy(message, "mizzen mast and yard shot through");
				break;
			case 6:
				strcpy(message, "foremast and spritsail yard shattered");
				break;
			case 7:
				strcpy(message, "main topmast and mizzen mast shattered");
				break;
		}
		makesignal(message, 0, onship);
	}
	else if (roll == 6) {
		switch(Hhit){
			case 0:
				strcpy(message, "anchor cables severed");
				break;
			case 1:
				strcpy(message, "two anchor stocks shot away");
				break;
			case 2:
				strcpy(message, "quarterdeck bulwarks damaged");
				break;
			case 3:
				strcpy(message, "three gun ports shot away");
				break;
			case 4:
				strcpy(message, "four guns dismounted");
				break;
			case 5:
				strcpy(message, "rudder cables shot through");
				Write(SPECS + onship, 0, 4, 0);
				break;
			case 6:
				strcpy(message, "shot holes below the water line");
				break;
		}
		makesignal(message, 0, onship);
	}
	if ((Chit > 1 && ptr1 -> readyL <= -30000 && ptr1 -> readyR <= -30000) || Chit == 4){
		ptr -> qual--;
		if (ptr -> qual <= 0){
			makesignal("crew mutinying!", 0, onship);
			ptr -> qual = 5;
			Write(FILES + onship, 0, 68, onship);
		} else 
			makesignal("crew demoralized", 0, onship);
		Write(SPECS + onship, 0, 12, ptr -> qual);
	}
	if (!hull)
		strike(onship, fromship);
}


cleanfoul(fromship, toship, offset)
int fromship, toship, offset;
{
	register int n = -1;

	Write(FILES + fromship, 0, 84 + offset*4, 0);
	do {
		n++;
	} while ((!scene[game].ship[toship].file -> fouls[n].turnfoul || scene[game].ship[toship].file -> fouls[n].toship != fromship) && n < 10);
	if (n < 10)
		Write(FILES + toship, 0, 84 + 4*n, 0);
	if (!grapple(fromship, toship) && !foul(fromship,toship)){
		if (!fouled(fromship) && !grappled(fromship)){
			unboard(fromship,fromship, 1);		/* defense */
			unboard(fromship,fromship, 0);		/* defense */
		} else
			unboard(fromship,toship, 0);		/* defense */
		if (!fouled(toship) && !grappled(toship)){	/* defense */
			unboard(toship,toship, 1);
			unboard(toship,toship, 0);
		} else
			unboard(toship, fromship, 0);			/* offense */
	}
}


cleangrapple(fromship, toship, offset)
int fromship, toship, offset;
{
	register int n = -1;

	Write(FILES + fromship, 0, 124 + offset*4, 0);
	do {
		n++;
	} while ((!scene[game].ship[toship].file -> grapples[n].turnfoul || scene[game].ship[toship].file -> grapples[n].toship != fromship) && n < 10);
	if (n < 10)
		Write(FILES + toship, 0, 124 + 4*n, 0);
	if (!grapple(fromship, toship) && !foul(fromship,toship)){
		if (!fouled(fromship) && !grappled(fromship)){
			unboard(fromship,fromship, 1);		/* defense */
			unboard(fromship,fromship, 0);		/* defense */
		} else
			unboard(fromship,toship, 0);		/* defense */
		if (!fouled(toship) && !grappled(toship)){	/* defense */
			unboard(toship,toship, 1);
			unboard(toship,toship, 0);
		} else
			unboard(toship, fromship, 0);			/* offense */
	}
}


strike(shipnum, fromship)
int shipnum, fromship;
{
	int points;

	if (!scene[game].ship[shipnum].file -> struck){
		Write(FILES + shipnum, 0, 66, 1);
		points = specs[scene[game].ship[shipnum].shipnum].pts + scene[game].ship[fromship].file -> points;
		Write(FILES + fromship, 0, 20, points);
		unboard(shipnum, shipnum, 0);		/* all offense */
		unboard(shipnum, shipnum, 1);		/* all defense */
		switch(die()){

			case 3:
			case 4:		/* ship may sink */
				Write(FILES + shipnum, 0, 234, 1);
				break;
			case 5:
			case 6:		/* ship may explode */
				Write(FILES + shipnum, 0, 232, 1);
				break;
		}
		Write(FILES + shipnum, 1, 164, "striking her colours!");
	}
}


