static char *sccsid
= "@(#)dr_3.c 1.5 83/10/10";
moveall() /* move all comp ships */
register struct ship
*sp
, *sq
; /* r11, r10 */
register int k
, l
, m
, ma
; /* r8, r7, r6, */
int row
[NSHIP
], col
[NSHIP
], dir
[NSHIP
], r1
, r2
, c1
, c2
, d1
, d2
;
char clast
[NSHIP
][sizeof SHIP(0)->file
->last
];
* first try to create moves for OUR ships
if (sp
->file
->captain
[0] || sp
->file
->dir
== 0)
if (!sp
->file
->struck
&& windspeed
&& !snagged(sp
)
ma
= maxmove(sp
, sp
->file
->dir
, 0);
closest
= closestenemy(sp
, 0, 0);
closeon(sp
, closest
, sp
->file
->last
,
* Then execute the moves for ALL ships (dead ones too),
* saving old positions in row[], col[], dir[],
* and the moves in clase[][].
* The new positions are written out.
(void) strcpy(clast
[n
], sp
->file
->last
);
* Now resolve collisions.
* This is the tough part.
for (k
= 0; stillmoving(clast
, k
); k
++) {
* And propagate the nulls at the end of clast[].
step(clast
[n
][k
], sp
, row
+n
, col
+n
, dir
+n
);
if ((d1
= sp
->file
->dir
) == 0 || isolated(sp
))
if ((d2
= sq
->file
->dir
) == 0 || sp
== sq
)
&& push(sp
, sq
) && range(sp
, sq
) > 1) {
sp
->file
->row
- 1, 0, 0, 0);
|| sp
->file
->dir
== 5) /* XXX */
if (!range(sp
, sq
) && !fouled2(sp
, sq
)
"collision with %s (%c%c)", sq
);
for (m
= 0; m
< NSHIP
&& sp
->file
->fouls
[m
].turnfoul
; m
++)
for (m
= 0; m
< NSHIP
&& sq
->file
->fouls
[m
].turnfoul
; m
++)
sp
->file
->row
-1, 0, 0, 0);
sp
->file
->col
-1, 0, 0, 0);
Write(W_DRIFT
, sq
, 0, 0, 0, 0, 0);
Write(W_DRIFT
, sp
, 0, 0, 0, 0, 0);
char last
[][sizeof SHIP(0)->file
->last
]; /* how's that for portability */
register struct ship
*sp
;
register char (*p
)[sizeof *last
]; /* and this? */
register struct ship
*ship
;
register struct ship
*sp
;
if (ship
!= sp
&& range(ship
, sp
) <= 10)
register struct ship
*from
, *to
;
int bow1r
, bow1c
, bow2r
, bow2c
, stern1r
, stern1c
, stern2r
, stern2c
;
stern1r
= bow1r
= from
->file
->row
;
stern1c
= bow1c
= from
->file
->col
;
stern2r
= bow2r
= to
->file
->row
;
stern2c
= bow2c
= to
->file
->col
;
stern2r
+= dr
[to
->file
->dir
];
stern2c
+= dc
[to
->file
->dir
];
bs
= bow1r
- stern2r
+ bow1c
- stern2c
;
sb
= stern1r
- bow2r
+ stern1c
- bow2c
;
stern1r
+= dr
[from
->file
->dir
];
stern1c
+= dc
[from
->file
->dir
];
step(com
, ship
, row
, col
, dir
)
register struct ship
*ship
;
register int *row
, *col
, *dir
;
case '0': case '1': case '2': case '3':
case '4': case '5': case '6': case '7':
if (ship
->specs
->class >= 3 && !snagged(ship
)
sendbp(from
, to
, sections
, isdefense
)
register struct ship
*from
, *to
;
bp
= isdefense
? from
->file
->DBP
: from
->file
->OBP
;
for (n
= 0; n
< 3 && bp
[n
].turnsent
; n
++)
Write(isdefense
? W_DBP
: W_OBP
, from
, 0,
turn
, to
-SHIP(0), sections
, 0);
makesignal(from
, "repelling boarders",
makesignal(from
, "boarding the %s (%c%c)", to
);
toughmelee(ship
, to
, isdefense
, count
)
register struct ship
*ship
, *to
;
int n
, OBP
= 0, DBP
= 0, dbp
= 0;
qual
= ship
->specs
->qual
;
bp
= isdefense
? ship
->file
->DBP
: ship
->file
->OBP
;
for (n
= 0; n
< NBP
; n
++, bp
++) {
if (bp
->turnsent
&& (to
== bp
->toship
|| isdefense
)) {
? ship
->specs
->crew1
* qual
: 0;
obp
+= (bp
->mensent
% 100)/10
? ship
->specs
->crew2
* qual
: 0;
? ship
->specs
->crew3
* qual
: 0;
OBP
= toughmelee(to
, ship
, 0, count
+ 1);
dbp
= toughmelee(ship
, to
, 1, count
+ 1);
DBP
= toughmelee(to
, ship
, 1, count
+ 1);
if (OBP
> obp
+ 10 || OBP
+ DBP
>= obp
+ dbp
+ 10)
register struct ship
*sp
;
register struct ship
*sp
;
if (sp
->file
->captain
[0] != 0)
if (windspeed
== 6 || windspeed
== 5 && sp
->specs
->class > 4)
if (rig
&& sp
->specs
->crew3
) {
close
= closestenemy(sp
, 0, 0);
if (range(sp
, close
) > 9)
if ((sp
->file
->FS
!= 0) != full
)
Write(W_FS
, sp
, 0, full
, 0, 0, 0);