static char *sccsid
= "@(#)dr_4.c 1.2 83/07/20";
register struct ship
*from
, *to
;
register struct snag
*sp
= from
->file
->grapples
;
if (grappled2(from
, to
)) {
for (k
= 0; k
< NSHIP
; k
++, sp
++) {
if (sp
->turnfoul
== 0 || to
!= sp
->toship
)
if (from
->nationality
== to
->nationality
&& die() >= 3)
cleangrapple(from
, to
, k
);
makesignal(from
, "ungrappling %s (%c%c)", to
);
register struct ship
*from
, *to
;
if (from
->nationality
!= capship(to
)->nationality
&& die() >= 3)
for (l
= 0; l
< NSHIP
&& from
->file
->grapples
[l
].turnfoul
; l
++)
Write(W_GRAP
, from
, 0, l
, turn
, to
-SHIP(0), 0);
for (l
= 0; l
< NSHIP
&& to
->file
->grapples
[l
].turnfoul
; l
++)
Write(W_GRAP
, to
, 0, l
, turn
, from
-SHIP(0), 0);
makesignal(from
, "grappled with %s (%c%c)", to
);