* Copyright (c) 1985 Regents of the University of California.
* Redistribution and use in source and binary forms are permitted
* provided that the above copyright notice and this paragraph are
* duplicated in all such forms and that any documentation,
* advertising materials, and other materials related to such
* distribution and use acknowledge that the software was developed
* by the University of California, Berkeley. The name of the
* University may not be used to endorse or promote products derived
* from this software without specific prior written permission.
* THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
* WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
"@(#) Copyright (c) 1985 Regents of the University of California.\n\
static char sccsid
[] = "@(#)driver.c 5.3 (Berkeley) 6/27/88";
* Copyright (c) 1985 Conrad C. Huang, Gregory S. Couch, Kenneth C.R.C. Arnold
* San Francisco, California
# define RN (((Seed = Seed * 11109 + 13849) >> 16) & 0xffff)
# define RN ((Seed = Seed * 11109 + 13849) & 0x7fff)
static struct itimerval Timing
;
int Test_socket
; /* test socket to answer datagrams */
# define DAEMON_SIZE (sizeof Daemon)
# define DAEMON_SIZE (sizeof Daemon - 1)
register int enable_alarm
, disable_alarm
;
Sock_mask
= (1 << Socket
);
test_mask
= (1 << Test_socket
);
enable_alarm
= sigblock(0);
disable_alarm
= enable_alarm
| (1 << (SIGALRM
- 1));
(void) sigsetmask(disable_alarm
);
(void) signal(SIGALRM
, moveshots
);
(void) sigsetmask(enable_alarm
);
while (select(Num_fds
, &read_fds
, (int *) NULL
,
(int *) NULL
, (struct timeval
*) NULL
) < 0)
while (select(20, &read_fds
, NULL
, 32767) < 0)
(void) sigsetmask(disable_alarm
);
if (read_fds
& test_mask
) {
(void) recvfrom(Test_socket
, (char *) &msg
, sizeof msg
,
0, (struct sockaddr
*) &test
, &namelen
);
(void) sendto(Test_socket
, (char *) &msg
, sizeof msg
,
0, (struct sockaddr
*) &test
, DAEMON_SIZE
);
(void) receive(Test_socket
, (struct sockaddr
*) &test
,
(char *) &msg
, sizeof msg
);
(void) send(Test_socket
, (struct sockaddr
*) &test
,
(char *) &msg
, sizeof msg
);
for (pp
= Player
; pp
< End_player
; pp
++)
for (pp
= Monitor
; pp
< End_monitor
; pp
++)
for (pp
= Player
; pp
< End_player
; pp
++) {
for (pp
= Monitor
; pp
< End_monitor
; pp
++)
for (pp
= Player
; pp
< End_player
; )
if (pp
->p_death
[0] != '\0')
for (pp
= Monitor
; pp
< End_monitor
; )
if (pp
->p_death
[0] != '\0')
if (read_fds
& Sock_mask
)
for (pp
= Player
; pp
< End_player
; pp
++) {
if (read_fds
& pp
->p_mask
)
sendcom(pp
, READY
, pp
->p_nexec
);
(void) fflush(pp
->p_output
);
for (pp
= Monitor
; pp
< End_monitor
; pp
++) {
if (read_fds
& pp
->p_mask
)
sendcom(pp
, READY
, pp
->p_nexec
);
(void) fflush(pp
->p_output
);
for (pp
= Monitor
; pp
< End_monitor
; )
* Initialize the global parameters.
(void) ioctl(fileno(stdout
), TIOCNOTTY
, NULL
);
(void) setpgrp(getpid(), getpid());
(void) signal(SIGHUP
, SIG_IGN
);
(void) signal(SIGINT
, SIG_IGN
);
(void) signal(SIGQUIT
, SIG_IGN
);
(void) signal(SIGTERM
, cleanup
);
(void) chdir("/usr/tmp"); /* just in case it core dumps */
(void) signal(SIGPIPE
, SIG_IGN
);
Daemon
.sin_family
= SOCK_FAMILY
;
if (gethostname(local_name
, sizeof local_name
) < 0) {
if ((hp
= gethostbyname(local_name
)) == NULL
) {
fprintf(stderr
, "Unknown host %s\n", local_name
);
bcopy(hp
->h_addr
, &(Daemon
.sin_addr
.s_addr
), hp
->h_length
);
Daemon
.sin_addr
.s_addr
= INADDR_ANY
;
Daemon
.sin_port
= htons(Sock_port
);
Daemon
.sun_family
= SOCK_FAMILY
;
(void) strcpy(Daemon
.sun_path
, Sock_name
);
Socket
= socket(SOCK_FAMILY
, SOCK_STREAM
, 0);
Socket
= socket(SOCK_STREAM
, 0, (struct sockaddr
*) &Daemon
,
# if defined(INTERNET) && !defined(OLDIPC)
if (setsockopt(Socket
, SOL_SOCKET
, SO_USELOOPBACK
, &msg
, sizeof msg
)<0)
perror("setsockopt loopback");
if (bind(Socket
, (struct sockaddr
*) &Daemon
, DAEMON_SIZE
) < 0) {
(void) listen(Socket
, 5);
Fds_mask
= (1 << Socket
);
test_port
.sin_port
= htons(Test_port
);
Test_socket
= socket(SOCK_FAMILY
, SOCK_DGRAM
, 0);
if (bind(Test_socket
, (struct sockaddr
*) &test_port
,
(void) listen(Test_socket
, 5);
Test_socket
= socket(SOCK_DGRAM
, 0, (struct sockaddr
*) &test_port
, 0);
Fds_mask
|= (1 << Test_socket
);
if (Test_socket
> Socket
)
Num_fds
= Test_socket
+ 1;
Seed
= getpid() + time((time_t *) NULL
);
for (i
= 0; i
< NASCII
; i
++)
getitimer(ITIMER_REAL
, &Timing
);
Timing
.it_interval
.tv_sec
= 0;
Timing
.it_interval
.tv_usec
= 500;
Timing
.it_value
.tv_sec
= 0;
Timing
.it_value
.tv_usec
= 0;
setitimer(ITIMER_REAL
, &Timing
, NULL
);
* Set up the alarm for the bullets
Timing
.it_value
.tv_usec
= val
* Timing
.it_interval
.tv_usec
;
setitimer(ITIMER_REAL
, &Timing
, NULL
);
* Check the damage to the given player, and see if s/he is killed
checkdam(ouch
, gotcha
, credit
, amt
, shot_type
)
register PLAYER
*ouch
, *gotcha
;
if (ouch
->p_death
[0] != '\0')
message(ouch
, "Missed you by a hair");
message(gotcha
, "Missed him");
if (ouch
->p_damage
<= ouch
->p_damcap
) {
(void) sprintf(Buf
, "%2d", ouch
->p_damage
);
cgoto(ouch
, STAT_DAM_ROW
, STAT_VALUE_COL
);
(void) sprintf(ouch
->p_death
, "| %s by %s |", cp
,
(shot_type
== MINE
|| shot_type
== GMINE
) ?
"a mine" : "act of God");
(void) sprintf(ouch
->p_death
, "| %s by %s |", cp
, credit
->i_name
);
credit
->i_score
= credit
->i_kills
/ (double) credit
->i_entries
;
gotcha
->p_damcap
+= STABDAM
;
gotcha
->p_damage
-= STABDAM
;
if (gotcha
->p_damage
< 0)
(void) sprintf(Buf
, "%2d/%2d", gotcha
->p_damage
, gotcha
->p_damcap
);
cgoto(gotcha
, STAT_DAM_ROW
, STAT_VALUE_COL
);
(void) sprintf(Buf
, "%3d", (gotcha
->p_damcap
- MAXDAM
) / 2);
cgoto(gotcha
, STAT_KILL_ROW
, STAT_VALUE_COL
);
(void) sprintf(Buf
, "%5.2f", gotcha
->p_ident
->i_score
);
for (ouch
= Player
; ouch
< End_player
; ouch
++) {
cgoto(ouch
, STAT_PLAY_ROW
+ 1 + (gotcha
- Player
),
* Kill off a player and take him out of the game.
len
= strlen(pp
->p_death
); /* Display the cause of death */
cgoto(pp
, HEIGHT
/ 2, x
);
outstr(pp
, pp
->p_death
, len
);
for (i
= 1; i
< len
; i
++)
pp
->p_death
[len
- 1] = '+';
cgoto(pp
, HEIGHT
/ 2 - 1, x
);
outstr(pp
, pp
->p_death
, len
);
cgoto(pp
, HEIGHT
/ 2 + 1, x
);
outstr(pp
, pp
->p_death
, len
);
for (bp
= Bullets
; bp
!= NULL
; bp
= bp
->b_next
) {
if (bp
->b_x
== pp
->p_x
&& bp
->b_y
== pp
->p_y
)
i
= rand_num(pp
->p_ammo
);
if (i
== pp
->p_ammo
- 1) {
else if (i
>= SSLIMEREQ
) {
else if (i
>= SLIMEREQ
) {
add_shot(len
, pp
->p_y
, pp
->p_x
, pp
->p_face
, x
,
(PLAYER
*) NULL
, TRUE
, SPACE
);
(void) sprintf(Buf
, "%s detonated.",
for (np
= Player
; np
< End_player
; np
++)
for (np
= Monitor
; np
< End_monitor
; np
++)
volcano
+= pp
->p_ammo
- x
;
if (rand_num(100) < volcano
/ 50) {
x
= rand_num(WIDTH
/ 2) + WIDTH
/ 4;
y
= rand_num(HEIGHT
/ 2) + HEIGHT
/ 4;
} while (Maze
[y
][x
] != SPACE
);
add_shot(LAVA
, y
, x
, LEFTS
, volcano
,
(PLAYER
*) NULL
, TRUE
, SPACE
);
for (np
= Player
; np
< End_player
; np
++)
message(np
, "Volcano eruption.");
(void) fclose(pp
->p_output
);
bcopy((char *) End_player
, (char *) pp
,
(void) sprintf(Buf
, "%5.2f%c%-10.10s",
pp
->p_ident
->i_score
, stat_char(pp
),
i
= STAT_PLAY_ROW
+ 1 + (pp
- Player
);
for (np
= Player
; np
< End_player
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
outstr(np
, Buf
, STAT_NAME_LEN
);
for (np
= Monitor
; np
< End_monitor
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
outstr(np
, Buf
, STAT_NAME_LEN
);
/* Erase the last player */
i
= STAT_PLAY_ROW
+ 1 + Nplayer
;
for (np
= Player
; np
< End_player
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
for (np
= Monitor
; np
< End_monitor
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
(void) putc(LAST_PLAYER
, pp
->p_output
);
(void) fclose(pp
->p_output
);
bcopy((char *) End_monitor
, (char *) pp
,
(void) sprintf(Buf
, "%5.5s %-10.10s", " ",
i
= STAT_MON_ROW
+ 1 + (pp
- Player
);
for (np
= Player
; np
< End_player
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
outstr(np
, Buf
, STAT_NAME_LEN
);
for (np
= Monitor
; np
< End_monitor
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
outstr(np
, Buf
, STAT_NAME_LEN
);
/* Erase the last monitor */
i
= STAT_MON_ROW
+ 1 + (End_monitor
- Monitor
);
for (np
= Player
; np
< End_player
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
for (np
= Monitor
; np
< End_monitor
; np
++) {
cgoto(np
, i
, STAT_NAME_COL
);
if (Num_fds
== savefd
+ 1) {
if (Test_socket
> Socket
)
for (np
= Player
; np
< End_player
; np
++)
for (np
= Monitor
; np
< End_monitor
; np
++)
* Return a random number in a given range.
return (range
== 0 ? 0 : RN
% range
);
* Check to see if we have any characters in the input queue; if
* we do, read them, stash them away, and return TRUE; else return
if (pp
->p_ncount
< pp
->p_nchar
)
if (!(Have_inp
& pp
->p_mask
))
if ((pp
->p_nchar
= read(pp
->p_fd
, pp
->p_cbuf
, sizeof pp
->p_cbuf
)) <= 0)
* Exit with the given value, cleaning up any droppings lying around
for (pp
= Player
; pp
< End_player
; pp
++) {
(void) putc(LAST_PLAYER
, pp
->p_output
);
(void) fclose(pp
->p_output
);
for (pp
= Monitor
; pp
< End_monitor
; pp
++) {
(void) putc(LAST_PLAYER
, pp
->p_output
);
(void) fclose(pp
->p_output
);
(void) unlink(Sock_name
);