* Copyright (c) 1983 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that this notice is preserved and that due credit is given
* to the University of California at Berkeley. The name of the University
* may not be used to endorse or promote products derived from this
* software without specific prior written permission. This software
* is provided ``as is'' without express or implied warranty.
static char sccsid
[] = "@(#)dr_5.c 5.2 (Berkeley) %G%";
subtract(from
, totalfrom
, crewfrom
, fromcap
, pcfrom
)
struct ship
*from
, *fromcap
;
register int totalfrom
, crewfrom
[3];
if (fromcap
== from
&& totalfrom
) { /* if not captured */
for (n
= 0; n
< 3; n
++) {
if (totalfrom
> crewfrom
[n
]) {
totalfrom
-= crewfrom
[n
];
crewfrom
[n
] -= totalfrom
;
Write(W_CREW
, from
, 0, crewfrom
[0], crewfrom
[1], crewfrom
[2], 0);
pcfrom
= pcfrom
< 0 ? 0 : pcfrom
;
Write(W_PCREW
, from
, 0, pcfrom
, 0, 0, 0);
mensent(from
, to
, crew
, captured
, pc
, isdefense
)
struct ship
*from
, *to
, **captured
;
{ /* returns # of crew squares sent */
*captured
= from
->file
->captured
;
crew
[0] = from
->specs
->crew1
;
crew
[1] = from
->specs
->crew2
;
crew
[2] = from
->specs
->crew3
;
bp
= isdefense
? from
->file
->DBP
: from
->file
->OBP
;
for (n
=0; n
< NBP
; n
++, bp
++) {
if (bp
->turnsent
&& bp
->toship
== to
)
c1
= men
/100 ? crew
[0] : 0;
c2
= (men
%100)/10 ? crew
[1] : 0;
c3
= men
/10 ? crew
[2] : 0;
c3
= *captured
== 0 ? crew
[2] : *pc
;