static char *sccsid
= "@(#)misc.c 1.3 83/10/10";
#define distance(x,y) (abs(x) >= abs(y) ? abs(x) + abs(y)/2 : abs(y) + abs(x)/2)
register bow1r
, bow1c
, bow2r
, bow2c
;
int stern1r
, stern1c
, stern2c
, stern2r
;
register int bb
, bs
, sb
, ss
, result
;
stern1r
= bow1r
= from
->file
->row
;
stern1c
= bow1c
= from
->file
->col
;
stern2r
= bow2r
= to
->file
->row
;
stern2c
= bow2c
= to
->file
->col
;
result
= bb
= distance(bow2r
- bow1r
, bow2c
- bow1c
);
stern2r
+= dr
[to
->file
->dir
];
stern2c
+= dc
[to
->file
->dir
];
stern1r
+= dr
[from
->file
->dir
];
stern1c
+= dc
[from
->file
->dir
];
bs
= distance((bow2r
- stern1r
), (bow2c
- stern1c
));
sb
= distance((bow1r
- stern2r
), (bow1c
- stern2c
));
ss
= distance((stern2r
- stern1r
) ,(stern2c
- stern1c
));
result
= min(bb
, min(bs
, min(sb
, ss
)));
closestenemy(from
, side
, anyship
)
register struct ship
*from
;
register struct ship
*sp
;
int olddist
= 30000, dist
;
struct ship
*closest
= 0;
a
= capship(from
)->nationality
;
if (a
== capship(sp
)->nationality
&& !anyship
)
if (side
&& gunsbear(from
, sp
) != side
)
else if (dr
<= 0 && dc
> 0)
else if (dc
<= 0 && dr
< 0)
if ((i
== 0 || i
== 4) && dc
* 2.4 > dr
) {
} else if ((i
== 2 || i
== 6) && dr
* 2.4 > dc
) {
gunsbear(from
, to
) /* checks for target bow or stern */
register struct ship
*from
, *to
;
Dr
= from
->file
->row
- to
->file
->row
;
Dc
= to
->file
->col
- from
->file
->col
;
if ((ang
= angle(Dr
, Dc
) - from
->file
->dir
+ 1) < 1)
if (ang
>= 2 && ang
<= 4)
if (ang
>= 6 && ang
<= 7)
portside(from
, on
, quick
)
register struct ship
*from
, *on
;
int quick
; /* returns true if fromship is */
{ /* shooting at onship's starboard side */
Dr
= from
->file
->row
- on
->file
->row
;
Dc
= on
->file
->col
- from
->file
->col
;
ang
= (ang
+ 4 - on
->file
->dir
- 1) % 8 + 1;
register struct ship
*sp
;
flag
= *countryname
[capship(sp
)->nationality
];
return sp
->file
->FS
? flag
: tolower(flag
);
{ 1.5708, 0.7854, 0.0, -0.7854, -1.5708, -2.3562, -PI
, 2.3562 };
1107,1126,1144,1161,1176,
1190,1204,1216,1227,1239,
1249,1259,1268,1277,1285,
return (double) PI
/2 * sy
;
index
= 10 * y
/ x
+ 0.5;
sy
* (sx
< 0 ? PI
: 0 + sx
*((float)tantable
[index
]/1000));