static char *sccsid
= "@(#)parties.c 1.2 83/07/20";
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
;
register struct snag
*sp
, *sq
;
sp
= isgrap
? ship
->file
->grapples
: ship
->file
->fouls
;
Snagged2(ship
, to
, isgrap
, isX
)
register struct snag
*sp
, *sq
;
sp
= isgrap
? ship
->file
->grapples
: ship
->file
->fouls
;
if (sp
->turnfoul
&& sp
->toship
== to
&& (!isX
|| sp
->turnfoul
< turn
- 1
&& ship
->file
->loadwith
==L_GRAPE
))
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);