static char *sccsid
= "@(#)parties.c 2.2 83/12/17";
register struct ship
*to
;
register struct BP
*p
= from
->file
->OBP
;
register struct BP
*q
= p
+ NBP
;
if (p
->turnsent
&& p
->toship
== to
)
boarding(from
, isdefense
)
register struct ship
*from
;
register struct BP
*p
= isdefense
? from
->file
->DBP
: from
->file
->OBP
;
register struct BP
*q
= p
+ NBP
;
unboard(ship
, to
, isdefense
)
register struct ship
*ship
, *to
;
register struct BP
*p
= isdefense
? ship
->file
->DBP
: ship
->file
->OBP
;
for (n
= 0; n
< NBP
; p
++, n
++)
if (p
->turnsent
&& (p
->toship
== to
|| isdefense
|| ship
== to
))
Write(isdefense
? W_DBP
: W_OBP
, ship
, 0, n
, 0, 0, 0);