NetBSD/games/hunt/huntd/shots.c

1137 lines
21 KiB
C
Raw Normal View History

1997-10-11 12:13:40 +04:00
/* $NetBSD: shots.c,v 1.3 1997/10/11 08:13:50 lukem Exp $ */
1997-10-04 13:00:13 +04:00
/*
* Hunt
* Copyright (c) 1985 Conrad C. Huang, Gregory S. Couch, Kenneth C.R.C. Arnold
* San Francisco, California
*/
#include <sys/cdefs.h>
#ifndef lint
1997-10-11 12:13:40 +04:00
__RCSID("$NetBSD: shots.c,v 1.3 1997/10/11 08:13:50 lukem Exp $");
#endif /* not lint */
1997-10-11 12:13:40 +04:00
# include <err.h>
1997-10-04 13:00:13 +04:00
# include <signal.h>
# include <stdlib.h>
# include "hunt.h"
1997-10-04 13:00:13 +04:00
# define PLUS_DELTA(x, max) if (x < max) x++; else x--
# define MINUS_DELTA(x, min) if (x > min) x--; else x++
static void chkshot __P((BULLET *, BULLET *));
static void chkslime __P((BULLET *, BULLET *));
static void explshot __P((BULLET *, int, int));
static void find_under __P((BULLET *, BULLET *));
static int iswall __P((int, int));
static void mark_boot __P((BULLET *));
static void mark_player __P((BULLET *));
#ifdef DRONE
static void move_drone __P((BULLET *));
#endif
static void move_flyer __P((PLAYER *));
static int move_normal_shot __P((BULLET *));
static void move_slime __P((BULLET *, int, BULLET *));
static void save_bullet __P((BULLET *));
static void zapshot __P((BULLET *, BULLET *));
1997-10-04 13:00:13 +04:00
/*
* moveshots:
* Move the shots already in the air, taking explosions into account
*/
void
1997-10-04 13:00:13 +04:00
moveshots()
{
BULLET *bp, *next;
PLAYER *pp;
int x, y;
BULLET *blist;
1997-10-04 13:00:13 +04:00
rollexpl();
if (Bullets == NULL)
goto ret;
/*
* First we move through the bullet list BULSPD times, looking
* for things we may have run into. If we do run into
* something, we set up the explosion and disappear, checking
* for damage to any player who got in the way.
*/
blist = Bullets;
Bullets = NULL;
for (bp = blist; bp != NULL; bp = next) {
next = bp->b_next;
x = bp->b_x;
y = bp->b_y;
Maze[y][x] = bp->b_over;
for (pp = Player; pp < End_player; pp++)
check(pp, y, x);
# ifdef MONITOR
for (pp = Monitor; pp < End_monitor; pp++)
check(pp, y, x);
# endif
switch (bp->b_type) {
case SHOT:
case GRENADE:
case SATCHEL:
case BOMB:
if (move_normal_shot(bp)) {
bp->b_next = Bullets;
Bullets = bp;
}
break;
# ifdef OOZE
case SLIME:
if (bp->b_expl || move_normal_shot(bp)) {
bp->b_next = Bullets;
Bullets = bp;
}
break;
# endif
# ifdef DRONE
case DSHOT:
if (move_drone(bp)) {
bp->b_next = Bullets;
Bullets = bp;
}
break;
# endif
default:
bp->b_next = Bullets;
Bullets = bp;
break;
}
}
blist = Bullets;
Bullets = NULL;
for (bp = blist; bp != NULL; bp = next) {
next = bp->b_next;
if (!bp->b_expl) {
save_bullet(bp);
# ifdef MONITOR
for (pp = Monitor; pp < End_monitor; pp++)
check(pp, bp->b_y, bp->b_x);
# endif
# ifdef DRONE
if (bp->b_type == DSHOT)
for (pp = Player; pp < End_player; pp++)
if (pp->p_scan >= 0)
check(pp, bp->b_y, bp->b_x);
# endif
continue;
}
chkshot(bp, next);
free((char *) bp);
}
for (pp = Player; pp < End_player; pp++)
Maze[pp->p_y][pp->p_x] = pp->p_face;
ret:
# ifdef BOOTS
for (pp = Boot; pp < &Boot[NBOOTS]; pp++)
if (pp->p_flying >= 0)
move_flyer(pp);
# endif
for (pp = Player; pp < End_player; pp++) {
# ifdef FLY
if (pp->p_flying >= 0)
move_flyer(pp);
# endif
sendcom(pp, REFRESH); /* Flush out the explosions */
look(pp);
sendcom(pp, REFRESH);
}
# ifdef MONITOR
for (pp = Monitor; pp < End_monitor; pp++)
sendcom(pp, REFRESH);
# endif
return;
}
/*
* move_normal_shot:
* Move a normal shot along its trajectory
*/
static int
1997-10-04 13:00:13 +04:00
move_normal_shot(bp)
BULLET *bp;
1997-10-04 13:00:13 +04:00
{
int i, x, y;
PLAYER *pp;
1997-10-04 13:00:13 +04:00
for (i = 0; i < BULSPD; i++) {
if (bp->b_expl)
break;
x = bp->b_x;
y = bp->b_y;
switch (bp->b_face) {
case LEFTS:
x--;
break;
case RIGHT:
x++;
break;
case ABOVE:
y--;
break;
case BELOW:
y++;
break;
}
switch (Maze[y][x]) {
case SHOT:
if (rand_num(100) < 5) {
zapshot(Bullets, bp);
zapshot(bp->b_next, bp);
}
break;
case GRENADE:
if (rand_num(100) < 10) {
zapshot(Bullets, bp);
zapshot(bp->b_next, bp);
}
break;
# ifdef REFLECT
case WALL4: /* reflecting walls */
switch (bp->b_face) {
case LEFTS:
bp->b_face = BELOW;
break;
case RIGHT:
bp->b_face = ABOVE;
break;
case ABOVE:
bp->b_face = RIGHT;
break;
case BELOW:
bp->b_face = LEFTS;
break;
}
Maze[y][x] = WALL5;
# ifdef MONITOR
for (pp = Monitor; pp < End_monitor; pp++)
check(pp, y, x);
# endif
break;
case WALL5:
switch (bp->b_face) {
case LEFTS:
bp->b_face = ABOVE;
break;
case RIGHT:
bp->b_face = BELOW;
break;
case ABOVE:
bp->b_face = LEFTS;
break;
case BELOW:
bp->b_face = RIGHT;
break;
}
Maze[y][x] = WALL4;
# ifdef MONITOR
for (pp = Monitor; pp < End_monitor; pp++)
check(pp, y, x);
# endif
break;
# endif
# ifdef RANDOM
case DOOR:
switch (rand_num(4)) {
case 0:
bp->b_face = ABOVE;
break;
case 1:
bp->b_face = BELOW;
break;
case 2:
bp->b_face = LEFTS;
break;
case 3:
bp->b_face = RIGHT;
break;
}
break;
# endif
# ifdef FLY
case FLYER:
pp = play_at(y, x);
message(pp, "Zing!");
break;
# endif
case LEFTS:
case RIGHT:
case BELOW:
case ABOVE:
/*
* give the person a chance to catch a
* grenade if s/he is facing it
*/
pp = play_at(y, x);
pp->p_ident->i_shot += bp->b_charge;
if (opposite(bp->b_face, Maze[y][x])) {
if (rand_num(100) < 10) {
if (bp->b_owner != NULL)
message(bp->b_owner,
"Your charge was absorbed!");
if (bp->b_score != NULL)
bp->b_score->i_robbed += bp->b_charge;
pp->p_ammo += bp->b_charge;
if (pp->p_damage + bp->b_size * MINDAM
> pp->p_damcap)
pp->p_ident->i_saved++;
message(pp, "Absorbed charge (good shield!)");
pp->p_ident->i_absorbed += bp->b_charge;
free((char *) bp);
(void) sprintf(Buf, "%3d", pp->p_ammo);
cgoto(pp, STAT_AMMO_ROW, STAT_VALUE_COL);
outstr(pp, Buf, 3);
return FALSE;
}
pp->p_ident->i_faced += bp->b_charge;
}
/*
* Small chance that the bullet just misses the
* person. If so, the bullet just goes on its
* merry way without exploding.
*/
if (rand_num(100) < 5) {
pp->p_ident->i_ducked += bp->b_charge;
if (pp->p_damage + bp->b_size * MINDAM
> pp->p_damcap)
pp->p_ident->i_saved++;
if (bp->b_score != NULL)
bp->b_score->i_missed += bp->b_charge;
message(pp, "Zing!");
if (bp->b_owner == NULL)
break;
message(bp->b_owner,
((bp->b_score->i_missed & 0x7) == 0x7) ?
"My! What a bad shot you are!" :
"Missed him");
break;
}
/*
* The shot hit that sucker! Blow it up.
*/
/* FALLTHROUGH */
# ifndef RANDOM
case DOOR:
# endif
case WALL1:
case WALL2:
case WALL3:
bp->b_expl = TRUE;
break;
}
bp->b_x = x;
bp->b_y = y;
}
return TRUE;
}
# ifdef DRONE
/*
* move_drone:
* Move the drone to the next square
*/
static void
1997-10-04 13:00:13 +04:00
move_drone(bp)
BULLET *bp;
1997-10-04 13:00:13 +04:00
{
int mask, count;
int n, dir;
PLAYER *pp;
1997-10-04 13:00:13 +04:00
/*
* See if we can give someone a blast
*/
if (isplayer(Maze[bp->b_y][bp->b_x - 1])) {
dir = WEST;
goto drone_move;
}
if (isplayer(Maze[bp->b_y - 1][bp->b_x])) {
dir = NORTH;
goto drone_move;
}
if (isplayer(Maze[bp->b_y + 1][bp->b_x])) {
dir = SOUTH;
goto drone_move;
}
if (isplayer(Maze[bp->b_y][bp->b_x + 1])) {
dir = EAST;
goto drone_move;
}
/*
* Find out what directions are clear
*/
mask = count = 0;
if (!iswall(bp->b_y, bp->b_x - 1))
mask |= WEST, count++;
if (!iswall(bp->b_y - 1, bp->b_x))
mask |= NORTH, count++;
if (!iswall(bp->b_y + 1, bp->b_x))
mask |= SOUTH, count++;
if (!iswall(bp->b_y, bp->b_x + 1))
mask |= EAST, count++;
/*
* All blocked up, just you wait
*/
if (count == 0)
return TRUE;
/*
* Only one way to go.
*/
if (count == 1) {
dir = mask;
goto drone_move;
}
/*
* Get rid of the direction that we came from
*/
switch (bp->b_face) {
case LEFTS:
if (mask & EAST)
mask &= ~EAST, count--;
break;
case RIGHT:
if (mask & WEST)
mask &= ~WEST, count--;
break;
case ABOVE:
if (mask & SOUTH)
mask &= ~SOUTH, count--;
break;
case BELOW:
if (mask & NORTH)
mask &= ~NORTH, count--;
break;
}
/*
* Pick one of the remaining directions
*/
n = rand_num(count);
if (n >= 0 && mask & NORTH)
dir = NORTH, n--;
if (n >= 0 && mask & SOUTH)
dir = SOUTH, n--;
if (n >= 0 && mask & EAST)
dir = EAST, n--;
if (n >= 0 && mask & WEST)
dir = WEST, n--;
/*
* Now that we know the direction of movement,
* just update the position of the drone
*/
drone_move:
switch (dir) {
case WEST:
bp->b_x--;
bp->b_face = LEFTS;
break;
case EAST:
bp->b_x++;
bp->b_face = RIGHT;
break;
case NORTH:
bp->b_y--;
bp->b_face = ABOVE;
break;
case SOUTH:
bp->b_y++;
bp->b_face = BELOW;
break;
}
switch (Maze[bp->b_y][bp->b_x]) {
case LEFTS:
case RIGHT:
case BELOW:
case ABOVE:
/*
* give the person a chance to catch a
* drone if s/he is facing it
*/
if (rand_num(100) < 1 &&
opposite(bp->b_face, Maze[bp->b_y][bp->b_x])) {
pp = play_at(bp->b_y, bp->b_x);
pp->p_ammo += bp->b_charge;
message(pp, "**** Absorbed drone ****");
free((char *) bp);
(void) sprintf(Buf, "%3d", pp->p_ammo);
cgoto(pp, STAT_AMMO_ROW, STAT_VALUE_COL);
outstr(pp, Buf, 3);
return FALSE;
}
bp->b_expl = TRUE;
break;
}
return TRUE;
}
# endif
/*
* save_bullet:
* Put this bullet back onto the bullet list
*/
static void
1997-10-04 13:00:13 +04:00
save_bullet(bp)
BULLET *bp;
1997-10-04 13:00:13 +04:00
{
bp->b_over = Maze[bp->b_y][bp->b_x];
switch (bp->b_over) {
case SHOT:
case GRENADE:
case SATCHEL:
case BOMB:
# ifdef OOZE
case SLIME:
# ifdef VOLCANO
case LAVA:
# endif
# endif
# ifdef DRONE
case DSHOT:
# endif
find_under(Bullets, bp);
break;
}
switch (bp->b_over) {
case LEFTS:
case RIGHT:
case ABOVE:
case BELOW:
# ifdef FLY
case FLYER:
# endif
mark_player(bp);
break;
# ifdef BOOTS
case BOOT:
case BOOT_PAIR:
mark_boot(bp);
# endif
default:
Maze[bp->b_y][bp->b_x] = bp->b_type;
break;
}
bp->b_next = Bullets;
Bullets = bp;
}
/*
* move_flyer:
* Update the position of a player in flight
*/
static void
1997-10-04 13:00:13 +04:00
move_flyer(pp)
PLAYER *pp;
1997-10-04 13:00:13 +04:00
{
int x, y;
1997-10-04 13:00:13 +04:00
if (pp->p_undershot) {
fixshots(pp->p_y, pp->p_x, pp->p_over);
pp->p_undershot = FALSE;
}
Maze[pp->p_y][pp->p_x] = pp->p_over;
x = pp->p_x + pp->p_flyx;
y = pp->p_y + pp->p_flyy;
if (x < 1) {
x = 1 - x;
pp->p_flyx = -pp->p_flyx;
}
else if (x > WIDTH - 2) {
x = (WIDTH - 2) - (x - (WIDTH - 2));
pp->p_flyx = -pp->p_flyx;
}
if (y < 1) {
y = 1 - y;
pp->p_flyy = -pp->p_flyy;
}
else if (y > HEIGHT - 2) {
y = (HEIGHT - 2) - (y - (HEIGHT - 2));
pp->p_flyy = -pp->p_flyy;
}
again:
switch (Maze[y][x]) {
default:
switch (rand_num(4)) {
case 0:
PLUS_DELTA(x, WIDTH - 2);
break;
case 1:
MINUS_DELTA(x, 1);
break;
case 2:
PLUS_DELTA(y, HEIGHT - 2);
break;
case 3:
MINUS_DELTA(y, 1);
break;
}
goto again;
case WALL1:
case WALL2:
case WALL3:
# ifdef REFLECT
case WALL4:
case WALL5:
# endif
# ifdef RANDOM
case DOOR:
# endif
if (pp->p_flying == 0)
pp->p_flying++;
break;
case SPACE:
break;
}
pp->p_y = y;
pp->p_x = x;
if (pp->p_flying-- == 0) {
# ifdef BOOTS
if (pp->p_face != BOOT && pp->p_face != BOOT_PAIR) {
# endif
checkdam(pp, (PLAYER *) NULL, (IDENT *) NULL,
rand_num(pp->p_damage / 5), FALL);
pp->p_face = rand_dir();
showstat(pp);
# ifdef BOOTS
}
else {
if (Maze[y][x] == BOOT)
pp->p_face = BOOT_PAIR;
Maze[y][x] = SPACE;
}
# endif
}
pp->p_over = Maze[y][x];
Maze[y][x] = pp->p_face;
showexpl(y, x, pp->p_face);
}
/*
* chkshot
* Handle explosions
*/
static void
1997-10-04 13:00:13 +04:00
chkshot(bp, next)
BULLET *bp;
BULLET *next;
1997-10-04 13:00:13 +04:00
{
int y, x;
int dy, dx, absdy;
int delta, damage;
char expl;
PLAYER *pp;
1997-10-04 13:00:13 +04:00
delta = 0;
1997-10-04 13:00:13 +04:00
switch (bp->b_type) {
case SHOT:
case MINE:
case GRENADE:
case GMINE:
case SATCHEL:
case BOMB:
delta = bp->b_size - 1;
break;
# ifdef OOZE
case SLIME:
# ifdef VOLCANO
case LAVA:
# endif
chkslime(bp, next);
return;
# endif
# ifdef DRONE
case DSHOT:
bp->b_type = SLIME;
chkslime(bp, next);
return;
# endif
}
for (y = bp->b_y - delta; y <= bp->b_y + delta; y++) {
if (y < 0 || y >= HEIGHT)
continue;
dy = y - bp->b_y;
absdy = (dy < 0) ? -dy : dy;
for (x = bp->b_x - delta; x <= bp->b_x + delta; x++) {
if (x < 0 || x >= WIDTH)
continue;
dx = x - bp->b_x;
if (dx == 0)
expl = (dy == 0) ? '*' : '|';
else if (dy == 0)
expl = '-';
else if (dx == dy)
expl = '\\';
else if (dx == -dy)
expl = '/';
else
expl = '*';
showexpl(y, x, expl);
switch (Maze[y][x]) {
case LEFTS:
case RIGHT:
case ABOVE:
case BELOW:
# ifdef FLY
case FLYER:
# endif
if (dx < 0)
dx = -dx;
if (absdy > dx)
damage = bp->b_size - absdy;
else
damage = bp->b_size - dx;
pp = play_at(y, x);
checkdam(pp, bp->b_owner, bp->b_score,
damage * MINDAM, bp->b_type);
break;
case GMINE:
case MINE:
add_shot((Maze[y][x] == GMINE) ?
GRENADE : SHOT,
y, x, LEFTS,
(Maze[y][x] == GMINE) ?
GRENREQ : BULREQ,
(PLAYER *) NULL, TRUE, SPACE);
Maze[y][x] = SPACE;
break;
}
}
}
}
# ifdef OOZE
/*
* chkslime:
* handle slime shot exploding
*/
static void
1997-10-04 13:00:13 +04:00
chkslime(bp, next)
BULLET *bp;
BULLET *next;
1997-10-04 13:00:13 +04:00
{
BULLET *nbp;
1997-10-04 13:00:13 +04:00
switch (Maze[bp->b_y][bp->b_x]) {
case WALL1:
case WALL2:
case WALL3:
# ifdef REFLECT
case WALL4:
case WALL5:
# endif
# ifdef RANDOM
case DOOR:
# endif
switch (bp->b_face) {
case LEFTS:
bp->b_x++;
break;
case RIGHT:
bp->b_x--;
break;
case ABOVE:
bp->b_y++;
break;
case BELOW:
bp->b_y--;
break;
}
break;
}
nbp = (BULLET *) malloc(sizeof (BULLET));
*nbp = *bp;
# ifdef VOLCANO
move_slime(nbp, nbp->b_type == SLIME ? SLIMESPEED : LAVASPEED, next);
# else
move_slime(nbp, SLIMESPEED, next);
# endif
}
/*
* move_slime:
* move the given slime shot speed times and add it back if
* it hasn't fizzled yet
*/
void
1997-10-04 13:00:13 +04:00
move_slime(bp, speed, next)
BULLET *bp;
int speed;
BULLET *next;
1997-10-04 13:00:13 +04:00
{
int i, j, dirmask, count;
PLAYER *pp;
BULLET *nbp;
1997-10-04 13:00:13 +04:00
if (speed == 0) {
if (bp->b_charge <= 0)
free((char *) bp);
else
save_bullet(bp);
return;
}
# ifdef VOLCANO
showexpl(bp->b_y, bp->b_x, bp->b_type == LAVA ? LAVA : '*');
# else
showexpl(bp->b_y, bp->b_x, '*');
# endif
switch (Maze[bp->b_y][bp->b_x]) {
case LEFTS:
case RIGHT:
case ABOVE:
case BELOW:
# ifdef FLY
case FLYER:
# endif
pp = play_at(bp->b_y, bp->b_x);
message(pp, "You've been slimed.");
checkdam(pp, bp->b_owner, bp->b_score, MINDAM, bp->b_type);
break;
case SHOT:
case GRENADE:
case SATCHEL:
case BOMB:
# ifdef DRONE
case DSHOT:
# endif
explshot(next, bp->b_y, bp->b_x);
explshot(Bullets, bp->b_y, bp->b_x);
break;
}
if (--bp->b_charge <= 0) {
free((char *) bp);
return;
}
dirmask = 0;
count = 0;
switch (bp->b_face) {
case LEFTS:
if (!iswall(bp->b_y, bp->b_x - 1))
dirmask |= WEST, count++;
if (!iswall(bp->b_y - 1, bp->b_x))
dirmask |= NORTH, count++;
if (!iswall(bp->b_y + 1, bp->b_x))
dirmask |= SOUTH, count++;
if (dirmask == 0)
if (!iswall(bp->b_y, bp->b_x + 1))
dirmask |= EAST, count++;
break;
case RIGHT:
if (!iswall(bp->b_y, bp->b_x + 1))
dirmask |= EAST, count++;
if (!iswall(bp->b_y - 1, bp->b_x))
dirmask |= NORTH, count++;
if (!iswall(bp->b_y + 1, bp->b_x))
dirmask |= SOUTH, count++;
if (dirmask == 0)
if (!iswall(bp->b_y, bp->b_x - 1))
dirmask |= WEST, count++;
break;
case ABOVE:
if (!iswall(bp->b_y - 1, bp->b_x))
dirmask |= NORTH, count++;
if (!iswall(bp->b_y, bp->b_x - 1))
dirmask |= WEST, count++;
if (!iswall(bp->b_y, bp->b_x + 1))
dirmask |= EAST, count++;
if (dirmask == 0)
if (!iswall(bp->b_y + 1, bp->b_x))
dirmask |= SOUTH, count++;
break;
case BELOW:
if (!iswall(bp->b_y + 1, bp->b_x))
dirmask |= SOUTH, count++;
if (!iswall(bp->b_y, bp->b_x - 1))
dirmask |= WEST, count++;
if (!iswall(bp->b_y, bp->b_x + 1))
dirmask |= EAST, count++;
if (dirmask == 0)
if (!iswall(bp->b_y - 1, bp->b_x))
dirmask |= NORTH, count++;
break;
}
if (count == 0) {
/*
* No place to go. Just sit here for a while and wait
* for adjacent squares to clear out.
*/
save_bullet(bp);
return;
}
if (bp->b_charge < count) {
/* Only bp->b_charge paths may be taken */
while (count > bp->b_charge) {
if (dirmask & WEST)
dirmask &= ~WEST;
else if (dirmask & EAST)
dirmask &= ~EAST;
else if (dirmask & NORTH)
dirmask &= ~NORTH;
else if (dirmask & SOUTH)
dirmask &= ~SOUTH;
count--;
}
}
i = bp->b_charge / count;
j = bp->b_charge % count;
if (dirmask & WEST) {
count--;
nbp = create_shot(bp->b_type, bp->b_y, bp->b_x - 1, LEFTS,
i, bp->b_size, bp->b_owner, bp->b_score, TRUE, SPACE);
move_slime(nbp, speed - 1, next);
}
if (dirmask & EAST) {
count--;
nbp = create_shot(bp->b_type, bp->b_y, bp->b_x + 1, RIGHT,
(count < j) ? i + 1 : i, bp->b_size, bp->b_owner,
bp->b_score, TRUE, SPACE);
move_slime(nbp, speed - 1, next);
}
if (dirmask & NORTH) {
count--;
nbp = create_shot(bp->b_type, bp->b_y - 1, bp->b_x, ABOVE,
(count < j) ? i + 1 : i, bp->b_size, bp->b_owner,
bp->b_score, TRUE, SPACE);
move_slime(nbp, speed - 1, next);
}
if (dirmask & SOUTH) {
count--;
nbp = create_shot(bp->b_type, bp->b_y + 1, bp->b_x, BELOW,
(count < j) ? i + 1 : i, bp->b_size, bp->b_owner,
bp->b_score, TRUE, SPACE);
move_slime(nbp, speed - 1, next);
}
free((char *) bp);
}
/*
* iswall:
* returns whether the given location is a wall
*/
static int
1997-10-04 13:00:13 +04:00
iswall(y, x)
int y, x;
1997-10-04 13:00:13 +04:00
{
if (y < 0 || x < 0 || y >= HEIGHT || x >= WIDTH)
return TRUE;
switch (Maze[y][x]) {
case WALL1:
case WALL2:
case WALL3:
# ifdef REFLECT
case WALL4:
case WALL5:
# endif
# ifdef RANDOM
case DOOR:
# endif
# ifdef OOZE
case SLIME:
# ifdef VOLCANO
case LAVA:
# endif
# endif
return TRUE;
}
return FALSE;
}
# endif
/*
* zapshot:
* Take a shot out of the air.
*/
static void
1997-10-04 13:00:13 +04:00
zapshot(blist, obp)
BULLET *blist, *obp;
1997-10-04 13:00:13 +04:00
{
BULLET *bp;
FLAG explode;
1997-10-04 13:00:13 +04:00
explode = FALSE;
for (bp = blist; bp != NULL; bp = bp->b_next) {
if (bp->b_x != obp->b_x || bp->b_y != obp->b_y)
continue;
if (bp->b_face == obp->b_face)
continue;
explode = TRUE;
break;
}
if (!explode)
return;
explshot(blist, obp->b_y, obp->b_x);
}
/*
* explshot -
* Make all shots at this location blow up
*/
void
1997-10-04 13:00:13 +04:00
explshot(blist, y, x)
BULLET *blist;
int y, x;
1997-10-04 13:00:13 +04:00
{
BULLET *bp;
1997-10-04 13:00:13 +04:00
for (bp = blist; bp != NULL; bp = bp->b_next)
if (bp->b_x == x && bp->b_y == y) {
bp->b_expl = TRUE;
if (bp->b_owner != NULL)
message(bp->b_owner, "Shot intercepted");
}
}
/*
* play_at:
* Return a pointer to the player at the given location
*/
PLAYER *
play_at(y, x)
int y, x;
1997-10-04 13:00:13 +04:00
{
PLAYER *pp;
1997-10-04 13:00:13 +04:00
for (pp = Player; pp < End_player; pp++)
if (pp->p_x == x && pp->p_y == y)
return pp;
1997-10-11 12:13:40 +04:00
errx(1, "driver: couldn't find player at (%d,%d)", x, y);
1997-10-04 13:00:13 +04:00
/* NOTREACHED */
}
/*
* opposite:
* Return TRUE if the bullet direction faces the opposite direction
* of the player in the maze
*/
int
1997-10-04 13:00:13 +04:00
opposite(face, dir)
int face;
char dir;
1997-10-04 13:00:13 +04:00
{
switch (face) {
case LEFTS:
return (dir == RIGHT);
case RIGHT:
return (dir == LEFTS);
case ABOVE:
return (dir == BELOW);
case BELOW:
return (dir == ABOVE);
default:
return FALSE;
}
}
/*
* is_bullet:
* Is there a bullet at the given coordinates? If so, return
* a pointer to the bullet, otherwise return NULL
*/
BULLET *
is_bullet(y, x)
int y, x;
1997-10-04 13:00:13 +04:00
{
BULLET *bp;
1997-10-04 13:00:13 +04:00
for (bp = Bullets; bp != NULL; bp = bp->b_next)
if (bp->b_y == y && bp->b_x == x)
return bp;
return NULL;
}
/*
* fixshots:
* change the underlying character of the shots at a location
* to the given character.
*/
void
1997-10-04 13:00:13 +04:00
fixshots(y, x, over)
int y, x;
char over;
1997-10-04 13:00:13 +04:00
{
BULLET *bp;
1997-10-04 13:00:13 +04:00
for (bp = Bullets; bp != NULL; bp = bp->b_next)
if (bp->b_y == y && bp->b_x == x)
bp->b_over = over;
}
/*
* find_under:
* find the underlying character for a bullet when it lands
* on another bullet.
*/
static void
1997-10-04 13:00:13 +04:00
find_under(blist, bp)
BULLET *blist, *bp;
1997-10-04 13:00:13 +04:00
{
BULLET *nbp;
1997-10-04 13:00:13 +04:00
for (nbp = blist; nbp != NULL; nbp = nbp->b_next)
if (bp->b_y == nbp->b_y && bp->b_x == nbp->b_x) {
bp->b_over = nbp->b_over;
break;
}
}
/*
* mark_player:
* mark a player as under a shot
*/
static void
1997-10-04 13:00:13 +04:00
mark_player(bp)
BULLET *bp;
1997-10-04 13:00:13 +04:00
{
PLAYER *pp;
1997-10-04 13:00:13 +04:00
for (pp = Player; pp < End_player; pp++)
if (pp->p_y == bp->b_y && pp->p_x == bp->b_x) {
pp->p_undershot = TRUE;
break;
}
}
# ifdef BOOTS
/*
* mark_boot:
* mark a boot as under a shot
*/
static void
1997-10-04 13:00:13 +04:00
mark_boot(bp)
BULLET *bp;
1997-10-04 13:00:13 +04:00
{
PLAYER *pp;
1997-10-04 13:00:13 +04:00
for (pp = Boot; pp < &Boot[NBOOTS]; pp++)
if (pp->p_y == bp->b_y && pp->p_x == bp->b_x) {
pp->p_undershot = TRUE;
break;
}
}
# endif