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