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

/*
 * Copyright (c) 1983 Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.redist.c%
 */

#ifndef lint
static char sccsid[] = "@(#)com5.c	5.3 (Berkeley) %G%";
#endif /* not lint */

#include "externs.h"

kiss()
{
	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
		pleasure++;
		printf("Kissed.\n");
		switch (wordvalue[wordnumber]){
			case NORMGOD:
			switch(godready++){
				case 0:
					puts("She squirms and avoids your advances.");
					break;
				case 1:
					puts("She is coming around; she didn't fight it as much.");
					break;
				case 2:
					puts("She's begining to like it.");
					break;
				default:
					puts("She's gone limp.");
					
			}
			break;
			case NATIVE:
				puts("The lips are warm and her body robust.  She pulls you down to the ground.");
				break;
			case TIMER:
				puts("The old man blushes.");
				break;
			case MAN:
				puts("The dwarf punches you in the kneecap.");
				break;
			default:
				pleasure--;
		}
	}
	else	puts("I'd prefer not to.");
}

love()
{
	register int n;

	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
		if (wordvalue[wordnumber] == NORMGOD && !loved)
			if (godready >= 2){
				puts("She cuddles up to you, and her mouth starts to work:\n'That was my sister's amulet.  The lovely goddess, Purl, was she.  The Empire\ncaptured her just after the Darkness came.  My other sister, Vert, was killed\nby the Dark Lord himself.  He took her amulet and warped its power.\nYour quest was foretold by my father before he died, but to get the Dark Lord's\namulet you must use cunning and skill.  I will leave you my amulet.");
				puts("which you may use as you wish.  As for me, I am the last goddess of the\nwaters.  My father was the Island King, and the rule is rightfully mine.'\n\nShe pulls the throne out into a large bed.");
				power++;
				pleasure += 15;
				ego++;
				if (card(injuries, NUMOFINJURIES)){
					puts("Her kisses revive you; your wounds are healed.\n");
					for (n=0; n < NUMOFINJURIES; n++)
						injuries[n] = 0;
					WEIGHT = MAXWEIGHT;
					CUMBER = MAXCUMBER;
				}
				printf("Goddess:\n");
				if (!loved)
					setbit(location[position].objects,MEDALION);
				loved = 1;
				time += 10;
				zzz();
			}
			else {
				puts("You wish!");
				return;
			}
		if (wordvalue[wordnumber] == NATIVE){
			puts("The girl is easy prey.  She peals off her sarong and indulges you.");
			power++;
			pleasure += 5;
			printf("Girl:\n");
			time += 10;
			zzz();
		}
		printf("Loved.\n");
	}
	else puts("I't doesn't seem to work.");
}

zzz()
{
	int oldtime;
	register int n;

	oldtime = time;
	if ((snooze - time) < (0.75 * CYCLE)){
		time += 0.75 * CYCLE - (snooze - time);
		printf("<zzz>");
		for (n = 0; n < time - oldtime; n++)
			printf(".");
		printf("\n");
		snooze += 3 * (time - oldtime);
		if (notes[LAUNCHED]){
			fuel -= (time - oldtime);
			if (location[position].down){
				position = location[position].down;
				crash();
			}
			else
				notes[LAUNCHED] = 0;
		}
		if (OUTSIDE && rnd(100) < 50){
			puts("You are awakened abruptly by the sound of someone nearby.");
			switch(rnd(4)){
				case 0:
					if (ucard(inven)){
						n = rnd(NUMOFOBJECTS);
						while(!testbit(inven,n))
							n = rnd(NUMOFOBJECTS);
						clearbit(inven,n);
						if (n != AMULET && n != MEDALION && n != TALISMAN)
							setbit(location[position].objects,n);
						carrying -= objwt[n];
						encumber -= objcumber[n];
					}
					puts("A fiendish little Elf is stealing your treasures!");
					fight(ELF,10);
					break;
				case 1:
					setbit(location[position].objects,DEADWOOD);
					break;
				case 2:
					setbit(location[position].objects,HALBERD);
					break;
				default:
					break;
			}
		}
	}
	else
		return(0);
	return(1);
}

