[unix-history] / usr / src / games / battlestar / com4.c

/*
 * Copyright (c) 1983 Regents of the University of California,
 * All rights reserved.  Redistribution permitted subject to
 * the terms of the Berkeley Software License Agreement.
 */

#ifndef lint
static char sccsid[] = "@(#)com4.c	1.3 %G%";
#endif

#include "externs.h"

take(from)
unsigned int from[];
{
	int firstnumber, heavy, bulky, value;
	register int n;

	firstnumber = wordnumber;
	if (wordnumber < wordcount && wordvalue[wordnumber+1] == OFF){
		wordnumber++;
		wordvalue[wordnumber] = TAKEOFF;
		return(cypher());
	}
	else {
		while(wordtype[++wordnumber] == ADJS);
		while(wordnumber<=wordcount && wordtype[wordnumber] == OBJECT){
			value = wordvalue[wordnumber];
			printf("%s:\n", objsht[value]);
			for (n=0; objsht[value][n]; n++);
			heavy = (carrying + objwt[value]) <= WEIGHT;
			bulky = (encumber + objcumber[value]) <= CUMBER;
			if ((testbit(from,value) || wiz || tempwiz) && heavy && bulky && !testbit(inven,value)){
				setbit(inven,value);
				carrying += objwt[value];
				encumber += objcumber[value];
				time++;
				if (testbit(from,value))
					printf("Taken.\n");
				else
					printf("Zap! Taken from thin air.\n");
				clearbit(from,value);
				if (value == MEDALION)
					win--;
			}
			else if (testbit(inven,value))
				printf("You're already holding%s%s.\n", (objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
			else if (!heavy)
				printf("The %s %s too heavy.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
			else if (!bulky)
				printf("The %s %s too cumbersome to hold.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
			else
				printf("I dont see any %s around here.\n", objsht[value]);
			if (wordnumber < wordcount -1 && wordvalue[++wordnumber] == AND)
				wordnumber++;
			else
				return(firstnumber);
		}
	}
			    /* special cases with their own return()'s */

	if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS)
		switch(wordvalue[wordnumber]){
			
			case SWORD:
				if (testbit(from, SWORD)){
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				if (testbit(from, TWO_HANDED)){
					wordvalue[wordnumber] = TWO_HANDED;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				wordvalue[wordnumber] = BROAD;
				wordtype[wordnumber--] = OBJECT;
				return(take(from));

			case BODY:
				if (testbit(from,MAID)){
					wordvalue[wordnumber] = MAID;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				else if (testbit(from,DEADWOOD)){
					wordvalue[wordnumber] = DEADWOOD;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				else if (testbit(from,DEADNATIVE)){
					wordvalue[wordnumber] = DEADNATIVE;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				else if (testbit(from,DEADGOD)){
					wordvalue[wordnumber] = DEADGOD;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				else {
					wordvalue[wordnumber] = DEADTIME;
					wordtype[wordnumber--] = OBJECT;
					return(take(from));
				}
				break;

			case AMULET:
				if (testbit(location[position].objects,AMULET)){
					puts("The amulet is warm to the touch, and its beauty catches your breath.");
					puts("A mist falls over your eyes, but then it is gone.  Sounds seem clearer");
					puts("and sharper but far away as if in a dream.  The sound of purling water reaches");
					puts("you from afar.  The mist falls again, and your heart leaps in horror.  The gold");
					puts("freezes your hands and fathomless darkness engulfs your soul.");
				}
				wordtype[wordnumber--] = OBJECT;
				return(take(from));

			case MEDALION:
				if (testbit(location[position].objects, MEDALION)){
					puts("The medallion is warm, and it rekindles your spirit with the warmth of life.");
					puts("Your amulet begins to glow as the medallion is brought near to it, and together\nthey radiate.");
				}
				wordtype[wordnumber--] = OBJECT;
				return(take(from));

			case TALISMAN:
				if (testbit(location[position].objects,TALISMAN)){
					puts("The talisman is cold to the touch, and it sends a chill down your spine.");
				}
				wordtype[wordnumber--] = OBJECT;
				return(take(from));

			case NORMGOD:
				if (testbit(location[position].objects,BATHGOD) && (testbit(wear,AMULET) || testbit(inven,AMULET))){
					puts("She offers a delicate hand, and you help her out of the sparkling springs.");
					puts("Water droplets like liquid silver bedew her golden skin, but when they part");
					puts("from her, they fall as teardrops.  She wraps a single cloth around her and");
					puts("ties it at the waist.  Around her neck hangs a golden amulet.");
					puts("She bids you to follow her.");
					pleasure++;
					followgod = time;
					clearbit(location[position].objects,BATHGOD);
				} else if (!testbit(location[position].objects,BATHGOD))
					puts("You're in no position to take her.");
				else 
					puts("She moves away from you.");
				break;

			default:
				puts("It doesn't seem to work.");
		}
	else
		puts("You've got to be kidding.");
	return(firstnumber);
}

throw(name)
	char *name;
{
	int n;
	int deposit = 0;
	int first, value;

	first = wordnumber;
	if (drop(name) != -1){
		switch(wordvalue[wordnumber]){
			
			case AHEAD:
				deposit = ahead;
				break;

			case BACK:
				deposit = back;
				break;

			case LEFT:
				deposit = left;
				break;

			case RIGHT:
				deposit = right;
				break;

			case UP:
				deposit = location[position].up * (location[position].access || position == FINAL);
				break;

			case DOWN:
				deposit = location[position].down;
				break;
		}
		wordnumber = first;
		while (wordtype[++wordnumber] == ADJS);
		while (wordnumber <= wordcount){
			value = wordvalue[wordnumber];
			if (deposit && testbit(location[position].objects,value)){
				clearbit(location[position].objects,value);
				if (value != GRENADE)
					setbit(location[deposit].objects,value);
				else{
					puts("A thundering explosion nearby sends up a cloud of smoke and shrapnel.");
					for (n = 0; n < NUMOFWORDS; n ++)
						location[deposit].objects[n] = 0;
					setbit(location[deposit].objects,CHAR);
				}
				if (value == ROPE && position == FINAL)
					location[position].access = 1;
				switch(deposit){
					case 189:
					case 231:
						puts("The stone door is unhinged.");
						location[189].north = 231;
						location[231].south = 189;
						break;
					case 30:
						puts("The wooden door is blown open.");
						location[30].west = 25;
						break;
					case 31:
						puts("The door is not damaged.");
				}
			}
			else if (value == GRENADE && testbit(location[position].objects,value)){
				puts("You are blown into shreds when your grenade explodes.");
				die();
			}
			if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
				wordnumber++;
			else 
				return(first);
		}
		return(first);
	}
	return(first);
}

drop(name)
char *name;
{
	
	int firstnumber, value;

	firstnumber = wordnumber;
	while (wordtype[++wordnumber] == ADJS)
		;
	while (wordnumber<=wordcount && (wordtype[wordnumber] == OBJECT || wordtype[wordnumber] == NOUNS)) {
		value = wordvalue[wordnumber];
		printf("%s:\n", objsht[value]);
		if (testbit(inven,value)){
			clearbit(inven,value);
			carrying -= objwt[value];
			encumber -= objcumber[value];
			if (value == BOMB){
				puts("The bomb explodes.  A blinding white light and immense concussion obliterate us.");
				die();
			}
			if (value != AMULET && value != MEDALION && value != TALISMAN)
				setbit(location[position].objects,value);
			else
				tempwiz = 0;
			time++;
			if (*name == 'K')
				puts("Drop kicked.");
			else
				printf("%s.\n", name);
		}
		else {
			if (*name != 'K') {
				printf("You aren't holding the %s.\n", objsht[value]);
				if (testbit(location[position].objects,value)) {
					if (*name == 'T')
						puts("Kicked instead.");
					else if (*name == 'G')
						puts("Given anyway.");
				}
			} else
				puts("Kicked.");
		}
		if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
			wordnumber++;
		else
			return(firstnumber);
	}
	puts("Do what?");
	return(-1);
}

takeoff()
{
	wordnumber = take(wear);
	return(drop("Dropped"));
}

puton()
{
	wordnumber = take(location[position].objects);
	return(wearit());
}

eat()
{
	register int n;
	int firstnumber, value;

	firstnumber = wordnumber;
	while(wordtype[++wordnumber] == ADJS);
	while(wordnumber <= wordcount){
		value = wordvalue[wordnumber];
		for (n=0; objsht[value][n]; n++);
		switch(value){
			
			case -1:
				puts("Eat what?");
				return(firstnumber);

			default:
				printf("You can't eat%s%s!\n",(objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
				return(firstnumber);

			case PAPAYAS:
			case PINEAPPLE:
			case KIWI:
			case COCONUTS:	/* eatable things */
			case MANGO:

				printf("%s:\n",objsht[value]);
				if (testbit(inven,value) && time > ate - CYCLE && testbit(inven,KNIFE)){
					clearbit(inven,value);
					carrying -= objwt[value];
					encumber -= objcumber[value];
					ate = max(time,ate) + CYCLE/3;
					snooze += CYCLE/10;
					time++;
					puts("Eaten.  You can explore a little longer now.");
				}
				else if (time < ate - CYCLE)
					puts("You're stuffed.");
				else if (!testbit(inven,KNIFE))
					puts("You need a knife.");
				else
					printf("You aren't holding the %s.\n", objsht[value]);
				if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
					wordnumber++;
				else 
					return(firstnumber);
		} /* end switch */
	} /* end while */
	return(firstnumber);
}
Commit	Line	Data
fdc7d56f EW	1	/*
	2	* Copyright (c) 1983 Regents of the University of California,
	3	* All rights reserved. Redistribution permitted subject to
	4	* the terms of the Berkeley Software License Agreement.
	5	*/
	6
1ddef5f0	7	#ifndef lint
fdc7d56f	8	static char sccsid[] = "@(#)com4.c 1.3 %G%";
1ddef5f0 EW	9	#endif
	10
	11	#include "externs.h"
	12
	13	take(from)
	14	unsigned int from[];
	15	{
	16	int firstnumber, heavy, bulky, value;
	17	register int n;
	18
	19	firstnumber = wordnumber;
	20	if (wordnumber < wordcount && wordvalue[wordnumber+1] == OFF){
	21	wordnumber++;
	22	wordvalue[wordnumber] = TAKEOFF;
	23	return(cypher());
	24	}
	25	else {
	26	while(wordtype[++wordnumber] == ADJS);
	27	while(wordnumber<=wordcount && wordtype[wordnumber] == OBJECT){
	28	value = wordvalue[wordnumber];
	29	printf("%s:\n", objsht[value]);
	30	for (n=0; objsht[value][n]; n++);
	31	heavy = (carrying + objwt[value]) <= WEIGHT;
	32	bulky = (encumber + objcumber[value]) <= CUMBER;
	33	if ((testbit(from,value) \|\| wiz \|\| tempwiz) && heavy && bulky && !testbit(inven,value)){
	34	setbit(inven,value);
	35	carrying += objwt[value];
	36	encumber += objcumber[value];
	37	time++;
	38	if (testbit(from,value))
	39	printf("Taken.\n");
	40	else
	41	printf("Zap! Taken from thin air.\n");
	42	clearbit(from,value);
	43	if (value == MEDALION)
	44	win--;
	45	}
	46	else if (testbit(inven,value))
	47	printf("You're already holding%s%s.\n", (objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
	48	else if (!heavy)
	49	printf("The %s %s too heavy.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
	50	else if (!bulky)
	51	printf("The %s %s too cumbersome to hold.\n", objsht[value],(objsht[value][n-1] == 's' ? "are" : "is"));
	52	else
	53	printf("I dont see any %s around here.\n", objsht[value]);
	54	if (wordnumber < wordcount -1 && wordvalue[++wordnumber] == AND)
	55	wordnumber++;
	56	else
	57	return(firstnumber);
	58	}
	59	}
	60	/* special cases with their own return()'s */
	61
	62	if (wordnumber <= wordcount && wordtype[wordnumber] == NOUNS)
	63	switch(wordvalue[wordnumber]){
	64
	65	case SWORD:
	66	if (testbit(from, SWORD)){
	67	wordtype[wordnumber--] = OBJECT;
	68	return(take(from));
	69	}
	70	if (testbit(from, TWO_HANDED)){
	71	wordvalue[wordnumber] = TWO_HANDED;
	72	wordtype[wordnumber--] = OBJECT;
73	return(take(from));
74	}
75	wordvalue[wordnumber] = BROAD;
76	wordtype[wordnumber--] = OBJECT;
77	return(take(from));
78
79	case BODY:
80	if (testbit(from,MAID)){
81	wordvalue[wordnumber] = MAID;
82	wordtype[wordnumber--] = OBJECT;
83	return(take(from));
84	}
85	else if (testbit(from,DEADWOOD)){
86	wordvalue[wordnumber] = DEADWOOD;
87	wordtype[wordnumber--] = OBJECT;
88	return(take(from));
89	}
90	else if (testbit(from,DEADNATIVE)){
91	wordvalue[wordnumber] = DEADNATIVE;
92	wordtype[wordnumber--] = OBJECT;
93	return(take(from));
94	}
95	else if (testbit(from,DEADGOD)){
96	wordvalue[wordnumber] = DEADGOD;
97	wordtype[wordnumber--] = OBJECT;
98	return(take(from));
99	}
100	else {
101	wordvalue[wordnumber] = DEADTIME;
102	wordtype[wordnumber--] = OBJECT;
103	return(take(from));
104	}
105	break;
106
107	case AMULET:
108	if (testbit(location[position].objects,AMULET)){
a7c71d1e EW	109	puts("The amulet is warm to the touch, and its beauty catches your breath.");
a7c71d1e EW	110	puts("A mist falls over your eyes, but then it is gone. Sounds seem clearer");
1ddef5f0	111	puts("and sharper but far away as if in a dream. The sound of purling water reaches");
a7c71d1e	112	puts("you from afar. The mist falls again, and your heart leaps in horror. The gold");
1ddef5f0 EW	113	puts("freezes your hands and fathomless darkness engulfs your soul.");
	114	}
	115	wordtype[wordnumber--] = OBJECT;
	116	return(take(from));
	117
	118	case MEDALION:
	119	if (testbit(location[position].objects, MEDALION)){
a7c71d1e	120	puts("The medallion is warm, and it rekindles your spirit with the warmth of life.");
1ddef5f0 EW	121	puts("Your amulet begins to glow as the medallion is brought near to it, and together\nthey radiate.");
	122	}
	123	wordtype[wordnumber--] = OBJECT;
	124	return(take(from));
	125
	126	case TALISMAN:
	127	if (testbit(location[position].objects,TALISMAN)){
a7c71d1e	128	puts("The talisman is cold to the touch, and it sends a chill down your spine.");
1ddef5f0 EW	129	}
	130	wordtype[wordnumber--] = OBJECT;
	131	return(take(from));
	132
	133	case NORMGOD:
	134	if (testbit(location[position].objects,BATHGOD) && (testbit(wear,AMULET) \|\| testbit(inven,AMULET))){
a7c71d1e	135	puts("She offers a delicate hand, and you help her out of the sparkling springs.");
1ddef5f0 EW	136	puts("Water droplets like liquid silver bedew her golden skin, but when they part");
	137	puts("from her, they fall as teardrops. She wraps a single cloth around her and");
	138	puts("ties it at the waist. Around her neck hangs a golden amulet.");
	139	puts("She bids you to follow her.");
	140	pleasure++;
	141	followgod = time;
	142	clearbit(location[position].objects,BATHGOD);
	143	} else if (!testbit(location[position].objects,BATHGOD))
	144	puts("You're in no position to take her.");
	145	else
	146	puts("She moves away from you.");
	147	break;
	148
	149	default:
	150	puts("It doesn't seem to work.");
	151	}
	152	else
	153	puts("You've got to be kidding.");
	154	return(firstnumber);
	155	}
	156
a7c71d1e EW	157	throw(name)
a7c71d1e EW	158	char *name;
1ddef5f0 EW	159	{
	160	int n;
	161	int deposit = 0;
	162	int first, value;
	163
	164	first = wordnumber;
a7c71d1e	165	if (drop(name) != -1){
1ddef5f0 EW	166	switch(wordvalue[wordnumber]){
	167
	168	case AHEAD:
	169	deposit = ahead;
	170	break;
	171
	172	case BACK:
	173	deposit = back;
	174	break;
	175
	176	case LEFT:
	177	deposit = left;
	178	break;
	179
	180	case RIGHT:
	181	deposit = right;
	182	break;
	183
	184	case UP:
	185	deposit = location[position].up * (location[position].access \|\| position == FINAL);
	186	break;
	187
	188	case DOWN:
	189	deposit = location[position].down;
	190	break;
	191	}
	192	wordnumber = first;
	193	while (wordtype[++wordnumber] == ADJS);
	194	while (wordnumber <= wordcount){
	195	value = wordvalue[wordnumber];
	196	if (deposit && testbit(location[position].objects,value)){
	197	clearbit(location[position].objects,value);
	198	if (value != GRENADE)
	199	setbit(location[deposit].objects,value);
	200	else{
	201	puts("A thundering explosion nearby sends up a cloud of smoke and shrapnel.");
	202	for (n = 0; n < NUMOFWORDS; n ++)
	203	location[deposit].objects[n] = 0;
	204	setbit(location[deposit].objects,CHAR);
	205	}
	206	if (value == ROPE && position == FINAL)
	207	location[position].access = 1;
	208	switch(deposit){
	209	case 189:
	210	case 231:
	211	puts("The stone door is unhinged.");
	212	location[189].north = 231;
	213	location[231].south = 189;
	214	break;
	215	case 30:
	216	puts("The wooden door is blown open.");
	217	location[30].west = 25;
	218	break;
	219	case 31:
	220	puts("The door is not damaged.");
	221	}
	222	}
	223	else if (value == GRENADE && testbit(location[position].objects,value)){
	224	puts("You are blown into shreds when your grenade explodes.");
	225	die();
	226	}
	227	if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
	228	wordnumber++;
	229	else
230	return(first);
231	}
232	return(first);
233	}
234	return(first);
235	}
236
237	drop(name)
238	char *name;
239	{
240
241	int firstnumber, value;
242
243	firstnumber = wordnumber;
a7c71d1e EW	244	while (wordtype[++wordnumber] == ADJS)
	245	;
	246	while (wordnumber<=wordcount && (wordtype[wordnumber] == OBJECT \|\| wordtype[wordnumber] == NOUNS)) {
1ddef5f0 EW	247	value = wordvalue[wordnumber];
	248	printf("%s:\n", objsht[value]);
	249	if (testbit(inven,value)){
	250	clearbit(inven,value);
	251	carrying -= objwt[value];
	252	encumber -= objcumber[value];
	253	if (value == BOMB){
	254	puts("The bomb explodes. A blinding white light and immense concussion obliterate us.");
	255	die();
	256	}
	257	if (value != AMULET && value != MEDALION && value != TALISMAN)
	258	setbit(location[position].objects,value);
	259	else
	260	tempwiz = 0;
	261	time++;
a7c71d1e EW	262	if (*name == 'K')
	263	puts("Drop kicked.");
	264	else
	265	printf("%s.\n", name);
1ddef5f0 EW	266	}
1ddef5f0 EW	267	else {
a7c71d1e EW	268	if (*name != 'K') {
	269	printf("You aren't holding the %s.\n", objsht[value]);
	270	if (testbit(location[position].objects,value)) {
	271	if (*name == 'T')
	272	puts("Kicked instead.");
	273	else if (*name == 'G')
	274	puts("Given anyway.");
	275	}
	276	} else
	277	puts("Kicked.");
1ddef5f0 EW	278	}
	279	if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
	280	wordnumber++;
	281	else
	282	return(firstnumber);
	283	}
	284	puts("Do what?");
	285	return(-1);
	286	}
	287
	288	takeoff()
	289	{
	290	wordnumber = take(wear);
	291	return(drop("Dropped"));
	292	}
	293
	294	puton()
	295	{
	296	wordnumber = take(location[position].objects);
	297	return(wearit());
	298	}
	299
	300	eat()
	301	{
	302	register int n;
	303	int firstnumber, value;
	304
	305	firstnumber = wordnumber;
	306	while(wordtype[++wordnumber] == ADJS);
	307	while(wordnumber <= wordcount){
	308	value = wordvalue[wordnumber];
	309	for (n=0; objsht[value][n]; n++);
	310	switch(value){
	311
	312	case -1:
	313	puts("Eat what?");
	314	return(firstnumber);
	315
	316	default:
	317	printf("You can't eat%s%s!\n",(objsht[value][n-1] == 's' ? " " : " a "),objsht[value]);
	318	return(firstnumber);
	319
	320	case PAPAYAS:
	321	case PINEAPPLE:
	322	case KIWI:
	323	case COCONUTS: /* eatable things */
	324	case MANGO:
	325
	326	printf("%s:\n",objsht[value]);
	327	if (testbit(inven,value) && time > ate - CYCLE && testbit(inven,KNIFE)){
	328	clearbit(inven,value);
	329	carrying -= objwt[value];
	330	encumber -= objcumber[value];
	331	ate = max(time,ate) + CYCLE/3;
	332	snooze += CYCLE/10;
	333	time++;
a7c71d1e	334	puts("Eaten. You can explore a little longer now.");
1ddef5f0 EW	335	}
1ddef5f0 EW	336	else if (time < ate - CYCLE)
a7c71d1e	337	puts("You're stuffed.");
1ddef5f0 EW	338	else if (!testbit(inven,KNIFE))
	339	puts("You need a knife.");
	340	else
	341	printf("You aren't holding the %s.\n", objsht[value]);
	342	if (wordnumber < wordcount - 1 && wordvalue[++wordnumber] == AND)
	343	wordnumber++;
	344	else
	345	return(firstnumber);
	346	} /* end switch */
	347	} /* end while */
	348	return(firstnumber);
a7c71d1e	349	}