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