Home | History | Annotate | Line # | Download | only in wump
wump.c revision 1.8
      1  1.8  hubertf /*	$NetBSD: wump.c,v 1.8 1999/02/10 01:44:34 hubertf Exp $	*/
      2  1.3      cgd 
      3  1.1      cgd /*
      4  1.3      cgd  * Copyright (c) 1989, 1993
      5  1.3      cgd  *	The Regents of the University of California.  All rights reserved.
      6  1.1      cgd  * All rights reserved.
      7  1.1      cgd  *
      8  1.1      cgd  * This code is derived from software contributed to Berkeley by
      9  1.1      cgd  * Dave Taylor, of Intuitive Systems.
     10  1.1      cgd  *
     11  1.1      cgd  * Redistribution and use in source and binary forms, with or without
     12  1.1      cgd  * modification, are permitted provided that the following conditions
     13  1.1      cgd  * are met:
     14  1.1      cgd  * 1. Redistributions of source code must retain the above copyright
     15  1.1      cgd  *    notice, this list of conditions and the following disclaimer.
     16  1.1      cgd  * 2. Redistributions in binary form must reproduce the above copyright
     17  1.1      cgd  *    notice, this list of conditions and the following disclaimer in the
     18  1.1      cgd  *    documentation and/or other materials provided with the distribution.
     19  1.1      cgd  * 3. All advertising materials mentioning features or use of this software
     20  1.1      cgd  *    must display the following acknowledgement:
     21  1.1      cgd  *	This product includes software developed by the University of
     22  1.1      cgd  *	California, Berkeley and its contributors.
     23  1.1      cgd  * 4. Neither the name of the University nor the names of its contributors
     24  1.1      cgd  *    may be used to endorse or promote products derived from this software
     25  1.1      cgd  *    without specific prior written permission.
     26  1.1      cgd  *
     27  1.1      cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     28  1.1      cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     29  1.1      cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     30  1.1      cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     31  1.1      cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     32  1.1      cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     33  1.1      cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     34  1.1      cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     35  1.1      cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     36  1.1      cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     37  1.1      cgd  * SUCH DAMAGE.
     38  1.1      cgd  */
     39  1.1      cgd 
     40  1.5    lukem #include <sys/cdefs.h>
     41  1.1      cgd #ifndef lint
     42  1.5    lukem __COPYRIGHT("@(#) Copyright (c) 1989, 1993\n\
     43  1.5    lukem 	The Regents of the University of California.  All rights reserved.\n");
     44  1.1      cgd #endif /* not lint */
     45  1.1      cgd 
     46  1.1      cgd #ifndef lint
     47  1.3      cgd #if 0
     48  1.3      cgd static char sccsid[] = "@(#)wump.c	8.1 (Berkeley) 5/31/93";
     49  1.3      cgd #else
     50  1.8  hubertf __RCSID("$NetBSD: wump.c,v 1.8 1999/02/10 01:44:34 hubertf Exp $");
     51  1.3      cgd #endif
     52  1.1      cgd #endif /* not lint */
     53  1.1      cgd 
     54  1.1      cgd /*
     55  1.1      cgd  * A very new version of the age old favorite Hunt-The-Wumpus game that has
     56  1.1      cgd  * been a part of the BSD distribution of Unix for longer than us old folk
     57  1.1      cgd  * would care to remember.
     58  1.1      cgd  */
     59  1.1      cgd 
     60  1.8  hubertf #include <err.h>
     61  1.1      cgd #include <sys/types.h>
     62  1.1      cgd #include <sys/file.h>
     63  1.8  hubertf #include <sys/wait.h>
     64  1.1      cgd #include <stdio.h>
     65  1.5    lukem #include <stdlib.h>
     66  1.4      cgd #include <string.h>
     67  1.5    lukem #include <unistd.h>
     68  1.1      cgd #include "pathnames.h"
     69  1.1      cgd 
     70  1.1      cgd /* some defines to spec out what our wumpus cave should look like */
     71  1.1      cgd 
     72  1.1      cgd #define	MAX_ARROW_SHOT_DISTANCE	6		/* +1 for '0' stopper */
     73  1.1      cgd #define	MAX_LINKS_IN_ROOM	25		/* a complex cave */
     74  1.1      cgd 
     75  1.1      cgd #define	MAX_ROOMS_IN_CAVE	250
     76  1.1      cgd #define	ROOMS_IN_CAVE		20
     77  1.1      cgd #define	MIN_ROOMS_IN_CAVE	10
     78  1.1      cgd 
     79  1.1      cgd #define	LINKS_IN_ROOM		3
     80  1.1      cgd #define	NUMBER_OF_ARROWS	5
     81  1.1      cgd #define	PIT_COUNT		3
     82  1.1      cgd #define	BAT_COUNT		3
     83  1.1      cgd 
     84  1.1      cgd #define	EASY			1		/* levels of play */
     85  1.1      cgd #define	HARD			2
     86  1.1      cgd 
     87  1.1      cgd /* some macro definitions for cleaner output */
     88  1.1      cgd 
     89  1.1      cgd #define	plural(n)	(n == 1 ? "" : "s")
     90  1.1      cgd 
     91  1.1      cgd /* simple cave data structure; +1 so we can index from '1' not '0' */
     92  1.1      cgd struct room_record {
     93  1.1      cgd 	int tunnel[MAX_LINKS_IN_ROOM];
     94  1.1      cgd 	int has_a_pit, has_a_bat;
     95  1.1      cgd } cave[MAX_ROOMS_IN_CAVE+1];
     96  1.1      cgd 
     97  1.1      cgd /*
     98  1.1      cgd  * global variables so we can keep track of where the player is, how
     99  1.1      cgd  * many arrows they still have, where el wumpo is, and so on...
    100  1.1      cgd  */
    101  1.1      cgd int player_loc = -1;			/* player location */
    102  1.1      cgd int wumpus_loc = -1;			/* The Bad Guy location */
    103  1.1      cgd int level = EASY;			/* level of play */
    104  1.1      cgd int arrows_left;			/* arrows unshot */
    105  1.1      cgd 
    106  1.1      cgd #ifdef DEBUG
    107  1.1      cgd int debug = 0;
    108  1.1      cgd #endif
    109  1.1      cgd 
    110  1.1      cgd int pit_num = PIT_COUNT;		/* # pits in cave */
    111  1.1      cgd int bat_num = BAT_COUNT;		/* # bats */
    112  1.1      cgd int room_num = ROOMS_IN_CAVE;		/* # rooms in cave */
    113  1.1      cgd int link_num = LINKS_IN_ROOM;		/* links per room  */
    114  1.1      cgd int arrow_num = NUMBER_OF_ARROWS;	/* arrow inventory */
    115  1.1      cgd 
    116  1.1      cgd char answer[20];			/* user input */
    117  1.1      cgd 
    118  1.5    lukem int	bats_nearby __P((void));
    119  1.5    lukem void	cave_init __P((void));
    120  1.5    lukem void	clear_things_in_cave __P((void));
    121  1.5    lukem void	display_room_stats __P((void));
    122  1.5    lukem int	getans __P((const char *));
    123  1.5    lukem void	initialize_things_in_cave __P((void));
    124  1.5    lukem void	instructions __P((void));
    125  1.5    lukem int	int_compare __P((const void *, const void *));
    126  1.5    lukem void	jump __P((int));
    127  1.5    lukem void	kill_wump __P((void));
    128  1.5    lukem int	main __P((int, char **));
    129  1.5    lukem int	move_to __P((const char *));
    130  1.5    lukem void	move_wump __P((void));
    131  1.5    lukem void	no_arrows __P((void));
    132  1.5    lukem void	pit_kill __P((void));
    133  1.5    lukem int	pit_nearby __P((void));
    134  1.5    lukem void	pit_survive __P((void));
    135  1.5    lukem int	shoot __P((char *));
    136  1.5    lukem void	shoot_self __P((void));
    137  1.5    lukem int	take_action __P((void));
    138  1.7  hubertf void	usage __P((void)) __attribute__((__noreturn__));
    139  1.5    lukem void	wump_kill __P((void));
    140  1.5    lukem int	wump_nearby __P((void));
    141  1.5    lukem 
    142  1.5    lukem int
    143  1.1      cgd main(argc, argv)
    144  1.1      cgd 	int argc;
    145  1.1      cgd 	char **argv;
    146  1.1      cgd {
    147  1.1      cgd 	int c;
    148  1.1      cgd 
    149  1.1      cgd #ifdef DEBUG
    150  1.5    lukem 	while ((c = getopt(argc, argv, "a:b:hp:r:t:d")) != -1)
    151  1.1      cgd #else
    152  1.5    lukem 	while ((c = getopt(argc, argv, "a:b:hp:r:t:")) != -1)
    153  1.1      cgd #endif
    154  1.1      cgd 		switch (c) {
    155  1.1      cgd 		case 'a':
    156  1.1      cgd 			arrow_num = atoi(optarg);
    157  1.1      cgd 			break;
    158  1.1      cgd 		case 'b':
    159  1.1      cgd 			bat_num = atoi(optarg);
    160  1.1      cgd 			break;
    161  1.1      cgd #ifdef DEBUG
    162  1.1      cgd 		case 'd':
    163  1.1      cgd 			debug = 1;
    164  1.1      cgd 			break;
    165  1.1      cgd #endif
    166  1.1      cgd 		case 'h':
    167  1.1      cgd 			level = HARD;
    168  1.1      cgd 			break;
    169  1.1      cgd 		case 'p':
    170  1.1      cgd 			pit_num = atoi(optarg);
    171  1.1      cgd 			break;
    172  1.1      cgd 		case 'r':
    173  1.1      cgd 			room_num = atoi(optarg);
    174  1.1      cgd 			if (room_num < MIN_ROOMS_IN_CAVE) {
    175  1.1      cgd 				(void)fprintf(stderr,
    176  1.1      cgd 	"No self-respecting wumpus would live in such a small cave!\n");
    177  1.1      cgd 				exit(1);
    178  1.1      cgd 			}
    179  1.1      cgd 			if (room_num > MAX_ROOMS_IN_CAVE) {
    180  1.1      cgd 				(void)fprintf(stderr,
    181  1.1      cgd 	"Even wumpii can't furnish caves that large!\n");
    182  1.1      cgd 				exit(1);
    183  1.1      cgd 			}
    184  1.1      cgd 			break;
    185  1.1      cgd 		case 't':
    186  1.1      cgd 			link_num = atoi(optarg);
    187  1.1      cgd 			if (link_num < 2) {
    188  1.1      cgd 				(void)fprintf(stderr,
    189  1.1      cgd 	"Wumpii like extra doors in their caves!\n");
    190  1.1      cgd 				exit(1);
    191  1.1      cgd 			}
    192  1.1      cgd 			break;
    193  1.1      cgd 		case '?':
    194  1.1      cgd 		default:
    195  1.1      cgd 			usage();
    196  1.1      cgd 	}
    197  1.1      cgd 
    198  1.1      cgd 	if (link_num > MAX_LINKS_IN_ROOM ||
    199  1.1      cgd 	    link_num > room_num - (room_num / 4)) {
    200  1.1      cgd 		(void)fprintf(stderr,
    201  1.1      cgd "Too many tunnels!  The cave collapsed!\n(Fortunately, the wumpus escaped!)\n");
    202  1.1      cgd 		exit(1);
    203  1.1      cgd 	}
    204  1.1      cgd 
    205  1.1      cgd 	if (level == HARD) {
    206  1.1      cgd 		bat_num += ((random() % (room_num / 2)) + 1);
    207  1.1      cgd 		pit_num += ((random() % (room_num / 2)) + 1);
    208  1.1      cgd 	}
    209  1.1      cgd 
    210  1.1      cgd 	if (bat_num > room_num / 2) {
    211  1.1      cgd 		(void)fprintf(stderr,
    212  1.1      cgd "The wumpus refused to enter the cave, claiming it was too crowded!\n");
    213  1.1      cgd 		exit(1);
    214  1.1      cgd 	}
    215  1.1      cgd 
    216  1.1      cgd 	if (pit_num > room_num / 2) {
    217  1.1      cgd 		(void)fprintf(stderr,
    218  1.1      cgd "The wumpus refused to enter the cave, claiming it was too dangerous!\n");
    219  1.1      cgd 		exit(1);
    220  1.1      cgd 	}
    221  1.1      cgd 
    222  1.1      cgd 	instructions();
    223  1.1      cgd 	cave_init();
    224  1.1      cgd 
    225  1.1      cgd 	/* and we're OFF!  da dum, da dum, da dum, da dum... */
    226  1.1      cgd 	(void)printf(
    227  1.1      cgd "\nYou're in a cave with %d rooms and %d tunnels leading from each room.\n\
    228  1.1      cgd There are %d bat%s and %d pit%s scattered throughout the cave, and your\n\
    229  1.1      cgd quiver holds %d custom super anti-evil Wumpus arrows.  Good luck.\n",
    230  1.1      cgd 	    room_num, link_num, bat_num, plural(bat_num), pit_num,
    231  1.1      cgd 	    plural(pit_num), arrow_num);
    232  1.1      cgd 
    233  1.1      cgd 	for (;;) {
    234  1.1      cgd 		initialize_things_in_cave();
    235  1.1      cgd 		arrows_left = arrow_num;
    236  1.1      cgd 		do {
    237  1.1      cgd 			display_room_stats();
    238  1.1      cgd 			(void)printf("Move or shoot? (m-s) ");
    239  1.1      cgd 			(void)fflush(stdout);
    240  1.1      cgd 			if (!fgets(answer, sizeof(answer), stdin))
    241  1.1      cgd 				break;
    242  1.1      cgd 		} while (!take_action());
    243  1.1      cgd 
    244  1.1      cgd 		if (!getans("\nCare to play another game? (y-n) "))
    245  1.1      cgd 			exit(0);
    246  1.1      cgd 		if (getans("In the same cave? (y-n) "))
    247  1.1      cgd 			clear_things_in_cave();
    248  1.1      cgd 		else
    249  1.1      cgd 			cave_init();
    250  1.1      cgd 	}
    251  1.1      cgd 	/* NOTREACHED */
    252  1.5    lukem 	return (0);
    253  1.1      cgd }
    254  1.1      cgd 
    255  1.5    lukem void
    256  1.1      cgd display_room_stats()
    257  1.1      cgd {
    258  1.5    lukem 	int i;
    259  1.1      cgd 
    260  1.1      cgd 	/*
    261  1.1      cgd 	 * Routine will explain what's going on with the current room, as well
    262  1.1      cgd 	 * as describe whether there are pits, bats, & wumpii nearby.  It's
    263  1.1      cgd 	 * all pretty mindless, really.
    264  1.1      cgd 	 */
    265  1.1      cgd 	(void)printf(
    266  1.1      cgd "\nYou are in room %d of the cave, and have %d arrow%s left.\n",
    267  1.1      cgd 	    player_loc, arrows_left, plural(arrows_left));
    268  1.1      cgd 
    269  1.1      cgd 	if (bats_nearby())
    270  1.1      cgd 		(void)printf("*rustle* *rustle* (must be bats nearby)\n");
    271  1.1      cgd 	if (pit_nearby())
    272  1.1      cgd 		(void)printf("*whoosh* (I feel a draft from some pits).\n");
    273  1.1      cgd 	if (wump_nearby())
    274  1.1      cgd 		(void)printf("*sniff* (I can smell the evil Wumpus nearby!)\n");
    275  1.1      cgd 
    276  1.1      cgd 	(void)printf("There are tunnels to rooms %d, ",
    277  1.1      cgd 	   cave[player_loc].tunnel[0]);
    278  1.1      cgd 
    279  1.1      cgd 	for (i = 1; i < link_num - 1; i++)
    280  1.1      cgd 		if (cave[player_loc].tunnel[i] <= room_num)
    281  1.1      cgd 			(void)printf("%d, ", cave[player_loc].tunnel[i]);
    282  1.1      cgd 	(void)printf("and %d.\n", cave[player_loc].tunnel[link_num - 1]);
    283  1.1      cgd }
    284  1.1      cgd 
    285  1.5    lukem int
    286  1.1      cgd take_action()
    287  1.1      cgd {
    288  1.1      cgd 	/*
    289  1.1      cgd 	 * Do the action specified by the player, either 'm'ove, 's'hoot
    290  1.1      cgd 	 * or something exceptionally bizarre and strange!  Returns 1
    291  1.1      cgd 	 * iff the player died during this turn, otherwise returns 0.
    292  1.1      cgd 	 */
    293  1.1      cgd 	switch (*answer) {
    294  1.1      cgd 		case 'M':
    295  1.1      cgd 		case 'm':			/* move */
    296  1.1      cgd 			return(move_to(answer + 1));
    297  1.1      cgd 		case 'S':
    298  1.1      cgd 		case 's':			/* shoot */
    299  1.1      cgd 			return(shoot(answer + 1));
    300  1.1      cgd 		case 'Q':
    301  1.1      cgd 		case 'q':
    302  1.1      cgd 		case 'x':
    303  1.1      cgd 			exit(0);
    304  1.1      cgd 		case '\n':
    305  1.1      cgd 			return(0);
    306  1.1      cgd 		}
    307  1.1      cgd 	if (random() % 15 == 1)
    308  1.1      cgd 		(void)printf("Que pasa?\n");
    309  1.1      cgd 	else
    310  1.1      cgd 		(void)printf("I don't understand!\n");
    311  1.1      cgd 	return(0);
    312  1.1      cgd }
    313  1.1      cgd 
    314  1.5    lukem int
    315  1.1      cgd move_to(room_number)
    316  1.5    lukem 	const char *room_number;
    317  1.1      cgd {
    318  1.1      cgd 	int i, just_moved_by_bats, next_room, tunnel_available;
    319  1.1      cgd 
    320  1.1      cgd 	/*
    321  1.1      cgd 	 * This is responsible for moving the player into another room in the
    322  1.1      cgd 	 * cave as per their directions.  If room_number is a null string,
    323  1.1      cgd 	 * then we'll prompt the user for the next room to go into.   Once
    324  1.1      cgd 	 * we've moved into the room, we'll check for things like bats, pits,
    325  1.1      cgd 	 * and so on.  This routine returns 1 if something occurs that kills
    326  1.1      cgd 	 * the player and 0 otherwise...
    327  1.1      cgd 	 */
    328  1.1      cgd 	tunnel_available = just_moved_by_bats = 0;
    329  1.1      cgd 	next_room = atoi(room_number);
    330  1.1      cgd 
    331  1.1      cgd 	/* crap for magic tunnels */
    332  1.1      cgd 	if (next_room == room_num + 1 &&
    333  1.1      cgd 	    cave[player_loc].tunnel[link_num-1] != next_room)
    334  1.1      cgd 		++next_room;
    335  1.1      cgd 
    336  1.1      cgd 	while (next_room < 1 || next_room > room_num + 1) {
    337  1.1      cgd 		if (next_room < 0 && next_room != -1)
    338  1.1      cgd (void)printf("Sorry, but we're constrained to a semi-Euclidean cave!\n");
    339  1.1      cgd 		if (next_room > room_num + 1)
    340  1.1      cgd (void)printf("What?  The cave surely isn't quite that big!\n");
    341  1.1      cgd 		if (next_room == room_num + 1 &&
    342  1.1      cgd 		    cave[player_loc].tunnel[link_num-1] != next_room) {
    343  1.1      cgd 			(void)printf("What?  The cave isn't that big!\n");
    344  1.1      cgd 			++next_room;
    345  1.1      cgd 		}
    346  1.1      cgd 		(void)printf("To which room do you wish to move? ");
    347  1.1      cgd 		(void)fflush(stdout);
    348  1.1      cgd 		if (!fgets(answer, sizeof(answer), stdin))
    349  1.1      cgd 			return(1);
    350  1.1      cgd 		next_room = atoi(answer);
    351  1.1      cgd 	}
    352  1.1      cgd 
    353  1.1      cgd 	/* now let's see if we can move to that room or not */
    354  1.1      cgd 	tunnel_available = 0;
    355  1.1      cgd 	for (i = 0; i < link_num; i++)
    356  1.1      cgd 		if (cave[player_loc].tunnel[i] == next_room)
    357  1.1      cgd 			tunnel_available = 1;
    358  1.1      cgd 
    359  1.1      cgd 	if (!tunnel_available) {
    360  1.1      cgd 		(void)printf("*Oof!*  (You hit the wall)\n");
    361  1.1      cgd 		if (random() % 6 == 1) {
    362  1.1      cgd (void)printf("Your colorful comments awaken the wumpus!\n");
    363  1.1      cgd 			move_wump();
    364  1.1      cgd 			if (wumpus_loc == player_loc) {
    365  1.1      cgd 				wump_kill();
    366  1.1      cgd 				return(1);
    367  1.1      cgd 			}
    368  1.1      cgd 		}
    369  1.1      cgd 		return(0);
    370  1.1      cgd 	}
    371  1.1      cgd 
    372  1.1      cgd 	/* now let's move into that room and check it out for dangers */
    373  1.1      cgd 	if (next_room == room_num + 1)
    374  1.1      cgd 		jump(next_room = (random() % room_num) + 1);
    375  1.1      cgd 
    376  1.1      cgd 	player_loc = next_room;
    377  1.1      cgd 	for (;;) {
    378  1.1      cgd 		if (next_room == wumpus_loc) {		/* uh oh... */
    379  1.1      cgd 			wump_kill();
    380  1.1      cgd 			return(1);
    381  1.1      cgd 		}
    382  1.6    veego 		if (cave[next_room].has_a_pit) {
    383  1.1      cgd 			if (random() % 12 < 2) {
    384  1.1      cgd 				pit_survive();
    385  1.1      cgd 				return(0);
    386  1.1      cgd 			} else {
    387  1.1      cgd 				pit_kill();
    388  1.1      cgd 				return(1);
    389  1.1      cgd 			}
    390  1.6    veego 		}
    391  1.1      cgd 
    392  1.1      cgd 		if (cave[next_room].has_a_bat) {
    393  1.1      cgd 			(void)printf(
    394  1.1      cgd "*flap*  *flap*  *flap*  (humongous bats pick you up and move you%s!)\n",
    395  1.1      cgd 			    just_moved_by_bats ? " again": "");
    396  1.1      cgd 			next_room = player_loc = (random() % room_num) + 1;
    397  1.1      cgd 			just_moved_by_bats = 1;
    398  1.1      cgd 		}
    399  1.1      cgd 
    400  1.1      cgd 		else
    401  1.1      cgd 			break;
    402  1.1      cgd 	}
    403  1.1      cgd 	return(0);
    404  1.1      cgd }
    405  1.1      cgd 
    406  1.5    lukem int
    407  1.1      cgd shoot(room_list)
    408  1.1      cgd 	char *room_list;
    409  1.1      cgd {
    410  1.1      cgd 	int chance, next, roomcnt;
    411  1.1      cgd 	int j, arrow_location, link, ok;
    412  1.5    lukem 	char *p;
    413  1.1      cgd 
    414  1.1      cgd 	/*
    415  1.1      cgd 	 * Implement shooting arrows.  Arrows are shot by the player indicating
    416  1.1      cgd 	 * a space-separated list of rooms that the arrow should pass through;
    417  1.1      cgd 	 * if any of the rooms they specify are not accessible via tunnel from
    418  1.1      cgd 	 * the room the arrow is in, it will instead fly randomly into another
    419  1.1      cgd 	 * room.  If the player hits the wumpus, this routine will indicate
    420  1.1      cgd 	 * such.  If it misses, this routine will *move* the wumpus one room.
    421  1.1      cgd 	 * If it's the last arrow, the player then dies...  Returns 1 if the
    422  1.1      cgd 	 * player has won or died, 0 if nothing has happened.
    423  1.1      cgd 	 */
    424  1.1      cgd 	arrow_location = player_loc;
    425  1.1      cgd 	for (roomcnt = 1;; ++roomcnt, room_list = NULL) {
    426  1.6    veego 		if (!(p = strtok(room_list, " \t\n"))) {
    427  1.1      cgd 			if (roomcnt == 1) {
    428  1.1      cgd 				(void)printf(
    429  1.1      cgd 			"The arrow falls to the ground at your feet!\n");
    430  1.1      cgd 				return(0);
    431  1.1      cgd 			} else
    432  1.1      cgd 				break;
    433  1.6    veego 		}
    434  1.1      cgd 		if (roomcnt > 5) {
    435  1.1      cgd 			(void)printf(
    436  1.1      cgd "The arrow wavers in its flight and and can go no further!\n");
    437  1.1      cgd 			break;
    438  1.1      cgd 		}
    439  1.1      cgd 		next = atoi(p);
    440  1.1      cgd 		for (j = 0, ok = 0; j < link_num; j++)
    441  1.1      cgd 			if (cave[arrow_location].tunnel[j] == next)
    442  1.1      cgd 				ok = 1;
    443  1.1      cgd 
    444  1.1      cgd 		if (ok) {
    445  1.1      cgd 			if (next > room_num) {
    446  1.1      cgd 				(void)printf(
    447  1.1      cgd "A faint gleam tells you the arrow has gone through a magic tunnel!\n");
    448  1.1      cgd 				arrow_location = (random() % room_num) + 1;
    449  1.1      cgd 			} else
    450  1.1      cgd 				arrow_location = next;
    451  1.1      cgd 		} else {
    452  1.1      cgd 			link = (random() % link_num);
    453  1.1      cgd 			if (link == player_loc)
    454  1.1      cgd 				(void)printf(
    455  1.1      cgd "*thunk*  The arrow can't find a way from %d to %d and flys back into\n\
    456  1.1      cgd your room!\n",
    457  1.1      cgd 				    arrow_location, next);
    458  1.1      cgd 			else if (cave[arrow_location].tunnel[link] > room_num)
    459  1.1      cgd 				(void)printf(
    460  1.1      cgd "*thunk*  The arrow flys randomly into a magic tunnel, thence into\n\
    461  1.1      cgd room %d!\n",
    462  1.1      cgd 				    cave[arrow_location].tunnel[link]);
    463  1.1      cgd 			else
    464  1.1      cgd 				(void)printf(
    465  1.1      cgd "*thunk*  The arrow can't find a way from %d to %d and flys randomly\n\
    466  1.1      cgd into room %d!\n",
    467  1.1      cgd 				    arrow_location, next,
    468  1.1      cgd 				    cave[arrow_location].tunnel[link]);
    469  1.1      cgd 			arrow_location = cave[arrow_location].tunnel[link];
    470  1.1      cgd 			break;
    471  1.1      cgd 		}
    472  1.1      cgd 		chance = random() % 10;
    473  1.1      cgd 		if (roomcnt == 3 && chance < 2) {
    474  1.1      cgd 			(void)printf(
    475  1.1      cgd "Your bowstring breaks!  *twaaaaaang*\n\
    476  1.1      cgd The arrow is weakly shot and can go no further!\n");
    477  1.1      cgd 			break;
    478  1.1      cgd 		} else if (roomcnt == 4 && chance < 6) {
    479  1.1      cgd 			(void)printf(
    480  1.1      cgd "The arrow wavers in its flight and and can go no further!\n");
    481  1.1      cgd 			break;
    482  1.1      cgd 		}
    483  1.1      cgd 	}
    484  1.1      cgd 
    485  1.1      cgd 	/*
    486  1.1      cgd 	 * now we've gotten into the new room let us see if El Wumpo is
    487  1.1      cgd 	 * in the same room ... if so we've a HIT and the player WON!
    488  1.1      cgd 	 */
    489  1.1      cgd 	if (arrow_location == wumpus_loc) {
    490  1.1      cgd 		kill_wump();
    491  1.1      cgd 		return(1);
    492  1.1      cgd 	}
    493  1.1      cgd 
    494  1.1      cgd 	if (arrow_location == player_loc) {
    495  1.1      cgd 		shoot_self();
    496  1.1      cgd 		return(1);
    497  1.1      cgd 	}
    498  1.1      cgd 
    499  1.1      cgd 	if (!--arrows_left) {
    500  1.1      cgd 		no_arrows();
    501  1.1      cgd 		return(1);
    502  1.1      cgd 	}
    503  1.1      cgd 
    504  1.1      cgd 	{
    505  1.1      cgd 		/* each time you shoot, it's more likely the wumpus moves */
    506  1.1      cgd 		static int lastchance = 2;
    507  1.1      cgd 
    508  1.1      cgd 		if (random() % level == EASY ? 12 : 9 < (lastchance += 2)) {
    509  1.1      cgd 			move_wump();
    510  1.1      cgd 			if (wumpus_loc == player_loc)
    511  1.1      cgd 				wump_kill();
    512  1.1      cgd 			lastchance = random() % 3;
    513  1.1      cgd 
    514  1.1      cgd 		}
    515  1.1      cgd 	}
    516  1.1      cgd 	return(0);
    517  1.1      cgd }
    518  1.1      cgd 
    519  1.5    lukem void
    520  1.1      cgd cave_init()
    521  1.1      cgd {
    522  1.5    lukem 	int i, j, k, link;
    523  1.5    lukem 	int delta;
    524  1.1      cgd 
    525  1.1      cgd 	/*
    526  1.1      cgd 	 * This does most of the interesting work in this program actually!
    527  1.1      cgd 	 * In this routine we'll initialize the Wumpus cave to have all rooms
    528  1.1      cgd 	 * linking to all others by stepping through our data structure once,
    529  1.1      cgd 	 * recording all forward links and backwards links too.  The parallel
    530  1.1      cgd 	 * "linkcount" data structure ensures that no room ends up with more
    531  1.1      cgd 	 * than three links, regardless of the quality of the random number
    532  1.1      cgd 	 * generator that we're using.
    533  1.1      cgd 	 */
    534  1.1      cgd 	srandom((int)time((time_t *)0));
    535  1.1      cgd 
    536  1.1      cgd 	/* initialize the cave first off. */
    537  1.1      cgd 	for (i = 1; i <= room_num; ++i)
    538  1.1      cgd 		for (j = 0; j < link_num ; ++j)
    539  1.1      cgd 			cave[i].tunnel[j] = -1;
    540  1.1      cgd 
    541  1.1      cgd 	/* choose a random 'hop' delta for our guaranteed link */
    542  1.1      cgd 	while (!(delta = random() % room_num));
    543  1.1      cgd 
    544  1.1      cgd 	for (i = 1; i <= room_num; ++i) {
    545  1.1      cgd 		link = ((i + delta) % room_num) + 1;	/* connection */
    546  1.1      cgd 		cave[i].tunnel[0] = link;		/* forw link */
    547  1.1      cgd 		cave[link].tunnel[1] = i;		/* back link */
    548  1.1      cgd 	}
    549  1.1      cgd 	/* now fill in the rest of the cave with random connections */
    550  1.1      cgd 	for (i = 1; i <= room_num; i++)
    551  1.1      cgd 		for (j = 2; j < link_num ; j++) {
    552  1.1      cgd 			if (cave[i].tunnel[j] != -1)
    553  1.1      cgd 				continue;
    554  1.1      cgd try_again:		link = (random() % room_num) + 1;
    555  1.1      cgd 			/* skip duplicates */
    556  1.1      cgd 			for (k = 0; k < j; k++)
    557  1.1      cgd 				if (cave[i].tunnel[k] == link)
    558  1.1      cgd 					goto try_again;
    559  1.1      cgd 			cave[i].tunnel[j] = link;
    560  1.1      cgd 			if (random() % 2 == 1)
    561  1.1      cgd 				continue;
    562  1.1      cgd 			for (k = 0; k < link_num; ++k) {
    563  1.1      cgd 				/* if duplicate, skip it */
    564  1.1      cgd 				if (cave[link].tunnel[k] == i)
    565  1.1      cgd 					k = link_num;
    566  1.1      cgd 
    567  1.1      cgd 				/* if open link, use it, force exit */
    568  1.1      cgd 				if (cave[link].tunnel[k] == -1) {
    569  1.1      cgd 					cave[link].tunnel[k] = i;
    570  1.1      cgd 					k = link_num;
    571  1.1      cgd 				}
    572  1.1      cgd 			}
    573  1.1      cgd 		}
    574  1.1      cgd 	/*
    575  1.1      cgd 	 * now that we're done, sort the tunnels in each of the rooms to
    576  1.1      cgd 	 * make it easier on the intrepid adventurer.
    577  1.1      cgd 	 */
    578  1.1      cgd 	for (i = 1; i <= room_num; ++i)
    579  1.1      cgd 		qsort(cave[i].tunnel, (u_int)link_num,
    580  1.1      cgd 		    sizeof(cave[i].tunnel[0]), int_compare);
    581  1.1      cgd 
    582  1.1      cgd #ifdef DEBUG
    583  1.1      cgd 	if (debug)
    584  1.1      cgd 		for (i = 1; i <= room_num; ++i) {
    585  1.1      cgd 			(void)printf("<room %d  has tunnels to ", i);
    586  1.1      cgd 			for (j = 0; j < link_num; ++j)
    587  1.1      cgd 				(void)printf("%d ", cave[i].tunnel[j]);
    588  1.1      cgd 			(void)printf(">\n");
    589  1.1      cgd 		}
    590  1.1      cgd #endif
    591  1.1      cgd }
    592  1.1      cgd 
    593  1.5    lukem void
    594  1.1      cgd clear_things_in_cave()
    595  1.1      cgd {
    596  1.5    lukem 	int i;
    597  1.1      cgd 
    598  1.1      cgd 	/*
    599  1.1      cgd 	 * remove bats and pits from the current cave in preparation for us
    600  1.1      cgd 	 * adding new ones via the initialize_things_in_cave() routines.
    601  1.1      cgd 	 */
    602  1.1      cgd 	for (i = 1; i <= room_num; ++i)
    603  1.1      cgd 		cave[i].has_a_bat = cave[i].has_a_pit = 0;
    604  1.1      cgd }
    605  1.1      cgd 
    606  1.5    lukem void
    607  1.1      cgd initialize_things_in_cave()
    608  1.1      cgd {
    609  1.5    lukem 	int i, loc;
    610  1.1      cgd 
    611  1.1      cgd 	/* place some bats, pits, the wumpus, and the player. */
    612  1.1      cgd 	for (i = 0; i < bat_num; ++i) {
    613  1.1      cgd 		do {
    614  1.1      cgd 			loc = (random() % room_num) + 1;
    615  1.1      cgd 		} while (cave[loc].has_a_bat);
    616  1.1      cgd 		cave[loc].has_a_bat = 1;
    617  1.1      cgd #ifdef DEBUG
    618  1.1      cgd 		if (debug)
    619  1.1      cgd 			(void)printf("<bat in room %d>\n", loc);
    620  1.1      cgd #endif
    621  1.1      cgd 	}
    622  1.1      cgd 
    623  1.1      cgd 	for (i = 0; i < pit_num; ++i) {
    624  1.1      cgd 		do {
    625  1.1      cgd 			loc = (random() % room_num) + 1;
    626  1.1      cgd 		} while (cave[loc].has_a_pit && cave[loc].has_a_bat);
    627  1.1      cgd 		cave[loc].has_a_pit = 1;
    628  1.1      cgd #ifdef DEBUG
    629  1.1      cgd 		if (debug)
    630  1.1      cgd 			(void)printf("<pit in room %d>\n", loc);
    631  1.1      cgd #endif
    632  1.1      cgd 	}
    633  1.1      cgd 
    634  1.1      cgd 	wumpus_loc = (random() % room_num) + 1;
    635  1.1      cgd #ifdef DEBUG
    636  1.1      cgd 	if (debug)
    637  1.1      cgd 		(void)printf("<wumpus in room %d>\n", loc);
    638  1.1      cgd #endif
    639  1.1      cgd 
    640  1.1      cgd 	do {
    641  1.1      cgd 		player_loc = (random() % room_num) + 1;
    642  1.1      cgd 	} while (player_loc == wumpus_loc || (level == HARD ?
    643  1.1      cgd 	    (link_num / room_num < 0.4 ? wump_nearby() : 0) : 0));
    644  1.1      cgd }
    645  1.1      cgd 
    646  1.5    lukem int
    647  1.1      cgd getans(prompt)
    648  1.5    lukem 	const char *prompt;
    649  1.1      cgd {
    650  1.1      cgd 	char buf[20];
    651  1.1      cgd 
    652  1.1      cgd 	/*
    653  1.1      cgd 	 * simple routine to ask the yes/no question specified until the user
    654  1.1      cgd 	 * answers yes or no, then return 1 if they said 'yes' and 0 if they
    655  1.1      cgd 	 * answered 'no'.
    656  1.1      cgd 	 */
    657  1.1      cgd 	for (;;) {
    658  1.1      cgd 		(void)printf("%s", prompt);
    659  1.1      cgd 		(void)fflush(stdout);
    660  1.1      cgd 		if (!fgets(buf, sizeof(buf), stdin))
    661  1.1      cgd 			return(0);
    662  1.1      cgd 		if (*buf == 'N' || *buf == 'n')
    663  1.1      cgd 			return(0);
    664  1.1      cgd 		if (*buf == 'Y' || *buf == 'y')
    665  1.1      cgd 			return(1);
    666  1.1      cgd 		(void)printf(
    667  1.1      cgd "I don't understand your answer; please enter 'y' or 'n'!\n");
    668  1.1      cgd 	}
    669  1.1      cgd 	/* NOTREACHED */
    670  1.1      cgd }
    671  1.1      cgd 
    672  1.5    lukem int
    673  1.1      cgd bats_nearby()
    674  1.1      cgd {
    675  1.5    lukem 	int i;
    676  1.1      cgd 
    677  1.1      cgd 	/* check for bats in the immediate vicinity */
    678  1.1      cgd 	for (i = 0; i < link_num; ++i)
    679  1.1      cgd 		if (cave[cave[player_loc].tunnel[i]].has_a_bat)
    680  1.1      cgd 			return(1);
    681  1.1      cgd 	return(0);
    682  1.1      cgd }
    683  1.1      cgd 
    684  1.5    lukem int
    685  1.1      cgd pit_nearby()
    686  1.1      cgd {
    687  1.5    lukem 	int i;
    688  1.1      cgd 
    689  1.1      cgd 	/* check for pits in the immediate vicinity */
    690  1.1      cgd 	for (i = 0; i < link_num; ++i)
    691  1.1      cgd 		if (cave[cave[player_loc].tunnel[i]].has_a_pit)
    692  1.1      cgd 			return(1);
    693  1.1      cgd 	return(0);
    694  1.1      cgd }
    695  1.1      cgd 
    696  1.5    lukem int
    697  1.1      cgd wump_nearby()
    698  1.1      cgd {
    699  1.5    lukem 	int i, j;
    700  1.1      cgd 
    701  1.1      cgd 	/* check for a wumpus within TWO caves of where we are */
    702  1.1      cgd 	for (i = 0; i < link_num; ++i) {
    703  1.1      cgd 		if (cave[player_loc].tunnel[i] == wumpus_loc)
    704  1.1      cgd 			return(1);
    705  1.1      cgd 		for (j = 0; j < link_num; ++j)
    706  1.1      cgd 			if (cave[cave[player_loc].tunnel[i]].tunnel[j] ==
    707  1.1      cgd 			    wumpus_loc)
    708  1.1      cgd 				return(1);
    709  1.1      cgd 	}
    710  1.1      cgd 	return(0);
    711  1.1      cgd }
    712  1.1      cgd 
    713  1.5    lukem void
    714  1.1      cgd move_wump()
    715  1.1      cgd {
    716  1.1      cgd 	wumpus_loc = cave[wumpus_loc].tunnel[random() % link_num];
    717  1.1      cgd }
    718  1.1      cgd 
    719  1.5    lukem int
    720  1.1      cgd int_compare(a, b)
    721  1.5    lukem 	const void *a, *b;
    722  1.1      cgd {
    723  1.5    lukem 	return(*(int *)a < *(int *)b ? -1 : 1);
    724  1.1      cgd }
    725  1.1      cgd 
    726  1.5    lukem void
    727  1.1      cgd instructions()
    728  1.1      cgd {
    729  1.8  hubertf 	const char *pager;
    730  1.8  hubertf 	pid_t pid;
    731  1.8  hubertf 	int status;
    732  1.8  hubertf 	int fd;
    733  1.1      cgd 
    734  1.1      cgd 	/*
    735  1.1      cgd 	 * read the instructions file, if needed, and show the user how to
    736  1.1      cgd 	 * play this game!
    737  1.1      cgd 	 */
    738  1.1      cgd 	if (!getans("Instructions? (y-n) "))
    739  1.1      cgd 		return;
    740  1.1      cgd 
    741  1.1      cgd 	if (access(_PATH_WUMPINFO, R_OK)) {
    742  1.1      cgd 		(void)printf(
    743  1.1      cgd "Sorry, but the instruction file seems to have disappeared in a\n\
    744  1.1      cgd puff of greasy black smoke! (poof)\n");
    745  1.1      cgd 		return;
    746  1.1      cgd 	}
    747  1.1      cgd 
    748  1.8  hubertf 	if (!isatty(1))
    749  1.8  hubertf 		pager = "cat";
    750  1.8  hubertf 	else {
    751  1.8  hubertf 		if (!(pager = getenv("PAGER")) || (*pager == 0))
    752  1.8  hubertf 			pager = _PATH_PAGER;
    753  1.8  hubertf 	}
    754  1.8  hubertf 	switch (pid = fork()) {
    755  1.8  hubertf 	case 0: /* child */
    756  1.8  hubertf 		if ((fd = open(_PATH_WUMPINFO, O_RDONLY)) == -1)
    757  1.8  hubertf 			err(1, "open %s", _PATH_WUMPINFO);
    758  1.8  hubertf 		if (dup2(fd, 0) == -1)
    759  1.8  hubertf 			err(1, "dup2");
    760  1.8  hubertf 		(void)execl("/bin/sh", "sh", "-c", pager, NULL);
    761  1.8  hubertf 		err(1, "exec sh -c %s", pager);
    762  1.8  hubertf 	case -1:
    763  1.8  hubertf 		err(1, "fork");
    764  1.8  hubertf 	default:
    765  1.8  hubertf 		(void)waitpid(pid, &status, 0);
    766  1.8  hubertf 		break;
    767  1.8  hubertf 	}
    768  1.1      cgd }
    769  1.1      cgd 
    770  1.5    lukem void
    771  1.1      cgd usage()
    772  1.1      cgd {
    773  1.1      cgd 	(void)fprintf(stderr,
    774  1.1      cgd "usage: wump [-h] [-a arrows] [-b bats] [-p pits] [-r rooms] [-t tunnels]\n");
    775  1.1      cgd 	exit(1);
    776  1.1      cgd }
    777  1.1      cgd 
    778  1.1      cgd /* messages */
    779  1.1      cgd 
    780  1.5    lukem void
    781  1.1      cgd wump_kill()
    782  1.1      cgd {
    783  1.1      cgd 	(void)printf(
    784  1.1      cgd "*ROAR* *chomp* *snurfle* *chomp*!\n\
    785  1.1      cgd Much to the delight of the Wumpus, you walked right into his mouth,\n\
    786  1.1      cgd making you one of the easiest dinners he's ever had!  For you, however,\n\
    787  1.1      cgd it's a rather unpleasant death.  The only good thing is that it's been\n\
    788  1.1      cgd so long since the evil Wumpus cleaned his teeth that you immediately\n\
    789  1.1      cgd passed out from the stench!\n");
    790  1.1      cgd }
    791  1.1      cgd 
    792  1.5    lukem void
    793  1.1      cgd kill_wump()
    794  1.1      cgd {
    795  1.1      cgd 	(void)printf(
    796  1.1      cgd "*thwock!* *groan* *crash*\n\n\
    797  1.1      cgd A horrible roar fills the cave, and you realize, with a smile, that you\n\
    798  1.1      cgd have slain the evil Wumpus and won the game!  You don't want to tarry for\n\
    799  1.1      cgd long, however, because not only is the Wumpus famous, but the stench of\n\
    800  1.1      cgd dead Wumpus is also quite well known, a stench plenty enough to slay the\n\
    801  1.1      cgd mightiest adventurer at a single whiff!!\n");
    802  1.1      cgd }
    803  1.1      cgd 
    804  1.5    lukem void
    805  1.1      cgd no_arrows()
    806  1.1      cgd {
    807  1.1      cgd 	(void)printf(
    808  1.1      cgd "\nYou turn and look at your quiver, and realize with a sinking feeling\n\
    809  1.1      cgd that you've just shot your last arrow (figuratively, too).  Sensing this\n\
    810  1.1      cgd with its psychic powers, the evil Wumpus rampagees through the cave, finds\n\
    811  1.1      cgd you, and with a mighty *ROAR* eats you alive!\n");
    812  1.1      cgd }
    813  1.1      cgd 
    814  1.5    lukem void
    815  1.1      cgd shoot_self()
    816  1.1      cgd {
    817  1.1      cgd 	(void)printf(
    818  1.1      cgd "\n*Thwack!*  A sudden piercing feeling informs you that the ricochet\n\
    819  1.1      cgd of your wild arrow has resulted in it wedging in your side, causing\n\
    820  1.1      cgd extreme agony.  The evil Wumpus, with its psychic powers, realizes this\n\
    821  1.1      cgd and immediately rushes to your side, not to help, alas, but to EAT YOU!\n\
    822  1.1      cgd (*CHOMP*)\n");
    823  1.1      cgd }
    824  1.1      cgd 
    825  1.5    lukem void
    826  1.1      cgd jump(where)
    827  1.1      cgd 	int where;
    828  1.1      cgd {
    829  1.1      cgd 	(void)printf(
    830  1.1      cgd "\nWith a jaunty step you enter the magic tunnel.  As you do, you\n\
    831  1.1      cgd notice that the walls are shimmering and glowing.  Suddenly you feel\n\
    832  1.1      cgd a very curious, warm sensation and find yourself in room %d!!\n", where);
    833  1.1      cgd }
    834  1.1      cgd 
    835  1.5    lukem void
    836  1.1      cgd pit_kill()
    837  1.1      cgd {
    838  1.1      cgd 	(void)printf(
    839  1.1      cgd "*AAAUUUUGGGGGHHHHHhhhhhhhhhh...*\n\
    840  1.1      cgd The whistling sound and updraft as you walked into this room of the\n\
    841  1.1      cgd cave apparently wasn't enough to clue you in to the presence of the\n\
    842  1.1      cgd bottomless pit.  You have a lot of time to reflect on this error as\n\
    843  1.1      cgd you fall many miles to the core of the earth.  Look on the bright side;\n\
    844  1.1      cgd you can at least find out if Jules Verne was right...\n");
    845  1.1      cgd }
    846  1.1      cgd 
    847  1.5    lukem void
    848  1.1      cgd pit_survive()
    849  1.1      cgd {
    850  1.1      cgd 	(void)printf(
    851  1.1      cgd "Without conscious thought you grab for the side of the cave and manage\n\
    852  1.1      cgd to grasp onto a rocky outcrop.  Beneath your feet stretches the limitless\n\
    853  1.1      cgd depths of a bottomless pit!  Rock crumbles beneath your feet!\n");
    854  1.1      cgd }
    855