chime()
{
	if ((time / CYCLE + 1) % 2 && OUTSIDE)
		switch((time % CYCLE)/(CYCLE / 7)){
			case 0:
				puts("It is just after sunrise.");
				break;
			case 1:
				puts("It is early morning.");
				break;
			case 2:
				puts("It is late morning.");
				break;
			case 3:
				puts("It is near noon.");
				break;
			case 4:
				puts("It is early afternoon.");
				break;
			case 5:
				puts("It is late afternoon.");
				break;
			case 6:
				puts("It is near sunset.");
				break;
		}
	else if (OUTSIDE)
		switch((time % CYCLE)/(CYCLE / 7)){
			case 0:
				puts("It is just after sunset.");
				break;
			case 1:
				puts("It is early evening.");
				break;
			case 2:
				puts("The evening is getting old.");
				break;
			case 3:
				puts("It is near midnight.");
				break;
			case 4:
				puts("These are the wee hours of the morning.");
				break;
			case 5:
				puts("The night is waning.");
				break;
			case 6:
				puts("It is almost morning.");
				break;
		}
	else
		puts("I can't tell the time in here.");
}

give()
{
	int obj = -1, result = -1, person = 0, firstnumber, last1, last2;

	firstnumber = wordnumber;
	while (wordtype[++wordnumber] != OBJECT  && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
	if (wordnumber <= wordcount){
		obj = wordvalue[wordnumber];
		if (obj == EVERYTHING)
			wordtype[wordnumber] = -1;
		last1 = wordnumber;
	}
	wordnumber = firstnumber;
	while ((wordtype[++wordnumber] != NOUNS || wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
	if (wordtype[wordnumber] == NOUNS){
		person = wordvalue[wordnumber];
		last2 = wordnumber;
	}
	wordnumber = last1 - 1;
	if (person && testbit(location[position].objects,person))
		if (person == NORMGOD && godready < 2 && !(obj == RING || obj == BRACELET))
			puts("The goddess won't look at you.");
		else
			result = drop("Given");
	else {
		puts("I don't think that is possible.");
		return(0);
	}
	if (result != -1 && (testbit(location[position].objects,obj) || obj == AMULET || obj == MEDALION || obj == TALISMAN)){
		clearbit(location[position].objects,obj);
		time++;
		ego++;
		switch(person){
			case NATIVE:
				puts("She accepts it shyly.");
				ego += 2;
				break;
			case NORMGOD:
				if (obj == RING || obj == BRACELET){
					puts("She takes the charm and puts it on.  A little kiss on the cheek is");
					puts("your reward.");
					ego += 5;
					godready += 3;
				}
				if (obj == AMULET || obj == MEDALION || obj == TALISMAN){
					win++;
					ego += 5;
					power -= 5;
					if (win >= 3){
						puts("The powers of the earth are now legitimate.  You have destroyed the Darkness");
						puts("and restored the goddess to her thrown.  The entire island celebrates with");
						puts("dancing and spring feasts.  As a measure of her gratitude, the goddess weds you");
						puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
						puts("\nBut, as the year wears on and autumn comes along, you become restless and");
						puts("yearn for adventure.  The goddess, too, realizes that the marriage can't last.");
						puts("She becomes bored and takes several more natives as husbands.  One evening,");
						puts("after having been out drinking with the girls, she kicks the throne particulary");
						puts("hard and wakes you up.  (If you want to win this game, you're going to have to\nshoot her!)");
						clearbit(location[position].objects,MEDALION);
						wintime = time;
					}
				}
				break;
			case TIMER:
				if (obj == COINS){
					puts("He fingers the coins for a moment and then looks up agape.  `Kind you are and");
					puts("I mean to repay you as best I can.'  Grabbing a pencil and cocktail napkin...\n");
					printf(  "+-----------------------------------------------------------------------------+\n");
					printf(  "|				   xxxxxxxx\\				      |\n");
					printf(  "|				       xxxxx\\	CLIFFS			      |\n");
					printf(  "|		FOREST			  xxx\\				      |\n");
					printf(  "|				\\\\	     x\\        	OCEAN		      |\n");
					printf(  "|				||	       x\\			      |\n");
					printf(  "|				||  ROAD	x\\			      |\n");
					printf(  "|				||		x\\			      |\n");
					printf(  "|		SECRET		||	  .........			      |\n");
					printf(  "|		 - + -		||	   ........			      |\n");
					printf(  "|		ENTRANCE	||		...      BEACH		      |\n");
					printf(  "|				||		...		  E	      |\n");
					printf(  "|				||		...		  |	      |\n");
					printf(  "|				//		...	    N <-- + --- S     |\n");
					printf(  "|		PALM GROVE     //		...		  |	      |\n");
					printf(  "|			      //		...		  W	      |\n");
					printf(  "+-----------------------------------------------------------------------------+\n");
					puts("\n`This map shows a secret entrance to the catacombs.");
					puts("You will know when you arrive because I left an old pair of shoes there.'");
				}
				break;
		}
	}
	wordnumber = max(last1,last2);
	return(firstnumber);
}
Commit	Line	Data
fdc7d56f	1	/*
e95fc82a KB	2	* Copyright (c) 1983 Regents of the University of California.
	3	* All rights reserved.
	4	*
a6547b1d	5	* %sccs.include.redist.c%
fdc7d56f EW	6	*/
fdc7d56f EW	7
f0462800	8	#ifndef lint
a6547b1d	9	static char sccsid[] = "@(#)com5.c 5.3 (Berkeley) %G%";
e95fc82a	10	#endif /* not lint */
f0462800 EW	11
	12	#include "externs.h"
	13
	14	kiss()
	15	{
	16	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	17	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
	18	pleasure++;
	19	printf("Kissed.\n");
	20	switch (wordvalue[wordnumber]){
	21	case NORMGOD:
	22	switch(godready++){
	23	case 0:
	24	puts("She squirms and avoids your advances.");
	25	break;
	26	case 1:
	27	puts("She is coming around; she didn't fight it as much.");
	28	break;
	29	case 2:
	30	puts("She's begining to like it.");
	31	break;
	32	default:
	33	puts("She's gone limp.");
	34
	35	}
	36	break;
	37	case NATIVE:
	38	puts("The lips are warm and her body robust. She pulls you down to the ground.");
	39	break;
	40	case TIMER:
	41	puts("The old man blushes.");
	42	break;
	43	case MAN:
	44	puts("The dwarf punches you in the kneecap.");
	45	break;
	46	default:
	47	pleasure--;
	48	}
	49	}
	50	else puts("I'd prefer not to.");
	51	}
	52
	53	love()
	54	{
	55	register int n;
	56
	57	while (wordtype[++wordnumber] != NOUNS && wordnumber <= wordcount);
	58	if (wordtype[wordnumber] == NOUNS && testbit(location[position].objects,wordvalue[wordnumber])){
	59	if (wordvalue[wordnumber] == NORMGOD && !loved)
	60	if (godready >= 2){
	61	puts("She cuddles up to you, and her mouth starts to work:\n'That was my sister's amulet. The lovely goddess, Purl, was she. The Empire\ncaptured her just after the Darkness came. My other sister, Vert, was killed\nby the Dark Lord himself. He took her amulet and warped its power.\nYour quest was foretold by my father before he died, but to get the Dark Lord's\namulet you must use cunning and skill. I will leave you my amulet.");
	62	puts("which you may use as you wish. As for me, I am the last goddess of the\nwaters. My father was the Island King, and the rule is rightfully mine.'\n\nShe pulls the throne out into a large bed.");
	63	power++;
	64	pleasure += 15;
	65	ego++;
	66	if (card(injuries, NUMOFINJURIES)){
	67	puts("Her kisses revive you; your wounds are healed.\n");
	68	for (n=0; n < NUMOFINJURIES; n++)
	69	injuries[n] = 0;
	70	WEIGHT = MAXWEIGHT;
	71	CUMBER = MAXCUMBER;
	72	}
	73	printf("Goddess:\n");
	74	if (!loved)
75	setbit(location[position].objects,MEDALION);
76	loved = 1;
77	time += 10;
78	zzz();
79	}
80	else {
81	puts("You wish!");
82	return;
83	}
84	if (wordvalue[wordnumber] == NATIVE){
85	puts("The girl is easy prey. She peals off her sarong and indulges you.");
86	power++;
87	pleasure += 5;
88	printf("Girl:\n");
89	time += 10;
90	zzz();
91	}
92	printf("Loved.\n");
93	}
94	else puts("I't doesn't seem to work.");
95	}
96
97	zzz()
98	{
99	int oldtime;
100	register int n;
101
102	oldtime = time;
103	if ((snooze - time) < (0.75 * CYCLE)){
104	time += 0.75 * CYCLE - (snooze - time);
105	printf("<zzz>");
106	for (n = 0; n < time - oldtime; n++)
107	printf(".");
108	printf("\n");
109	snooze += 3 * (time - oldtime);
110	if (notes[LAUNCHED]){
111	fuel -= (time - oldtime);
112	if (location[position].down){
113	position = location[position].down;
114	crash();
115	}
116	else
117	notes[LAUNCHED] = 0;
118	}
a7c71d1e	119	if (OUTSIDE && rnd(100) < 50){
f0462800	120	puts("You are awakened abruptly by the sound of someone nearby.");
a7c71d1e	121	switch(rnd(4)){
f0462800 EW	122	case 0:
	123	if (ucard(inven)){
	124	n = rnd(NUMOFOBJECTS);
	125	while(!testbit(inven,n))
	126	n = rnd(NUMOFOBJECTS);
	127	clearbit(inven,n);
	128	if (n != AMULET && n != MEDALION && n != TALISMAN)
	129	setbit(location[position].objects,n);
	130	carrying -= objwt[n];
	131	encumber -= objcumber[n];
	132	}
	133	puts("A fiendish little Elf is stealing your treasures!");
	134	fight(ELF,10);
	135	break;
	136	case 1:
	137	setbit(location[position].objects,DEADWOOD);
	138	break;
	139	case 2:
	140	setbit(location[position].objects,HALBERD);
	141	break;
a7c71d1e EW	142	default:
a7c71d1e EW	143	break;
f0462800 EW	144	}
	145	}
	146	}
	147	else
	148	return(0);
	149	return(1);
	150	}
	151
	152	chime()
	153	{
	154	if ((time / CYCLE + 1) % 2 && OUTSIDE)
	155	switch((time % CYCLE)/(CYCLE / 7)){
	156	case 0:
	157	puts("It is just after sunrise.");
	158	break;
	159	case 1:
	160	puts("It is early morning.");
	161	break;
	162	case 2:
	163	puts("It is late morning.");
	164	break;
	165	case 3:
	166	puts("It is near noon.");
	167	break;
	168	case 4:
	169	puts("It is early afternoon.");
	170	break;
	171	case 5:
	172	puts("It is late afternoon.");
	173	break;
	174	case 6:
	175	puts("It is near sunset.");
	176	break;
	177	}
	178	else if (OUTSIDE)
	179	switch((time % CYCLE)/(CYCLE / 7)){
	180	case 0:
	181	puts("It is just after sunset.");
	182	break;
	183	case 1:
	184	puts("It is early evening.");
	185	break;
	186	case 2:
	187	puts("The evening is getting old.");
	188	break;
	189	case 3:
	190	puts("It is near midnight.");
	191	break;
	192	case 4:
	193	puts("These are the wee hours of the morning.");
	194	break;
	195	case 5:
	196	puts("The night is waning.");
	197	break;
	198	case 6:
	199	puts("It is almost morning.");
	200	break;
	201	}
	202	else
	203	puts("I can't tell the time in here.");
	204	}
	205
	206	give()
	207	{
208	int obj = -1, result = -1, person = 0, firstnumber, last1, last2;
209
210	firstnumber = wordnumber;
211	while (wordtype[++wordnumber] != OBJECT && wordvalue[wordnumber] != AMULET && wordvalue[wordnumber] != MEDALION && wordvalue[wordnumber] != TALISMAN && wordnumber <= wordcount);
212	if (wordnumber <= wordcount){
213	obj = wordvalue[wordnumber];
214	if (obj == EVERYTHING)
215	wordtype[wordnumber] = -1;
216	last1 = wordnumber;
217	}
218	wordnumber = firstnumber;
219	while ((wordtype[++wordnumber] != NOUNS \|\| wordvalue[wordnumber] == obj) && wordnumber <= wordcount);
220	if (wordtype[wordnumber] == NOUNS){
221	person = wordvalue[wordnumber];
222	last2 = wordnumber;
223	}
224	wordnumber = last1 - 1;
225	if (person && testbit(location[position].objects,person))
226	if (person == NORMGOD && godready < 2 && !(obj == RING \|\| obj == BRACELET))
227	puts("The goddess won't look at you.");
228	else
229	result = drop("Given");
230	else {
231	puts("I don't think that is possible.");
232	return(0);
233	}
234	if (result != -1 && (testbit(location[position].objects,obj) \|\| obj == AMULET \|\| obj == MEDALION \|\| obj == TALISMAN)){
235	clearbit(location[position].objects,obj);
236	time++;
237	ego++;
238	switch(person){
239	case NATIVE:
240	puts("She accepts it shyly.");
241	ego += 2;
242	break;
243	case NORMGOD:
244	if (obj == RING \|\| obj == BRACELET){
245	puts("She takes the charm and puts it on. A little kiss on the cheek is");
246	puts("your reward.");
247	ego += 5;
248	godready += 3;
249	}
250	if (obj == AMULET \|\| obj == MEDALION \|\| obj == TALISMAN){
251	win++;
252	ego += 5;
253	power -= 5;
254	if (win >= 3){
255	puts("The powers of the earth are now legitimate. You have destroyed the Darkness");
256	puts("and restored the goddess to her thrown. The entire island celebrates with");
257	puts("dancing and spring feasts. As a measure of her gratitude, the goddess weds you");
258	puts("in the late summer and crowns you Prince Liverwort, Lord of Fungus.");
259	puts("\nBut, as the year wears on and autumn comes along, you become restless and");
260	puts("yearn for adventure. The goddess, too, realizes that the marriage can't last.");
261	puts("She becomes bored and takes several more natives as husbands. One evening,");
262	puts("after having been out drinking with the girls, she kicks the throne particulary");
263	puts("hard and wakes you up. (If you want to win this game, you're going to have to\nshoot her!)");
264	clearbit(location[position].objects,MEDALION);
265	wintime = time;
266	}
267	}
268	break;
269	case TIMER:
270	if (obj == COINS){
a7c71d1e EW	271	puts("He fingers the coins for a moment and then looks up agape. `Kind you are and");
	272	puts("I mean to repay you as best I can.' Grabbing a pencil and cocktail napkin...\n");
	273	printf( "+-----------------------------------------------------------------------------+\n");
	274	printf( "\| xxxxxxxx\\ \|\n");
	275	printf( "\| xxxxx\\ CLIFFS \|\n");
	276	printf( "\| FOREST xxx\\ \|\n");
f0462800 EW	277	printf( "\| \\\\ x\\ OCEAN \|\n");
	278	printf( "\| \|\| x\\ \|\n");
	279	printf( "\| \|\| ROAD x\\ \|\n");
	280	printf( "\| \|\| x\\ \|\n");
	281	printf( "\| SECRET \|\| ......... \|\n");
	282	printf( "\| - + - \|\| ........ \|\n");
	283	printf( "\| ENTRANCE \|\| ... BEACH \|\n");
	284	printf( "\| \|\| ... E \|\n");
	285	printf( "\| \|\| ... \| \|\n");
a7c71d1e	286	printf( "\| // ... N <-- + --- S \|\n");
f0462800 EW	287	printf( "\| PALM GROVE // ... \| \|\n");
f0462800 EW	288	printf( "\| // ... W \|\n");
a7c71d1e EW	289	printf( "+-----------------------------------------------------------------------------+\n");
a7c71d1e EW	290	puts("\n`This map shows a secret entrance to the catacombs.");
f0462800 EW	291	puts("You will know when you arrive because I left an old pair of shoes there.'");
	292	}
	293	break;
	294	}
	295	}
	296	wordnumber = max(last1,last2);
	297	return(firstnumber);
	298	}