static char *sccsid
= "@(#)dr_4.c 1.1 83/03/17";
for (k
= 0; k
< 10; k
++){
if (scene
[game
].ship
[from
].file
-> grapples
[k
].turnfoul
&& to
== scene
[game
].ship
[from
].file
-> grapples
[k
].toship
&& (die() < 3 || scene
[game
].ship
[from
].nationality
== scene
[game
].ship
[to
].nationality
)){
cleangrapple(from
, to
, k
);
makesignal("ungrappling %s (%c%c)", to
, from
);
if ((captured
= scene
[game
].ship
[to
].file
-> captured
) < 0)
if (!number
&& scene
[game
].ship
[from
].nationality
== scene
[game
].ship
[captured
].nationality
)
for (l
=0; l
< 10 && scene
[game
].ship
[from
].file
-> grapples
[l
].turnfoul
; l
++);
Write(FILES
+ from
, 0, 124 + l
*4, turn
);
Write(FILES
+ from
, 0, 124 + l
*4 + 2, to
);
for (l
=0; l
< 10 && scene
[game
].ship
[to
].file
-> grapples
[l
].turnfoul
; l
++);
Write(FILES
+ to
, 0, 124 + l
*4, turn
);
Write(FILES
+ to
, 0, 124 + l
*4 + 2, from
);
makesignal("grappled with %s (%c%c)", to
, from
);